z = 2
v = 0
r = 1.5

DIM ax(10)
DIM bx(10)
DIM ay(10)
DIM by(10)
GOSUB newval

SCREEN 12

DO

CLS
10 WINDOW (-z, -z)-(z, z)

a$ = ""
WHILE a$ = ""
a$ = INKEY$

IF a$ = "s" OR a$ = "S" THEN GOSUB save
IF a$ = "L" OR a$ = "l" THEN GOSUB load
IF a$ = "w" OR a$ = "W " THEN GOSUB rite
IF a$ = "E" OR a$ = "e" THEN END
IF a$ = "P" OR a$ = "p" THEN GOSUB plus
IF a$ = "M" OR a$ = "m" THEN GOSUB minus
IF a$ = " " THEN GOSUB newval
IF a$ = "c" OR a$ = "C" THEN CLS
IF a$ = "v" OR a$ = "V" THEN CLS
IF a$ = "0" THEN GOSUB hello

k = INT(RND * 4 + 1)

x = xold * ax(k) - yold * ay(k)
y = yold * ax(k) + xold * ay(k)
x = x + bx(k)
y = y + by(k)

c = 15
REM c = POINT(x, y) + 1
REM IF c > 15 THEN c = 15
PSET (x, y), c
xold = x
yold = y

WEND

LOOP

save:
INPUT "enter title ", title$
OPEN title$ FOR OUTPUT AS #1
FOR i = 1 TO 5
PRINT #1, ax(i)
PRINT #1, bx(i)
PRINT #1, ay(i)
PRINT #1, by(i)
NEXT
CLOSE 1
RETURN

load:
INPUT "enter title ", title$
OPEN title$ FOR INPUT AS #1
FOR i = 1 TO 5
INPUT #1, ax(i)
INPUT #1, bx(i)
INPUT #1, ay(i)
INPUT #1, by(i)
NEXT
CLOSE 1
RETURN

rite:
FOR i = 1 TO 5
PRINT "enter ax("; i; ")";
INPUT ax(i)
PRINT "enter bx("; i; ")";
INPUT bx(i)
PRINT "enter ay("; i; ")";
INPUT ay(i)
PRINT "enter by("; i; ")";
INPUT by(i)
NEXT i
RETURN

plus:
z = z * 2
RETURN

minus:
z = z / 2
RETURN

newval:
FOR i = 1 TO 5
ax(i) = r * (RND - .5)
bx(i) = r * (RND - .5)
ay(i) = r * (RND - .5)
by(i) = r * (RND - .5)
NEXT i
RETURN

hello:
FOR i = 1 TO 5
PRINT "ax("; i; ") ="; ax(i)
PRINT "bx("; i; ") ="; bx(i)
PRINT "ay("; i; ") ="; ay(i)
PRINT "by("; i; ") ="; by(i)
PRINT
FOR n = 1 TO 100000: NEXT n
NEXT i
GOTO 10



VAL1:
r = 2
ax(1) = r * (v)
bx(1) = r * (v + .15)
ay(1) = r * (v + .2)
by(1) = r * (v + .25)

ax(2) = r * (v + .3)
bx(2) = r * (v + .35)
ay(2) = r * (v + .4)
by(2) = r * (v + .45)

ax(3) = r * (v + .1)
bx(3) = r * (v + .15)
ay(3) = r * (v + .2)
by(3) = r * (v + .25)

ax(4) = r * (v + .3)
bx(4) = r * (v + .35)
ay(4) = r * (v + .4)
by(4) = r * (v + .45)

ax(5) = r * (v + .1)
bx(5) = r * (v + .15)
ay(5) = r * (v + .2)
by(5) = r * (v + .25)
RETURN



REM IF a$ = "b" OR a$ = "B" THEN r = r + .05: GOSUB newval
REM IF a$ = "n" OR a$ = "N" THEN r = r - .05: GOSUB newval
REM IF v > .49 THEN v = 0
REM IF v < -.5 THEN v = 0
REM IF a$ = "q" OR a$ = "Q" THEN v = v + .001: GOSUB VAL1
REM IF a$ = "z" OR a$ = "Z" THEN v = v - .001: GOSUB VAL1
REM IF a$ = "w" OR a$ = "W" THEN PRINT v
REM IF a$ = "1" THEN GOSUB VAL1