RANDOMIZE TIMER
    SCREEN 13
RANDOMIZE TIMER
redo:
red = 0
green = 0
blue = 0

redbig = INT(RND * 5) + 1
greenbig = INT(RND * 5) + 1
bluebig = INT(RND * 5) + 1
IF redbig = 2 THEN redbig = .5
IF greenbig = 2 THEN greenbig = .5
IF bluebig = 2 THEN bluebig = .5
IF redbig = 3 THEN redbig = .25
IF greenbig = 3 THEN greenbig = .25
IF bluebig = 3 THEN bluebig = .25
IF redbig = 4 THEN redbig = .75
IF greenbig = 4 THEN greenbig = .75
IF bluebig = 4 THEN bluebig = .75
IF redbig = 5 THEN redbig = 0: red = 1
IF greenbig = 5 THEN greenbig = 0: green = 1
IF bluebig = 5 THEN bluebig = 0: blue = 1

FOR i = 15 TO 72
 red = red + redbig
 blue = blue + bluebig
 green = green + greenbig
 PALETTE i, 65536 * INT(blue) + 256 * INT(green) + INT(red)
NEXT i
IF s = 1 THEN GOTO redo
ON ERROR GOTO endprog

angle = 0

SELECT CASE INT(RND * 5) + 1
        CASE 1
        s$ = "u10"
        times = 51
        CASE 2
        s$ = "e5f5"
        times = 51
        CASE 3
        s$ = "u7br10d7"
        times = 51
        CASE 4
        s$ = "u10l10u10r20d10l10"
        times = 51
        CASE 5
        s$ = "e5f5g5"
        times = 51
END SELECT
colo = 20

FOR j = 1 TO times
FOR i = 1 TO 36
DRAW "ta-" + STR$(angle) + "c" + STR$(colo) + s$
angle = angle + 10
IF angle >= 360 THEN angle = angle - 360
colo = colo + 1: IF colo = 72 THEN colo = 25
NEXT
angle = angle + 7
IF angle >= 360 THEN angle = angle - 360
NEXT
s = 1: GOTO redo
END

endprog:
PRINT "This program requires a VGA-capable monitor."
END