home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1989 March
/
64er_Magazin_89-03_1989_Markt__Technik_de_Side_A.d64
/
demo4
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
523b
|
25 lines
10 line=49152
20 hardcopy=49155
30 clear=49158
40 sys clear
50 a=20:tx=480:ty=1500
100 for t=90/a to 90 step 90/a
110 x=cos(t/180*(NULL))* 475
120 y=sin(t/180*(NULL))*1495
130 :
140 sys line,1,tx+x,ty+y,tx-x,ty-y
150 sys line,1,tx+x,ty-y,tx-x,ty+y
160 :
170 sys line,1,tx+x,ty+y,tx-x,ty+y
180 sys line,1,tx-x,ty+y,tx-x,ty-y
190 sys line,1,tx-x,ty-y,tx+x,ty-y
200 sys line,1,tx+x,ty-y,tx+x,ty+y
210 :
220 sys line,1,tx+x,ty,tx,ty+y
230 sys line,1,tx,ty+y,tx-x,ty
240 sys line,1,tx-x,ty,tx,ty-y
250 sys line,1,tx,ty-y,tx+x,ty
260 :
270 next
300 sys hardcopy,3000