CHDIR "D:\TEMP"
OPEN "D:\FILES2\ARJLIST.lst" FOR INPUT AS #1
WHILE NOT EOF(1)
INPUT #1, arjfile$
sh$ = "ARJ e D:\FILES2\" + arjfile$ + " D:\TEMP"
sh2$ = "PKZIP " + LEFT$(arjfile$, LEN(arjfile$) - 3) + "ZIP D:\TEMP\*.*"
sh3$ = "MOVE *.ZIP D:\FILES"
SHELL sh$
SHELL sh2$
SHELL sh3$
KILL "D:\TEMP\*.*"
WEND