CLS
REM mattpj1.bas
REM  written by matt gilbert feb 1998"
PRINT "ultra-kwik (c) memory / hard drive optimizer Version 2.1"
PRINT "copyright (c) 1998 by Matt Gilbert"
PRINT
PRINT "checking file allocation table "
SOUND 800, 3
8 N = N + 1
GOSUB 10000
LOCATE 4, 31
PRINT N; "%";
IF N > 99 THEN GOTO 10
GOTO 8
10 REM

PRINT
PRINT "checking directory structure"
SOUND 800, 3
28 n2 = n2 + 1
GOSUB 10000
LOCATE 5, 31
PRINT n2; "%";
IF n2 > 99 THEN GOTO 30
GOTO 28
30 REM

PRINT
PRINT "checking disk integrity "
SOUND 800, 3
38 n3 = n3 + 1
GOSUB 10000
LOCATE 6, 31
PRINT n3; "%";
IF n3 > 22 THEN GOTO 40
GOTO 38
40 REM
PRINT
PRINT
PRINT "FATAL ERROR! - HARD DRIVE C: UNUSABLE"
GOSUB 10000
SOUND 80, 4
PRINT " "
PRINT "STARTING AUTOFORMAT AND ATTEMPTING DATA RECOVERY DRIVE C:"

PRINT
PRINT "AUTOFORMAT DRIVE C: "
48 n4 = n4 + 1
GOSUB 10000
LOCATE 12, 31
PRINT n4; "%";
IF n4 > 99 THEN GOTO 50
GOTO 48
50 REM

PRINT
PRINT
PRINT " FORMAT DRIVE C: SUCCESFULLY COMPLETED - SORRY, ALL DATA WAS LOST"

FOR haha = 1 TO 3
PRINT
INPUT "C:\>", N$
PRINT
PRINT "Abort, Retry, Fail"
NEXT haha

GOSUB 10000
GOSUB 10000
CLS
PRINT
PRINT
PRINT
PRINT
COLOR 1, 3
PRINT
PRINT " okay, I'd better let you off the hook                             "
PRINT " please don't have a seizure, it's only a practical joke!          "
PRINT " absolutely no changes were made to your computer!                 "
GOSUB 10000
PRINT "the filename 'mattpj1.exe' stands for matt practical joke 1'       "
GOSUB 10000
PRINT "if you would like a version of this that you could put in someones "
PRINT " hard drive (autoexec.bat) or put on a floppy so that they will    "
PRINT " REALLY get S C A R E D !!!! for only $10.00.......                "

PRINT
PRINT
PRINT " send email to: telemarketer@juno.com           "
PRINT " for complete instructions!!!                   "

END
10000 REM delay subroutine
FOR Z = 1 TO 200
NEXT Z
RETURN