home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
17 Bit Software 1: Collection A
/
17Bit_Collection_A.iso
/
files
/
37.dms
/
37.adf
/
hip5.bas
< prev
next >
Wrap
BASIC Source File
|
1988-05-22
|
509b
|
16 lines
670 scnclr
675 pena 1
680 paint (10 , 10)
685 xc = 160 : yc = 90 : z = 0 : k =pi / 40
690 n = int(rnd(1)*17)
695 pena n
700 for j = 0 to 1 : next : n = k
705 xd = int (rnd(1) * xc) : yd = int(rnd(1) * yc) : c = int(rnd(1)*5)
710 xa = xc + xd * cos(n) : xb = xc - xd * cos(n)
715 ya = yc + yd * sin(n) : yb = yc - yd * sin(n)
720 draw (xa,ya to xb,yb)
725 n = n + k : if n < pi then 710
730 ask mouse x% , y% , b%
735 if b% <>0 then goto 110
740 for j = 0 to 1 : next : goto 690