10 INPUT "Program name ", prog$
20 IF INSTR(prog$,".") = 0 THEN prog$=prog$+".bas"
30 IF FIND$(prog$)="" THEN PRINT "Program not found":PRINT:GOTO 10
40 OPEN "I", 1, prog$
50 INPUT "name of file to write to";prog2$
60 INPUT "Send to printer Y/N";ask$
70 IF UPPER$(ask$)="Y" THEN prt%=1
80 IF prog$ ="" THEN END
90 OPEN "O",2,prog2$
100 WHILE NOT EOF(1)
110 LINE INPUT #1,z$
120 y$=UPPER$(z$)
130 check%=0 : j%=0
140 FOR i% = 1 TO LEN(y$)
150 y%=ASC(MID$(y$, i%, 1) : IF y%=32 GOTO 200
160 IF y% <> &HFC GOTO 180
170 PRINT "Save it in b**** ASCII!" : END
180 j% = j% + 1
190 check% = check% + (y%-32) * (j% MOD 7+1)
200 NEXT
210 PRINT #2,z$; TAB(70); HEX$(check%,4)
220 PRINT z$; TAB(70); HEX$(check%,4)
230 IF prt%=1 THEN LPRINT z$;TAB(70);HEX$(check%,4)
240 WEND
250 CLOSE 1:CLOSE 2: PRINT "done"
260 END