CLS
SCREEN 0
COLOR 7, 0
INPUT "C:\> ", n$
CLS
COLOR 23, 4
PRINT "Red allert! Red allert! Red allert! Enemy virus located! "
FOR i% = 440 TO 1000 STEP 5
SOUND i%, i% / 1000
NEXT i%
SLEEP 2
COLOR 0, 0
PRINT "In 5!"
CLS
COLOR 2, 0
PRINT "                                      _"
PRINT "                                     |_"
PRINT "                                      _|"
SLEEP 1
CLS
COLOR 0, 0
PRINT "Erik h„rskar!"
COLOR 2, 0
PRINT "                                     |_|"
PRINT "                                       |"
SLEEP 1
CLS
PRINT "                                      _"
PRINT "                                      _|"
PRINT "                                      _|"
SLEEP 1
CLS
PRINT "                                      _"
PRINT "                                      _|"
PRINT "                                     |_"
SLEEP 1
CLS
COLOR 0, 0
PRINT "Erik h„rskar"
COLOR 2, 0
PRINT "                                       |"
PRINT "                                       |"
SLEEP 1
CLS
COLOR 0, 0
PRINT "Erik h„rskar!"
BEEP
CLS

COLOR 7, 0
PRINT "C:\ all files erased........."
SLEEP