SCREEN 12
LOCATE 7: COLOR 11
PRINT "                      Mondriaans tableau"
PRINT "                      Mondriaan painting"
PRINT "                      ******************"
PRINT : COLOR 15
PRINT "                      Active keys:"
PRINT "           >    '+' = double lines"
PRINT "           >    '-' = halve lines"
PRINT "           >  ENTER = default"
PRINT "           >  SPACE = Wait after pictures On (other key = Off)"
PRINT "           > ESCAPE = END"
PRINT "           ***************************************************"

PRINT : PRINT : PRINT : COLOR 10
PRINT "             Credits: guido wuyts 1997"
PRINT : PRINT : PRINT : COLOR 3
PRINT "                   -> Toets/Key...": COLOR 15
PLAY "o4l24d"
SLEEP: a$ = INKEY$: a$ = "": COLOR 11
CLS

x0 = 1: y0 = 1
Ax = 639: Ay = 479
RANDOMIZE TIMER
h = .05 'schalingsconstante ; scaling constant

LOOPt:
CLS
LINE (x0, y0)-(Ax, y0)
LINE -(Ax, Ay): LINE -(x0, Ay): LINE -(x0, y0)
FOR n = 1 TO 1000
x = ((1 - h) * (100 * RND) / 100) + RND * h
y = ((1 - h) * (100 * RND) / 100) + RND * h
k = h * (1 - SQR(RND))
IF RND >= .5 THEN GOSUB hor ELSE GOSUB vert
NEXT n

IF a$ <> " " THEN SLEEP 1: a$ = INKEY$

SELECT CASE a$
CASE "+": h = h * 2
CASE "-": h = h * .5
CASE CHR$(13): h = .05
CASE CHR$(27): END
CASE " ":  PLAY "o4l24c": a$ = INPUT$(1)
END SELECT
GOTO LOOPt

Einde:
PLAY "o2l12c"
END

hor:
LINE (x0 + Ax * (x - k), y0 + Ay * y)-(x0 + Ax * (x + k), y0 + Ay * y), (n MOD 15) + 1
RETURN
vert:
LINE (x0 + Ax * x, y0 + Ay * (y - k))-(x0 + Ax * x, y0 + Ay * (y + k)), (n MOD 15) + 1
RETURN