diff --git a/drugwar2e.bas b/drugwar2e.bas
index 0054b99..79a332e 100644
--- a/drugwar2e.bas
+++ b/drugwar2e.bas
@@ -1,195 +1,195 @@
 10 REM - VIRTUALBASIC.ORG - ONLINE-TOOL.BAS - 08/10/2018 - 01h32
-11 REM - LABELED ALPHA 1
+11 REM - LABELED ALPHA 2
 20 GOTO 4480
-30 REM->TITLEBAR 
-40 PRINT "               DRUGWAR//E               "
-50 RETURN
-60 REM->WAIT
-70 PRINT CHR$(10)
+30 REM ->TITLEBAR 
+40 PRINT "        DRUGWAR//E        "
+50 RETURN 
+60 REM ->WAIT
+70 PRINT CHR$ (10)
 80 INPUT "PRESS ENTER TO CONTINUE.";X$
-90 RETURN
-100 REM->HOWMUCHBUY 
+90 RETURN 
+100 REM ->HOWMUCHBUY 
 110 PRINT "YOU CAN AFFORD ";J%
-120 PRINT "YOU CAN CARRY  ";FS%
-130 PRINT CHR$(10)
+120 PRINT "YOU CAN CARRY ";FS%
+130 PRINT CHR$ (10)
 140 INPUT "HOW MANY? (ENTER 0 TO RETURN TO MENU.)";K%
 150 GOSUB 260
-160 RETURN
-170 REM->HOWMUCHSELL 
+160 RETURN 
+170 REM ->HOWMUCHSELL 
 180 PRINT "YOU CAN SELL: ";J%
-190 PRINT CHR$(10)
-200 REM->HOWMANYSELL
+190 PRINT CHR$ (10)
+200 REM ->HOWMANYSELL
 210 INPUT "HOW MANY? (ENTER 0 TO RETURN TO MENU.)";K%
-220 IF K%>J% THEN PRINT "YOU DON'T HAVE THAT MANY!" : GOTO 210
+220 IF K% > J% THEN PRINT "YOU DON'T HAVE THAT MANY!": GOTO 210
 230 GOSUB 260
-240 RETURN
-250 REM->NOBUYSELL 
-260 IF K%=0 GOTO 1820
-270 RETURN
-280 REM->STATUSBAR
-290 INVERSE:PRINT "DAY: ";D%,P$:NORMAL
-300 PRINT CHR$(10)
-310 RETURN
-320 REM->FREESPACE 
-330 FS%=IN%-((CI%+HI%+AI%+WI%+SI%+LI%)+(GN%*5))
-340 RETURN
-350 REM->DAILY 
-360 C%=INT(RND(1)*12000+16000)
-370 H%=INT(RND(1)*7000+5000)
-380 A%=INT((RND(1)*34+10)*100)
-390 W%=INT((RND(1)*42+33)*10)
-400 S%=INT((RND(1)*15+7)*10)
-410 L%=INT((RND(1)*4+1)*10)
-420 B%=INT(RND(1)*20)
-430 D%=D%+1
-440 LS%=INT(LS%*1.1)
-450 SA%=INT(SA%*1.06)
-460 REM->CHECKDAY 
-470 IF D% >= 31 GOTO 5050
-480 RETURN
-490 REM->SUBWAYEVENTS
-500 IF B%=1 THEN GOTO 690
-510 IF B%=2 THEN GOTO 740
-520 IF B%=3 THEN GOTO 790
-530 IF B%=4 THEN GOTO 850
-540 IF B%=5 THEN GOGO 850
-550 IF B%=6 THEN GOTO 910
-560 IF B%=7 THEN GOTO 910
-570 IF B%=8 THEN GOTO 970
-580 IF B%=9 THEN GOTO 1070
-590 IF B%=10 THEN GOGO 1070
-600 IF B%=11 THEN GOTO 1070
-610 IF B%=12 THEN GOTO 1160
-620 IF B%=13 THEN GOTO 1160
-630 IF B%=14 THEN GOTO 1310
-640 IF B%=15 THEN GOTO 1380
-650 IF B%=16 THEN GOTO 1460
-660 IF B%=17 THEN GOTO 1620
-670 RETURN
-680 REM->CHEAPLUDES
+240 RETURN 
+250 REM ->NOBUYSELL 
+260 IF K% = 0 GOTO 1820
+270 RETURN 
+280 REM ->STATUSBAR
+290 INVERSE : PRINT "DAY: ";D%,P$: NORMAL 
+300 PRINT CHR$ (10)
+310 RETURN 
+320 REM ->FREESPACE 
+330 FS% = IN% - ((CI% + HI% + AI% + WI% + SI% + LI%) + (GN% * 5))
+340 RETURN 
+350 REM ->DAILY 
+360 C% = INT ( RND (1) * 12000 + 16000)
+370 H% = INT ( RND (1) * 7000 + 5000)
+380 A% = INT (( RND (1) * 34 + 10) * 100)
+390 W% = INT (( RND (1) * 42 + 33) * 10)
+400 S% = INT (( RND (1) * 15 + 7) * 10)
+410 L% = INT (( RND (1) * 4 + 1) * 10)
+420 B% = INT ( RND (1) * 20)
+430 D% = D% + 1
+440 LS% = INT (LS% * 1.1)
+450 SA% = INT (SA% * 1.06)
+460 REM ->CHECKDAY 
+470 IF D% > = 31 GOTO 5050
+480 RETURN 
+490 REM ->SUBWAYEVENTS
+500 IF B% = 1 THEN GOTO 690
+510 IF B% = 2 THEN GOTO 740
+520 IF B% = 3 THEN GOTO 790
+530 IF B% = 4 THEN GOTO 850
+540 IF B% = 5 THEN GOGO850
+550 IF B% = 6 THEN GOTO 910
+560 IF B% = 7 THEN GOTO 910
+570 IF B% = 8 THEN GOTO 970
+580 IF B% = 9 THEN GOTO 1070
+590 IF B% = 10 THEN GOGO1070
+600 IF B% = 11 THEN GOTO 1070
+610 IF B% = 12 THEN GOTO 1160
+620 IF B% = 13 THEN GOTO 1160
+630 IF B% = 14 THEN GOTO 1310
+640 IF B% = 15 THEN GOTO 1380
+650 IF B% = 16 THEN GOTO 1460
+660 IF B% = 17 THEN GOTO 1620
+670 RETURN 
+680 REM ->CHEAPLUDES
 690 PRINT "RIVAL DEALERS ARE SELLING CHEAP LUDES!"
-700 L%=2
+700 L% = 2
 710 GOSUB 70
 720 GOTO 1820
-730 REM->CHEEPWEED
+730 REM ->CHEEPWEED
 740 PRINT "WEED PRICES HAVE BOTTOMED-OUT!"
-750 W%=122
+750 W% = 122
 760 GOSUB 70
 770 GOTO 1820
-780 REM->PIGHEROIN
+780 REM ->PIGHEROIN
 790 PRINT "PIGS ARE SELLING CHEAP HEROIN"
 800 PRINT "FROM LAST WEEK'S RAID!"
-810 H%=INT((RND(1)*1150)+850)
+810 H% = INT (( RND (1) * 1150) + 850)
 820 GOSUB 70
 830 GOTO 1820
-840 REM->HEROINBUST
+840 REM ->HEROINBUST
 850 PRINT "ADDICTS ARE BUYING HEROIN"
 860 PRINT "AT OUTRAGEOUS PRICES!"
-870 H%=INT((RND(1)*25000)+18000)
+870 H% = INT (( RND (1) * 25000) + 18000)
 880 GOSUB 70
 890 GOTO 1820
-900 REM->COKEBUST
+900 REM ->COKEBUST
 910 PRINT "PIGS MADE A BIG COKE BUST!"
 920 PRINT "PRICES ARE OUTRAGEOUS!!!!"
-930 C%=INT((RND(1)*60000)+80000)
+930 C% = INT (( RND (1) * 60000) + 80000)
 940 GOSUB 70
 950 GOTO 1820
-960 REM->MUGGED
+960 REM ->MUGGED
 970 PRINT "YOU GOT MUGGED!"
-980 PRINT CHR$(10)
-990 MS%=WA%/3
-1000 MS%=MS%*2
-1010 ML%=WA%-MS%
+980 PRINT CHR$ (10)
+990 MS% = WA% / 3
+1000 MS% = MS% * 2
+1010 ML% = WA% - MS%
 1020 PRINT "YOU LOST $";ML%
-1030 WA%=MS%
+1030 WA% = MS%
 1040 GOSUB 70
 1050 GOSUB 1820
-1060 REM->COPS
-1070 WE%=C%+H%+W%+A%+S%+L%
-1080 IF WE%<50 THEN RETURN 
+1060 REM ->COPS
+1070 WE% = C% + H% + W% + A% + S% + L%
+1080 IF WE% < 50 THEN RETURN 
 1090 PRINT "IT'S THE COPS!"
-1100 PRINT CHR$(10)
+1100 PRINT CHR$ (10)
 1110 PRINT "JUST KIDDING!"
 1120 PRINT "COPS HAVEN'T BEEN CODED YET."
 1130 GOSUB 70
 1140 GOTO 1820
-1150 REM->GUNBUY
-1160 IF WA% < 500 THEN RETURN
+1150 REM ->GUNBUY
+1160 IF WA% < 500 THEN RETURN 
 1170 GOSUB 330
-1180 IF FS% < 5 THEN RETURN
-1190 GX%=INT(RND(1)*2)
+1180 IF FS% < 5 THEN RETURN 
+1190 GX% = INT ( RND (1) * 2)
 1200 IF GX% = 0 THEN AX$ = "BARETTA"
 1210 IF GX% = 1 THEN AX$ = "SATURDAY NIGHT SPECIAL"
 1220 IF GX% = 2 THEN AX$ = ".44 MAGNUM"
 1230 PRINT "WILL YOU BUY A ";AX$
 1240 INPUT "FOR $400? (Y/N)";RE$
-1250 IF RE$ <> "Y" THEN GOTO 1820
-1260 GN% = GN%+1
-1270 WA% = WA%-400
-1280 FS% = FS%-5
+1250 IF RE$ < > "Y" THEN GOTO 1820
+1260 GN% = GN% + 1
+1270 WA% = WA% - 400
+1280 FS% = FS% - 5
 1290 GOTO 1820
-1300 REM->DEDWEED
+1300 REM ->DEDWEED
 1310 PRINT "THERE'S SOME WEED HERE THAT SMELLS"
 1320 PRINT "LIKE GOOD STUFF!!"
-1330 PRINT CHR$(10)
+1330 PRINT CHR$ (10)
 1340 INPUT "WILL YOU SMOKE IT? (Y/N)";X$
 1350 IF X$ = "Y" THEN GOTO 4950
-1360 RETURN
-1370 REM->NEWCOAT
-1380 IF WA%<300 THEN RETURN
+1360 RETURN 
+1370 REM ->NEWCOAT
+1380 IF WA% < 300 THEN RETURN 
 1390 PRINT "WILL YOU BUY A NEW TRENCHCOAT"
 1400 INPUT "WITH MORE POCKETS FOR $200? (Y/N)";X$
-1410 IF X$ <> "Y" THEN GOTO 1820
-1420 IN%=IN%+10
-1430 WA%=WA%-200
+1410 IF X$ < > "Y" THEN GOTO 1820
+1420 IN% = IN% + 10
+1430 WA% = WA% - 200
 1440 GOTO 1820
-1450 REM->DEDGUY
-1460 IF FS%<8 THEN RETURN
-1470 DG%=(INT((RND(1)*7)+1)
-1480 XG%=INT((RND(1)*5)
-1490 IF XG%=0 THEN LI%=LI%+DG% : SS$ = "LUDES"
-1500 IF XG%=1 THEN SI%=SI%+DG% : SS$ = "SPEED"
-1510 IF XG%=2 THEN WI%=WI%+DG% : SS$ = "WEED"
-1520 IF XG%=3 THEN AI%=AI%+DG% : SS$ = "ACID"
-1530 IF XG%=4 THEN HI%=HI%+DG% : SS$ = "HEROIN"
-1540 IF XG%=5 THEN CI%=CI%+DG% : SS$ = "COCAINE"
+1450 REM ->DEDGUY
+1460 IF FS% < 8 THEN RETURN 
+1470 DG% = ( INT (( RND (1) * 7) + 1)
+1480 XG% = INT (( RND (1) * 5)
+1490 IF XG% = 0 THEN LI% = LI% + DG%:SS$ = "LUDES"
+1500 IF XG% = 1 THEN SI% = SI% + DG%:SS$ = "SPEED"
+1510 IF XG% = 2 THEN WI% = WI% + DG%:SS$ = "WEED"
+1520 IF XG% = 3 THEN AI% = AI% + DG%:SS$ = "ACID"
+1530 IF XG% = 4 THEN HI% = HI% + DG%:SS$ = "HEROIN"
+1540 IF XG% = 5 THEN CI% = CI% + DG%:SS$ = "COCAINE"
 1550 PRINT "YOU FOUND ";DG%;" UNITS OF"
-1560 PRINT "         ";SS%
+1560 PRINT "     ";SS%
 1570 PRINT "ON A DEAD DUDE IN THE SUBWAY!"
-1580 PRINT CHR$(10)
+1580 PRINT CHR$ (10)
 1590 GOSUB 70
 1600 GOTO 1820
-1610 REM->HOMEACID
+1610 REM ->HOMEACID
 1620 PRINT "THE MARKET HAS BEEN FLOODED"
 1630 PRINT "WITH CHEAP HOME-MADE ACID!"
-1640 A%=INT((RND(1)*550)+250)
+1640 A% = INT (( RND (1) * 550) + 250)
 1650 GOSUB 70
 1660 GOTO 1820
-1670 REM->LOAN
-1680 HOME
+1670 REM ->LOAN
+1680 HOME 
 1690 GOSUB 40
-1700 PRINT CHR$(10)
+1700 PRINT CHR$ (10)
 1710 PRINT "LOAN SHARK NOT IMPLEMENTED.
 1720 GOSUB 70
 1730 GOTO 1820
-1740 REM->BANK
-1750 HOME
+1740 REM ->BANK
+1750 HOME 
 1760 GOSUB 40
-1770 PRINT CHR$(10)
+1770 PRINT CHR$ (10)
 1780 PRINT "BANK NOT IMPLEMENTED."
 1790 GOSUB 70
 1800 GOTO 1820
-1810 REM->MENU
-1820 HOME
+1810 REM ->MENU
+1820 HOME 
 1830 GOSUB 40
 1840 GOSUB 330
-1850 PRINT (C)HECK PRICES
-1860 PRINT (I)NVENTORY
+1850 PRINT (C)HECKPRICES
+1860 PRINT (I)NVEN TO RY
 1870 PRINT (B)UY
 1880 PRINT (S)ELL
 1890 PRINT (J)ET
-1900 PRINT SEE (L)OAN SHARK
-1910 PRINT (V)ISIT BANK
+1900 PRINT SEE(L)OANSHARK
+1910 PRINT (V)ISITBANK
 1920 INPUT "PLEASE MAKE YOUR SELECTION: ";T$
 1930 IF T$ = "C" GOTO 2030
 1940 IF T$ = "I" GOTO 2180
@@ -198,44 +198,44 @@
 1970 IF T$ = "J" GOTO 4240
 1980 IF T$ = "L" GOTO 1680
 1990 IF T% = "V" GOTO 1750
-2000 PRINT "INVALID SELECTION" 
+2000 PRINT "INVALID SELECTION""
 2010 GOTO 1820
-2020 REM->PRICES
-2030 HOME
+2020 REM ->PRICES
+2030 HOME 
 2040 GOSUB 40
-2050 INVERSE:PRINT"                 PRICES                 ":NORMAL
-2060 PRINT CHR$(10)
-2070 PRINT"COCAINE:","$"C%
-2080 PRINT"HEROIN:","$"H%
-2090 PRINT"ACID:","$"A%
-2100 PRINT"WEED:","$"W%
-2110 PRINT"SPEED:","$"S%
-2120 PRINT"LUDES:","$"L%
-2130 PRINT"WALLET:,"$"WA%
-2140 PRINT CHR$(10)
-2150 PRINT"PRESS ENTER TO CONTINUE.";X$
+2050 INVERSE : PRINT "         PRICES         ": NORMAL 
+2060 PRINT CHR$ (10)
+2070 PRINT "COCAINE:","$"C%
+2080 PRINT "HEROIN:","$"H%
+2090 PRINT "ACID:","$"A%
+2100 PRINT "WEED:","$"W%
+2110 PRINT "SPEED:","$"S%
+2120 PRINT "LUDES:","$"L%
+2130 PRINT "WALLET:,"$"WA%
+2140 PRINT CHR$ (10)
+2150 PRINT "PRESS ENTER TO CONTINUE.";X$
 2160 GOTO 1820
-2170 REM->INVENTORY
-2180 HOME
+2170 REM ->INVENTORY
+2180 HOME 
 2190 GOSUB 40
-2200 INVERSE:PRINT"            INVENTORY                   ":NORMAL
-2210 PRINT CHR$(10)
-2220 PRINT"COCAINE:",CI%
-2230 PRINT"HEROIN:",HI%
-2240 PRINT"ACID:",AI%
-2250 PRINT"WEED:",WI%
-2260 PRINT"LUDES:",LI%
-2270 PRINT"FREE SPACE:",FS%
-2280 PRINT CHR$(10)
-2290 PRINT"PRESS ENTER TO CONTINUE.";X$
+2200 INVERSE : PRINT "      INVENTORY          ": NORMAL 
+2210 PRINT CHR$ (10)
+2220 PRINT "COCAINE:",CI%
+2230 PRINT "HEROIN:",HI%
+2240 PRINT "ACID:",AI%
+2250 PRINT "WEED:",WI%
+2260 PRINT "LUDES:",LI%
+2270 PRINT "FREE SPACE:",FS%
+2280 PRINT CHR$ (10)
+2290 PRINT "PRESS ENTER TO CONTINUE.";X$
 2300 GOTO 1820
-2310 REM->BUY
-2320 HOME
+2310 REM ->BUY
+2320 HOME 
 2330 GOSUB 40
-2340 INVERSE:PRINT"                  BUY                   ":NORMAL
-2350 PRINT CHR$(10)
-2360 PRINT"WHAT DO YOU WANT TO BUY?"
-2370 PRINT CHR$(10)
+2340 INVERSE : PRINT "         BUY          ": NORMAL 
+2350 PRINT CHR$ (10)
+2360 PRINT "WHAT DO YOU WANT TO BUY?"
+2370 PRINT CHR$ (10)
 2380 PRINT "(C)OCAINE"
 2390 PRINT "(H)EROIN"
 2400 PRINT "(A)CID"
@@ -243,168 +243,168 @@
 2420 PRINT "(S)PEED"
 2430 PRINT "(L)UDES"
 2440 INPUT "ENTER SELECTION: ";DB$
-2450 IF DB$="C" GOTO 2530
-2460 IF DB$="H" GOTO 2640
-2470 IF DB$="A" GOTO 2750
-2480 IF DB$="W" GOTO 2860
-2490 IF DB$="S" GOTO 2970
-2500 IF DB$="L" GOTO 3080
+2450 IF DB$ = "C" GOTO 2530
+2460 IF DB$ = "H" GOTO 2640
+2470 IF DB$ = "A" GOTO 2750
+2480 IF DB$ = "W" GOTO 2860
+2490 IF DB$ = "S" GOTO 2970
+2500 IF DB$ = "L" GOTO 3080
 2510 GOTO 1820
-2520 REM->COKEBUY
-2530 HOME
+2520 REM ->COKEBUY
+2530 HOME 
 2540 GOSUB 40
-2550 INVERSE:PRINT"             BUY COCAINE                ":NORMAL
-2560 PRINT CHR$(10)
-2570 J%=INT(WA%/C%)
+2550 INVERSE : PRINT "       BUY COCAINE        ": NORMAL 
+2560 PRINT CHR$ (10)
+2570 J% = INT (WA% / C%)
 2580 GOSUB 110
-2590 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2530
-2600 IF K%<=J% THEN CI%=CI%+J% : WA%=WA%-(C%*J%)
-2610 IF K%>J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2530
+2590 IF K% > FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!": NORMAL : GOTO 2530
+2600 IF K% < = J% THEN CI% = CI% + J%:WA% = WA% - (C% * J%)
+2610 IF K% > J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!": NORMAL : GOTO 2530
 2620 GOTO 1820
-2630 REM->HERBUY
-2640 HOME
+2630 REM ->HERBUY
+2640 HOME 
 2650 GOSUB 40
-2660 INVERSE:PRINT"              BUY HEROIN                ":NORMAL
-2670 PRINT CHR$(10)
-2680 J%=INT(WA%/H%)
+2660 INVERSE : PRINT "       BUY HEROIN        ": NORMAL 
+2670 PRINT CHR$ (10)
+2680 J% = INT (WA% / H%)
 2690 GOSUB 110
-2700 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2640
-2710 IF K%<=J% THEN HI%=HI%+J% : WA%=WA%-(H%*J%)
-2720 IF K%>J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2640
+2700 IF K% > FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!": NORMAL : GOTO 2640
+2710 IF K% < = J% THEN HI% = HI% + J%:WA% = WA% - (H% * J%)
+2720 IF K% > J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!": NORMAL : GOTO 2640
 2730 GOTO 1820
-2740 REM->ACIDBUY
-2750 HOME
+2740 REM ->ACIDBUY
+2750 HOME 
 2760 GOSUB 40
-2770 INVERSE:PRINT"                BUY ACID                 ":NORMAL
-2780 PRINT CHR$(10)
-2790 J%=INT(WA%/A%)
+2770 INVERSE : PRINT "        BUY ACID         ": NORMAL 
+2780 PRINT CHR$ (10)
+2790 J% = INT (WA% / A%)
 2800 GOSUB 110
-2810 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2750
-2820 IF K%<=J% THEN AI%=AI%+J% : WA%=WA%-(A%*J%)
-2830 IF K%>J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2750
+2810 IF K% > FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!": NORMAL : GOTO 2750
+2820 IF K% < = J% THEN AI% = AI% + J%:WA% = WA% - (A% * J%)
+2830 IF K% > J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!": NORMAL : GOTO 2750
 2840 GOTO 1820
-2850 REM->WEEDBUY
-2860 HOME
+2850 REM ->WEEDBUY
+2860 HOME 
 2870 GOSUB 40
-2880 INVERSE:PRINT"                BUY WEED                ":NORMAL
-2890 PRINT CHR$(10)
-2900 J%=INT(WA%/W%)
+2880 INVERSE : PRINT "        BUY WEED        ": NORMAL 
+2890 PRINT CHR$ (10)
+2900 J% = INT (WA% / W%)
 2910 GOSUB 110
-2920 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2860
-2930 IF K%<=J% THEN WI%=WI%+J% : WA%=WA%-(W%*J%)
-2940 IF K%>J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2860
+2920 IF K% > FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!": NORMAL : GOTO 2860
+2930 IF K% < = J% THEN WI% = WI% + J%:WA% = WA% - (W% * J%)
+2940 IF K% > J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!": NORMAL : GOTO 2860
 2950 GOTO 1820
-2960 REM->SPDBUY
-2970 HOME
+2960 REM ->SPDBUY
+2970 HOME 
 2980 GOSUB 40
-2990 INVERSE:PRINT"                BUY SPEED               ":NORMAL
-3000 PRINT CHR$(10)
-3010 J%=INT(WA%/S%)
+2990 INVERSE : PRINT "        BUY SPEED        ": NORMAL 
+3000 PRINT CHR$ (10)
+3010 J% = INT (WA% / S%)
 3020 GOSUB 110
-3030 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2970
-3040 IF K%<=J% THEN SI%=SI%+J% : WA%=WA%-(S%*J%)
-3050 IF K%>J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2970
+3030 IF K% > FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!": NORMAL : GOTO 2970
+3040 IF K% < = J% THEN SI% = SI% + J%:WA% = WA% - (S% * J%)
+3050 IF K% > J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!": NORMAL : GOTO 2970
 3060 GOTO 1820
-3070 REM->LUDBUY
-3080 HOME
+3070 REM ->LUDBUY
+3080 HOME 
 3090 GOSUB 40
-3100 INVERSE:PRINT"                BUY LUDES               ":NORMAL
-3110 PRINT CHR$(10)
-3120 J%=INT(WA%/L%)
+3100 INVERSE : PRINT "        BUY LUDES        ": NORMAL 
+3110 PRINT CHR$ (10)
+3120 J% = INT (WA% / L%)
 3130 GOSUB 110
-3140 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 3080
-3150 IF K%<=J% THEN LI%=LI%+J% : WA%=WA%-(L%*J%)
-3160 IF K%>J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 3080
+3140 IF K% > FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!": NORMAL : GOTO 3080
+3150 IF K% < = J% THEN LI% = LI% + J%:WA% = WA% - (L% * J%)
+3160 IF K% > J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!": NORMAL : GOTO 3080
 3170 GOTO 1820
-3180 REM->SELL
-3190 HOME
+3180 REM ->SELL
+3190 HOME 
 3200 GOSUB 40
-3210 INVERSE:PRINT"                   SELL                ":NORMAL
-3220 PRINT CHR$(10)
+3210 INVERSE : PRINT "          SELL        ": NORMAL 
+3220 PRINT CHR$ (10)
 3230 PRINT "WHAT WOULD YOU LIKE TO SELL?"
-3240 PRINT CHR$(10)
+3240 PRINT CHR$ (10)
 3250 PRINT "(C)OCAINE"
 3260 PRINT "(H)EROIN"
 3270 PRINT "(A)CID"
 3280 PRINT "(W)EED"
 3290 PRINT "(S)PEED"
 3300 PRINT "(L)UDES"
-3310 REM->SELLSEL
+3310 REM ->SELLSEL
 3320 INPUT "ENTER SELECTION: (0 TO CANCEL)";DB$
-3330 IF DB$="C" GOTO 3430
-3340 IF DB$="H" GOTO 3530
-3350 IF DB$="A" GOTO 3630
-3360 IF DB$="W" GOTO 3730
-3370 IF DB$="S" GOTO 3830
-3380 IF DB$="L" GOTO 3930
-3390 IF DB$="0" GOGO 1820
+3330 IF DB$ = "C" GOTO 3430
+3340 IF DB$ = "H" GOTO 3530
+3350 IF DB$ = "A" GOTO 3630
+3360 IF DB$ = "W" GOTO 3730
+3370 IF DB$ = "S" GOTO 3830
+3380 IF DB$ = "L" GOTO 3930
+3390 IF DB$ = "0"GOGO1820
 3400 PRINT "INVALID SELECTION!"
 3410 GOTO 3320
-3420 REM->COKESELL
-3430 HOME
+3420 REM ->COKESELL
+3430 HOME 
 3440 GOSUB 40
-3450 INVERSE:PRINT"             SELL COCAINE               ":NORMAL
-3460 PRINT CHR$(10)
-3470 J%=CI%
+3450 INVERSE : PRINT "       SELL COCAINE        ": NORMAL 
+3460 PRINT CHR$ (10)
+3470 J% = CI%
 3480 GOSUB 180
-3490 CI%=CI%-J%
-3500 WA%=WA%+(C%*J%)
+3490 CI% = CI% - J%
+3500 WA% = WA% + (C% * J%)
 3510 GOTO 1820
-3520 REM->HERSELL
-3530 HOME
+3520 REM ->HERSELL
+3530 HOME 
 3540 GOSUB 40
-3550 INVERSE:PRINT"              SELL HEROIN               ":NORMAL
-3560 PRINT CHR$(10)
-3570 J%=HI%
+3550 INVERSE : PRINT "       SELL HEROIN        ": NORMAL 
+3560 PRINT CHR$ (10)
+3570 J% = HI%
 3580 GOSUB 180
-3590 HI%=HI%-J%
-3600 WA%=WA%+(H%*J%)
+3590 HI% = HI% - J%
+3600 WA% = WA% + (H% * J%)
 3610 GOTO 1820
-3620 REM->ACIDSELL
-3630 HOME
+3620 REM ->ACIDSELL
+3630 HOME 
 3640 GOSUB 40
-3650 INVERSE:PRINT"              SELL  ACID                ":NORMAL
-3660 PRINT CHR$(10)
-3670 J%=AI%
+3650 INVERSE : PRINT "       SELL ACID        ": NORMAL 
+3660 PRINT CHR$ (10)
+3670 J% = AI%
 3680 GOSUB 180
-3690 AI%=AI%-J%
-3700 WA%=WA%+(A%*J%)
+3690 AI% = AI% - J%
+3700 WA% = WA% + (A% * J%)
 3710 GOTO 1820
-3720 REM->WEEDSELL
-3730 HOME
+3720 REM ->WEEDSELL
+3730 HOME 
 3740 GOSUB 40
-3750 INVERSE:PRINT"              SELL  WEED                ":NORMAL
-3760 PRINT CHR$(10)
-3770 J%=WI%
+3750 INVERSE : PRINT "       SELL WEED        ": NORMAL 
+3760 PRINT CHR$ (10)
+3770 J% = WI%
 3780 GOSUB 180
-3790 WI%=WI%-J%
-3800 WA%=WA%+(W%*J%)
+3790 WI% = WI% - J%
+3800 WA% = WA% + (W% * J%)
 3810 GOTO 1820
-3820 REM->SPDSELL
-3830 HOME
+3820 REM ->SPDSELL
+3830 HOME 
 3840 GOSUB 40
-3850 INVERSE:PRINT"             SELL  SPEED                ":NORMAL
-3860 PRINT CHR$(10)
-3870 J%=SI%
+3850 INVERSE : PRINT "       SELL SPEED        ": NORMAL 
+3860 PRINT CHR$ (10)
+3870 J% = SI%
 3880 GOSUB 180
-3890 SI%=SI%-J%
-3900 WA%=WA%+(S%*J%)
+3890 SI% = SI% - J%
+3900 WA% = WA% + (S% * J%)
 3910 GOTO 1820
-3920 REM->LUDSELL
-3930 HOME
+3920 REM ->LUDSELL
+3930 HOME 
 3940 GOSUB 40
-3950 INVERSE:PRINT"             SELL COCAINE               ":NORMAL
-3960 PRINT CHR$(10)
-3970 J%=LI%
+3950 INVERSE : PRINT "       SELL COCAINE        ": NORMAL 
+3960 PRINT CHR$ (10)
+3970 J% = LI%
 3980 GOSUB 180
-3990 LI%=LI%-J%
-4000 WA%=WA%+(L%*J%)
+3990 LI% = LI% - J%
+4000 WA% = WA% + (L% * J%)
 4010 GOTO 1820
-4020 REM->JET
-4030 HOME
+4020 REM ->JET
+4030 HOME 
 4040 GOSUB 40
-4050 INVERSE:PRINT"                   JET                  ":NORMAL
-4060 PRINT CHR$(10)
+4050 INVERSE : PRINT "          JET         ": NORMAL 
+4060 PRINT CHR$ (10)
 4070 PRINT "(B)RONX"
 4080 PRINT "(G)HETTO"
 4090 PRINT "(C)ENTRAL PARK
@@ -413,72 +413,72 @@
 4120 PRINT "BROO(K)LYN"
 4130 PRINT "(O)OPS...STAY!"
 4140 INPUT "WHERE TO DUDE";JT$
-4150 IF JT$="B" THEN PQ$ = "THE BRONX" : GOTO 42402
-4160 IF JT$="G" THEN PQ$ = "THE GHETTO" : GOTO 42402
-4170 IF JT$="C" THEN PQ$ = "CENTRAL PARK" : GOTO 42402
-4180 IF JT$="M" THEN PQ$ = "MANHATTEN" : GOTO 42402
-4190 IF JT$="I" THEN PQ$ = "CONEY ISLAND" : GOTO 42402
-4200 IF JT$="K" THEN PQ$ = "BROOKLYN" : GOTO 42402
-4210 IF JT$="O" THEN GOTO 1820
+4150 IF JT$ = "B" THEN PQ$ = "THE BRONX": GOTO 42402
+4160 IF JT$ = "G" THEN PQ$ = "THE GHETTO": GOTO 42402
+4170 IF JT$ = "C" THEN PQ$ = "CENTRAL PARK": GOTO 42402
+4180 IF JT$ = "M" THEN PQ$ = "MANHATTEN": GOTO 42402
+4190 IF JT$ = "I" THEN PQ$ = "CONEY ISLAND": GOTO 42402
+4200 IF JT$ = "K" THEN PQ$ = "BROOKLYN": GOTO 42402
+4210 IF JT$ = "O" THEN GOTO 1820
 4220 GOTO 4240
-4230 REM->JET2
-4240 IF PQ$=P$ THEN GOTO 4280
+4230 REM ->JET2
+4240 IF PQ$ = P$ THEN GOTO 4280
 4250 P$ = PQ$
 4260 GOTO 4370
-4270 REM->ALREADYTHERE
-4280 HOME
+4270 REM ->ALREADYTHERE
+4280 HOME 
 4290 GOSUB 40
-4300 INVERSE:PRINT"                   JET                  ":NORMAL
-4310 PRINT CHR$(10)
+4300 INVERSE : PRINT "          JET         ": NORMAL 
+4310 PRINT CHR$ (10)
 4320 PRINT "YOU'RE ALREADY IN:"
-4330 PRINT "            ";P$
+4330 PRINT "      ";P$
 4340 GOSUB 70
 4350 GOTO 4240
-4360 REM->SUBWAY
+4360 REM ->SUBWAY
 4370 GOSUB 360
 4380 GOSUB 40
-4390 INVERSE:PRINT"                 SUBWAY                 "
-4400 PRINT CHR$(10)
+4390 INVERSE : PRINT "         SUBWAY         "
+4400 PRINT CHR$ (10)
 4410 GOSUB 500
-4420 PRINT CHR$(10) 
-4430 PRINT "WELCOME TO ";P$ 
-4440 PRINT CHR$(10)
+4420 PRINT CHR$ (10)
+4430 PRINT "WELCOME TO ";P$
+4440 PRINT CHR$ (10)
 4450 INPUT "PRESS ENTER TO CONTINUE. ";X$
 4460 GOTO 1820
-4470 REM->INSTRUCTIONS
-4480 HOME
+4470 REM ->INSTRUCTIONS
+4480 HOME 
 4490 GOSUB 40
-4500 PRINT CHR$(10)
+4500 PRINT CHR$ (10)
 4510 PRINT "WELCOME TO DRUGWAR//E"
-4520 PRINT CHR$(10)
-4530 PRINT CHR$(10)
+4520 PRINT CHR$ (10)
+4530 PRINT CHR$ (10)
 4540 INPUT "WOULD YOU LIKE INSTRUCTIONS? (Y/N): ";Q$
-4550 REM->INSERRORHANDLER 
+4550 REM ->INSERRORHANDLER 
 4560 IF Q$ = "Y" THEN GOTO 4780
-4570 IF Q$ = "N" THEN GOGO 4610
+4570 IF Q$ = "N" THEN GOGO4610
 4580 INPUT "I DON'T UNDERSTAND YOU. Y OR N ONLY. ";Q$
 4590 GOTO 4560
-4600 REM->GAMESTART 
-4610 WA%=2000
-4620 SA%=0
-4630 LS%=5000
-4640 D%=0 
-4650 P$="THE BRONX" 
-4660 GN%=0
-4670 DP%=0
-4680 IN%=100
-4690 CI%=0
-4700 HI%=0
-4710 AI%=0
-4720 WI%=0
-4730 SI%=0
-4740 LI%=0
+4600 REM ->GAMESTART 
+4610 WA% = 2000
+4620 SA% = 0
+4630 LS% = 5000
+4640 D% = 0
+4650 P$ = "THE BRONX"
+4660 GN% = 0
+4670 DP% = 0
+4680 IN% = 100
+4690 CI% = 0
+4700 HI% = 0
+4710 AI% = 0
+4720 WI% = 0
+4730 SI% = 0
+4740 LI% = 0
 4750 GOSUB 360
 4760 GOTO 1820
-4770 REM->INST
-4780 HOME
+4770 REM ->INST
+4780 HOME 
 4790 GOSUB 40
-4800 PRINT CHR$(10)
+4800 PRINT CHR$ (10)
 4810 PRINT "THIS IS A GAME OF BUYING AND SELLING."
 4820 PRINT "YOUR GOAL IS TO PAY OFF YOUR DEBT AND"
 4830 PRINT "MAKE AS MUCH MONEY AS POSSIBLE IN A ONE"
@@ -486,43 +486,43 @@
 4850 PRINT "AND INTEREST ON YOUR LOAN IS CALCULATED"
 4860 PRINT "AS WELL. IF YOU DEAL TOO HEAVILY, YOU'LL"
 4870 PRINT "ATTRACT THE ATTENTION OF THE POLICE.
-4880 PRINT CHR$(10)
+4880 PRINT CHR$ (10)
 4890 PRINT "COMMANDS ARE USUALLY THE FIRST LETTER"
 4900 PRINT "OF WHAT YOU WANT TO DO. Y = YES AND"
 4910 PRINT "N = NO."
 4920 INPUT "PRESS ENTER TO CONTINUE.";X$
 4930 GOTO 4610
-4940 REM->WEEDEND
+4940 REM ->WEEDEND
 4950 PRINT "YOU HALLUCINATE ON THE WILDEST TRIP"
 4960 PRINT "OF YOUR LIFE, STUMBLE ON TO THE TRACKS,"
 4970 PRINT "AND GET CREAMED BY A TRAIN!"
-4980 PRINT CHR$(10)
-4990 PRINT CHR$(10)
+4980 PRINT CHR$ (10)
+4990 PRINT CHR$ (10)
 5000 PRINT "JUST SAY NO TO DRUGS!"
-5010 WD%=1
+5010 WD% = 1
 5020 GOTO 70
 5030 GOTO 5050
-5040 REM->ENDGAME
-5050 HOME
+5040 REM ->ENDGAME
+5050 HOME 
 5060 GOSUB 40
-5070 INVERSE : PRINT "       GAME OVER          " : NORMAL
-5080 PRINT CHR$(10)
-5090 IF WD%=1 THEN GOTO 5190
+5070 INVERSE : PRINT "    GAME OVER     ": NORMAL 
+5080 PRINT CHR$ (10)
+5090 IF WD% = 1 THEN GOTO 5190
 5100 PRINT "THANKS FOR PLAYING."
 5110 PRINT "AT THIS POINT I'M SUPPOSED TO CALCULATE"
 5120 PRINT "YOUR FINAL SCORE AND ALL THAT. BUT THIS"
 5130 PRINT "IS AN ALPHA RELEASE. SO IT'S NOT DONE."
-5140 PRINT CHR$(10)
+5140 PRINT CHR$ (10)
 5150 PRINT "AT LEAST YOU DIDN'T DIE FROM SMOKING"
 5160 PRINT "THAT WEED IN THE SUBWAY. GOOD JOB."
-5170 END
-5180 REM->IRONICEND
-5190 HOME
+5170 END 
+5180 REM ->IRONICEND
+5190 HOME 
 5200 GOSUB 40
-5210 INVERSE : PRINT "       GAME OVER          " : NORMAL
-5220 PRINT CHR$(10)
+5210 INVERSE : PRINT "    GAME OVER     ": NORMAL 
+5220 PRINT CHR$ (10)
 5230 PRINT "OH WOW MAN. YOU DIED...FROM SMOKING POT"
 5240 PRINT "IN A GAME ABOUT DRUG DEALING."
-5250 PRINT CHR$(10)
+5250 PRINT CHR$ (10)
 5260 PRINT "WELL, THANKS FOR PLAYING."
-5270 END
+5270 END