10 INPUT "Program name ",prog$ : IF INSTR(prog$,".") = 0 THEN prog$=prog$+".bas"
20 IF FIND$(prog$)="" THEN PRINT "Program not found" : PRINT : GOTO 10
30 LPRINT CHR$(15);CHR$(27);"W1"
40 LPRINT "Checksum listing of file ";upper$(prog$); " for 8000-PLUS"
50 LPRINT CHR$(27);"W0"
60 OPEN "I",1,prog$
70 WHILE NOT EOF(1)
80 LINE INPUT #1,z$
90 y$=UPPER$(z$)
100 check%=0 : j%=0
110 FOR i% = 1 TO LEN(y$)
120 y%=ASC(MID$(y$,i%,1) : IF y%=32 GOTO 200
130 IF y% <> &HFC GOTO 180
140 PRINT "Error - Program was not saved in ASCII mode" : PRINT
150 PRINT "Do the following...","LOAD ";chr$(34);",A";prog$
160 PRINT "SAVE";chr$(34);prog$;chr$(34);",A" : PRINT
170 PRINT "and run the checksum program again" : PRINT : GOTO 230
180 j% = j% + 1
190 check% = check% + (y%-32) * (j% MOD 7) +1
200 NEXT
210 LPRINT z$;TAB(120);HEX$(check%,4)
220 WEND
230 CLOSE 1 : LPRINT CHR$(18);CHR$(12);
240 END