home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
91xx
/
9107a.d64
/
sinus-creator
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
222b
|
12 lines
100 FORI=0TO2*(null)STEP2*(null)/160
110 X=(SIN(I)+1)*140+24
120 L=(X AND 255):H=INT(X/256)
130 POKE4608+Z,L:POKE4768+Z,L
140 POKE5120+Z,H:POKE5280+Z,H
150 Z=Z+1:NEXT:Z=0
160 :
170 FORI=0TO2*(null)STEP2*(null)/240
180 X=(SIN(I)+1)*90+50
190 POKE5632+Z,X:POKE5872+Z,X
200 Z=Z+1:NEXT