Epilepsy Code

[Neo]

Ahem Cha0s, why didn't you do it this way?:

Code:

DEFINT A-Y

SCREEN 12                          'This thing'll make u have a seizure lol

FOR X = 1 TO 640

        FOR Y = 1 TO 480

           RANDOMIZE TIMER / 2

                'Z = INT(RND * 32767)
                'Z2 = INT(RND * 32767)
                'Z = Z + Z2
                'IF Z > 32767 THEN Z = (Z - 32767) * -1

                'LINE (X, 0)-(X, 480), 15, , -Z

                Col = INT(RND * 2)

                IF Col > 0 THEN Col = 15

                PSET (X, Y), Col

        NEXT

IF INKEY$ = CHR$(27) THEN SYSTEM -1

NEXT

LOCATE 1, 1: PRINT "Hit Esc when you've had enough!!"

DO

count = count + 1

         IF count MOD 5 - 0 THEN Bri = INT(RND * 5) + 58

         FOR i = 0 TO 1
         IF i = 0 THEN PALETTE 0, 65536 * Bri + 256 * Bri + Bri: PALETTE 15, 0
         IF i = 1 THEN PALETTE 15, 65536 * Bri + 256 * Bri + Bri: PALETTE 0, 0
        
         IF INKEY$ = CHR$(27) THEN SYSTEM
        
         FOR Z = 1 TO INT(RND * 5000) + 1: NEXT

         NEXT

IF count = 30000 THEN count = 0

LOOP