10 OPEN "r",1,"chars.fnt",1:FIELD 1,1 AS z$
15 OPEN "o",2,"chars.seq"
20 FOR q1=32 TO 122
21 PRINT USING "###";q1;:a$=MID$(STR$((q1-32)*10+1000), 2)+" DATA "+MID$(STR$(q1),2):PRINT " ";
22 FOR i=1 TO 8
23 GET 1,(q1-1)*8+i:PRINT USING "####";ASC(z$);:a$=a$+","+MID$(STR$(ASC(z$)),2)
24 NEXT i:PRINT
25 PRINT #2,a$
26 NEXT q1
30 CLOSE
50 CLOSE 1:CLOSE 2