Kaleidoscope converted from Atari ST FastBasic

Converted by Jonathan Hawkins from Atari ST FastBasic from Atari ST User mag September 1987.
Orignal by Ken Hughes.

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    `taken from Atari ST User September 1987
`code converted from Atari ST Fastbasic
`Original code By Ken Hughes
`Converted by Jonathan Hawkins
`Program Kaleidoscope
hide mouse
gosub colours
repeat
   gosub variables
   gosub xy
   gosub drawit
   gosub colours
   wait 30
   until escapekey()=1

end

variables:
xinc = rnd(2)-1
   if xinc = 1 then yinc = 0
   if xinc = 0 then yinc = 1

theta = rnd(43)
hype = rnd(190)
theta1 = rnd(43)
hype1 = rnd(190)
return

xy:
x0 = hype * sin(theta)
y0 = hype * cos(theta)
x1 = hype * sin(theta1)
y1 = hype * cos(theta1)
return

drawit:
rem linecol col
INK fcolor,0
`ink col,0
for m = 0 to rnd(20)
   x0 = x0 + xinc
   y0 = y0 + yinc
   x1 = x1 + xinc
   y1 = y1 + yinc

line 300+x0,200+y0,300+x1,200+y1
line 300+y0,200+x0,300+y1,200+x1
line 300-y0,200+x0,300-y1,200+x1
line 300+x0,200-y0,300+x1,200-y1

line 300-x0,200-y0,300-x1,200-y1
line 300-y0,200-x0,300-y1,200-x1
line 300+y0,200-x0,300+y1,200-x1
line 300-x0,200+y0,300-x1,200+y1

next m
return

colours:
fcolor = RGB(RND(255),RND(255),RND(255))
return