Loading Screen

[whitetiger0990]

this should get me around lets say... 1 point

Code:

SUB load
SCREEN 13
a = 1
w = 0
FOR i = 1 TO 40
IF a = 16 THEN a = 1
COLOR a
a = a + 1
PRINT CHR$(219);
t = TIMER
DO
IF TIMER < t THEN t = t - 86400
LOOP UNTIL TIMER - t >= w
NEXT i
END SUB