diff --git a/drugwar2e.bas b/drugwar2e.bas
index c1f7cce..4e0626d 100644
--- a/drugwar2e.bas
+++ b/drugwar2e.bas
@@ -1,10 +1,10 @@
-10 REM DRUGWAR.BAS - 16/10/2018 - 00h06
-20 REM DRUGWAR//E - BETA 8
+10 REM DRUGWAR2EB9.BAS - 17/10/2018 - 05h00
+20 REM DRUGWAR//E - BETA 9
 30 REM COPYRIGHT 2018 JAY MOORE
 40 REM RELEASED UNDER GPL V3
 50 REM DRUGWAR2E.SOURCEFORGE.IO
 60 REM TWITTER: _NQ4T
-70 GOTO 4840
+70 GOTO 6260
 80 REM->TITLEBAR 
 90 PRINT ,"DRUGWAR//E",
 100 RETURN
@@ -12,582 +12,709 @@
 120 PRINT CHR$(10)
 130 INPUT "PRESS ENTER TO CONTINUE.";X$
 140 RETURN
-150 REM->HOWMUCHBUY 
-160 PRINT "YOU CAN AFFORD ";J
-170 PRINT "YOU CAN CARRY  ";F
-180 REM->HOWMANYBUY	
-190 PRINT CHR$(10)
-200 INPUT "HOW MANY? (ENTER 0 CANCEL): ";K
-210 IF K=0 GOTO 460
-220 IF K>F THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 190
-230 IF K>J THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 190
-240 RETURN
-250 REM->HOWMUCHSELL 
-260 PRINT "YOU CAN SELL: ";J
+150 REM->TIMERA
+160 FOR N = 1 TO 500
+170 NEXT N
+180 RETURN
+190 REM->TIMERB
+200 FOR N = 1 TO 300
+210 NEXT N
+220 RETURN
+230 REM->HOWMUCHBUY 
+240 PRINT "YOU CAN AFFORD ";J
+250 PRINT "YOU CAN CARRY  ";F
+260 REM->HOWMANYBUY	
 270 PRINT CHR$(10)
-280 REM->HOWMANYSELL
-290 INPUT "HOW MANY? (ENTER 0 TO CANCEL.): ";K
-300 IF K>J THEN PRINT "YOU DON'T HAVE THAT MANY!" : GOTO 290
-310 IF K=0 GOTO 460
+280 INPUT "HOW MANY? (ENTER 0 CANCEL): ";K
+290 IF K=0 GOTO 540
+300 IF K>F THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 270
+310 IF K>J THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 270
 320 RETURN
-330 REM->DAILY 
-340 C=INT(RND(1)*12000+16000.5)
-350 H=INT(RND(1)*7000+5000.5)
-360 A=INT((RND(1)*34+10)*100+.5)
-370 Z=INT((RND(1)*42+33)*10+.5)
-380 S=INT((RND(1)*15+7)*10+.5)
-390 L=INT((RND(1)*4+1)*10+.5)
-400 B=INT(RND(1)*20+.5)
-410 D=D+1
-420 REM->CHECKDAY 
-430 IF D >= 31 GOTO 5470
-440 RETURN
-450 REM->MENU 
-460 HOME
-470 F=I-(M+N+O+U+T+Q) 
-480 GOSUB 90
-490 INVERSE : PRINT "DAY:";D,P$, : NORMAL
-500 PRINT CHR$(10)
-510 PRINT "(C)HECK PRICES"
-520 PRINT "(I)NVENTORY"
-530 PRINT "(B)UY"
-540 PRINT "(S)ELL"
-550 PRINT "(J)ET"
-560 PRINT "SEE (L)OAN SHARK"
-570 PRINT "(V)ISIT BANK"
-580 INPUT "PLEASE MAKE YOUR SELECTION: ";X$
-590 IF X$ = "C" GOTO 680
-600 IF X$ = "I" GOTO 820
-610 IF X$ = "B" GOTO 960
-620 IF X$ = "S" GOTO 1710
-630 IF X$ = "J" GOTO 2550
-640 IF X$ = "L" GOTO 4230
-650 IF X$ = "V" GOTO 4540
-660 GOTO 460
-670 REM->PRICES
-680 HOME
-690 GOSUB 90
-700 INVERSE:PRINT"                 PRICES                 ":NORMAL
-710 PRINT CHR$(10)
-720 PRINT"COCAINE:","$"C
-730 PRINT"HEROIN:","$"H
-740 PRINT"ACID:","$"A
-750 PRINT"WEED:","$"Z
-760 PRINT"SPEED:","$"S
-770 PRINT"LUDES:","$"L
-780 PRINT"WALLET:","$"W
-790 GOSUB 120
-800 GOTO 460
-810 REM->INVENTORY
-820 HOME
-830 GOSUB 90
-840 INVERSE:PRINT"            INVENTORY                   ":NORMAL
-850 PRINT CHR$(10)
-860 PRINT"COCAINE:",M
-870 PRINT"HEROIN:",N
-880 PRINT"ACID:",O
-890 PRINT"WEED:",U
-900 PRINT"SPEED:",T
-910 PRINT"LUDES:",Q
-920 PRINT"FREE SPACE:",F
-930 GOSUB 120
-940 GOTO 460
-950 REM->BUY
-960 HOME
-970 GOSUB 90
-980 INVERSE:PRINT"                  BUY                   ":NORMAL
-990 PRINT CHR$(10)
-1000 PRINT"WHAT DO YOU WANT TO BUY?"
-1010 PRINT CHR$(10)
-1020 PRINT "(C)OCAINE"
-1030 PRINT "(H)EROIN"
-1040 PRINT "(A)CID"
-1050 PRINT "(W)EED"
-1060 PRINT "(S)PEED"
-1070 PRINT "(L)UDES"
-1080 INPUT "ENTER SELECTION: ";X$
-1090 IF X$="C" GOTO 1170
-1100 IF X$="H" GOTO 1260
-1110 IF X$="A" GOTO 1350
-1120 IF X$="W" GOTO 1440
-1130 IF X$="S" GOTO 1530
-1140 IF X$="L" GOTO 1620
-1150 GOTO 460
-1160 REM->COKEBUY
-1170 HOME
-1180 GOSUB 90
-1190 INVERSE:PRINT"             BUY COCAINE                ":NORMAL
-1200 PRINT CHR$(10)
-1210 J=INT(W/C) 
-1220 GOSUB 160
-1230 M=M+K : W=W-(C*K) 
-1240 GOTO 460
-1250 REM->HERBUY
-1260 HOME
-1270 GOSUB 90
-1280 INVERSE:PRINT"              BUY HEROIN                ":NORMAL
-1290 PRINT CHR$(10)
-1300 J=INT(W/H)
-1310 GOSUB 160
-1320 N=N+K : W=W-(H*K)
-1330 GOTO 460
-1340 REM->ACIDBUY
-1350 HOME
-1360 GOSUB 90
-1370 INVERSE:PRINT"                BUY ACID                 ":NORMAL
-1380 PRINT CHR$(10)
-1390 J=INT(W/A)
-1400 GOSUB 160
-1410 O=O+K : W=W-(A*K)
-1420 GOTO 460
-1430 REM->WEEDBUY
-1440 HOME
-1450 GOSUB 90
-1460 INVERSE:PRINT"                BUY WEED                ":NORMAL
-1470 PRINT CHR$(10)
-1480 J=INT(W/Z)
-1490 GOSUB 160
-1500 U=U+K : W=W-(Z*K)
-1510 GOTO 460
-1520 REM->SPDBUY
-1530 HOME
-1540 GOSUB 90
-1550 INVERSE:PRINT"                BUY SPEED               ":NORMAL
-1560 PRINT CHR$(10)
-1570 J=INT(W/S)
-1580 GOSUB 160
-1590 T=T+K : W=W-(S*K)
-1600 GOTO 460
-1610 REM->LUDBUY
-1620 HOME
-1630 GOSUB 90
-1640 INVERSE:PRINT"                BUY LUDES               ":NORMAL
-1650 PRINT CHR$(10)
-1660 J=INT(W/L)
-1670 GOSUB 160
-1680 Q=Q+K : W=W-(L*K)
-1690 GOTO 460
-1700 REM->SELL
-1710 HOME
-1720 GOSUB 90
-1730 INVERSE:PRINT"                   SELL                ":NORMAL
-1740 PRINT CHR$(10)
-1750 PRINT "WHAT WOULD YOU LIKE TO SELL?"
-1760 PRINT CHR$(10)
-1770 PRINT "(C)OCAINE"
-1780 PRINT "(H)EROIN"
-1790 PRINT "(A)CID"
-1800 PRINT "(W)EED"
-1810 PRINT "(S)PEED"
-1820 PRINT "(L)UDES"
-1830 REM->SELLSEL
-1840 INPUT "ENTER SELECTION: (0 TO CANCEL)";X$
-1850 IF X$="C" GOTO 1950
-1860 IF X$="H" GOTO 2050
-1870 IF X$="A" GOTO 2150
-1880 IF X$="W" GOTO 2250
-1890 IF X$="S" GOTO 2350
-1900 IF X$="L" GOTO 2450
-1910 IF X$="0" GOTO 460
-1920 PRINT "INVALID SELECTION!"
-1930 GOTO 1840
-1940 REM->COKESELL
-1950 HOME
-1960 GOSUB 90
-1970 INVERSE:PRINT"             SELL COCAINE               ":NORMAL
-1980 PRINT CHR$(10)
-1990 J=M 
-2000 GOSUB 260
-2010 M=M-K 
-2020 W=W+(C*K) 
-2030 GOTO 460
-2040 REM->HERSELL
-2050 HOME
-2060 GOSUB 90
-2070 INVERSE:PRINT"              SELL HEROIN               ":NORMAL
-2080 PRINT CHR$(10)
-2090 J=N
-2100 GOSUB 260
-2110 N=N-K
-2120 W=W+(H*K)
-2130 GOTO 460
-2140 REM->ACIDSELL
-2150 HOME
-2160 GOSUB 90
-2170 INVERSE:PRINT"              SELL  ACID                ":NORMAL
-2180 PRINT CHR$(10)
-2190 J=O
-2200 GOSUB 260
-2210 O=O-K
-2220 W=W+(A*K)
-2230 GOTO 460
-2240 REM->WEEDSELL
-2250 HOME
-2260 GOSUB 90
-2270 INVERSE:PRINT"              SELL  WEED                ":NORMAL
-2280 PRINT CHR$(10)
-2290 J=U
-2300 GOSUB 260
-2310 U=U-K
-2320 W=W+(Z*K)
-2330 GOTO 460
-2340 REM->SPDSELL
-2350 HOME
-2360 GOSUB 90
-2370 INVERSE:PRINT"             SELL  SPEED                ":NORMAL
-2380 PRINT CHR$(10)
-2390 J=T
-2400 GOSUB 260
-2410 T=T-K
-2420 W=W+(S*K)
-2430 GOTO 460
-2440 REM->LUDSELL
-2450 HOME
-2460 GOSUB 90
-2470 INVERSE:PRINT"              SELL  LUDES               ":NORMAL
-2480 PRINT CHR$(10)
-2490 J=Q
-2500 GOSUB 260
-2510 Q=Q-K
-2520 W=W+(L*K)
-2530 GOTO 460
-2540 REM->JET
-2550 HOME
-2560 GOSUB 90
-2570 INVERSE:PRINT"                   JET                  ":NORMAL
-2580 PRINT CHR$(10)
-2590 PRINT "(B)RONX"
-2600 PRINT "(G)HETTO"
-2610 PRINT "(C)ENTRAL PARK
-2620 PRINT "(M)ANHATTEN"
-2630 PRINT "CONEY (I)SLAND"
-2640 PRINT "BROO(K)LYN"
-2650 PRINT "(O)OPS...STAY!"
-2660 INPUT "WHERE TO DUDE? ";X$
-2670 IF X$="B" THEN Y$ = "THE BRONX" : GOTO 2760
-2680 IF X$="G" THEN Y$ = "THE GHETTO" : GOTO 2760
-2690 IF X$="C" THEN Y$ = "CENTRAL PARK" : GOTO 2760
-2700 IF X$="M" THEN Y$ = "MANHATTEN" : GOTO 2760
-2710 IF X$="I" THEN Y$ = "CONEY ISLAND" : GOTO 2760
-2720 IF X$="K" THEN Y$ = "BROOKLYN" : GOTO 2760
-2730 IF X$="O" THEN GOTO 460
-2740 GOTO 2550
-2750 REM->JETB
-2760 IF Y$=P$ THEN GOTO 2800
-2770 P$ = Y$ 
-2780 GOTO 2890
-2790 REM->ALREADYTHERE
-2800 HOME
-2810 GOSUB 90
-2820 INVERSE:PRINT"                   JET                  ":NORMAL
-2830 PRINT CHR$(10)
-2840 PRINT "YOU'RE ALREADY IN:"
-2850 PRINT "            ";P$
-2860 GOSUB 120
-2870 GOTO 2550
-2880 REM->SUBWAY
+330 REM->HOWMUCHSELL 
+340 PRINT "YOU CAN SELL: ";J
+350 PRINT CHR$(10)
+360 REM->HOWMANYSELL
+370 INPUT "HOW MANY? (ENTER 0 TO CANCEL.): ";K
+380 IF K>J THEN PRINT "YOU DON'T HAVE THAT MANY!" : GOTO 370
+390 IF K=0 GOTO 540
+400 RETURN
+410 REM->DAILY 
+420 C=INT(RND(1)*12000+16000.5)
+430 H=INT(RND(1)*7000+5000.5)
+440 A=INT((RND(1)*34+10)*100+.5)
+450 Z=INT((RND(1)*42+33)*10+.5)
+460 S=INT((RND(1)*15+7)*10+.5)
+470 L=INT((RND(1)*4+1)*10+.5)
+480 B=INT(RND(1)*20+.5)
+490 D=D+1
+500 REM->CHECKDAY 
+510 IF D >= 31 GOTO 6890
+520 RETURN
+530 REM->MENU 
+540 HOME
+550 F=I-(M+N+O+U+T+Q) 
+560 GOSUB 90
+570 INVERSE : PRINT "DAY:";D,P$, : NORMAL
+580 PRINT CHR$(10)
+590 PRINT "(C)HECK PRICES"
+600 PRINT "(I)NVENTORY"
+610 PRINT "(B)UY"
+620 PRINT "(S)ELL"
+630 PRINT "(J)ET"
+640 PRINT "SEE (L)OAN SHARK"
+650 PRINT "(V)ISIT BANK"
+660 INPUT "PLEASE MAKE YOUR SELECTION: ";X$
+670 IF X$ = "C" GOTO 760
+680 IF X$ = "I" GOTO 900
+690 IF X$ = "B" GOTO 1040
+700 IF X$ = "S" GOTO 1790
+710 IF X$ = "J" GOTO 2630
+720 IF X$ = "L" GOTO 5650
+730 IF X$ = "V" GOTO 5960
+740 GOTO 540
+750 REM->PRICES
+760 HOME
+770 GOSUB 90
+780 INVERSE:PRINT"                 PRICES                 ":NORMAL
+790 PRINT CHR$(10)
+800 PRINT"COCAINE:","$"C
+810 PRINT"HEROIN:","$"H
+820 PRINT"ACID:","$"A
+830 PRINT"WEED:","$"Z
+840 PRINT"SPEED:","$"S
+850 PRINT"LUDES:","$"L
+860 PRINT"WALLET:","$"W
+870 GOSUB 120
+880 GOTO 540
+890 REM->INVENTORY
+900 HOME
+910 GOSUB 90
+920 INVERSE:PRINT"            INVENTORY                   ":NORMAL
+930 PRINT CHR$(10)
+940 PRINT"COCAINE:",M
+950 PRINT"HEROIN:",N
+960 PRINT"ACID:",O
+970 PRINT"WEED:",U
+980 PRINT"SPEED:",T
+990 PRINT"LUDES:",Q
+1000 PRINT"FREE SPACE:",F
+1010 GOSUB 120
+1020 GOTO 540
+1030 REM->BUY
+1040 HOME
+1050 GOSUB 90
+1060 INVERSE:PRINT"                  BUY                   ":NORMAL
+1070 PRINT CHR$(10)
+1080 PRINT"WHAT DO YOU WANT TO BUY?"
+1090 PRINT CHR$(10)
+1100 PRINT "(C)OCAINE"
+1110 PRINT "(H)EROIN"
+1120 PRINT "(A)CID"
+1130 PRINT "(W)EED"
+1140 PRINT "(S)PEED"
+1150 PRINT "(L)UDES"
+1160 INPUT "ENTER SELECTION: ";X$
+1170 IF X$="C" GOTO 1250
+1180 IF X$="H" GOTO 1340
+1190 IF X$="A" GOTO 1430
+1200 IF X$="W" GOTO 1520
+1210 IF X$="S" GOTO 1610
+1220 IF X$="L" GOTO 1700
+1230 GOTO 540
+1240 REM->COKEBUY
+1250 HOME
+1260 GOSUB 90
+1270 INVERSE:PRINT"             BUY COCAINE                ":NORMAL
+1280 PRINT CHR$(10)
+1290 J=INT(W/C) 
+1300 GOSUB 240
+1310 M=M+K : W=W-(C*K) 
+1320 GOTO 540
+1330 REM->HERBUY
+1340 HOME
+1350 GOSUB 90
+1360 INVERSE:PRINT"              BUY HEROIN                ":NORMAL
+1370 PRINT CHR$(10)
+1380 J=INT(W/H)
+1390 GOSUB 240
+1400 N=N+K : W=W-(H*K)
+1410 GOTO 540
+1420 REM->ACIDBUY
+1430 HOME
+1440 GOSUB 90
+1450 INVERSE:PRINT"                BUY ACID                 ":NORMAL
+1460 PRINT CHR$(10)
+1470 J=INT(W/A)
+1480 GOSUB 240
+1490 O=O+K : W=W-(A*K)
+1500 GOTO 540
+1510 REM->WEEDBUY
+1520 HOME
+1530 GOSUB 90
+1540 INVERSE:PRINT"                BUY WEED                ":NORMAL
+1550 PRINT CHR$(10)
+1560 J=INT(W/Z)
+1570 GOSUB 240
+1580 U=U+K : W=W-(Z*K)
+1590 GOTO 540
+1600 REM->SPDBUY
+1610 HOME
+1620 GOSUB 90
+1630 INVERSE:PRINT"                BUY SPEED               ":NORMAL
+1640 PRINT CHR$(10)
+1650 J=INT(W/S)
+1660 GOSUB 240
+1670 T=T+K : W=W-(S*K)
+1680 GOTO 540
+1690 REM->LUDBUY
+1700 HOME
+1710 GOSUB 90
+1720 INVERSE:PRINT"                BUY LUDES               ":NORMAL
+1730 PRINT CHR$(10)
+1740 J=INT(W/L)
+1750 GOSUB 240
+1760 Q=Q+K : W=W-(L*K)
+1770 GOTO 540
+1780 REM->SELL
+1790 HOME
+1800 GOSUB 90
+1810 INVERSE:PRINT"                   SELL                ":NORMAL
+1820 PRINT CHR$(10)
+1830 PRINT "WHAT WOULD YOU LIKE TO SELL?"
+1840 PRINT CHR$(10)
+1850 PRINT "(C)OCAINE"
+1860 PRINT "(H)EROIN"
+1870 PRINT "(A)CID"
+1880 PRINT "(W)EED"
+1890 PRINT "(S)PEED"
+1900 PRINT "(L)UDES"
+1910 REM->SELLSEL
+1920 INPUT "ENTER SELECTION: (0 TO CANCEL)";X$
+1930 IF X$="C" GOTO 2030
+1940 IF X$="H" GOTO 2130
+1950 IF X$="A" GOTO 2230
+1960 IF X$="W" GOTO 2330
+1970 IF X$="S" GOTO 2430
+1980 IF X$="L" GOTO 2530
+1990 IF X$="0" GOTO 540
+2000 PRINT "INVALID SELECTION!"
+2010 GOTO 1920
+2020 REM->COKESELL
+2030 HOME
+2040 GOSUB 90
+2050 INVERSE:PRINT"             SELL COCAINE               ":NORMAL
+2060 PRINT CHR$(10)
+2070 J=M 
+2080 GOSUB 340
+2090 M=M-K 
+2100 W=W+(C*K) 
+2110 GOTO 540
+2120 REM->HERSELL
+2130 HOME
+2140 GOSUB 90
+2150 INVERSE:PRINT"              SELL HEROIN               ":NORMAL
+2160 PRINT CHR$(10)
+2170 J=N
+2180 GOSUB 340
+2190 N=N-K
+2200 W=W+(H*K)
+2210 GOTO 540
+2220 REM->ACIDSELL
+2230 HOME
+2240 GOSUB 90
+2250 INVERSE:PRINT"              SELL  ACID                ":NORMAL
+2260 PRINT CHR$(10)
+2270 J=O
+2280 GOSUB 340
+2290 O=O-K
+2300 W=W+(A*K)
+2310 GOTO 540
+2320 REM->WEEDSELL
+2330 HOME
+2340 GOSUB 90
+2350 INVERSE:PRINT"              SELL  WEED                ":NORMAL
+2360 PRINT CHR$(10)
+2370 J=U
+2380 GOSUB 340
+2390 U=U-K
+2400 W=W+(Z*K)
+2410 GOTO 540
+2420 REM->SPDSELL
+2430 HOME
+2440 GOSUB 90
+2450 INVERSE:PRINT"             SELL  SPEED                ":NORMAL
+2460 PRINT CHR$(10)
+2470 J=T
+2480 GOSUB 340
+2490 T=T-K
+2500 W=W+(S*K)
+2510 GOTO 540
+2520 REM->LUDSELL
+2530 HOME
+2540 GOSUB 90
+2550 INVERSE:PRINT"              SELL  LUDES               ":NORMAL
+2560 PRINT CHR$(10)
+2570 J=Q
+2580 GOSUB 340
+2590 Q=Q-K
+2600 W=W+(L*K)
+2610 GOTO 540
+2620 REM->JET
+2630 HOME
+2640 GOSUB 90
+2650 INVERSE:PRINT"                   JET                  ":NORMAL
+2660 PRINT CHR$(10)
+2670 PRINT "(B)RONX"
+2680 PRINT "(G)HETTO"
+2690 PRINT "(C)ENTRAL PARK
+2700 PRINT "(M)ANHATTEN"
+2710 PRINT "CONEY (I)SLAND"
+2720 PRINT "BROO(K)LYN"
+2730 PRINT "(O)OPS...STAY!"
+2740 INPUT "WHERE TO DUDE? ";X$
+2750 IF X$="B" THEN Y$ = "THE BRONX" : GOTO 2850
+2760 IF X$="G" THEN Y$ = "THE GHETTO" : GOTO 2850
+2770 IF X$="C" THEN Y$ = "CENTRAL PARK" : GOTO 2850
+2780 IF X$="M" THEN Y$ = "MANHATTEN" : GOTO 2850
+2790 IF X$="I" THEN Y$ = "CONEY ISLAND" : GOTO 2850
+2800 IF X$="K" THEN Y$ = "BROOKLYN" : GOTO 2850
+2810 IF X$="O" THEN GOTO 540
+2820 IF X$="COPTEST" THEN B = 5 : GOTO 3810
+2830 GOTO 2630
+2840 REM->JETB
+2850 IF Y$=P$ THEN GOTO 2890
+2860 P$ = Y$ 
+2870 GOTO 2980
+2880 REM->ALREADYTHERE
 2890 HOME
-2900 GOSUB 340
-2910 V=INT(V*1.1+.5) 
-2920 E=INT(E*1.06+.5) 
-2930 GOSUB 90
-2940 INVERSE:PRINT"                 SUBWAY                 ":NORMAL
-2950 PRINT CHR$(10)
-2960 IF B=1 THEN GOTO 3190
-2970 IF B=2 THEN GOTO 3240
-2980 IF B=3 THEN GOTO 3290
-2990 IF B=4 THEN GOTO 3350
-3000 IF B=5 THEN GOTO 3350
-3010 IF B=6 THEN GOTO 3410
-3020 IF B=7 THEN GOTO 3410
-3030 IF B=8 THEN GOTO 3470
-3040 IF B=9 THEN GOTO 3570
-3050 IF B=10 THEN GOTO 3570
-3060 IF B=11 THEN GOTO 3570
-3070 IF B=12 THEN GOTO 3660
-3080 IF B=13 THEN GOTO 3660
-3090 IF B=14 THEN GOTO 3810
-3100 IF B=15 THEN GOTO 3880
-3110 IF B=16 THEN GOTO 3960
-3120 IF B=17 THEN GOTO 4120
-3130 PRINT CHR$(10) 
-3140 PRINT "WELCOME TO ";P$ 
-3150 PRINT CHR$(10)
-3160 INPUT "PRESS ENTER TO CONTINUE. ";X$
-3170 GOTO 460
-3180 REM->CHEAPLUDES
-3190 PRINT "RIVAL DEALERS ARE SELLING CHEAP LUDES!"
-3200 L=2
-3210 GOSUB 120
-3220 GOTO 460
-3230 REM->CHEEPWEED
-3240 PRINT "WEED PRICES HAVE BOTTOMED-OUT!"
-3250 Z=122
-3260 GOSUB 120
-3270 GOTO 460
-3280 REM->PIGHEROIN
-3290 PRINT "PIGS ARE SELLING CHEAP HEROIN"
-3300 PRINT "FROM LAST WEEK'S RAID!"
-3310 H=INT((RND(1)*1150)+850.5)
+2900 GOSUB 90
+2910 INVERSE:PRINT"                   JET                  ":NORMAL
+2920 PRINT CHR$(10)
+2930 PRINT "YOU'RE ALREADY IN:"
+2940 PRINT "            ";P$
+2950 GOSUB 120
+2960 GOTO 2630
+2970 REM->SUBWAY
+2980 HOME
+2990 GOSUB 420
+3000 V=INT(V*1.1+.5) 
+3010 E=INT(E*1.06+.5) 
+3020 GOSUB 90
+3030 INVERSE:PRINT"                 SUBWAY                 ":NORMAL
+3040 PRINT CHR$(10)
+3050 IF B=1 THEN GOTO 3300
+3060 IF B=2 THEN GOTO 3350
+3070 IF B=3 THEN GOTO 3400
+3080 IF B=4 THEN GOTO 3460
+3090 IF B=5 THEN GOTO 3460
+3100 IF B=6 THEN GOTO 3520
+3110 IF B=7 THEN GOTO 3520
+3120 IF B=8 THEN GOTO 3580
+3130 IF B=9 THEN GOTO 3680
+3140 IF B=10 THEN GOTO 3680
+3150 IF B=11 THEN GOTO 3680
+3160 IF B=12 THEN GOTO 5080
+3170 IF B=13 THEN GOTO 5080
+3180 IF B=14 THEN GOTO 5230
+3190 IF B=15 THEN GOTO 5300
+3200 IF B=16 THEN GOTO 5380
+3210 IF B=17 THEN GOTO 5540
+3220 REM->NOTHINGHAPPENED
+3230 REM->NOTHINGHAPPENS	
+3240 PRINT CHR$(10) 
+3250 PRINT "WELCOME TO ";P$ 
+3260 PRINT CHR$(10)
+3270 INPUT "PRESS ENTER TO CONTINUE. ";X$
+3280 GOTO 540
+3290 REM->CHEAPLUDES
+3300 PRINT "RIVAL DEALERS ARE SELLING CHEAP LUDES!"
+3310 L=2
 3320 GOSUB 120
-3330 GOTO 460
-3340 REM->HEROINBUST
-3350 PRINT "ADDICTS ARE BUYING HEROIN"
-3360 PRINT "AT OUTRAGEOUS PRICES!"
-3370 H=INT((RND(1)*25000)+18000.5)
-3380 GOSUB 120
-3390 GOTO 460
-3400 REM->COKEBUST
-3410 PRINT "PIGS MADE A BIG COKE BUST!"
-3420 PRINT "PRICES ARE OUTRAGEOUS!!!!"
-3430 C=INT((RND(1)*60000)+80000.5) 
-3440 GOSUB 120
-3450 GOTO 460
-3460 REM->MUGGED
-3470 PRINT "YOU GOT MUGGED!"
-3480 PRINT CHR$(10)
-3490 J=INT(W/3)
-3500 J=INT(J*2)
-3510 K=INT(W-J)
-3520 PRINT "YOU LOST $";K
-3530 W=J
-3540 GOSUB 120
-3550 GOSUB 460
-3560 REM->COPS
-3570 K=M+N+U+O+T+P 
-3580 IF K<50 THEN RETURN
-3590 PRINT "IT'S THE COPS!"
-3600 PRINT CHR$(10)
-3610 PRINT "JUST KIDDING!"
-3620 PRINT "COPS HAVEN'T BEEN CODED YET."
-3630 GOSUB 120
-3640 GOTO 460
-3650 REM->GUNBUY
-3660 IF W < 500 THEN RETURN
-3670 F=INT(I-(M+N+O+U+T+P))
-3680 IF F < 5 THEN RETURN
-3690 J=INT(RND(1)*2)
-3700 IF J = 0 THEN Y$ = "BARETTA"
-3710 IF J = 1 THEN Y$ = "SATURDAY NIGHT SPECIAL"
-3720 IF J = 2 THEN Y$ = ".44 MAGNUM"
-3730 PRINT "WILL YOU BUY A ";Y$
-3740 INPUT "FOR $400? (Y/N)";X$
-3750 IF X$ <> "Y" THEN GOTO 460
-3760 G = INT(G+1)
-3770 W = INT(W-400)
-3780 I = INT(I-5) 
-3790 GOTO 460
-3800 REM->DEDWEED 
-3810 PRINT "THERE'S SOME WEED HERE THAT SMELLS"
-3820 PRINT "LIKE GOOD STUFF!!"
-3830 PRINT CHR$(10)
-3840 INPUT "WILL YOU SMOKE IT? (Y/N)";X$
-3850 IF X$ = "Y" THEN GOTO 5280
-3860 GOTO460
-3870 REM->NEWCOAT
-3880 IF W<300 THEN RETURN 
-3890 PRINT "WILL YOU BUY A NEW TRENCHCOAT"
-3900 INPUT "WITH MORE POCKETS FOR $200? (Y/N)";X$
-3910 IF X$ <> "Y" THEN GOTO 460
-3920 I=INT(I+10)
-3930 W=INT(W-200)
-3940 GOTO 460
-3950 REM->DEDGUY
-3960 IF F<8 THEN RETURN 
-3970 J=INT((RND(1)*7)+1.5)
-3980 K=INT(RND(1)*5+.5)
-3990 IF K=0 THEN Q=Q+J : Y$ = "LUDES"
-4000 IF K=1 THEN T=T+J : Y$ = "SPEED"
-4010 IF K=2 THEN U=U+J : Y$ = "WEED"
-4020 IF K=3 THEN O=O+J : Y$ = "ACID"
-4030 IF K=4 THEN N=N+J : Y$ = "HEROIN"
-4040 IF K=5 THEN M=M+J : Y$ = "COCAINE"
-4050 PRINT "YOU FOUND ";J;" UNITS OF"
-4060 PRINT "         ";Y$
-4070 PRINT "ON A DEAD DUDE IN THE SUBWAY!"
-4080 PRINT CHR$(10)
-4090 GOSUB 120
-4100 GOTO 460
-4110 REM->HOMEACID
-4120 PRINT "THE MARKET HAS BEEN FLOODED"
-4130 PRINT "WITH CHEAP HOME-MADE ACID!"
-4140 A=INT((RND(1)*550)+250.5)
-4150 GOSUB 120
-4160 GOTO 460
-4170 REM->NOTBRONX
-4180 PRINT "YOU NEED TO HEAD TO THE BRONX"
-4190 PRINT "TO TAKE CARE OF THIS BUSINESS."
-4200 GOSUB 120
-4210 GOTO 460
-4220 REM->LOAN
-4230 HOME
-4240 GOSUB 90
-4250 INVERSE : PRINT "         LOAN SHARK         ":NORMAL
-4260 PRINT CHR$(10)
-4270 IF P$ <> "THE BRONX" THEN GOTO 4180
-4280 PRINT "YOUR DEBT IS: $";V
-4290 PRINT "YOU HAVE: $";W
-4300 PRINT CHR$(10)
-4310 INPUT "(R)EPAY, (B)ORROW, (L)EAVE: ";X$
-4320 IF X$ = "R" THEN GOTO 4370
-4330 IF X$ = "B" THEN GOTO 4460
-4340 IF X$ = "L" THEN GOTO 460
-4350 GOTO 4230
-4360 REM->PAYME
-4370 INPUT "REPAY HOW MUCH? ";K
-4380 IF K>W THEN PRINT "YOU DON'T HAVE THAT MUCH!" : INPUT "PRESS ENTER TO CONTINUE. ";X$ : GOTO 4230
-4390 IF K>V THEN PRINT "YOU DON'T OWE THAT MUCH!" : INPUT"PRESS ENTER TO CONTINE. ";X$ : GOTO 4230
-4400 W=W-K
-4410 V=V-K
-4420 PRINT "THANK YOU." 
-4430 GOSUB 120
-4440 GOTO 460
-4450 REM->BORROW
-4460 INPUT "HOW MUCH DO YOU WANT? ";K
-4470 IF K>5000 THEN PRINT "HE'S NOT THAT STUPID!" : GOTO 4460
-4480 V=V+K
-4490 W=W+K
-4500 PRINT "HERE'S YOUR MONEY." : PRINT CHR$(10) : PRINT "REMEMBER, I BREAK THUMBS."
-4510 GOSUB 120
-4520 GOTO 460
-4530 REM->BANK
-4540 HOME
-4550 GOSUB 90
-4560 INVERSE : PRINT "         BANK O'MURICA         ":NORMAL
-4570 PRINT CHR$(10)
-4580 IF P$ <> "THE BRONX" THEN GOTO 4180
-4590 PRINT "YOUR BALANCE: $";E
-4600 PRINT "YOUR WALLET: $";W
-4610 PRINT CHR$(10)
-4620 INPUT "(D)EPOSIT, (W)ITHDRAW, (L)EAVE: ";X$
-4630 IF X$ = "D" THEN GOTO 4680
-4640 IF X$ = "W" THEN GOTO 4760
-4650 IF X$ = "L" THEN GOTO 460
-4660 GOTO 4540
-4670 REM->DEPOSIT
-4680 INPUT "HOW MUCH? ";J
-4690 IF J>W THEN PRINT "YOU DON'T HAVE THAT MUCH CASH." : GOTO 4680
-4700 E=E+J
-4710 W=W-J
-4720 PRINT "THANK YOU FOR YOUR DEPOSIT."
-4730 GOSUB 120
-4740 GOTO 460
-4750 REM->MYMONEY
-4760 INPUT "HOW MUCH? ";J
-4770 IF J>E THEN PRINT "YOU DON'T HAVE SUFFICIENT FUNDS." : GOTO 4760
-4780 E=E-J
-4790 W=W+J
-4800 PRINT "THANK YOU FOR YOUR BUSINESS."
+3330 GOTO 540
+3340 REM->CHEEPWEED
+3350 PRINT "WEED PRICES HAVE BOTTOMED-OUT!"
+3360 Z=122
+3370 GOSUB 120
+3380 GOTO 540
+3390 REM->PIGHEROIN
+3400 PRINT "PIGS ARE SELLING CHEAP HEROIN"
+3410 PRINT "FROM LAST WEEK'S RAID!"
+3420 H=INT((RND(1)*1150)+850.5)
+3430 GOSUB 120
+3440 GOTO 540
+3450 REM->HEROINBUST
+3460 PRINT "ADDICTS ARE BUYING HEROIN"
+3470 PRINT "AT OUTRAGEOUS PRICES!"
+3480 H=INT((RND(1)*25000)+18000.5)
+3490 GOSUB 120
+3500 GOTO 540
+3510 REM->COKEBUST
+3520 PRINT "PIGS MADE A BIG COKE BUST!"
+3530 PRINT "PRICES ARE OUTRAGEOUS!!!!"
+3540 C=INT((RND(1)*60000)+80000.5) 
+3550 GOSUB 120
+3560 GOTO 540
+3570 REM->MUGGED
+3580 PRINT "YOU GOT MUGGED!"
+3590 PRINT CHR$(10)
+3600 J=INT(W/3)
+3610 J=INT(J*2)
+3620 K=INT(W-J)
+3630 PRINT "YOU LOST $";K
+3640 W=J
+3650 GOSUB 120
+3660 GOSUB 540
+3670 REM->COPS
+3680 K=M+N+U+O+T+P 
+3690 IF K<50 THEN GOTO 3230
+3700 IF B=9 THEN B = 2
+3710 IF B=10 THEN B=4
+3720 IF B=11 THEN B=5
+3730 PRINT "IT'S THE COPS!"
+3740 PRINT CHR$(10)
+3750 PRINT "OFFICER HARDASS AND ";B-1;" OF HIS"
+3760 PRINT "DEPUTIES ARE AFTER YOU!"
+3770 PRINT
+3780 GOSUB 120
+3790 GOTO 3810
+3800 REM->POLICE
+3810 HOME
+3820 GOSUB 90
+3830 INVERSE:PRINT"              BEING CHASED!" :NORMAL 
+3840 PRINT
+3850 PRINT 
+3860 PRINT "VIEW (G)UNS"
+3870 PRINT "VIEW (D)AMAGE"
+3880 PRINT "(N)UMBER OF PIGS"
+3890 PRINT "(R)UN"
+3900 PRINT "(F)IGHT"
+3910 PRINT
+3920 INPUT "WHAT DO YOU WANT TO DO? ";X$
+3930 IF X$="G" GOTO 4000
+3940 IF X$ = "D" GOTO 4100
+3950 IF X$ = "N" GOTO 4220
+3960 IF X$ = "R" GOTO 4330
+3970 IF X$="F" GOTO 4510
+3980 GOTO 3810
+3990 REM->PGUN
+4000 HOME
+4010 GOSUB 90
+4020 INVERSE:PRINT"              BEING CHASED!" :NORMAL 
+4030 PRINT
+4040 PRINT 
+4050 PRINT "YOU HAVE ";G;" GUNS.
+4060 PRINT
+4070 GOSUB 120
+4080 GOTO 3810
+4090 REM->DAMAGE
+4100 HOME
+4110 GOSUB 90
+4120 INVERSE:PRINT"              BEING CHASED!" :NORMAL 
+4130 PRINT
+4140 PRINT 
+4150 PRINT "YOUR CURRENT DAMAGE IS ";BB;"."
+4160 PRINT
+4170 PRINT "50 AND YOU DIE!"
+4180 PRINT
+4190 GOSUB 120
+4200 GOTO 3810
+4210 REM->NCOPS
+4220 HOME
+4230 GOSUB 90
+4240 INVERSE:PRINT"              BEING CHASED!" :NORMAL 
+4250 PRINT
+4260 PRINT 
+4270 PRINT "THERE ARE ";B;" PIGS STILL CHASING YOU!"
+4280 PRINT
+4290 PRINT
+4300 GOSUB 120
+4310 GOTO 3810
+4320 REM->RUN
+4330 HOME
+4340 GOSUB 90
+4350 INVERSE:PRINT"              BEING CHASED!" :NORMAL 
+4360 PRINT
+4370 PRINT 
+4380 PRINT "RUNNING..."
+4390 GOSUB 160
+4400 K=INT(RND(1)+.5)
+4410 IF K = 0 THEN PRINT "YOU LOST THEM IN AN ALLEY!" : GOTO 4470
+4420 PRINT "YOU CAN'T SHAKE THEM!"
+4430 PRINT
+4440 GOSUB 120
+4450 GOTO 3810
+4460 REM->LOSERUN
+4470 PRINT
+4480 GOSUB 120
+4490 GOTO 540
+4500 REM->FIGHT
+4510 IF G<=0 THEN PRINT : PRINT : PRINT "YOU DON'T HAVE ANY GUNS!" : GOSUB 120 : GOTO 3810
+4520 HOME
+4530 GOSUB 90
+4540 INVERSE:PRINT"              BEING CHASED!" :NORMAL 
+4550 PRINT
+4560 PRINT "YOU SHOOT!"
+4570 GOSUB 160
+4580 K = RND(1)
+4590 K = INT(K+.5)
+4600 IF K=0 THEN GOTO 4630
+4610 PRINT "YOU GOT ONE!" : B = B-1 : GOTO 4650
+4620 REM->MISS 
+4630 PRINT "YOU MISSED!"
+4640 REM->NEXT
+4650 PRINT
+4660 PRINT
+4670 IF B <= 0 THEN GOTO 4890
+4680 GOSUB 200
+4690 PRINT "THEY'RE FIRING AT YOU!"
+4700 GOSUB 160
+4710 K = RND(1)
+4720 K = INT(K+.5)
+4730 IF K=0 THEN GOTO 4790
+4740 PRINT "YOU'VE BEEN HIT!"
+4750 BB=BB+3
+4760 IF BB >= 50 GOTO 4840
+4770 GOTO 4810
+4780 REM->THEYMISS
+4790 PRINT "THEY MISSED!"
+4800 REM->NEXTA
 4810 GOSUB 120
-4820 GOTO 460
-4830 REM->INSTRUCTIONS
-4840 HOME
-4850 GOSUB 90
-4860 PRINT CHR$(10)
-4870 PRINT "WELCOME TO DRUGWAR//E BETA 8"
-4880 PRINT CHR$(10)
-4890 PRINT CHR$(10)
-4900 INPUT "WOULD YOU LIKE INSTRUCTIONS? (Y/N): ";X$
-4910 REM->INSERRORHANDLER 
-4920 IF X$ = "Y" THEN GOTO 5110
-4930 GOTO 4950
-4940 REM->GAMESTART 
-4950 W=2000
-4960 E=0
-4970 V=5000
-4980 D=0 
-4990 P$="THE BRONX"
-5000 G=0
-5010 I=100
-5020 M=0
-5030 N=0
-5040 O=0
-5050 U=0
-5060 T=0
-5070 Q=0
-5080 GOSUB 340
-5090 GOTO 460
-5100 REM->INST
-5110 HOME
-5120 GOSUB 90
-5130 PRINT CHR$(10)
-5140 PRINT "THIS IS A GAME OF BUYING AND SELLING."
-5150 PRINT "YOUR GOAL IS TO PAY OFF YOUR DEBT AND"
-5160 PRINT "MAKE AS MUCH MONEY AS POSSIBLE IN A ONE"
-5170 PRINT "MONTH PERIOD. PRICES FLUCTUATE EVERY DAY"
-5180 PRINT "AND INTEREST ON YOUR LOAN IS CALCULATED"
-5190 PRINT "AS WELL. IF YOU DEAL TOO HEAVILY, YOU'LL"
-5200 PRINT "ATTRACT THE ATTENTION OF THE POLICE.
-5210 PRINT CHR$(10)
-5220 PRINT "COMMANDS ARE USUALLY THE FIRST LETTER"
-5230 PRINT "OF WHAT YOU WANT TO DO. Y = YES AND"
-5240 PRINT "N = NO."
-5250 INPUT "PRESS ENTER TO CONTINUE.";X$
-5260 GOTO 4950
-5270 REM->WEEDEND
-5280 HOME
-5290 GOSUB 90
-5300 INVERSE : PRINT "       SMOKE WEED          " : NORMAL
-5310 PRINT "YOU HALLUCINATE ON THE WILDEST TRIP"
-5320 PRINT "OF YOUR LIFE, STUMBLE ON TO THE TRACKS,"
-5330 PRINT "AND GET CREAMED BY A TRAIN!"
-5340 PRINT CHR$(10)
-5350 PRINT CHR$(10)
-5360 PRINT "JUST SAY NO TO DRUGS!"
-5370 GOSUB 120
-5380 GOTO 5620
-5390 REM->SCORECALCULATE
-5400 K=(W+E)-V
-5410 IF K<0 THEN K=0 : RETURN
-5420 K=SQR((K/31.5)+.5)
-5430 K=INT(K)
-5440 IF K>100 THEN K=100
-5450 RETURN
-5460 REM->ENDGAME
-5470 HOME
-5480 GOSUB 90
-5490 GOSUB 5400
-5500 INVERSE : PRINT "       GAME OVER          " : NORMAL
-5510 PRINT CHR$(10)
-5520 PRINT "YOUR SCORE ON A SCALE OF 1 TO 100: ";K
-5530 PRINT CHR$(10)
-5540 INPUT "WOULD YOU LIKE TO PLAY AGAIN? (Y/N)";X$
-5550 IF X$ = "Y" THEN GOTO 4950
-5560 PRINT "THANKS FOR PLAYING."
-5570 PRINT "REMEMBER...WATCH YOUR BACK."
-5580 PRINT "HAVE A NICE DAY!"
-5590 GOSUB 5800
-5600 END
-5610 REM->IRONICEND
-5620 HOME
-5630 GOSUB 90
-5640 GOSUB 5400
-5650 INVERSE : PRINT "       GAME OVER          " : NORMAL
-5660 PRINT CHR$(10)
-5670 PRINT "YOUR FINAL SCORE IS: ";K
+4820 GOTO 3810
+4830 REM->DED
+4840 PRINT
+4850 PRINT "YOU'VE BEEN KILLED!"
+4860 GOSUB 120
+4870 GOTO 6890
+4880 REM->ALLGONE
+4890 PRINT "YOU KILLED ALL OF THEM!"
+4900 PRINT
+4910 GOSUB 160
+4920 J=INT((RND(1)*1250)+750)
+4930 W=W+J
+4940 PRINT "YOU FOUND $";J;" ON OFFICER HARDASS'" 
+4950 PRINT "CARCASS!"
+4960 IF W>=1200 THEN GOTO 5000
+4970 GOSUB 120
+4980 GOTO 540
+4990 REM->DOCTOR
+5000 GOSUB 160
+5010 PRINT
+5020 PRINT "WILL YOU PAY $1000 FOR A DOCTOR"
+5030 INPUT "TO SEW YOU UP? (Y/N)";X$
+5040 IF X$ <> "Y" THEN GOTO 540
+5050 W=W-1000
+5060 BB=0
+5070 REM->GUNBUY
+5080 IF W < 500 THEN GOTO 3230
+5090 F=INT(I-(M+N+O+U+T+P))
+5100 IF F < 5 THEN GOTO 3230
+5110 J=INT(RND(1)*2)
+5120 IF J = 0 THEN Y$ = "BARETTA"
+5130 IF J = 1 THEN Y$ = "SATURDAY NIGHT SPECIAL"
+5140 IF J = 2 THEN Y$ = ".44 MAGNUM"
+5150 PRINT "WILL YOU BUY A ";Y$
+5160 INPUT "FOR $400? (Y/N)";X$
+5170 IF X$ <> "Y" THEN GOTO 540
+5180 G = INT(G+1)
+5190 W = INT(W-400)
+5200 I = INT(I-5) 
+5210 GOTO 540
+5220 REM->DEDWEED 
+5230 PRINT "THERE'S SOME WEED HERE THAT SMELLS"
+5240 PRINT "LIKE GOOD STUFF!!"
+5250 PRINT CHR$(10)
+5260 INPUT "WILL YOU SMOKE IT? (Y/N)";X$
+5270 IF X$ = "Y" THEN GOTO 6700
+5280 GOTO540
+5290 REM->NEWCOAT
+5300 IF W<300 THEN RETURN 
+5310 PRINT "WILL YOU BUY A NEW TRENCHCOAT"
+5320 INPUT "WITH MORE POCKETS FOR $200? (Y/N)";X$
+5330 IF X$ <> "Y" THEN GOTO 540
+5340 I=INT(I+10)
+5350 W=INT(W-200)
+5360 GOTO 540
+5370 REM->DEDGUY
+5380 IF F<8 THEN GOTO 3240
+5390 J=INT((RND(1)*7)+1.5)
+5400 K=INT(RND(1)*5+.5)
+5410 IF K=0 THEN Q=Q+J : Y$ = "LUDES"
+5420 IF K=1 THEN T=T+J : Y$ = "SPEED"
+5430 IF K=2 THEN U=U+J : Y$ = "WEED"
+5440 IF K=3 THEN O=O+J : Y$ = "ACID"
+5450 IF K=4 THEN N=N+J : Y$ = "HEROIN"
+5460 IF K=5 THEN M=M+J : Y$ = "COCAINE"
+5470 PRINT "YOU FOUND ";J;" UNITS OF"
+5480 PRINT "         ";Y$
+5490 PRINT "ON A DEAD DUDE IN THE SUBWAY!"
+5500 PRINT CHR$(10)
+5510 GOSUB 120
+5520 GOTO 540
+5530 REM->HOMEACID
+5540 PRINT "THE MARKET HAS BEEN FLOODED"
+5550 PRINT "WITH CHEAP HOME-MADE ACID!"
+5560 A=INT((RND(1)*550)+250.5)
+5570 GOSUB 120
+5580 GOTO 540
+5590 REM->NOTBRONX
+5600 PRINT "YOU NEED TO HEAD TO THE BRONX"
+5610 PRINT "TO TAKE CARE OF THIS BUSINESS."
+5620 GOSUB 120
+5630 GOTO 540
+5640 REM->LOAN
+5650 HOME
+5660 GOSUB 90
+5670 INVERSE : PRINT "         LOAN SHARK         ":NORMAL
 5680 PRINT CHR$(10)
-5690 PRINT "BUT YOU DIED FROM SMOKING WEED? IN A"
-5700 PRINT "GAME ABOUT DEALING DRUGS? BUDDY, NO"
-5710 PRINT "SCORE CAN REDEEM THAT STUPIDITY."
+5690 IF P$ <> "THE BRONX" THEN GOTO 5600
+5700 PRINT "YOUR DEBT IS: $";V
+5710 PRINT "YOU HAVE: $";W
 5720 PRINT CHR$(10)
-5730 INPUT "WOULD YOU LIKE TO PLAY AGAIN? ";X$
-5740 IF X$= "Y" THEN GOTO 4950
-5750 IF X$= "N" THEN PRINT "I DON'T BLAME YOU." : END
-5760 PRINT "WHAT? IF YOU'RE THAT DUMB, I'M LEAVING."
-5770 GOSUB 5800
-5780 END
-5790 REM->ANTICHEAT 
-5800 W=2000
-5810 E=0
-5820 V=5000
-5830 D=0 
-5840 P$="THE BRONX"
-5850 G=0
-5860 I=100
-5870 M=0
-5880 N=0
-5890 O=0
-5900 U=0
-5910 T=0
-5920 Q=0
-5930 RETURN
+5730 INPUT "(R)EPAY, (B)ORROW, (L)EAVE: ";X$
+5740 IF X$ = "R" THEN GOTO 5790
+5750 IF X$ = "B" THEN GOTO 5880
+5760 IF X$ = "L" THEN GOTO 540
+5770 GOTO 5650
+5780 REM->PAYME
+5790 INPUT "REPAY HOW MUCH? ";K
+5800 IF K>W THEN PRINT "YOU DON'T HAVE THAT MUCH!" : INPUT "PRESS ENTER TO CONTINUE. ";X$ : GOTO 5650
+5810 IF K>V THEN PRINT "YOU DON'T OWE THAT MUCH!" : INPUT"PRESS ENTER TO CONTINE. ";X$ : GOTO 5650
+5820 W=W-K
+5830 V=V-K
+5840 PRINT "THANK YOU." 
+5850 GOSUB 120
+5860 GOTO 540
+5870 REM->BORROW
+5880 INPUT "HOW MUCH DO YOU WANT? ";K
+5890 IF K>5000 THEN PRINT "HE'S NOT THAT STUPID!" : GOTO 5880
+5900 V=V+K
+5910 W=W+K
+5920 PRINT "HERE'S YOUR MONEY." : PRINT CHR$(10) : PRINT "REMEMBER, I BREAK THUMBS."
+5930 GOSUB 120
+5940 GOTO 540
+5950 REM->BANK
+5960 HOME
+5970 GOSUB 90
+5980 INVERSE : PRINT "         BANK O'MURICA         ":NORMAL
+5990 PRINT CHR$(10)
+6000 IF P$ <> "THE BRONX" THEN GOTO 5600
+6010 PRINT "YOUR BALANCE: $";E
+6020 PRINT "YOUR WALLET: $";W
+6030 PRINT CHR$(10)
+6040 INPUT "(D)EPOSIT, (W)ITHDRAW, (L)EAVE: ";X$
+6050 IF X$ = "D" THEN GOTO 6100
+6060 IF X$ = "W" THEN GOTO 6180
+6070 IF X$ = "L" THEN GOTO 540
+6080 GOTO 5960
+6090 REM->DEPOSIT
+6100 INPUT "HOW MUCH? ";J
+6110 IF J>W THEN PRINT "YOU DON'T HAVE THAT MUCH CASH." : GOTO 6100
+6120 E=E+J
+6130 W=W-J
+6140 PRINT "THANK YOU FOR YOUR DEPOSIT."
+6150 GOSUB 120
+6160 GOTO 540
+6170 REM->MYMONEY
+6180 INPUT "HOW MUCH? ";J
+6190 IF J>E THEN PRINT "YOU DON'T HAVE SUFFICIENT FUNDS." : GOTO 6180
+6200 E=E-J
+6210 W=W+J
+6220 PRINT "THANK YOU FOR YOUR BUSINESS."
+6230 GOSUB 120
+6240 GOTO 540
+6250 REM->INSTRUCTIONS
+6260 HOME
+6270 GOSUB 90
+6280 PRINT CHR$(10)
+6290 PRINT "WELCOME TO DRUGWAR//E BETA 9"
+6300 PRINT CHR$(10)
+6310 PRINT CHR$(10)
+6320 INPUT "WOULD YOU LIKE INSTRUCTIONS? (Y/N): ";X$
+6330 REM->INSERRORHANDLER 
+6340 IF X$ = "Y" THEN GOTO 6530
+6350 GOTO 6370
+6360 REM->GAMESTART 
+6370 W=200000
+6380 E=0
+6390 V=5000
+6400 D=0 
+6410 P$="THE BRONX"
+6420 G=1
+6430 I=100
+6440 M=0
+6450 N=0
+6460 O=0
+6470 U=0
+6480 T=0
+6490 Q=0
+6500 GOSUB 420
+6510 GOTO 540
+6520 REM->INST
+6530 HOME
+6540 GOSUB 90
+6550 PRINT CHR$(10)
+6560 PRINT "THIS IS A GAME OF BUYING AND SELLING."
+6570 PRINT "YOUR GOAL IS TO PAY OFF YOUR DEBT AND"
+6580 PRINT "MAKE AS MUCH MONEY AS POSSIBLE IN A ONE"
+6590 PRINT "MONTH PERIOD. PRICES FLUCTUATE EVERY DAY"
+6600 PRINT "AND INTEREST ON YOUR LOAN IS CALCULATED"
+6610 PRINT "AS WELL. IF YOU DEAL TOO HEAVILY, YOU'LL"
+6620 PRINT "ATTRACT THE ATTENTION OF THE POLICE.
+6630 PRINT CHR$(10)
+6640 PRINT "COMMANDS ARE USUALLY THE FIRST LETTER"
+6650 PRINT "OF WHAT YOU WANT TO DO. Y = YES AND"
+6660 PRINT "N = NO."
+6670 INPUT "PRESS ENTER TO CONTINUE.";X$
+6680 GOTO 6370
+6690 REM->WEEDEND
+6700 HOME
+6710 GOSUB 90
+6720 INVERSE : PRINT "       SMOKE WEED          " : NORMAL
+6730 PRINT "YOU HALLUCINATE ON THE WILDEST TRIP"
+6740 PRINT "OF YOUR LIFE, STUMBLE ON TO THE TRACKS,"
+6750 PRINT "AND GET CREAMED BY A TRAIN!"
+6760 PRINT CHR$(10)
+6770 PRINT CHR$(10)
+6780 PRINT "JUST SAY NO TO DRUGS!"
+6790 GOSUB 120
+6800 GOTO 7040
+6810 REM->SCORECALCULATE
+6820 K=(W+E)-V
+6830 IF K<0 THEN K=0 : RETURN
+6840 K=SQR((K/31.5)+.5)
+6850 K=INT(K)
+6860 IF K>100 THEN K=100
+6870 RETURN
+6880 REM->ENDGAME
+6890 HOME
+6900 GOSUB 90
+6910 GOSUB 6820
+6920 INVERSE : PRINT "       GAME OVER          " : NORMAL
+6930 PRINT CHR$(10)
+6940 PRINT "YOUR SCORE ON A SCALE OF 1 TO 100: ";K
+6950 PRINT CHR$(10)
+6960 INPUT "WOULD YOU LIKE TO PLAY AGAIN? (Y/N)";X$
+6970 IF X$ = "Y" THEN GOTO 6370
+6980 PRINT "THANKS FOR PLAYING."
+6990 PRINT "REMEMBER, WATCH YOUR BACK."
+7000 PRINT "HAVE A NICE DAY!"
+7010 CLEAR
+7020 END
+7030 REM->IRONICEND
+7040 HOME
+7050 GOSUB 90
+7060 GOSUB 6820
+7070 INVERSE : PRINT "       GAME OVER          " : NORMAL
+7080 PRINT CHR$(10)
+7090 PRINT "YOUR FINAL SCORE IS: ";K
+7100 PRINT CHR$(10)
+7110 PRINT "BUT YOU DIED FROM SMOKING WEED? IN A"
+7120 PRINT "GAME ABOUT DEALING DRUGS? BUDDY, NO"
+7130 PRINT "SCORE CAN REDEEM THAT STUPIDITY."
+7140 PRINT CHR$(10)
+7150 INPUT "WOULD YOU LIKE TO PLAY AGAIN? ";X$
+7160 IF X$= "Y" THEN GOTO 6370
+7170 IF X$= "N" THEN PRINT "I DON'T BLAME YOU." : END
+7180 PRINT "WHAT? IF YOU'RE THAT DUMB, I'M LEAVING."
+7190 CLEAR
+7200 END
diff --git a/drugwar2e.baz b/drugwar2e.baz
index c0816b1..2278ec5 100644
--- a/drugwar2e.baz
+++ b/drugwar2e.baz
@@ -1,4 +1,4 @@
-rem Drugwar//e - Beta 8
+rem Drugwar//e - Beta 9
 rem Copyright 2018 Jay Moore
 rem Released under GPL v3
 rem drugwar2e.sourceforge.io
@@ -12,6 +12,14 @@ rem twitter: _nq4t
 	print chr$(10)
 	input "Press enter to continue.";x$
 	return
+£timera
+	for n = 1 to 500
+	next n
+	return
+£timerb
+	for n = 1 to 300
+	next n
+	return
 [
 "Common logic" has been moved to buy/sell subroutines. 
 This has cleaned the code up a bit
@@ -289,6 +297,7 @@ goto @menu
 		if x$="I" then y$ = "Coney Island" : goto @jetb
 		if x$="K" then y$ = "Brooklyn" : goto @jetb
 		if x$="O" then goto @menu
+		if x$="COPTEST" then b = 5 : goto @police
 		goto @jet
 £jetb
 	if y$=p$ then goto @alreadythere {more advanced thatn Bronx only on TI}
@@ -330,6 +339,8 @@ goto @menu
 		if b=15 then goto @newcoat
 		if b=16 then goto @dedguy
 		if b=17 then goto @homeacid 
+£nothinghappened
+£nothinghappens	
 	print chr$(10) {the only way you should wind up here is if nothing happens}
 	print "Welcome to ";p$ {i hope}
 	print chr$(10)
@@ -381,17 +392,150 @@ goto @menu
 my improved revisions will likely add some additional
 conditions on how/when we run cops
 ]
-	if k<50 then return
+	if k<50 then goto @nothinghappened
+	if b=9 then b = 2
+	if b=10 then b=4
+	if b=11 then b=5
 	print "It's the cops!"
 	print chr$(10)
-	print "Just kidding!"
-	print "Cops haven't been coded yet."
+	print "Officer Hardass and ";B-1;" of his"
+	print "deputies are after you!"
+	print
+	gosub @wait
+	goto @police
+£police
+	home
+	gosub @titlebar
+	inverse:print"              BEING CHASED!" :normal 
+	print
+	print 
+	print "View (G)uns"
+	print "View (D)amage"
+	print "(N)umber of pigs"
+	print "(R)un"
+	print "(F)ight"
+	print
+	input "What do you want to do? ";x$
+		if x$="G" goto @pgun
+		if x$ = "D" goto @damage
+		if x$ = "N" goto @ncops
+		if x$ = "R" goto @run
+		if X$="F" goto @fight
+	goto @police
+£pgun
+	home
+	gosub @titlebar
+	inverse:print"              BEING CHASED!" :normal 
+	print
+	print 
+	print "You have ";g;" guns.
+	print
+	gosub @wait
+	goto @police
+£damage
+	home
+	gosub @titlebar
+	inverse:print"              BEING CHASED!" :normal 
+	print
+	print 
+	print "Your current damage is ";bb;"."
+	print
+	print "50 and you die!"
+	print
+	gosub @wait
+	goto @police
+£ncops
+	home
+	gosub @titlebar
+	inverse:print"              BEING CHASED!" :normal 
+	print
+	print 
+	print "There are ";b;" pigs still chasing you!"
+	print
+	print
+	gosub @wait
+	goto @police
+£run
+	home
+	gosub @titlebar
+	inverse:print"              BEING CHASED!" :normal 
+	print
+	print 
+	print "RUNNING..."
+	gosub @timera
+	k=int(rnd(1)+.5)
+		if k = 0 then print "You lost them in an alley!" : goto @loserun
+	print "You can't shake them!"
+	print
+	gosub @wait
+	goto @police
+£loserun
+	print
+	gosub @wait
+	goto @menu
+£fight
+	if g<=0 then print : print : print "YOU DON'T HAVE ANY GUNS!" : gosub @wait : goto @police
+	home
+	gosub @titlebar
+	inverse:print"              BEING CHASED!" :normal 
+	print
+	print "You shoot!"
+	gosub @timera
+	k = rnd(1)
+	k = int(k+.5)
+		If K=0 THEN GOTO @miss
+	print "You got one!" : b = b-1 : goto @next
+£miss 
+	print "You missed!"
+£next
+	print
+	print
+		If b <= 0 THEN goto @allgone
+	gosub @timerb
+	print "They're firing at you!"
+	gosub @timera
+	k = rnd(1)
+	k = int(k+.5)
+		if k=0 then goto @theymiss
+	print "You've been hit!"
+	bb=bb+3
+	if bb >= 50 goto @ded
+	goto @nexta
+£theymiss
+	print "They missed!"
+£nexta
+	gosub @wait
+	goto @police
+£ded
+	print
+	print "You've been killed!"
 	gosub @wait
-	goto @menu {goto @police}
+	goto @endgame
+
+£allgone
+	print "You killed all of them!"
+	print
+	gosub @timera
+	j=int((rnd(1)*1250)+750)
+	w=w+j
+	print "You found $";j;" on officer Hardass'" 
+	print "carcass!"
+		if w>=1200 then goto @doctor
+	gosub @wait
+	goto @menu
+£doctor
+	gosub @timera
+	print
+	print "Will you pay $1000 for a doctor"
+	input "to sew you up? (Y/N)";x$
+		if X$ <> "Y" then goto @menu
+	w=w-1000
+	bb=0
+
 £gunbuy
-	if w < 500 THEN return
+	if w < 500 THEN goto @nothinghappened
 	f=int(i-(m+n+o+u+t+p))
-	if f < 5 THEN return
+	if f < 5 THEN goto @nothinghappened
 	j=int(rnd(1)*2)
 		if j = 0 then y$ = "Baretta"
 		if j = 1 then y$ = "Saturday Night Special"
@@ -419,7 +563,7 @@ conditions on how/when we run cops
 		w=int(w-200)
 		goto @menu
 £dedguy
-	If f<8 THEN return {only if you have enough freespace}
+	If f<8 THEN goto @nothinghappens {only if you have enough freespace}
 	j=int((rnd(1)*7)+1.5)
 	k=int(rnd(1)*5+.5)
 		if k=0 THEN q=q+j : y$ = "Ludes"
@@ -518,7 +662,7 @@ conditions on how/when we run cops
 	home
 	gosub @titlebar
 	print chr$(10)
-	print "Welcome to DRUGWAR//e Beta 8"
+	print "Welcome to DRUGWAR//e Beta 9"
 	print chr$(10)
 	print chr$(10)
 	input "Would you like instructions? (Y/N): ";X$
@@ -541,7 +685,6 @@ conditions on how/when we run cops
 	q=0
 	gosub @daily {the only time we'll call this outside of the subway}
 	goto @menu {the real start of the game}
-£police