home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_88-05_1988_-_de_Side_B.d64 / hires-scroll (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  275b  |  13 lines
  1. 10 rem demo zu hires-scroll
  2. 20 :
  3. 30 data"pic1","pic2","pic3","ende"
  4. 40 :
  5. 45 ifb=0thenb=1:load"scroll",8,1
  6. 50 ifa=0thena=1:sys49240
  7. 60 ifa>1thensys49152,1
  8. 70 restore:fori=1toa:readn$:next
  9. 80 ifn$="ende"then100
  10. 90 a=a+1:load(n$),8,1
  11. 100 poke198,0:wait198,1:poke198,0
  12. 110 poke53265,27:poke53270,200:poke53272,21:print"[147]":poke56576,151
  13.