home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 91 / 64er_Magazin_Sonderheft_91_19xx_Markt__Technik_de_Side_A.d64 / zus.zeichensatz (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  1KB  |  65 lines
  1. 100 rem
  2. 110 rem zusaetzlicher zeichensatz
  3. 120 rem
  4. 130 rem zeichensatzprogramm aus 64'er
  5. 140 rem sonderheft 5/86
  6. 150 rem
  7. 160 print"[147]bitte warten"
  8. 170 c=118:t=0:u=7
  9. 180 poke 52,48:poke56,48
  10. 190 poke 56334,peek(56334)and 254
  11. 200 poke 1,peek(1)and 251
  12. 210 for i=49152 to 49158:reada:poke i,a:next i
  13. 220 data 133,95,134,96,76,191,163
  14. 230 qs=53248:qe=qs+4096
  15. 240 ze=12288+4096
  16. 250 a=int(qs/256):poke 781,a:poke 780,qs-256*a
  17. 260 a=int(qe/256):poke 91,a:poke 90,qe-256*a
  18. 270 a=int(ze/256):poke 89,a:poke 88,ze-256*a
  19. 280 sys 49152
  20. 290 poke 1,peek(1)or 4
  21. 300 poke 56334,peek(56334)or 1
  22. 310 poke 53272,(peek(53272)and240)or 12
  23. 320 s=14336+8*c
  24. 330 for i=0 to 7
  25. 340 :read a:pokes+i,a
  26. 350 next i
  27. 360 r=r+1
  28. 370 if r=1then c=112
  29. 380 if r=2then c=110
  30. 390 if r=3then c=108
  31. 400 if r=4then c=123
  32. 410 if r=5then c=101
  33. 420 if r=6then c=116
  34. 430 if r=7then c=117
  35. 440 if r=8then c=97
  36. 450 if r=10then c=102
  37. 460 if r=11 then c=92
  38. 470 if r=15then 680
  39. 480 if r=9 then c=109
  40. 490 if r=12 then c=104
  41. 500 if r=13 then c=0
  42. 510 if r=14 then c=125
  43. 520 goto 320
  44. 530 data 0,0,254,216,222,216,254,0
  45. 540 data 48,24,60,6,62,102,62,0
  46. 550 data 48,24,60,102,126,96,60,0
  47. 560 data 24,48,60,102,126,96,60,0
  48. 570 data 16,40,60,102,126,96,60,0
  49. 580 data 0,60,96,96,96,60,24,48
  50. 590 data 12,24,102,102,102,102,62,0
  51. 600 data 16,40,60,102,102,102,60,0
  52. 610 data 60,102,96,96,102,60,12,24
  53. 620 data 16,40,0,56,24,24,60,0
  54. 630 data 54,00,60,6,62,102,62,0
  55. 640 data 54,0,60,102,102,102,60,0
  56. 650 data 54,0,102,102,102,102,62,0
  57. 660 data 124,102,102,124,102,102,124,96
  58. 670 data 16,40,60,6,62,102,62,0
  59. 680 :
  60. 690 poke 52,150:poke 56,160
  61. 700 poke 808,237:printchr$(14)
  62. 710 print"load ";chr$(34);"vokabelprogramm";chr$(34);" ,8"
  63. 720 print"run"
  64. 730 print"[145][145][145][145][145][145][145][145][145]"
  65.