1: INPUT "Filename"; f$
2: IF INSTR(f$, ".") = 0 THEN f$ = f$ + ".COM"
3: OPEN f$ FOR INPUT AS #1: mm = LOF(1): CLOSE 1
4: dd$ = "CRYPTCOM " + UCASE$(f$)
5: FOR q = 1 TO INT((10000 - mm) / 29)
6: SHELL dd$
7: NEXT q
8:
5748387 [rkeene@sledge /home/rkeene/devel/archive/quickbasic]$
Click here to go back to the directory listing.
Click here to download this file.
last modified: 2000-05-09 20:59:11