100 D=PEEK(186):N=N+1
110 IFN=1THENLOAD"SIMPLEX64",(D),1
120 SYS49152
130 OPEN2,(D),2,"CHARDISPLAY,S,W"
140 @OPENPLOT2:@SCALE(1/2.54)
150 @ITALIC30:@SYMBOL.6,2.4,3,.5,.5,(null)/2,"[211][212][193][210][208][204][207][212][212][197][210]:"
160 @ITALIC0:@SYMBOL.6,9.9,3,.5,.5,(null)/2,"AVAILABLE SYMBOLS"
170 @PLOT 1.  ,2.   ,0
180 @PLOT 1.  ,18.92,3
190 @PLOT 1.05,2    ,0
200 @PLOT 1.05,18.92,3
210 @PLOT 2.5 ,1    ,0
220 @PLOT 2.5 ,20   ,3,.11
230 @PLOT 5.5 ,20   ,3,.1
240 @PLOT 5.5 ,1    ,3,.11
250 @PLOT 2.5 ,1    ,3,.1
260 X1=0  :X2=12 :P1=3 :GOSUB530
270 X1=14 :X2=31 :P1=6 :GOSUB530
280 X1=32 :X2=95 :P1=9 :GOSUB530
290 X1=96 :X2=96 :P1=17:GOSUB530
300 X1=97 :X2=122:P1=19:GOSUB530
310 X1=123:X2=149:P1=23:GOSUB530
320 @PLOT 8.5 ,1   ,0
330 @PLOT 8.5 ,20  ,3,.11
340 @PLOT 22.5,20  ,3,.1
350 @PLOT 22.5,1   ,3,.11
360 @PLOT 18.5,1   ,3,.1
370 @PLOT 18.5,5.25,3,.11
380 @PLOT 16.5,5.25,3,.1
390 @PLOT 16.5,1   ,3,.11
400 @PLOT 8.5 ,1   ,3,.1
410 @ITALIC30:@SYMBOL4.7,9.3,2,.4,.4,(null)/2,"SPECIAL CENTERED SYMBOLS"
420 @SYMBOL15.9,9.3,2,.4,.4,(null)/2,"BUT FOR SHIFTED"
430 @SYMBOL16.5,9.3,2,.4,.4,(null)/2,"THESE ARE ALL PRINTABLE"
440 @SYMBOL17.1,9.3,2,.4,.4,(null)/2,"NORMAL AND SHIFTED KEYS"
450 @SYMBOL17.7,9.3,2,.4,.4,(null)/2,"IN [195]OMMODORE'S BUSINESS"
460 @SYMBOL18.3,9.3,2,.4,.4,(null)/2,"MODE"
470 @ITALIC0:@SYMBOL15.9,16.15,2,.4,.4,(null)/2,"+-\@*^"
480 @SYMBOL27.5,1.76,3,.4,.4,(null)/2,"[193][211][195][201][201] 192-223 SAME AS 96-127, OTHERS BLANK"
490 CLOSE2:@KILL:END
500 REM
510 REM
520 REM
530 IL=-1:IK=X1-1:PX=P1
540 IK=IK+1:IFIK>X2THENRETURN
550 IL=IL+1:IFIL<10GOTO570
560 PX=PX+1:IL=0
570 IX=(IL+1)*1.75:IY=IX+1.75
580 @PLOT PX   ,IX  ,0
590 @PLOT PX   ,IY  ,3
600 @PLOT PX+1 ,IY  ,3
610 @PLOT PX+1 ,IX  ,3
620 @PLOT PX   ,IX  ,3
630 @PLOT PX   ,IX+1,0
640 @PLOT PX+1 ,IX+1,1
650 @PLOT PX+.5,IX+1,0
660 @PLOT PX+.5,IY  ,1
670 IFIK<13THEN:@SYMBOLPX+.5,IX+.5,2,.6,.6,(null)/2,CHR$(IK)
680 IFIK>13THEN:@SYMBOLPX+.8,IX+.2,2,.6,.6,(null)/2,CHR$(IK)
690 A$=RIGHT$(STR$(IK),LEN(STR$(IK))-1)
700 @SYMBOLPX+.89,IX+1.075+.1*(3-LEN(A$)),1,.3,.2,(null)/2,A$
710 A1=INT(IK/16):A2=IK-16*A1:A1=A1+48:A2=A2+48
720 IFA1>57THENA1=A1+39
730 IFA2>57THENA2=A2+39
740 @SYMBOLPX+.4,IX+1.075,1,.3,.2,(null)/2,"$"+CHR$(A1)+CHR$(A2)
750 GOTO540