1: s$ = LTRIM$(RTRIM$(UCASE$(COMMAND$))) 2: IF s$ = "" THEN END 3: PRINT "Compressing "; s$ 4: mm$ = "DIET -X " + s$: SHELL (mm$) 5: PRINT "------------------------------------------------------------------" 6: PRINT "Encrypting "; s$; 7: IF RIGHT$(s$, 3) = "COM" THEN PRINT ", a COM file!": mm$ = "CRYPTCOM " + s$: SHELL (mm$) ELSE PRINT "" 8: PRINT "------------------------------------------------------------------" 9: PRINT "Press [ ESC ] to skip." 10: mm$ = "EPW /A /V " + s$: SHELL (mm$) 11: PRINT "Done." 12: |