INPUT "Filename"; f$
IF INSTR(f$, ".") = 0 THEN f$ = f$ + ".COM"
OPEN f$ FOR INPUT AS #1: mm = LOF(1): CLOSE 1
dd$ = "CRYPTCOM " + UCASE$(f$)
FOR q = 1 TO INT((10000 - mm) / 29)
SHELL dd$
NEXT q