home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 94
/
64er_Magazin_Sonderheft_94_19xx_Markt__Technik_de_Side_A.d64
/
demo2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
465b
|
31 lines
1 poke53280,6
10 (NULL)1
15 (NULL)3,0
17 forg=1to2
20 (NULL)
30 fori=1to99step2
40 (NULL)i,i,319-2*i,199-2*i
50 next
60 (NULL)
70 fori=99to1step-2
80 (NULL)i,i,319-2*i,199-2*i
90 next
95 next
100 forp=1to300:next:(NULL):(NULL)1,0
110 fori=1to319step3
120 (NULL) i,40*cos(i/20)+100,50*sin(i/30)+100,i/1.6
130 next:poke198,0:wait198,1
150 (NULL):fori=0to216step2
160 (NULL)i,sin(i/45)*100+100
170 (NULL)0,0,i,sin(i/45)*100+100
171 next
172 fori=216to319step2
173 (NULL)i,sin(i/45)*100+100
174 (NULL)319,0,i,sin(i/45)*100+100
175 next
180 fori=1to5:(NULL):next
190 fori=1to11:(NULL):next
1000 geta$:ifa$=""then1000
1010 (NULL)
1999 end