home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh9x
/
sh94a.d64
/
demo2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
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