home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_07_1985_Transactor_Publishing.d64
/
boxspiral +4
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
315b
|
12 lines
0 rem the transactor volume 6 issue 02 bits & pieces section
100 rem* +4 boxspiral -cz *
110 graphic 1,1: color 1,1
120 x1=0:y1=0:x2=100:y2=100
130 n1=rnd(0)*10: n2=rnd(0)*10
150 for angle=0 to 180 step 5
160 box 1,x1,y1,x2,y2,angle
170 x1=x1+n1: y1=y1+n2
190 next angle
200 rem* run again when key pressed
210 getkey a$: run