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 >
Commodore BASIC  |  2022-10-26  |  2KB  |  67 lines
  1. 100 d=peek(186):n=n+1
  2. 110 ifn=1thenload"simplex64",(d),1
  3. 120 sys49152
  4. 130 open2,(d),2,"chardisplay,s,w"
  5. 140 @openplot2:@scale(1/2.54)
  6. 150 @italic30:@symbol.6,2.4,3,.5,.5,(NULL)/2,"[211][212][193][210][208][204][207][212][212][197][210]:"
  7. 160 @italic0:@symbol.6,9.9,3,.5,.5,(NULL)/2,"available symbols"
  8. 170 @plot 1.  ,2.   ,0
  9. 180 @plot 1.  ,18.92,3
  10. 190 @plot 1.05,2    ,0
  11. 200 @plot 1.05,18.92,3
  12. 210 @plot 2.5 ,1    ,0
  13. 220 @plot 2.5 ,20   ,3,.11
  14. 230 @plot 5.5 ,20   ,3,.1
  15. 240 @plot 5.5 ,1    ,3,.11
  16. 250 @plot 2.5 ,1    ,3,.1
  17. 260 x1=0  :x2=12 :p1=3 :gosub530
  18. 270 x1=14 :x2=31 :p1=6 :gosub530
  19. 280 x1=32 :x2=95 :p1=9 :gosub530
  20. 290 x1=96 :x2=96 :p1=17:gosub530
  21. 300 x1=97 :x2=122:p1=19:gosub530
  22. 310 x1=123:x2=149:p1=23:gosub530
  23. 320 @plot 8.5 ,1   ,0
  24. 330 @plot 8.5 ,20  ,3,.11
  25. 340 @plot 22.5,20  ,3,.1
  26. 350 @plot 22.5,1   ,3,.11
  27. 360 @plot 18.5,1   ,3,.1
  28. 370 @plot 18.5,5.25,3,.11
  29. 380 @plot 16.5,5.25,3,.1
  30. 390 @plot 16.5,1   ,3,.11
  31. 400 @plot 8.5 ,1   ,3,.1
  32. 410 @italic30:@symbol4.7,9.3,2,.4,.4,(NULL)/2,"special centered symbols"
  33. 420 @symbol15.9,9.3,2,.4,.4,(NULL)/2,"but for shifted"
  34. 430 @symbol16.5,9.3,2,.4,.4,(NULL)/2,"these are all printable"
  35. 440 @symbol17.1,9.3,2,.4,.4,(NULL)/2,"normal and shifted keys"
  36. 450 @symbol17.7,9.3,2,.4,.4,(NULL)/2,"in [195]ommodore's business"
  37. 460 @symbol18.3,9.3,2,.4,.4,(NULL)/2,"mode"
  38. 470 @italic0:@symbol15.9,16.15,2,.4,.4,(NULL)/2,"+-\@*^"
  39. 480 @symbol27.5,1.76,3,.4,.4,(NULL)/2,"[193][211][195][201][201] 192-223 same as 96-127, others blank"
  40. 490 close2:@kill:end
  41. 500 rem
  42. 510 rem
  43. 520 rem
  44. 530 il=-1:ik=x1-1:px=p1
  45. 540 ik=ik+1:ifik>x2thenreturn
  46. 550 il=il+1:ifil<10goto570
  47. 560 px=px+1:il=0
  48. 570 ix=(il+1)*1.75:iy=ix+1.75
  49. 580 @plot px   ,ix  ,0
  50. 590 @plot px   ,iy  ,3
  51. 600 @plot px+1 ,iy  ,3
  52. 610 @plot px+1 ,ix  ,3
  53. 620 @plot px   ,ix  ,3
  54. 630 @plot px   ,ix+1,0
  55. 640 @plot px+1 ,ix+1,1
  56. 650 @plot px+.5,ix+1,0
  57. 660 @plot px+.5,iy  ,1
  58. 670 ifik<13then:@symbolpx+.5,ix+.5,2,.6,.6,(NULL)/2,chr$(ik)
  59. 680 ifik>13then:@symbolpx+.8,ix+.2,2,.6,.6,(NULL)/2,chr$(ik)
  60. 690 a$=right$(str$(ik),len(str$(ik))-1)
  61. 700 @symbolpx+.89,ix+1.075+.1*(3-len(a$)),1,.3,.2,(NULL)/2,a$
  62. 710 a1=int(ik/16):a2=ik-16*a1:a1=a1+48:a2=a2+48
  63. 720 ifa1>57thena1=a1+39
  64. 730 ifa2>57thena2=a2+39
  65. 740 @symbolpx+.4,ix+1.075,1,.3,.2,(NULL)/2,"$"+chr$(a1)+chr$(a2)
  66. 750 goto540
  67.