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 >
Wrap
Commodore BASIC
|
2023-02-26
|
662b
|
26 lines
5 printchr$(147)chr$(5):poke53280,0:poke53281,0:a$=""
10 v=1873:a=1:b=-40:c=-1:d=40:q=160:r=int(15*rnd(1))+1:s=54272
20 gosub200:geta$:gosub125
30 poke1093,32
40 v=1215:a=-1:b=40:c=1:d=-40:r=int(15*rnd(1))+1
50 gosub200:geta$:gosub125
60 poke1995,32
70 v=1893:a=-1:b=-40:c=1:d=40:r=int(15*rnd(1))+1
80 gosub200:geta$:gosub125
90 poke1073,32
100 v=1191:a=1:b=40:c=-1:d=-40:r=int(15*rnd(1))+1
110 gosub200:geta$:gosub125
120 poke2011,32:goto130
125 ifa$thenprint"[147]":end
126 return
130 fort=1to1000:next:goto5
200 forp=1to10:pokev,q:pokev+s,r
210 n=1:forx=1ton:pokev+a,q:pokev+s,r:v=v+a:next
220 forx=1ton:pokev+b,q:pokev+s,r:v=v+b:next
230 n=n+1:forx=1ton:pokev+c,q:pokev+s,r:v=v+c:next
240 forx=1ton:pokev+d,q:pokev+s,r:v=v+d:next
250 n=n+1:forx=1ton:pokev+a,q:pokev+s,r:v=v+a:next
260 forx=1ton:pokev+b,q:pokev+s,r:v=v+b:next
270 nextp
280 return