Epilepsy Code

[Neo]

Code:

SCREEN 13

CLS
LINE (0,0)-(319,199), 0, BF
t$ = "Feeling Dizzy?"
LOCATE 10, 20 - LEN(t$) \ 2
COLOR 8
PRINT t$
DO
   OUT &H3C8, 0
   OUT &H3C9, 0
   OUT &H3C9, 0
   OUT &H3C9, 0

   T! = TIMER
   DO: LOOP UNTIL TIMER - T! > 1.0/17.0

   OUT &H3C8, 0
   OUT &H3C9, 63
   OUT &H3C9, 63
   OUT &H3C9, 63

   T! = TIMER
   DO: LOOP UNTIL TIMER - T! > 1.0/17.0
LOOP UNTIL INKEY$ <> ""