home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D12.D64 / displaychars (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.0 KB  |  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.