home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 84 / Tiger_Disk_084_20xx_Tiger-Crew-Disk_de_Side_D.d64 / screensaver_#01 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  662b  |  26 lines
  1. 5 printchr$(147)chr$(5):poke53280,0:poke53281,0:a$=""
  2. 10 v=1873:a=1:b=-40:c=-1:d=40:q=160:r=int(15*rnd(1))+1:s=54272
  3. 20 gosub200:geta$:gosub125
  4. 30 poke1093,32
  5. 40 v=1215:a=-1:b=40:c=1:d=-40:r=int(15*rnd(1))+1
  6. 50 gosub200:geta$:gosub125
  7. 60 poke1995,32
  8. 70 v=1893:a=-1:b=-40:c=1:d=40:r=int(15*rnd(1))+1
  9. 80 gosub200:geta$:gosub125
  10. 90 poke1073,32
  11. 100 v=1191:a=1:b=40:c=-1:d=-40:r=int(15*rnd(1))+1
  12. 110 gosub200:geta$:gosub125
  13. 120 poke2011,32:goto130
  14. 125 ifa$thenprint"[147]":end
  15. 126 return
  16. 130 fort=1to1000:next:goto5
  17. 200 forp=1to10:pokev,q:pokev+s,r
  18. 210 n=1:forx=1ton:pokev+a,q:pokev+s,r:v=v+a:next
  19. 220 forx=1ton:pokev+b,q:pokev+s,r:v=v+b:next
  20. 230 n=n+1:forx=1ton:pokev+c,q:pokev+s,r:v=v+c:next
  21. 240 forx=1ton:pokev+d,q:pokev+s,r:v=v+d:next
  22. 250 n=n+1:forx=1ton:pokev+a,q:pokev+s,r:v=v+a:next
  23. 260 forx=1ton:pokev+b,q:pokev+s,r:v=v+b:next
  24. 270 nextp
  25. 280 return
  26.