home *** CD-ROM | disk | FTP | other *** search
- 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
-