home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 5 / 64er_Magazin_Sonderheft_05_86-05_1986_Markt__Technik_de.d64 / abrakadabra (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  938b  |  34 lines
  1. 10 rem *** neue zeichenmuster ***
  2. 20 printchr$(147)"abrakadabra"
  3. 30 rem --- ram schuetzen ---
  4. 40 poke 52,48:poke 56,48
  5. 50 rem --- unterbrechung abschalten ---
  6. 60 poke 56334,peek(56334)and254
  7. 70 rem --- zeichenrom einschalten ---
  8. 80 poke 1,peek(1)and251
  9. 90 rem --- ml-programm erzeugen ---
  10. 100 for i=49152 to 49158:reada:pokei,a:nexti
  11. 110 data 133,95,134,96,76,191,163
  12. 120 rem --- kopieren zeichenrom ---
  13. 130 qs=53248:qe=qs+4096:rem zeichenrom
  14. 140 ze=12288+4096:rem neues zeichenram
  15. 150 a=int(qs/256):poke781,a:poke780,qs-256*a
  16. 160 a=int(qe/256):poke91,a:poke90,qe-256*a
  17. 170 a=int(ze/256):poke89,a:poke88,ze-256*a
  18. 180 sys49152
  19. 190 rem --- normalzustand herstellen ---
  20. 200 poke 1,peek(1)or4
  21. 210 poke56334,peek(56334)or1
  22. 220 rem -- vic auf neue zeichenquelle --
  23. 230 poke 53272,(peek(53272)and240)or12
  24. 240 rem --- zeichen a veraendern ---
  25. 250 c=1:rem code fuer zeichen a
  26. 260 s=12288+8*c:rem start muster von a
  27. 270 for i=0 to 7
  28. 280 :read a:pokes+i,a
  29. 290 next i
  30. 300 data 102,0,24,24,129,102,60,0
  31. 310 rem --- programmende ---
  32. 320 stop
  33. 330 poke 53272,21:poke 52,160:poke 56,160:end
  34.