home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh9x
/
sh94a.d64
/
demo4
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
995b
|
55 lines
10 (null) 1:(null):(null) 1,0:(null)
20 FOR I=1 TO 90 STEP 5
30 (null) 160-I,100-I,I,I
40 NEXT I
50 FOR I=1 TO 90 STEP 5
60 (null) 160,100,I,I
70 NEXT I
80 FOR I=1 TO 50 STEP 5
90 (null) 160+I,100-I,I,I
100 NEXT I
110 FOR I=1 TO 50 STEP 5
120 (null) 160-I,100+I,I,I
130 NEXT I
155 WAIT 198,255
156 (null)
157 FOR I=10 TO 90 STEP 10
158 (null) 160-I,100-I,2*I,2*I
159 NEXT I
160 FOR I=0 TO 100 STEP 5
170 (null) 269-I,159-I,50,40
180 NEXT I:(null) 269-I,159-I,50,40
190 FOR I=0 TO 100 STEP 5
200 (null) 0+I,0+I,50,40
210 NEXT I:(null) 0+I,0+I,50,40
220 POKE 198,0:WAIT 198,255
230 (null)
240 FOR I=1 TO 50 STEP 4
250 (null) 160-I,100-I,ABS(INT(SIN(I)*40)),I
260 NEXT I
270 FOR I=1 TO 50 STEP 4
280 (null) 160+I,100+I,ABS(INT(SIN(I)*40)),I
290 NEXT I
300 FOR I=1 TO 50 STEP 7
310 (null) 160,100,190+ABS(INT(COS(I)*40)),I
320 NEXT I
330 FOR I=1 TO 50 STEP 7
340 (null) 160,100,ABS(INT(COS(I)*40)),130+I
350 NEXT I
360 POKE 198,0:WAIT 198,255
370 (null)
380 FOR I=0 TO 319
390 (null) I,0,100+75*SIN((null)*4*I/278)
400 NEXT I
405 POKE198,0:WAIT198,255
410 (null)1:(null):(null):R=50
420 FOR X=1 TO 319 STEP 3
430 (null)X,40,50*SIN(X/30)+100,X/1.6
440 NEXT X
450 POKE198,0:WAIT198,255:(null)
455 FOR X=1 TO 162 STEP 3
460 (null)160,100,30*SIN(X/10)+100,X/1.6
470 NEXT X
1000 POKE198,0:WAIT 198,255
1010 (null):(null)1:(null)6:(null):END