home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 Janurary / 64er_Magazin_91-01_1991_Markt__Technik_de_Side_A.d64 / multicolor (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  706b  |  36 lines
  1. 10 print"[147]bitte warten"
  2. 20 for n=896 to 958
  3. 30 read sp
  4. 40 poke n,sp
  5. 50 next n
  6. 60 data   1, 85, 64,  1, 85, 64
  7. 70 data   1, 20, 64,  1, 20, 64
  8. 80 data   1, 85, 64,  1, 20, 64
  9. 90 data   1, 65, 64,  1, 85, 64
  10. 100 data   0, 60,  0,  0, 60,  0
  11. 110 data  62,170,188, 62,170,188
  12. 120 data  48,170, 12, 16,170,  4
  13. 130 data  20,130, 20, 20,130, 20
  14. 140 data  16,195,  4,  0,195,  0
  15. 150 data   0, 65,  0,  1, 65, 64
  16. 160 data   1, 65, 64
  17. 170 print"[147]"
  18. 180 poke 2040,14
  19. 190 vic = 53248
  20. 200 poke vic,160
  21. 210 poke vic + 1,129
  22. 220 poke vic + 23,1
  23. 230 poke vic + 29,1
  24. 240 poke vic + 28,1
  25. 250 poke vic + 33,0
  26. 260 poke vic + 37,7
  27. 270 poke vic + 39,5
  28. 280 poke vic + 38,6
  29. 290 poke vic + 21,1
  30. 300 get kp$
  31. 310 if kp$ = "" then 300
  32. 500 poke vic + 21,0
  33. 510 poke vic + 28,0
  34. 520 poke vic + 29,0
  35. 530 end
  36.