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