diff --git a/drugwar2e.bas b/drugwar2e.bas
index 79a332e..13b5616 100644
--- a/drugwar2e.bas
+++ b/drugwar2e.bas
@@ -1,528 +1,526 @@
-10 REM - VIRTUALBASIC.ORG - ONLINE-TOOL.BAS - 08/10/2018 - 01h32
-11 REM - LABELED ALPHA 2
-20 GOTO 4480
-30 REM ->TITLEBAR 
-40 PRINT "        DRUGWAR//E        "
-50 RETURN 
-60 REM ->WAIT
-70 PRINT CHR$ (10)
+10 REM - VIRTUALBASIC.ORG - ONLINE-TOOL.BAS - 08/10/2018 - 01h44
+11 REM LABELED ALPHA 3
+20 GOTO 4460
+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 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
+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 5030
+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
 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 
+1350 IF X$ = "Y" THEN GOTO 4930
+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)HECKPRICES
-1860 PRINT (I)NVEN TO RY
-1870 PRINT (B)UY
-1880 PRINT (S)ELL
-1890 PRINT (J)ET
-1900 PRINT SEE(L)OANSHARK
-1910 PRINT (V)ISITBANK
+1850 PRINT "(C)HECK PRICES"
+1860 PRINT "(I)NVENTORY"
+1870 PRINT "(B)UY"
+1880 PRINT "(S)ELL"
+1890 PRINT "(J)ET"
+1900 PRINT "SEE (L)OAN SHARK"
+1910 PRINT "(V)ISIT BANK"
 1920 INPUT "PLEASE MAKE YOUR SELECTION: ";T$
 1930 IF T$ = "C" GOTO 2030
-1940 IF T$ = "I" GOTO 2180
-1950 IF T$ = "B" GOTO 2320
-1960 IF T$ = "S" GOTO 3190
-1970 IF T$ = "J" GOTO 4240
+1940 IF T$ = "I" GOTO 2170
+1950 IF T$ = "B" GOTO 2300
+1960 IF T$ = "S" GOTO 3170
+1970 IF T$ = "J" GOTO 4220
 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$
-2160 GOTO 1820
-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$
-2300 GOTO 1820
-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)
-2380 PRINT "(C)OCAINE"
-2390 PRINT "(H)EROIN"
-2400 PRINT "(A)CID"
-2410 PRINT "(W)EED"
-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
-2510 GOTO 1820
-2520 REM ->COKEBUY
-2530 HOME 
-2540 GOSUB 40
-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
-2620 GOTO 1820
-2630 REM ->HERBUY
-2640 HOME 
-2650 GOSUB 40
-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
-2730 GOTO 1820
-2740 REM ->ACIDBUY
-2750 HOME 
-2760 GOSUB 40
-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
-2840 GOTO 1820
-2850 REM ->WEEDBUY
-2860 HOME 
-2870 GOSUB 40
-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
-2950 GOTO 1820
-2960 REM ->SPDBUY
-2970 HOME 
-2980 GOSUB 40
-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
-3060 GOTO 1820
-3070 REM ->LUDBUY
-3080 HOME 
-3090 GOSUB 40
-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
-3170 GOTO 1820
-3180 REM ->SELL
-3190 HOME 
-3200 GOSUB 40
-3210 INVERSE : PRINT "          SELL        ": NORMAL 
-3220 PRINT CHR$ (10)
-3230 PRINT "WHAT WOULD YOU LIKE TO SELL?"
-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
-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"GOGO1820
-3400 PRINT "INVALID SELECTION!"
-3410 GOTO 3320
-3420 REM ->COKESELL
-3430 HOME 
-3440 GOSUB 40
-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%)
-3510 GOTO 1820
-3520 REM ->HERSELL
-3530 HOME 
-3540 GOSUB 40
-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%)
-3610 GOTO 1820
-3620 REM ->ACIDSELL
-3630 HOME 
-3640 GOSUB 40
-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%)
-3710 GOTO 1820
-3720 REM ->WEEDSELL
-3730 HOME 
-3740 GOSUB 40
-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%)
-3810 GOTO 1820
-3820 REM ->SPDSELL
-3830 HOME 
-3840 GOSUB 40
-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%)
-3910 GOTO 1820
-3920 REM ->LUDSELL
-3930 HOME 
-3940 GOSUB 40
-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%)
-4010 GOTO 1820
-4020 REM ->JET
-4030 HOME 
-4040 GOSUB 40
-4050 INVERSE : PRINT "          JET         ": NORMAL 
-4060 PRINT CHR$ (10)
-4070 PRINT "(B)RONX"
-4080 PRINT "(G)HETTO"
-4090 PRINT "(C)ENTRAL PARK
-4100 PRINT "(M)ANHATTEN"
-4110 PRINT "CONEY (I)SLAND"
-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
-4220 GOTO 4240
-4230 REM ->JET2
-4240 IF PQ$ = P$ THEN GOTO 4280
-4250 P$ = PQ$
-4260 GOTO 4370
-4270 REM ->ALREADYTHERE
-4280 HOME 
-4290 GOSUB 40
-4300 INVERSE : PRINT "          JET         ": NORMAL 
-4310 PRINT CHR$ (10)
-4320 PRINT "YOU'RE ALREADY IN:"
-4330 PRINT "      ";P$
-4340 GOSUB 70
-4350 GOTO 4240
-4360 REM ->SUBWAY
-4370 GOSUB 360
-4380 GOSUB 40
-4390 INVERSE : PRINT "         SUBWAY         "
-4400 PRINT CHR$ (10)
-4410 GOSUB 500
-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 
-4490 GOSUB 40
-4500 PRINT CHR$ (10)
-4510 PRINT "WELCOME TO DRUGWAR//E"
-4520 PRINT CHR$ (10)
-4530 PRINT CHR$ (10)
-4540 INPUT "WOULD YOU LIKE INSTRUCTIONS? (Y/N): ";Q$
-4550 REM ->INSERRORHANDLER 
-4560 IF Q$ = "Y" THEN GOTO 4780
-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
-4750 GOSUB 360
-4760 GOTO 1820
-4770 REM ->INST
-4780 HOME 
-4790 GOSUB 40
-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"
-4840 PRINT "MONTH PERIOD. PRICES FLUCTUATE EVERY DAY"
-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)
-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
-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)
-5000 PRINT "JUST SAY NO TO DRUGS!"
-5010 WD% = 1
-5020 GOTO 70
-5030 GOTO 5050
-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
-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)
-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 
-5200 GOSUB 40
-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)
-5260 PRINT "WELL, THANKS FOR PLAYING."
-5270 END 
+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 GOSUB 70
+2150 GOTO 1820
+2160 REM->INVENTORY
+2170 HOME
+2180 GOSUB 40
+2190 INVERSE:PRINT"            INVENTORY                   ":NORMAL
+2200 PRINT CHR$(10)
+2210 PRINT"COCAINE:",CI%
+2220 PRINT"HEROIN:",HI%
+2230 PRINT"ACID:",AI%
+2240 PRINT"WEED:",WI%
+2250 PRINT"LUDES:",LI%
+2260 PRINT"FREE SPACE:",FS%
+2270 GOSUB 70
+2280 GOTO 1820
+2290 REM->BUY
+2300 HOME
+2310 GOSUB 40
+2320 INVERSE:PRINT"                  BUY                   ":NORMAL
+2330 PRINT CHR$(10)
+2340 PRINT"WHAT DO YOU WANT TO BUY?"
+2350 PRINT CHR$(10)
+2360 PRINT "(C)OCAINE"
+2370 PRINT "(H)EROIN"
+2380 PRINT "(A)CID"
+2390 PRINT "(W)EED"
+2400 PRINT "(S)PEED"
+2410 PRINT "(L)UDES"
+2420 INPUT "ENTER SELECTION: ";DB$
+2430 IF DB$="C" GOTO 2510
+2440 IF DB$="H" GOTO 2620
+2450 IF DB$="A" GOTO 2730
+2460 IF DB$="W" GOTO 2840
+2470 IF DB$="S" GOTO 2950
+2480 IF DB$="L" GOTO 3060
+2490 GOTO 1820
+2500 REM->COKEBUY
+2510 HOME
+2520 GOSUB 40
+2530 INVERSE:PRINT"             BUY COCAINE                ":NORMAL
+2540 PRINT CHR$(10)
+2550 J%=INT(WA%/C%)
+2560 GOSUB 110
+2570 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2510
+2580 IF K%<=J% THEN CI%=CI%+J% : WA%=WA%-(C%*J%)
+2590 IF K%>J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2510
+2600 GOTO 1820
+2610 REM->HERBUY
+2620 HOME
+2630 GOSUB 40
+2640 INVERSE:PRINT"              BUY HEROIN                ":NORMAL
+2650 PRINT CHR$(10)
+2660 J%=INT(WA%/H%)
+2670 GOSUB 110
+2680 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2620
+2690 IF K%<=J% THEN HI%=HI%+J% : WA%=WA%-(H%*J%)
+2700 IF K%>J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2620
+2710 GOTO 1820
+2720 REM->ACIDBUY
+2730 HOME
+2740 GOSUB 40
+2750 INVERSE:PRINT"                BUY ACID                 ":NORMAL
+2760 PRINT CHR$(10)
+2770 J%=INT(WA%/A%)
+2780 GOSUB 110
+2790 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2730
+2800 IF K%<=J% THEN AI%=AI%+J% : WA%=WA%-(A%*J%)
+2810 IF K%>J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2730
+2820 GOTO 1820
+2830 REM->WEEDBUY
+2840 HOME
+2850 GOSUB 40
+2860 INVERSE:PRINT"                BUY WEED                ":NORMAL
+2870 PRINT CHR$(10)
+2880 J%=INT(WA%/W%)
+2890 GOSUB 110
+2900 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2840
+2910 IF K%<=J% THEN WI%=WI%+J% : WA%=WA%-(W%*J%)
+2920 IF K%>J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2840
+2930 GOTO 1820
+2940 REM->SPDBUY
+2950 HOME
+2960 GOSUB 40
+2970 INVERSE:PRINT"                BUY SPEED               ":NORMAL
+2980 PRINT CHR$(10)
+2990 J%=INT(WA%/S%)
+3000 GOSUB 110
+3010 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2950
+3020 IF K%<=J% THEN SI%=SI%+J% : WA%=WA%-(S%*J%)
+3030 IF K%>J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2950
+3040 GOTO 1820
+3050 REM->LUDBUY
+3060 HOME
+3070 GOSUB 40
+3080 INVERSE:PRINT"                BUY LUDES               ":NORMAL
+3090 PRINT CHR$(10)
+3100 J%=INT(WA%/L%)
+3110 GOSUB 110
+3120 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 3060
+3130 IF K%<=J% THEN LI%=LI%+J% : WA%=WA%-(L%*J%)
+3140 IF K%>J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 3060
+3150 GOTO 1820
+3160 REM->SELL
+3170 HOME
+3180 GOSUB 40
+3190 INVERSE:PRINT"                   SELL                ":NORMAL
+3200 PRINT CHR$(10)
+3210 PRINT "WHAT WOULD YOU LIKE TO SELL?"
+3220 PRINT CHR$(10)
+3230 PRINT "(C)OCAINE"
+3240 PRINT "(H)EROIN"
+3250 PRINT "(A)CID"
+3260 PRINT "(W)EED"
+3270 PRINT "(S)PEED"
+3280 PRINT "(L)UDES"
+3290 REM->SELLSEL
+3300 INPUT "ENTER SELECTION: (0 TO CANCEL)";DB$
+3310 IF DB$="C" GOTO 3410
+3320 IF DB$="H" GOTO 3510
+3330 IF DB$="A" GOTO 3610
+3340 IF DB$="W" GOTO 3710
+3350 IF DB$="S" GOTO 3810
+3360 IF DB$="L" GOTO 3910
+3370 IF DB$="0" GOGO 1820
+3380 PRINT "INVALID SELECTION!"
+3390 GOTO 3300
+3400 REM->COKESELL
+3410 HOME
+3420 GOSUB 40
+3430 INVERSE:PRINT"             SELL COCAINE               ":NORMAL
+3440 PRINT CHR$(10)
+3450 J%=CI%
+3460 GOSUB 180
+3470 CI%=CI%-J%
+3480 WA%=WA%+(C%*J%)
+3490 GOTO 1820
+3500 REM->HERSELL
+3510 HOME
+3520 GOSUB 40
+3530 INVERSE:PRINT"              SELL HEROIN               ":NORMAL
+3540 PRINT CHR$(10)
+3550 J%=HI%
+3560 GOSUB 180
+3570 HI%=HI%-J%
+3580 WA%=WA%+(H%*J%)
+3590 GOTO 1820
+3600 REM->ACIDSELL
+3610 HOME
+3620 GOSUB 40
+3630 INVERSE:PRINT"              SELL  ACID                ":NORMAL
+3640 PRINT CHR$(10)
+3650 J%=AI%
+3660 GOSUB 180
+3670 AI%=AI%-J%
+3680 WA%=WA%+(A%*J%)
+3690 GOTO 1820
+3700 REM->WEEDSELL
+3710 HOME
+3720 GOSUB 40
+3730 INVERSE:PRINT"              SELL  WEED                ":NORMAL
+3740 PRINT CHR$(10)
+3750 J%=WI%
+3760 GOSUB 180
+3770 WI%=WI%-J%
+3780 WA%=WA%+(W%*J%)
+3790 GOTO 1820
+3800 REM->SPDSELL
+3810 HOME
+3820 GOSUB 40
+3830 INVERSE:PRINT"             SELL  SPEED                ":NORMAL
+3840 PRINT CHR$(10)
+3850 J%=SI%
+3860 GOSUB 180
+3870 SI%=SI%-J%
+3880 WA%=WA%+(S%*J%)
+3890 GOTO 1820
+3900 REM->LUDSELL
+3910 HOME
+3920 GOSUB 40
+3930 INVERSE:PRINT"             SELL COCAINE               ":NORMAL
+3940 PRINT CHR$(10)
+3950 J%=LI%
+3960 GOSUB 180
+3970 LI%=LI%-J%
+3980 WA%=WA%+(L%*J%)
+3990 GOTO 1820
+4000 REM->JET
+4010 HOME
+4020 GOSUB 40
+4030 INVERSE:PRINT"                   JET                  ":NORMAL
+4040 PRINT CHR$(10)
+4050 PRINT "(B)RONX"
+4060 PRINT "(G)HETTO"
+4070 PRINT "(C)ENTRAL PARK
+4080 PRINT "(M)ANHATTEN"
+4090 PRINT "CONEY (I)SLAND"
+4100 PRINT "BROO(K)LYN"
+4110 PRINT "(O)OPS...STAY!"
+4120 INPUT "WHERE TO DUDE";JT$
+4130 IF JT$="B" THEN PQ$ = "THE BRONX" : GOTO 42202
+4140 IF JT$="G" THEN PQ$ = "THE GHETTO" : GOTO 42202
+4150 IF JT$="C" THEN PQ$ = "CENTRAL PARK" : GOTO 42202
+4160 IF JT$="M" THEN PQ$ = "MANHATTEN" : GOTO 42202
+4170 IF JT$="I" THEN PQ$ = "CONEY ISLAND" : GOTO 42202
+4180 IF JT$="K" THEN PQ$ = "BROOKLYN" : GOTO 42202
+4190 IF JT$="O" THEN GOTO 1820
+4200 GOTO 4220
+4210 REM->JET2
+4220 IF PQ$=P$ THEN GOTO 4260
+4230 P$ = PQ$
+4240 GOTO 4350
+4250 REM->ALREADYTHERE
+4260 HOME
+4270 GOSUB 40
+4280 INVERSE:PRINT"                   JET                  ":NORMAL
+4290 PRINT CHR$(10)
+4300 PRINT "YOU'RE ALREADY IN:"
+4310 PRINT "            ";P$
+4320 GOSUB 70
+4330 GOTO 4220
+4340 REM->SUBWAY
+4350 GOSUB 360
+4360 GOSUB 40
+4370 INVERSE:PRINT"                 SUBWAY                 "
+4380 PRINT CHR$(10)
+4390 GOSUB 500
+4400 PRINT CHR$(10) 
+4410 PRINT "WELCOME TO ";P$ 
+4420 PRINT CHR$(10)
+4430 INPUT "PRESS ENTER TO CONTINUE. ";X$
+4440 GOTO 1820
+4450 REM->INSTRUCTIONS
+4460 HOME
+4470 GOSUB 40
+4480 PRINT CHR$(10)
+4490 PRINT "WELCOME TO DRUGWAR//E"
+4500 PRINT CHR$(10)
+4510 PRINT CHR$(10)
+4520 INPUT "WOULD YOU LIKE INSTRUCTIONS? (Y/N): ";Q$
+4530 REM->INSERRORHANDLER 
+4540 IF Q$ = "Y" THEN GOTO 4760
+4550 IF Q$ = "N" THEN GOTO 4590
+4560 INPUT "I DON'T UNDERSTAND YOU. Y OR N ONLY. ";Q$
+4570 GOTO 4540
+4580 REM->GAMESTART 
+4590 WA%=2000
+4600 SA%=0
+4610 LS%=5000
+4620 D%=0 
+4630 P$="THE BRONX" 
+4640 GN%=0
+4650 DP%=0
+4660 IN%=100
+4670 CI%=0
+4680 HI%=0
+4690 AI%=0
+4700 WI%=0
+4710 SI%=0
+4720 LI%=0
+4730 GOSUB 360
+4740 GOTO 1820
+4750 REM->INST
+4760 HOME
+4770 GOSUB 40
+4780 PRINT CHR$(10)
+4790 PRINT "THIS IS A GAME OF BUYING AND SELLING."
+4800 PRINT "YOUR GOAL IS TO PAY OFF YOUR DEBT AND"
+4810 PRINT "MAKE AS MUCH MONEY AS POSSIBLE IN A ONE"
+4820 PRINT "MONTH PERIOD. PRICES FLUCTUATE EVERY DAY"
+4830 PRINT "AND INTEREST ON YOUR LOAN IS CALCULATED"
+4840 PRINT "AS WELL. IF YOU DEAL TOO HEAVILY, YOU'LL"
+4850 PRINT "ATTRACT THE ATTENTION OF THE POLICE.
+4860 PRINT CHR$(10)
+4870 PRINT "COMMANDS ARE USUALLY THE FIRST LETTER"
+4880 PRINT "OF WHAT YOU WANT TO DO. Y = YES AND"
+4890 PRINT "N = NO."
+4900 INPUT "PRESS ENTER TO CONTINUE.";X$
+4910 GOTO 4590
+4920 REM->WEEDEND
+4930 PRINT "YOU HALLUCINATE ON THE WILDEST TRIP"
+4940 PRINT "OF YOUR LIFE, STUMBLE ON TO THE TRACKS,"
+4950 PRINT "AND GET CREAMED BY A TRAIN!"
+4960 PRINT CHR$(10)
+4970 PRINT CHR$(10)
+4980 PRINT "JUST SAY NO TO DRUGS!"
+4990 WD%=1
+5000 GOTO 70
+5010 GOTO 5030
+5020 REM->ENDGAME
+5030 HOME
+5040 GOSUB 40
+5050 INVERSE : PRINT "       GAME OVER          " : NORMAL
+5060 PRINT CHR$(10)
+5070 IF WD%=1 THEN GOTO 5170
+5080 PRINT "THANKS FOR PLAYING."
+5090 PRINT "AT THIS POINT I'M SUPPOSED TO CALCULATE"
+5100 PRINT "YOUR FINAL SCORE AND ALL THAT. BUT THIS"
+5110 PRINT "IS AN ALPHA RELEASE. SO IT'S NOT DONE."
+5120 PRINT CHR$(10)
+5130 PRINT "AT LEAST YOU DIDN'T DIE FROM SMOKING"
+5140 PRINT "THAT WEED IN THE SUBWAY. GOOD JOB."
+5150 END
+5160 REM->IRONICEND
+5170 HOME
+5180 GOSUB 40
+5190 INVERSE : PRINT "       GAME OVER          " : NORMAL
+5200 PRINT CHR$(10)
+5210 PRINT "OH WOW MAN. YOU DIED...FROM SMOKING POT"
+5220 PRINT "IN A GAME ABOUT DRUG DEALING."
+5230 PRINT CHR$(10)
+5240 PRINT "WELL, THANKS FOR PLAYING."
+5250 END