10 LPRINT CHR$(27)+"m1"
20 LPRINT CHR$(27)+"E"
30 LPRINT CHR$(27)+"R"+CHR$(0)
40 LPRINT CHRS(27)+"d"
50 PRINT"Do you want pica":WHILE i$="":i$=INKEY$: WEND
60 IF UPPER$(i$)="Y" THEN LPRINT CHR$(27)+"M" 
70 INPUT "Program name   ",prog$
80 IF INSTR(prog$,".") = 0 THEH prog$=prog$+".bas"
90 IF FIND$(prag$)="" THEH PRINT "Program not found" : PRINT : GOTO 70
100 OPEN "I",1,prog$
110 WHILE NOT EOF(1) 
120 LINE INPUT #1,z$ 
130 y$=UPPER$(z$) 
140 check%=0 : j%=0 
150 FOR i% = 1 TO LEN(y$) 
160 y%=ASC(MID$(y$,i%,1)) : IF y%=32 GOTO 210
170 IF y% <> &HFC GOTO 190 
180 PRINT "Save it in ASCII" : END
190 j% = j% + 1 
200 chec% = check% + (y%-32) * (j% MOD 7 +1)
210 NEXT 
220 LPRINT z$;TAB(76);HEX$(check%,4) 
230 WEND 
240 CLOSE 1 : LPRINT CHR$(18);CHR$(12) 
250 END