diff --git a/drugwar2e.bas b/drugwar2e.bas
index dbafd02..dc7259e 100644
--- a/drugwar2e.bas
+++ b/drugwar2e.bas
@@ -1,6 +1,6 @@
-10 REM - VIRTUALBASIC.ORG - ONLINE-TOOL.BAS - 08/10/2018 - 01h58
-11 REM LABELED ALPHA 5
-20 GOTO 4460
+10 REM - VIRTUALBASIC.ORG - ONLINE-TOOL.BAS - 08/10/2018 - 02h32
+11 REM - LABELED ALPHA 6
+20 GOTO 4480
 30 REM->TITLEBAR 
 40 PRINT "               DRUGWAR//E               "
 50 RETURN
@@ -34,18 +34,18 @@
 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)
+360 C%=RND(1)*12000+16000
+370 H%=RND(1)*7000+5000
+380 A%=(RND(1)*34+10)*100
+390 W%=(RND(1)*42+33)*10
+400 S%=(RND(1)*15+7)*10
+410 L%=(RND(1)*4+1)*10
+420 B%=RND(1)*20
 430 D%=D%+1
-440 LS%=INT(LS%*1.1)
-450 SA%=INT(SA%*1.06)
+440 LS%=LS%*1.1
+450 SA%=SA%*1.06
 460 REM->CHECKDAY 
-470 IF D% >= 31 GOTO 5030
+470 IF D% >= 31 GOTO 5050
 480 RETURN
 490 REM->SUBWAYEVENTS
 500 IF B%=1 THEN GOTO 690
@@ -133,7 +133,7 @@
 1320 PRINT "LIKE GOOD STUFF!!"
 1330 PRINT CHR$(10)
 1340 INPUT "WILL YOU SMOKE IT? (Y/N)";X$
-1350 IF X$ = "Y" THEN GOTO 4930
+1350 IF X$ = "Y" THEN GOTO 4950
 1360 RETURN
 1370 REM->NEWCOAT
 1380 IF WA%<300 THEN RETURN
@@ -145,8 +145,8 @@
 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)
+1470 DG%=(RND(1)*7)+1)
+1480 XG%=(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"
@@ -183,344 +183,346 @@
 1820 HOME
 1830 GOSUB 40
 1840 GOSUB 330
-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 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" 
-2010 GOTO 1820
-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%31
-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?"
+1850 INVERSE : PRINT "      DAY:";D%;"   ";PH$ : NORMAL
+1860 PRINT "(C)HECK PRICES"
+1870 PRINT "(I)NVENTORY"
+1880 PRINT "(B)UY"
+1890 PRINT "(S)ELL"
+1900 PRINT "(J)ET"
+1910 PRINT "SEE (L)OAN SHARK"
+1920 PRINT "(V)ISIT BANK"
+1930 INPUT "PLEASE MAKE YOUR SELECTION: ";T$
+1940 IF T$ = "C" GOTO 2040
+1950 IF T$ = "I" GOTO 2180
+1960 IF T$ = "B" GOTO 2320
+1970 IF T$ = "S" GOTO 3190
+1980 IF T$ = "J" GOTO 4030
+1990 IF T$ = "L" GOTO 1680
+2000 IF T$ = "V" GOTO 1750
+2010 PRINT "INVALID SELECTION" 
+2020 GOTO 1820
+2030 REM->PRICES
+2040 HOME
+2050 GOSUB 40
+2060 INVERSE:PRINT"                 PRICES                 ":NORMAL
+2070 PRINT CHR$(10)
+2080 PRINT"COCAINE:","$"C%
+2090 PRINT"HEROIN:","$"H%
+2100 PRINT"ACID:","$"A%
+2110 PRINT"WEED:","$"W%
+2120 PRINT"SPEED:","$"S%
+2130 PRINT"LUDES:","$"L%
+2140 PRINT"WALLET:","$"WA%
+2150 GOSUB 70
+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"SPEED:",SI%
+2270 PRINT"LUDES:",LI%
+2280 PRINT"FREE SPACE:",FS%
+2290 GOSUB 70
+2300 GOTO 1820
+2310 REM->BUY
+2320 HOME
+2330 GOSUB 40
+2340 INVERSE:PRINT"                  BUY                   ":NORMAL
 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% THEN 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% THEN 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% THEN 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% THEN 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% THEN 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% THEN 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?"
+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%=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% THEN 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%=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% THEN 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%=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% THEN 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%=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% THEN 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%=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% THEN 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%=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% THEN 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 "(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"
+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" GOGO 1820
+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 4240
+4160 IF JT$="G" THEN PQ$ = "THE GHETTO" : GOTO 4240
+4170 IF JT$="C" THEN PQ$ = "CENTRAL PARK" : GOTO 4240
+4180 IF JT$="M" THEN PQ$ = "MANHATTEN" : GOTO 4240
+4190 IF JT$="I" THEN PQ$ = "CONEY ISLAND" : GOTO 4240
+4200 IF JT$="K" THEN PQ$ = "BROOKLYN" : GOTO 4240
+4210 IF JT$="O" THEN GOTO 1820
+4220 GOTO 4030
+4230 REM->JETB
+4240 IF PQ$=PH$ THEN GOTO 4280
+4250 PH$ = 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 "            ";PH$
+4340 GOSUB 70
+4350 GOTO 4030
+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 ";PH$ 
+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 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 SUPPOSLISTED 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
+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 GOTO 4610
+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 PH$="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 SUPPOSLISTED 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