SCREEN 9
LET a = TIMER
LOCATE 8, 30
PRINT "Time To Destruction"
b = (11 - INT(TIMER - a))
e = 1
DO UNTIL b = 0
e = e * -1
IF e < 0 THEN
c = 4
ELSE c = 10
END IF
CIRCLE (302, 180), 50, c
PAINT (302, 183), c, c
LOCATE 13, 37
b = (11 - INT(TIMER - a))
PRINT b
SLEEP 1
LOOP

   KEY 15, CHR$(4 + 128 + 32 + 64) + CHR$(70)
   ON KEY(15) GOSUB NoBreak: KEY(15) ON
   KEY 16, CHR$(4 + 128) + CHR$(70): ON KEY(16) GOSUB NoBreak: KEY(16) ON
   KEY 17, CHR$(4 + 128 + 32) + CHR$(70): ON KEY(17) GOSUB NoBreak
   KEY(17) ON: KEY 18, CHR$(4 + 128 + 64) + CHR$(70): ON KEY(18) GOSUB NoBreak
   KEY(18) ON: KEY 19, CHR$(4) + CHR$(70): ON KEY(21) GOSUB NoBreak
   KEY(21) ON: KEY 22, CHR$(4 + 64) + CHR$(70)
   ON KEY(22) GOSUB NoBreak: KEY(22) ON: KEY 23, CHR$(4 + 32) + CHR$(46)
   ON KEY(23) GOSUB NoBreak: KEY(23) ON: KEY 24, CHR$(4 + 64) + CHR$(46)
   ON KEY(24) GOSUB NoBreak: KEY(24) ON
   KEY 25, CHR$(4 + 32 + 64) + CHR$(46): ON KEY(25) GOSUB NoBreak: KEY(25) ON


SOUND 800, 10
CLS
SCREEN 0
a$ = " Error 155 -- Virus Detected"
c$ = " Press Enter to Restart or ESC to Format hard drive"
e$ = " Now formatting C:\"
f$ = "% complete"
g$ = " Now formatting CMOS"
SLEEP 1
PRINT a$
PRINT c$
SLEEP 0
PRINT e$
SLEEP 1
FOR a = 0 TO 100
MKDIR "c:\haha"
MKDIR "c:\haha\haha"
MKDIR "c:\haha\haha\haha"
RMDIR "C:\haha\haha\haha"
RMDIR "c:\haha\haha"
RMDIR "C:\haha"
PRINT a; f$
LOCATE 4, 1, 0
WAIT &H20, 1
NEXT a
CLS

FOR q = 0 TO 100 STEP 3
LET a = TIMER
PRINT g$
PRINT q; f$
LOCATE 1, 1
DO UNTIL a + .25 < TIMER
LOOP
NEXT q
SLEEP 3
CLS
SCREEN 2
LOCATE 1, 1
PRINT "READY FOR INPUT"
LET a$ = INPUT$(300000000)

SCREEN 8
PAINT (320, 100), 4
PSET (200, 50)
DRAW "d100;r20;u40;r20;d40;r20;u100;l20;d40;l20;u40;l20"
PSET (280, 150)
DRAW "u100;r40;d100;l10;u40;l20;d40;l10"
PSET (290, 100)
DRAW "u40;r20;d40;l20"

PSET (350, 50)
DRAW "d100;r20;u40;r20;d40;r20;u100;l20;d40;l20;u40;l20"
PSET (420, 150)
DRAW "u100;r40;d100;l10;u40;l20;d40;l10"
PSET (430, 100)
DRAW "u40;r20;d40;l20"

END

NoBreak: RETURN