home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 4 #12
/
Commodore_Disk_User_Vol.4_12_1991_-.d64
/
displaychars
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
67 lines
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