SCREEN 13
RANDOMIZE TIMER

REM CONSTANTS AND DIMENSIONS
DIM P(4, 150, 2)
PI = 3.141592654#
CX = 160
CY = 100
RM = 90
isStart = 0

2940 REM  ART FORM 19
2950 GOSUB chooseColor
2960 REM  GRAPH ROUTINE
2970 IX = 279: IY = 191: A = 100: R = 1: J = 1
2980
2990 N = 50 - 20 * RND(1)
3000 J = J + 1: IF J > 6 THEN GOTO 2950
3010 FOR I = 1 TO N: P(1, I, 1) = IX * RND(R): P(1, I, 2) = IY * RND(R): NEXT
3020 POKE 783, INT(RND(R) * 90 + A)
3030 C = INT(RND(R) * 8): COLOR C: IF (CS = 7 AND (C = 7 OR C = 3)) OR (CS = 4 AND (C = 0 OR C = 4)) GOTO 3030
3040 X = RND(R) * IX: Y = RND(R) * IY
3050 FOR I = 1 TO N: LINE (X, Y)-(P(1, I, 1), P(1, I, 2)): GOSUB Pause: NEXT
3060 GOSUB chooseColor
3070 GOSUB Pause: GOTO 2990

Pause:
FOR j1 = 1 TO 10000
    IF INKEY$ <> "" THEN
        GOTO endProgram
    END IF
NEXT
RETURN

chooseColor:
IF RND - .5 > 0 THEN
    COLOR 7
ELSE
    IF RND - .5 > 0 OR isStart = 0 THEN
        COLOR 4
    ELSE
        COLOR 0
    END IF
END IF
'CLS
isStart = 1
RETURN

endProgram:
COLOR 7
END

' TODO:
'  remove linenumbers
'  more colors