home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 77 / 64er_Magazin_Sonderheft_77_19xx_Markt__Technik_de_Side_B.d64 / zeilenmarker (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  997b  |  40 lines
  1. 100 rem   zeilenmarker
  2. 110 rem       by
  3. 120 rem    alexander
  4. 130 rem      piel
  5. 140 rem
  6. 150 rem    (c) 1986
  7. 160 fori=49156to49266:reada:pokei,a
  8. 170 s=s+a:next
  9. 180 ifs=12648then510
  10. 190 print"data-fehler":end
  11. 200 data 120,169, 35,141, 20,  3,169
  12. 210 data 192,141, 21,  3,173, 17,208
  13. 220 data  41,127,141, 17,208,169,  0
  14. 230 data 141, 18,208,169,129,141, 26
  15. 240 data 208, 88, 96,173, 25,208,141
  16. 250 data  25,208, 48,  7,173, 13,220
  17. 260 data  88, 76, 49,234,165,214,197
  18. 270 data   2,240, 21,133,  2,165,214
  19. 280 data 141,  0,192, 24, 42, 42, 42
  20. 290 data 105, 49,141,  0,192,105,  9
  21. 300 data 141,  1,192,173, 18,208,205
  22. 310 data   1,192,176, 15,173,  2,192
  23. 320 data 141, 33,208,173,  1,192,141
  24. 330 data  18,208, 76,112,192,173,  3
  25. 340 data 192,141, 33,208,173,  0,192
  26. 350 data 141, 18,208, 76,188,254
  27. 400 rem  einschalten mit
  28. 410 rem  sys 49156
  29. 420 rem  farbe des balkens :
  30. 430 rem  poke 49154,[ farbcode ]
  31. 440 rem
  32. 450 rem  hintergrundfarbe nicht mehr
  33. 460 rem  poke 53281,[ farbcode ]
  34. 470 rem  sondern
  35. 480 rem  poke 49155,[ farbcode ]
  36. 490 rem
  37. 500 rem         demo
  38. 510 poke49154,1:poke49155,peek(53281)
  39. 520 sys49156
  40.