'===========================================================================
' Subject: AMIGA'S "RED BOX" GURU ERROR       Date: 06-23-99 (00:10)       
'  Author: L. Jones                           Code: QB, QBasic, PDS        
'  Origin: ljones@lineone.net               Packet: MISC.ABC
'===========================================================================
SCREEN 9
mesg$ = SPACE$(25) + "Out of Memory!"
GuruLoop1:
WHILE INKEY$ = ""
    c = TIMER
    d = c AND 1
    IF d = 0 THEN
        LINE (0, 0)-(639, 70), 4, B
        LINE (6, 4)-(639 - 6, 70 - 4), 4, B
        PAINT (2, 2), 4
        COLOR 4
        LOCATE 3, 8
        PRINT mesg$;
    END IF
    IF d = 1 THEN
        LINE (0, 0)-(639, 70), 0, B
        LINE (6, 4)-(639 - 6, 70 - 4), 0, B
        PAINT (2, 2), 0
    END IF
WEND
SCREEN 0