home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 94
/
64er_Magazin_Sonderheft_94_19xx_Markt__Technik_de_Side_A.d64
/
demo4
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
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