SCREEN 13
RANDOMIZE TIMER

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

1270 REM  ART FORMS 22,5,11
1280 NN = 22: P = INT(RND(1) * 8 + 5): C = P: GOTO 1330
1290 NN = 5: P = INT(RND(1) * 9 + 3): C = INT(RND(1) * 21 + 30): GOTO 1330
1300 NN = 11: P = 33
1310 IF NN = 11 THEN C = INT(RND(1) * 8 + 5)
1320 IF NN = 29 THEN C = INT(RND(1) * 11 + 20)
1330
1340 AN = 2 * PI / P: FOR I = 1 TO P: P(1, I, 1) = RP * SIN(AN * I): P(1, I, 2) = RP * COS(AN * I): NEXT I
1350 GOSUB chooseColor
1360 REM  GRAPH ROUTINE
1370 FOR I = 1 TO C: PY = CY - RP * COS(I * 2 * PI / C): PX = CX + RP * SIN(I * 2 * PI / C): PSET (PX, PY - RP): GOSUB Pause
1380 FOR A = 1 TO P: LINE -(PX + P(1, A, 1), PY - P(1, A, 2)): GOSUB Pause: NEXT A: NEXT I: GOTO 1270

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