start tok64 d64-cyFPAf
10 OPEN6,4,6:PRINT#6,CHR$(18):CLOSE6
15 OPEN4,4:CMD4
20 FORi=0TO24
30 FORj=0TO39
40 a=PEEK(1024+i*40+j)
50 GOSUB1000
60 PRINTa1$;a2$;a3$;
70 NEXTj
80 PRINT
90 NEXTi
100 PRINT#4:CLOSE4
110 END
1000 a1$="":a2$="":a3$=""
1010 IF a>127THENa1$=CHR$(18):a3$=CHR$(146):a=a-128
1020 IFa<32THENa2$=CHR$(a+64):RETURN
1030 IFa>31ANDa<64THENa2$=CHR$(a):RETURN
1040 IFa>63ANDa<96THENa2$=CHR$(a+128):RETURN
1050 a2$=CHR$(a+64):RETURN
stop tok64
(bastext 1.0)