home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 6 / 64er_Magazin_Sonderheft_06_86-06_1986_Markt__Technik_de_Disk_1_of_3_Side_A.d64 / demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  749b  |  37 lines
  1. 1 rem * random copy demo
  2. 2 rem *
  3. 3 rem * (c) 1985 fras-soft
  4. 4 rem *
  5. 5 rem * stephan arndt
  6. 6 rem * suedwestkorso 62
  7. 7 rem * 1 berlin 41
  8. 8 rem *
  9. 9 rem *
  10. 10 :
  11. 20 ifa=0thena=1:load"random copy",8,1
  12. 30 ifa=1thena=2:load"graphics",8,1
  13. 40 forr=1024to2023:poker,1:next
  14. 50 poke53280,0
  15. 60 poke53281,0
  16. 70 poke53272,24:poke53265,59
  17. 80 forr=8192to16192:poker,0:next
  18. 90 :
  19. 100 rem --------- nu kommt's -------
  20. 110 poke 1017,32 : rem ( = $20)
  21. 120 rem ziel = $2000
  22. 130 poke 1016,64 : rem ( = $40)
  23. 140 rem graphic liegt bei $4000
  24. 150 sys 828
  25. 160 rem ----------------------------
  26. 200 rem ----- zweite graphic -------
  27. 210 poke 1017,32 : rem ( = $20)
  28. 220 rem ziel = $2000
  29. 230 poke 1016,96 : rem ( = $60)
  30. 240 rem graphic liegt bei $6000
  31. 250 sys 828
  32. 260 rem ----------------------------
  33. 300 geta$:ifa$=""then300
  34. 310 poke53272,21
  35. 320 poke53265,27
  36. 330 print"[147]"
  37.