diff --git a/drugwar2e.bas b/drugwar2e.bas
index 9f567f7..1015989 100644
--- a/drugwar2e.bas
+++ b/drugwar2e.bas
@@ -1,730 +1,747 @@
-10 REM DRUGWAR2EV1.BAS - 19/10/2018 - 21h23
-20 REM DRUGWAR//E - VERSION 1.0
+10 REM DRUGWAR2EV101.BAS - 20/10/2018 - 14h39
+20 REM DRUGWAR//E - VERSION 1.01
 30 REM 19-OCT-2018
 40 REM COPYRIGHT 2018 JAY MOORE
 50 REM RELEASED UNDER GPL V3
 60 REM DRUGWAR2E.SOURCEFORGE.IO
 70 REM TWITTER: _NQ4T
-80 GOTO 6630
+80 GOTO 6850
 90 REM->TITLEBAR 
-100 HTAB 16 : PRINT "DRUGWAR//E",
-110 RETURN
-120 REM->WAIT 
-130 PRINT CHR$(10)
-140 INPUT "PRESS ENTER TO CONTINUE.";X$
-150 RETURN
-160 REM->JETALTHERE
-170 INVERSE:PRINT"                  JET                   ":NORMAL
-180 RETURN
-190 REM->TIMERA
-200 FOR J = 1 TO 500
-210 NEXT J
-220 K = INT(RND(2)+.5)
-230 RETURN
-240 REM->TIMERB
-250 FOR J = 1 TO 300
-260 NEXT J
-270 RETURN
-280 REM->TIMERC
-290 FOR J = 1 TO 1000
-300 NEXT J
+100 HTAB 16 : PRINT "DRUGWAR//E"
+110 INVERSE:PRINT"                                        ":NORMAL
+120 RETURN
+130 REM->WAIT 
+140 PRINT CHR$(10)
+150 INPUT "PRESS ENTER TO CONTINUE.";X$
+160 RETURN
+170 REM->TWOFIFTEEN
+180 VTAB 2 : HTAB 15
+190 RETURN
+200 REM->TWOSIXTEEN
+210 VTAB 2:HTAB 16
+220 RETURN
+230 REM->TWOSEVENTEEN
+240 VTAB 2:HTAB 17
+250 RETURN
+260 REM->TWOEIGHTEEN
+270 VTAB 2: HTAB 18
+280 RETURN
+290 REM->TWONINETEEN
+300 VTAB 2:HTAB 19
 310 RETURN
-320 REM->HOWMUCHBUY 
-330 PRINT "YOU CAN AFFORD ";J
-340 PRINT "YOU CAN CARRY  ";F
-350 REM->HOWMANYBUY	
-360 PRINT CHR$(10)
-370 INPUT "HOW MANY? (ENTER 0 CANCEL): ";K
-380 IF K=0 GOTO 990
-390 IF K>F THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 360
-400 IF K>J THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 360
-410 RETURN
-420 REM->HOWMUCHSELL 
-430 PRINT "YOU CAN SELL: ";J
-440 PRINT CHR$(10)
-450 REM->HOWMANYSELL
-460 INPUT "HOW MANY? (ENTER 0 TO CANCEL.): ";K
-470 IF K>J THEN PRINT "YOU DON'T HAVE THAT MANY!" : GOTO 460
-480 IF K=0 GOTO 990
-490 RETURN
-500 REM->FREESPACE
-510 F=INT(I-(M+N+O+U+T+P))
-520 RETURN
-530 REM->CHASE
-540 INVERSE:PRINT"              BEING CHASED              ":NORMAL
-550 RETURN
-560 REM->GMOD
-570 INVERSE:PRINT"                GAME OVER               ":NORMAL
-580 RETURN
-590 REM->BRONXCHECK
-600 IF P$ = "THE BRONX    " THEN RETURN
-610 PRINT "YOU NEED TO HEAD TO THE BRONX"
-620 PRINT "TO TAKE CARE OF THIS BUSINESS."
-630 GOSUB 290
-640 GOTO 990
-650 REM->DAILY 
-660 C=INT(RND(5)*12000+16000.5)
-670 H=INT(RND(5)*7000+5000.5)
-680 A=INT((RND(5)*34+10)*100+.5)
-690 Z=INT((RND(5)*42+33)*10+.5)
-700 S=INT((RND(5)*15+7)*10+.5)
-710 L=INT((RND(5)*4+1)*10+.5)
-720 B=INT(RND(5)*20+.5)
-730 D=D+1
-740 REM->CHECKDAY 
-750 IF D >= 31 GOTO 6980
-760 RETURN
-770 REM->SCORECALCULATE
-780 K=(W+E)-V
-790 IF K<0 THEN K=0 : RETURN
-800 K=INT(SQR((K/31.5)+.5))
-810 IF K>100 THEN K=100
-820 RETURN
-830 REM->GAMESTART 
-840 W=2000
-850 E=0
-860 V=5000
-870 P$="THE BRONX    "
-880 G=0
-890 I=100
-900 M=0
-910 N=0
-920 O=0
-930 U=0
-940 T=0
-950 Q=0
-960 GOSUB 660
-970 GOTO 990
-980 REM->MENU 
-990 HOME
-1000 GOSUB 510
-1010 GOSUB 100
-1020 INVERSE : PRINT "     DAY: "D"      LOCATION: "P$: NORMAL
-1030 PRINT CHR$(10)
-1040 PRINT "(C)HECK PRICES"
-1050 PRINT "(I)NVENTORY"
-1060 PRINT "(B)UY"
-1070 PRINT "(S)ELL"
-1080 PRINT "(J)ET"
-1090 PRINT "SEE (L)OAN SHARK"
-1100 PRINT "(V)ISIT BANK"
-1110 PRINT CHR$(10)
-1120 INPUT "PLEASE MAKE YOUR SELECTION: ";X$
-1130 IF X$ = "C" GOTO 1220
-1140 IF X$ = "I" GOTO 1360
-1150 IF X$ = "B" GOTO 1500
-1160 IF X$ = "S" GOTO 1710
-1170 IF X$ = "J" GOTO 1950
-1180 IF X$ = "L" GOTO 2200
-1190 IF X$ = "V" GOTO 2340
-1200 GOTO 990
-1210 REM->PRICES
-1220 HOME
-1230 GOSUB 100
-1240 INVERSE:PRINT"                 PRICES                  ":NORMAL
-1250 PRINT CHR$(10)
-1260 PRINT"COCAINE:","$"C
-1270 PRINT"HEROIN:","$"H
-1280 PRINT"ACID:","$"A
-1290 PRINT"WEED:","$"Z
-1300 PRINT"SPEED:","$"S
-1310 PRINT"LUDES:","$"L
-1320 PRINT"WALLET:","$"W
-1330 GOSUB 130
-1340 GOTO 990
-1350 REM->INVENTORY
-1360 HOME
-1370 GOSUB 100
-1380 INVERSE:PRINT"               INVENTORY                ":NORMAL
-1390 PRINT CHR$(10)
-1400 PRINT"COCAINE:",M
-1410 PRINT"HEROIN:",N
-1420 PRINT"ACID:",O
-1430 PRINT"WEED:",U
-1440 PRINT"SPEED:",T
-1450 PRINT"LUDES:",Q
-1460 PRINT"FREE SPACE:",F
-1470 GOSUB 130
-1480 GOTO 990
-1490 REM->BUY
-1500 HOME
-1510 GOSUB 100
-1520 INVERSE:PRINT"                  BUY                   ":NORMAL
-1530 PRINT CHR$(10)
-1540 PRINT"WHAT DO YOU WANT TO BUY?"
+320 REM->JETALTHERE
+330 INVERSE:GOSUB 300:PRINT"JET":NORMAL
+340 RETURN
+350 REM->TIMERA
+360 FOR J = 1 TO 2500
+370 NEXT J
+380 K = INT(RND(2)+.5)
+390 RETURN
+400 REM->TIMERB
+410 FOR J = 1 TO 1000
+420 NEXT J
+430 RETURN
+440 REM->TIMERC
+450 FOR J = 1 TO 2000
+460 NEXT J
+470 RETURN
+480 REM->HOWMUCHBUY 
+490 PRINT "YOU CAN AFFORD ";J
+500 PRINT "YOU CAN CARRY  ";F
+510 REM->HOWMANYBUY	
+520 PRINT CHR$(10)
+530 INPUT "HOW MANY? (ENTER 0 CANCEL): ";K
+540 IF K=0 GOTO 1150
+550 IF K>F THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 520
+560 IF K>J THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 520
+570 RETURN
+580 REM->HOWMUCHSELL 
+590 PRINT "YOU CAN SELL: ";J
+600 PRINT CHR$(10)
+610 REM->HOWMANYSELL
+620 INPUT "HOW MANY? (ENTER 0 TO CANCEL.): ";K
+630 IF K>J THEN PRINT "YOU DON'T HAVE THAT MANY!" : GOTO 620
+640 IF K=0 GOTO 1150
+650 RETURN
+660 REM->FREESPACE
+670 F=INT(I-((G*5)-M+N+O+U+T+P))
+680 RETURN
+690 REM->CHASE
+700 INVERSE:GOSUB 180: PRINT"BEING CHASED":NORMAL
+710 RETURN
+720 REM->GMOD
+730 SPEED=100:GOSUB 210:INVERSE:PRINT"GAME OVER":NORMAL:SPEED=255
+740 RETURN
+750 REM->BRONXCHECK
+760 IF P$ = "THE BRONX" THEN RETURN
+770 PRINT "YOU NEED TO HEAD TO THE BRONX"
+780 PRINT "TO TAKE CARE OF THIS BUSINESS."
+790 GOSUB 450
+800 GOTO 1150
+810 REM->DAILY 
+820 C=INT(RND(5)*12000+16000.5)
+830 H=INT(RND(5)*7000+5000.5)
+840 A=INT((RND(5)*34+10)*100+.5)
+850 Z=INT((RND(5)*42+33)*10+.5)
+860 S=INT((RND(5)*15+7)*10+.5)
+870 L=INT((RND(5)*4+1)*10+.5)
+880 B=INT(RND(5)*20+.5)
+890 D=D+1
+900 REM->CHECKDAY 
+910 IF D >= 31 GOTO 7200
+920 RETURN
+930 REM->SCORECALCULATE
+940 K=(W+E)-V
+950 IF K<0 THEN K=0 : RETURN
+960 K=INT(SQR((K/31.5)+.5))
+970 IF K>100 THEN K=100
+980 RETURN
+990 REM->GAMESTART 
+1000 W=2000
+1010 E=0
+1020 V=5000
+1030 P$="THE BRONX"
+1040 G=0
+1050 I=100
+1060 M=0
+1070 N=0
+1080 O=0
+1090 U=0
+1100 T=0
+1110 Q=0
+1120 GOSUB 820
+1130 GOTO 1150
+1140 REM->MENU 
+1150 HOME
+1160 GOSUB 670
+1170 GOSUB 100
+1180 INVERSE : VTAB 2:HTAB 4:PRINT "DAY: "D : VTAB 2:HTAB 18:PRINT"LOCATION: "P$ :NORMAL
+1190 PRINT CHR$(10)
+1200 PRINT "(C)HECK PRICES"
+1210 PRINT "(T)RENCHCOAT"
+1220 PRINT "(B)UY"
+1230 PRINT "(S)ELL"
+1240 PRINT "(J)ET"
+1250 PRINT "SEE (L)OAN SHARK"
+1260 PRINT "(V)ISIT BANK"
+1270 PRINT CHR$(10)
+1280 INPUT "PLEASE MAKE YOUR SELECTION: ";X$
+1290 IF X$ = "C" GOTO 1380
+1300 IF X$ = "T" GOTO 1520
+1310 IF X$ = "B" GOTO 1660
+1320 IF X$ = "S" GOTO 1870
+1330 IF X$ = "J" GOTO 2110
+1340 IF X$ = "L" GOTO 2360
+1350 IF X$ = "V" GOTO 2500
+1360 GOTO 1150
+1370 REM->PRICES
+1380 HOME
+1390 GOSUB 100
+1400 INVERSE:GOSUB 270:PRINT"PRICES":NORMAL
+1410 PRINT CHR$(10)
+1420 PRINT"COCAINE:","$"C
+1430 PRINT"HEROIN:","$"H
+1440 PRINT"ACID:","$"A
+1450 PRINT"WEED:","$"Z
+1460 PRINT"SPEED:","$"S
+1470 PRINT"LUDES:","$"L
+1480 PRINT"WALLET:","$"W
+1490 GOSUB 140
+1500 GOTO 1150
+1510 REM->INVENTORY
+1520 HOME
+1530 GOSUB 100
+1540 INVERSE:GOSUB 210 :PRINT"TRENCHCOAT":NORMAL
 1550 PRINT CHR$(10)
-1560 PRINT "(C)OCAINE"
-1570 PRINT "(H)EROIN"
-1580 PRINT "(A)CID"
-1590 PRINT "(W)EED"
-1600 PRINT "(S)PEED"
-1610 PRINT "(L)UDES"
-1620 INPUT "ENTER SELECTION: ";X$
-1630 IF X$="C" GOTO 2480
-1640 IF X$="H" GOTO 2570
-1650 IF X$="A" GOTO 2660
-1660 IF X$="W" GOTO 2750
-1670 IF X$="S" GOTO 2840
-1680 IF X$="L" GOTO 2930
-1690 GOTO 990
-1700 REM->SELL
-1710 HOME
-1720 GOSUB 100
-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 3020
-1860 IF X$="H" GOTO 3120
-1870 IF X$="A" GOTO 3220
-1880 IF X$="W" GOTO 3320
-1890 IF X$="S" GOTO 3420
-1900 IF X$="L" GOTO 3520
-1910 IF X$="0" GOTO 990
-1920 PRINT "INVALID SELECTION!"
-1930 GOTO 1840
-1940 REM->JET
-1950 HOME
-1960 GOSUB 100
-1970 GOSUB 170
-1980 PRINT CHR$(10)
-1990 PRINT "(B)RONX"
-2000 PRINT "(G)HETTO"
-2010 PRINT "(C)ENTRAL PARK
-2020 PRINT "(M)ANHATTAN"
-2030 PRINT "CONEY (I)SLAND"
-2040 PRINT "BROO(K)LYN"
-2050 PRINT "(O)OPS...STAY!"
-2060 INPUT "WHERE TO DUDE? ";X$
-2070 IF X$="B" THEN Y$ = "THE BRONX    " : GOTO 2160
-2080 IF X$="G" THEN Y$ = "THE GHETTO   " : GOTO 2160
-2090 IF X$="C" THEN Y$ = "CENTRAL PARK " : GOTO 2160
-2100 IF X$="M" THEN Y$ = "MANHATTAN    " : GOTO 2160
-2110 IF X$="I" THEN Y$   = "CONEY ISLAND " : GOTO 2160
-2120 IF X$="K" THEN Y$ = "BROOKLYN     " : GOTO 2160
-2130 IF X$="O" THEN GOTO 990
-2140 GOTO 1950
-2150 REM->JETB
-2160 IF Y$=P$ THEN GOTO 3620
-2170 P$ = Y$  : Y$ = ""
-2180 GOTO 3710
-2190 REM->LOAN
-2200 HOME
-2210 GOSUB 100
-2220 INVERSE : PRINT "               LOAN SHARK               ":NORMAL
-2230 PRINT CHR$(10)
-2240 GOSUB 600
-2250 PRINT "YOUR DEBT IS: $";V
-2260 PRINT "YOU HAVE: $";W
-2270 PRINT CHR$(10)
-2280 INPUT "(R)EPAY, (B)ORROW, (L)EAVE: ";X$
-2290 IF X$ = "R" THEN GOTO 6270
-2300 IF X$ = "B" THEN GOTO 6360
-2310 IF X$ = "L" THEN GOTO 990
-2320 GOTO 2200
-2330 REM->BANK
-2340 HOME
-2350 GOSUB 100
-2360 INVERSE : PRINT"              BANK O'MURICA             ":NORMAL
-2370 PRINT CHR$(10)
-2380 GOSUB 600
-2390 PRINT "YOUR BALANCE: $";E
-2400 PRINT "YOUR WALLET: $";W
-2410 PRINT CHR$(10)
-2420 INPUT "(D)EPOSIT, (W)ITHDRAW, (L)EAVE: ";X$
-2430 IF X$ = "D" THEN GOTO 6470
-2440 IF X$ = "W" THEN GOTO 6550
-2450 IF X$ = "L" THEN GOTO 990
-2460 GOTO 2340
-2470 REM->COKEBUY
-2480 HOME
-2490 GOSUB 100
-2500 INVERSE:PRINT"               BUY COCAINE              ":NORMAL
-2510 PRINT CHR$(10)
-2520 J=W/C 
-2530 GOSUB 330
-2540 M=M+K : W=W-(C*K) 
-2550 GOTO 990
-2560 REM->HERBUY
-2570 HOME
-2580 GOSUB 100
-2590 INVERSE:PRINT"               BUY HEROIN               ":NORMAL
-2600 PRINT CHR$(10)
-2610 J=W/H
-2620 GOSUB 330
-2630 N=N+K : W=W-(H*K)
-2640 GOTO 990
-2650 REM->ACIDBUY
-2660 HOME
-2670 GOSUB 100
-2680 INVERSE:PRINT"                 BUY ACID               ":NORMAL
-2690 PRINT CHR$(10)
-2700 J=W/A
-2710 GOSUB 330
-2720 O=O+K : W=W-(A*K)
-2730 GOTO 990
-2740 REM->WEEDBUY
-2750 HOME
-2760 GOSUB 100
-2770 INVERSE:PRINT"                 BUY WEED               ":NORMAL
-2780 PRINT CHR$(10)
-2790 J=W/Z
-2800 GOSUB 330
-2810 U=U+K : W=W-(Z*K)
-2820 GOTO 990
-2830 REM->SPDBUY
-2840 HOME
-2850 GOSUB 100
-2860 INVERSE:PRINT"                BUY SPEED               ":NORMAL
-2870 PRINT CHR$(10)
-2880 J=W/S
-2890 GOSUB 330
-2900 T=T+K : W=W-(S*K)
-2910 GOTO 990
-2920 REM->LUDBUY
-2930 HOME
-2940 GOSUB 100
-2950 INVERSE:PRINT"               BUY LUDES                ":NORMAL
-2960 PRINT CHR$(10)
-2970 J=W/L
-2980 GOSUB 330
-2990 Q=Q+K : W=W-(L*K)
-3000 GOTO 990
-3010 REM->COKESELL
-3020 HOME
-3030 GOSUB 100
-3040 INVERSE:PRINT"              SELL COCAINE              ":NORMAL
-3050 PRINT CHR$(10)
-3060 J=M 
-3070 GOSUB 430
-3080 M=M-K 
-3090 W=W+(C*K) 
-3100 GOTO 990
-3110 REM->HERSELL
-3120 HOME
-3130 GOSUB 100
-3140 INVERSE:PRINT"               SELL HEROIN              ":NORMAL
-3150 PRINT CHR$(10)
-3160 J=N
-3170 GOSUB 430
-3180 N=N-K
-3190 W=W+(H*K)
-3200 GOTO 990
-3210 REM->ACIDSELL
-3220 HOME
-3230 GOSUB 100
-3240 INVERSE:PRINT"                SELL ACID               ":NORMAL
-3250 PRINT CHR$(10)
-3260 J=O
-3270 GOSUB 430
-3280 O=O-K
-3290 W=W+(A*K)
-3300 GOTO 990
-3310 REM->WEEDSELL
-3320 HOME
-3330 GOSUB 100
-3340 INVERSE:PRINT"                SELL WEED               ":NORMAL
-3350 PRINT CHR$(10)
-3360 J=U
-3370 GOSUB 430
-3380 U=U-K
-3390 W=W+(Z*K)
-3400 GOTO 990
-3410 REM->SPDSELL
-3420 HOME
-3430 GOSUB 100
-3440 INVERSE:PRINT"               SELL SPEED               ":NORMAL
-3450 PRINT CHR$(10)
-3460 J=T
-3470 GOSUB 430
-3480 T=T-K
-3490 W=W+(S*K)
-3500 GOTO 990
-3510 REM->LUDSELL
-3520 HOME
-3530 GOSUB 100
-3540 INVERSE:PRINT"                SELL LUDES              ":NORMAL
-3550 PRINT CHR$(10)
-3560 J=Q
-3570 GOSUB 430
-3580 Q=Q-K
-3590 W=W+(L*K)
-3600 GOTO 990
-3610 REM->ALREADYTHERE
-3620 HOME
-3630 GOSUB 100
-3640 GOSUB 170
-3650 PRINT CHR$(10)
-3660 PRINT "YOU'RE ALREADY IN:"
-3670 PRINT "            ";P$
-3680 GOSUB 290
-3690 GOTO 1950
-3700 REM->SUBWAY
-3710 HOME
-3720 GOSUB 660
-3730 V=INT(V*1.1+.5) 
-3740 E=INT(E*1.06+.5) 
-3750 GOSUB 100
-3760 INVERSE:PRINT"                 SUBWAY                 ":NORMAL
-3770 PRINT CHR$(10)
-3780 IF B=1 THEN GOTO 4030
-3790 IF B=2 THEN GOTO 4080
-3800 IF B=3 THEN GOTO 4130
-3810 IF B=4 THEN GOTO 4190
-3820 IF B=5 THEN GOTO 4190
-3830 IF B=6 THEN GOTO 4250
-3840 IF B=7 THEN GOTO 4250
-3850 IF B=8 THEN GOTO 4310
-3860 IF B=9 THEN GOTO 4410
-3870 IF B=10 THEN GOTO 4410
-3880 IF B=11 THEN GOTO 4410
-3890 IF B=12 THEN GOTO 5750
-3900 IF B=13 THEN GOTO 5750
-3910 IF B=14 THEN GOTO 5900
-3920 IF B=15 THEN GOTO 5970
-3930 IF B=16 THEN GOTO 6050
-3940 IF B=17 THEN GOTO 6210
-3950 REM->NOTHINGHAPPENED
-3960 REM->NOTHINGHAPPENS	
-3970 PRINT CHR$(10) 
-3980 PRINT "WELCOME TO ";P$ 
-3990 PRINT CHR$(10)
-4000 GOSUB 290
-4010 GOTO 990
-4020 REM->CHEAPLUDES
-4030 PRINT "RIVAL DEALERS ARE SELLING CHEAP LUDES!"
-4040 L=2
-4050 GOSUB 290
-4060 GOTO 990
-4070 REM->CHEEPWEED
-4080 PRINT "WEED PRICES HAVE BOTTOMED-OUT!"
-4090 Z=122
-4100 GOSUB 290
-4110 GOTO 990
-4120 REM->PIGHEROIN
-4130 PRINT "PIGS ARE SELLING CHEAP HEROIN"
-4140 PRINT "FROM LAST WEEK'S RAID!"
-4150 H=INT((RND(9)*1150)+850.5)
-4160 GOSUB 290
-4170 GOTO 990
-4180 REM->HEROINBUST
-4190 PRINT "ADDICTS ARE BUYING HEROIN"
-4200 PRINT "AT OUTRAGEOUS PRICES!"
-4210 H=INT((RND(9)*25000)+18000.5)
-4220 GOSUB 290
-4230 GOTO 990
-4240 REM->COKEBUST
-4250 PRINT "PIGS MADE A BIG COKE BUST!"
-4260 PRINT "PRICES ARE OUTRAGEOUS!!!!"
-4270 C=INT((RND(9)*60000)+80000.5) 
-4280 GOSUB 290
-4290 GOTO 990
-4300 REM->MUGGED
-4310 PRINT "YOU GOT MUGGED!"
-4320 PRINT CHR$(10)
-4330 J=INT(W/3)
-4340 J=INT(J*2)
-4350 K=INT(W-J)
-4360 PRINT "YOU LOST $";K
-4370 W=J
-4380 GOSUB 290
-4390 GOSUB 990
-4400 REM->COPS
-4410 K=M+N+U+O+T+P 
-4420 IF K<50 THEN GOTO 3960
-4430 IF B=9 THEN B = 2
-4440 IF B=10 THEN B=4
-4450 IF B=11 THEN B=5
-4460 PRINT "IT'S THE COPS!"
-4470 PRINT CHR$(10)
-4480 PRINT "OFFICER HARDASS AND ";B-1;" OF HIS"
-4490 PRINT "DEPUTIES ARE AFTER YOU!"
-4500 PRINT
-4510 GOSUB 290
-4520 GOTO 4540
-4530 REM->POLICE
-4540 HOME
-4550 GOSUB 100
-4560 GOSUB 540
-4570 PRINT
-4580 PRINT 
-4590 PRINT "VIEW (G)UNS"
-4600 PRINT "VIEW (D)AMAGE"
-4610 PRINT "(N)UMBER OF PIGS"
-4620 PRINT "(R)UN"
-4630 PRINT "(F)IGHT"
-4640 PRINT
-4650 INPUT "WHAT DO YOU WANT TO DO? ";X$
-4660 IF X$="G" GOTO 4730
-4670 IF X$ = "D" GOTO 4830
-4680 IF X$ = "N" GOTO 4950
-4690 IF X$ = "R" GOTO 5060
-4700 IF X$="F" GOTO 5230
-4710 GOTO 4540
-4720 REM->PGUN
-4730 HOME
-4740 GOSUB 100
-4750 GOSUB 540
-4760 PRINT
-4770 PRINT 
-4780 PRINT "YOU HAVE ";G;" GUNS.
-4790 PRINT
-4800 GOSUB 130
-4810 GOTO 4540
-4820 REM->DAMAGE
-4830 HOME
-4840 GOSUB 100
-4850 GOSUB 540
-4860 PRINT
-4870 PRINT 
-4880 PRINT "YOUR CURRENT DAMAGE IS ";BB;"."
-4890 PRINT
-4900 PRINT "50 AND YOU DIE!"
-4910 PRINT
-4920 GOSUB 130
-4930 GOTO 4540
-4940 REM->NCOPS
-4950 HOME
-4960 GOSUB 100
-4970 GOSUB 540
-4980 PRINT
-4990 PRINT 
-5000 PRINT "THERE ARE ";B;" PIGS STILL CHASING YOU!"
-5010 PRINT
-5020 PRINT
-5030 GOSUB 130
-5040 GOTO 4540
-5050 REM->RUN
-5060 HOME
-5070 GOSUB 100
-5080 GOSUB 540
-5090 PRINT
-5100 PRINT 
-5110 PRINT "RUNNING..."
-5120 GOSUB 200
-5130 IF K = 0 THEN PRINT "YOU LOST THEM IN AN ALLEY!" : GOTO 5190
-5140 PRINT "YOU CAN'T SHAKE THEM!"
+1560 PRINT"COCAINE:",M
+1570 PRINT"HEROIN:",N
+1580 PRINT"ACID:",O
+1590 PRINT"WEED:",U
+1600 PRINT"SPEED:",T
+1610 PRINT"LUDES:",Q
+1620 PRINT"FREE SPACE:",F
+1630 GOSUB 140
+1640 GOTO 1150
+1650 REM->BUY
+1660 HOME
+1670 GOSUB 100
+1680 INVERSE:GOSUB 300: PRINT"BUY":NORMAL
+1690 PRINT CHR$(10)
+1700 PRINT"WHAT DO YOU WANT TO BUY?"
+1710 PRINT CHR$(10)
+1720 PRINT "(C)OCAINE"
+1730 PRINT "(H)EROIN"
+1740 PRINT "(A)CID"
+1750 PRINT "(W)EED"
+1760 PRINT "(S)PEED"
+1770 PRINT "(L)UDES"
+1780 INPUT "ENTER SELECTION: ";X$
+1790 IF X$="C" GOTO 2650
+1800 IF X$="H" GOTO 2740
+1810 IF X$="A" GOTO 2830
+1820 IF X$="W" GOTO 2920
+1830 IF X$="S" GOTO 3010
+1840 IF X$="L" GOTO 3100
+1850 GOTO 1150
+1860 REM->SELL
+1870 HOME
+1880 GOSUB 100
+1890 INVERSE: GOSUB 270: PRINT"SELL":NORMAL
+1900 PRINT CHR$(10)
+1910 PRINT "WHAT WOULD YOU LIKE TO SELL?"
+1920 PRINT CHR$(10)
+1930 PRINT "(C)OCAINE"
+1940 PRINT "(H)EROIN"
+1950 PRINT "(A)CID"
+1960 PRINT "(W)EED"
+1970 PRINT "(S)PEED"
+1980 PRINT "(L)UDES"
+1990 REM->SELLSEL
+2000 INPUT "ENTER SELECTION: (0 TO CANCEL)";X$
+2010 IF X$="C" GOTO 3190
+2020 IF X$="H" GOTO 3290
+2030 IF X$="A" GOTO 3390
+2040 IF X$="W" GOTO 3490
+2050 IF X$="S" GOTO 3590
+2060 IF X$="L" GOTO 3690
+2070 IF X$="0" GOTO 1150
+2080 PRINT "INVALID SELECTION!"
+2090 GOTO 2000
+2100 REM->JET
+2110 HOME
+2120 GOSUB 100
+2130 GOSUB 330
+2140 PRINT CHR$(10)
+2150 PRINT "(B)RONX"
+2160 PRINT "(G)HETTO"
+2170 PRINT "(C)ENTRAL PARK
+2180 PRINT "(M)ANHATTAN"
+2190 PRINT "CONEY (I)SLAND"
+2200 PRINT "BROO(K)LYN"
+2210 PRINT "(O)OPS...STAY!"
+2220 INPUT "WHERE TO DUDE? ";X$
+2230 IF X$="B" THEN Y$ = "THE BRONX" : GOTO 2320
+2240 IF X$="G" THEN Y$ = "THE GHETTO" : GOTO 2320
+2250 IF X$="C" THEN Y$ = "CENTRAL PARK" : GOTO 2320
+2260 IF X$="M" THEN Y$ = "MANHATTAN" : GOTO 2320
+2270 IF X$="I" THEN Y$   = "CONEY ISLAND" : GOTO 2320
+2280 IF X$="K" THEN Y$ = "BROOKLYN" : GOTO 2320
+2290 IF X$="O" THEN GOTO 1150
+2300 GOTO 2110
+2310 REM->JETB
+2320 IF Y$=P$ THEN GOTO 3790
+2330 P$ = Y$  : Y$ = ""
+2340 GOTO 3880
+2350 REM->LOAN
+2360 HOME
+2370 GOSUB 100
+2380 INVERSE : GOSUB 210:PRINT "LOAN SHARK":NORMAL
+2390 PRINT CHR$(10)
+2400 GOSUB 760
+2410 PRINT "YOUR DEBT IS: $";V
+2420 PRINT "YOU HAVE: $";W
+2430 PRINT CHR$(10)
+2440 INPUT "(R)EPAY, (B)ORROW, (L)EAVE: ";X$
+2450 IF X$ = "R" THEN GOTO 6430
+2460 IF X$ = "B" THEN GOTO 6520
+2470 IF X$ = "L" THEN GOTO 1150
+2480 GOTO 2360
+2490 REM->BANK
+2500 HOME
+2510 GOSUB 100
+2520 INVERSE : GOSUB 180: PRINT"BANK O'MURICA":NORMAL
+2530 PRINT CHR$(10)
+2540 GOSUB 760
+2550 PRINT "YOUR BALANCE: $";E
+2560 PRINT "YOUR WALLET: $";W
+2570 PRINT CHR$(10)
+2580 INPUT "(D)EPOSIT, (W)ITHDRAW, (L)EAVE: ";X$
+2590 IF X$ = "D" THEN GOTO 6650
+2600 IF X$ = "W" THEN GOTO 6750
+2610 IF X$ = "L" THEN GOTO 1150
+2620 IF X$ = EG$ THEN GOTO @EGG
+2630 GOTO 2500
+2640 REM->COKEBUY
+2650 HOME
+2660 GOSUB 100
+2670 INVERSE:GOSUB 210: PRINT"BUY COCAINE":NORMAL
+2680 PRINT CHR$(10)
+2690 J=INT(W/C) 
+2700 GOSUB 490
+2710 M=M+K : W=W-(C*K) 
+2720 GOTO 1150
+2730 REM->HERBUY
+2740 HOME
+2750 GOSUB 100
+2760 INVERSE:GOSUB 210: PRINT"BUY HEROIN":NORMAL
+2770 PRINT CHR$(10)
+2780 J=INT(W/H)
+2790 GOSUB 490
+2800 N=N+K : W=W-(H*K)
+2810 GOTO 1150
+2820 REM->ACIDBUY
+2830 HOME
+2840 GOSUB 100
+2850 INVERSE:GOSUB 240:PRINT"BUY ACID":NORMAL
+2860 PRINT CHR$(10)
+2870 J=INT(W/A)
+2880 GOSUB 490
+2890 O=O+K : W=W-(A*K)
+2900 GOTO 1150
+2910 REM->WEEDBUY
+2920 HOME
+2930 GOSUB 100
+2940 INVERSE:GOSUB 240: PRINT"BUY WEED":NORMAL
+2950 PRINT CHR$(10)
+2960 J=INT(W/Z)
+2970 GOSUB 490
+2980 U=U+K : W=W-(Z*K)
+2990 GOTO 1150
+3000 REM->SPDBUY
+3010 HOME
+3020 GOSUB 100
+3030 INVERSE:GOSUB 240: PRINT"BUY SPEED":NORMAL
+3040 PRINT CHR$(10)
+3050 J=INT(W/S)
+3060 GOSUB 490
+3070 T=T+K : W=W-(S*K)
+3080 GOTO 1150
+3090 REM->LUDBUY
+3100 HOME
+3110 GOSUB 100
+3120 INVERSE:GOSUB 240: PRINT"BUY LUDES":NORMAL
+3130 PRINT CHR$(10)
+3140 J=INT(W/L)
+3150 GOSUB 490
+3160 Q=Q+K : W=W-(L*K)
+3170 GOTO 1150
+3180 REM->COKESELL
+3190 HOME
+3200 GOSUB 100
+3210 INVERSE:GOSUB 180:PRINT"SELL COCAINE":NORMAL
+3220 PRINT CHR$(10)
+3230 J=M 
+3240 GOSUB 590
+3250 M=M-K 
+3260 W=W+(C*K) 
+3270 GOTO 1150
+3280 REM->HERSELL
+3290 HOME
+3300 GOSUB 100
+3310 INVERSE:GOSUB 240:PRINT"SELL HEROIN":NORMAL
+3320 PRINT CHR$(10)
+3330 J=N
+3340 GOSUB 590
+3350 N=N-K
+3360 W=W+(H*K)
+3370 GOTO 1150
+3380 REM->ACIDSELL
+3390 HOME
+3400 GOSUB 100
+3410 INVERSE:GOSUB 240: PRINT"SELL ACID":NORMAL
+3420 PRINT CHR$(10)
+3430 J=O
+3440 GOSUB 590
+3450 O=O-K
+3460 W=W+(A*K)
+3470 GOTO 1150
+3480 REM->WEEDSELL
+3490 HOME
+3500 GOSUB 100
+3510 INVERSE:GOSUB 240:PRINT"SELL WEED":NORMAL
+3520 PRINT CHR$(10)
+3530 J=U
+3540 GOSUB 590
+3550 U=U-K
+3560 W=W+(Z*K)
+3570 GOTO 1150
+3580 REM->SPDSELL
+3590 HOME
+3600 GOSUB 100
+3610 INVERSE:GOSUB 210:PRINT"SELL SPEED":NORMAL
+3620 PRINT CHR$(10)
+3630 J=T
+3640 GOSUB 590
+3650 T=T-K
+3660 W=W+(S*K)
+3670 GOTO 1150
+3680 REM->LUDSELL
+3690 HOME
+3700 GOSUB 100
+3710 INVERSE:GOSUB 210:PRINT"SELL LUDES":NORMAL
+3720 PRINT CHR$(10)
+3730 J=Q
+3740 GOSUB 590
+3750 Q=Q-K
+3760 W=W+(L*K)
+3770 GOTO 1150
+3780 REM->ALREADYTHERE
+3790 HOME
+3800 GOSUB 100
+3810 GOSUB 330
+3820 PRINT CHR$(10)
+3830 PRINT "YOU'RE ALREADY IN:"
+3840 PRINT "            ";P$
+3850 GOSUB 450
+3860 GOTO 2110
+3870 REM->SUBWAY
+3880 HOME
+3890 GOSUB 820
+3900 V=INT(V*1.1+.5) 
+3910 E=INT(E*1.06+.5) 
+3920 GOSUB 100
+3930 INVERSE:GOSUB 270:PRINT"SUBWAY":NORMAL
+3940 PRINT CHR$(10)
+3950 IF B=1 THEN GOTO 4200
+3960 IF B=2 THEN GOTO 4250
+3970 IF B=3 THEN GOTO 4300
+3980 IF B=4 THEN GOTO 4360
+3990 IF B=5 THEN GOTO 4360
+4000 IF B=6 THEN GOTO 4420
+4010 IF B=7 THEN GOTO 4420
+4020 IF B=8 THEN GOTO 4480
+4030 IF B=9 THEN GOTO 4580
+4040 IF B=10 THEN GOTO 4580
+4050 IF B=11 THEN GOTO 4580
+4060 IF B=12 THEN GOTO 5920
+4070 IF B=13 THEN GOTO 5920
+4080 IF B=14 THEN GOTO 6060
+4090 IF B=15 THEN GOTO 6130
+4100 IF B=16 THEN GOTO 6210
+4110 IF B=17 THEN GOTO 6370
+4120 REM->NOTHINGHAPPENED
+4130 REM->NOTHINGHAPPENS	
+4140 PRINT CHR$(10) 
+4150 PRINT "WELCOME TO ";P$ 
+4160 PRINT CHR$(10)
+4170 GOSUB 450
+4180 GOTO 1150
+4190 REM->CHEAPLUDES
+4200 PRINT "RIVAL DEALERS ARE SELLING CHEAP LUDES!"
+4210 L=2
+4220 GOSUB 450
+4230 GOTO 1150
+4240 REM->CHEEPWEED
+4250 PRINT "WEED PRICES HAVE BOTTOMED-OUT!"
+4260 Z=122
+4270 GOSUB 450
+4280 GOTO 1150
+4290 REM->PIGHEROIN
+4300 PRINT "PIGS ARE SELLING CHEAP HEROIN"
+4310 PRINT "FROM LAST WEEK'S RAID!"
+4320 H=INT((RND(9)*1150)+850.5)
+4330 GOSUB 450
+4340 GOTO 1150
+4350 REM->HEROINBUST
+4360 PRINT "ADDICTS ARE BUYING HEROIN"
+4370 PRINT "AT OUTRAGEOUS PRICES!"
+4380 H=INT((RND(9)*25000)+18000.5)
+4390 GOSUB 450
+4400 GOTO 1150
+4410 REM->COKEBUST
+4420 PRINT "PIGS MADE A BIG COKE BUST!"
+4430 PRINT "PRICES ARE OUTRAGEOUS!!!!"
+4440 C=INT((RND(9)*60000)+80000.5) 
+4450 GOSUB 450
+4460 GOTO 1150
+4470 REM->MUGGED
+4480 PRINT "YOU GOT MUGGED!"
+4490 PRINT CHR$(10)
+4500 J=INT(W/3)
+4510 J=INT(J*2)
+4520 K=INT(W-J)
+4530 PRINT "YOU LOST $";K
+4540 W=J
+4550 GOSUB 450
+4560 GOSUB 1150
+4570 REM->COPS
+4580 K=M+N+U+O+T+P 
+4590 IF K<50 THEN GOTO 4130
+4600 IF B=9 THEN B = 2
+4610 IF B=10 THEN B=4
+4620 IF B=11 THEN B=5
+4630 PRINT "IT'S THE COPS!"
+4640 PRINT CHR$(10)
+4650 PRINT "OFFICER HARDASS AND ";B-1;" OF HIS"
+4660 PRINT "DEPUTIES ARE AFTER YOU!"
+4670 PRINT
+4680 GOSUB 450
+4690 GOTO 4710
+4700 REM->POLICE
+4710 HOME
+4720 GOSUB 100
+4730 GOSUB 700
+4740 PRINT
+4750 PRINT 
+4760 PRINT "VIEW (G)UNS"
+4770 PRINT "VIEW (D)AMAGE"
+4780 PRINT "(N)UMBER OF PIGS"
+4790 PRINT "(R)UN"
+4800 PRINT "(F)IGHT"
+4810 PRINT
+4820 INPUT "WHAT DO YOU WANT TO DO? ";X$
+4830 IF X$="G" GOTO 4900
+4840 IF X$ = "D" GOTO 5000
+4850 IF X$ = "N" GOTO 5120
+4860 IF X$ = "R" GOTO 5230
+4870 IF X$="F" GOTO 5400
+4880 GOTO 4710
+4890 REM->PGUN
+4900 HOME
+4910 GOSUB 100
+4920 GOSUB 700
+4930 PRINT
+4940 PRINT 
+4950 PRINT "YOU HAVE ";G;" GUNS.
+4960 PRINT
+4970 GOSUB 140
+4980 GOTO 4710
+4990 REM->DAMAGE
+5000 HOME
+5010 GOSUB 100
+5020 GOSUB 700
+5030 PRINT
+5040 PRINT 
+5050 PRINT "YOUR CURRENT DAMAGE IS ";BB;"."
+5060 PRINT
+5070 PRINT "50 AND YOU DIE!"
+5080 PRINT
+5090 GOSUB 140
+5100 GOTO 4710
+5110 REM->NCOPS
+5120 HOME
+5130 GOSUB 100
+5140 GOSUB 700
 5150 PRINT
-5160 GOSUB 130
-5170 GOTO 4540
-5180 REM->LOSERUN
+5160 PRINT 
+5170 PRINT "THERE ARE ";B;" PIGS STILL CHASING YOU!"
+5180 PRINT
 5190 PRINT
-5200 GOSUB 130
-5210 GOTO 990
-5220 REM->FIGHT
-5230 IF G<=0 THEN PRINT : PRINT : PRINT "YOU DON'T HAVE ANY GUNS!" : GOSUB 130 : GOTO 4540
-5240 HOME
-5250 GOSUB 100
-5260 GOSUB 540
-5270 PRINT
-5280 PRINT "YOU SHOOT!"
-5290 GOSUB 200
-5300 IF K=0 THEN GOTO 5330
-5310 PRINT "YOU GOT ONE!" : B = B-1 : GOTO 5350
-5320 REM->MISS 
-5330 PRINT "YOU MISSED!"
-5340 REM->NEXT
-5350 PRINT
+5200 GOSUB 140
+5210 GOTO 4710
+5220 REM->RUN
+5230 HOME
+5240 GOSUB 100
+5250 GOSUB 700
+5260 PRINT
+5270 PRINT 
+5280 PRINT "RUNNING..."
+5290 GOSUB 360
+5300 IF K = 0 THEN PRINT "YOU LOST THEM IN AN ALLEY!" : GOTO 5360
+5310 PRINT "YOU CAN'T SHAKE THEM!"
+5320 PRINT
+5330 GOSUB 140
+5340 GOTO 4710
+5350 REM->LOSERUN
 5360 PRINT
-5370 IF B <= 0 THEN GOTO 5570
-5380 GOSUB 250
-5390 PRINT "THEY'RE FIRING AT YOU!"
-5400 GOSUB 200
-5410 IF K=0 THEN GOTO 5470
-5420 PRINT "YOU'VE BEEN HIT!"
-5430 BB=BB+3
-5440 IF BB >= 50 GOTO 5520
-5450 GOTO 5490
-5460 REM->THEYMISS
-5470 PRINT "THEY MISSED!"
-5480 REM->NEXTA
-5490 GOSUB 130
-5500 GOTO 4540
-5510 REM->DED
+5370 GOSUB 140
+5380 GOTO 1150
+5390 REM->FIGHT
+5400 IF G<=0 THEN PRINT : PRINT : PRINT "YOU DON'T HAVE ANY GUNS!" : GOSUB 140 : GOTO 4710
+5410 HOME
+5420 GOSUB 100
+5430 GOSUB 700
+5440 PRINT
+5450 PRINT "YOU SHOOT!"
+5460 GOSUB 360
+5470 IF K=0 THEN GOTO 5500
+5480 PRINT "YOU GOT ONE!" : B = B-1 : GOTO 5520
+5490 REM->MISS 
+5500 PRINT "YOU MISSED!"
+5510 REM->NEXT
 5520 PRINT
-5530 PRINT "YOU'VE BEEN KILLED!"
-5540 GOSUB 130
-5550 GOTO 6980
-5560 REM->ALLGONE
-5570 PRINT "YOU KILLED ALL OF THEM!"
-5580 PRINT
-5590 GOSUB 200
-5600 J=INT(((RND(7)*1250)+750)+.5)
-5610 W=W+J
-5620 PRINT "YOU FOUND $";J;" ON OFFICER HARDASS'" 
-5630 PRINT "CARCASS!"
-5640 IF W>=1200 THEN GOTO 5670
-5650 GOTO 990
-5660 REM->DOCTOR
-5670 GOSUB 290
-5680 PRINT
-5690 PRINT "WILL YOU PAY $1000 FOR A DOCTOR"
-5700 INPUT "TO SEW YOU UP? (Y/N)";X$
-5710 IF X$ <> "Y" THEN GOTO 990
-5720 W=W-1000
-5730 BB=0
-5740 REM->GUNBUY
-5750 IF W < 500 THEN GOTO 3960
-5760 GOSUB 510
-5770 IF F < 5 THEN GOTO 3960
-5780 J=INT((RND(4)*2)+.5)
-5790 IF J = 0 THEN Y$ = "BARETTA"
-5800 IF J = 1 THEN Y$ = "SATURDAY NIGHT SPECIAL"
-5810 IF J = 2 THEN Y$ = ".44 MAGNUM"
-5820 PRINT "WILL YOU BUY A ";Y$
-5830 INPUT "FOR $400? (Y/N)";X$
-5840 IF X$ <> "Y" THEN GOTO 990
-5850 G = G+1
-5860 W = W-400
-5870 I = INT(I-5) 
-5880 GOTO 990
-5890 REM->DEDWEED 
-5900 PRINT "THERE'S SOME WEED HERE THAT SMELLS"
-5910 PRINT "LIKE GOOD STUFF!!"
-5920 PRINT CHR$(10)
-5930 INPUT "WILL YOU SMOKE IT? (Y/N)";X$
-5940 IF X$ = "Y" THEN GOTO 6850
-5950 GOTO990
-5960 REM->NEWCOAT
-5970 IF W<300 THEN RETURN 
-5980 PRINT "WILL YOU BUY A NEW TRENCHCOAT"
-5990 INPUT "WITH MORE POCKETS FOR $200? (Y/N)";X$
-6000 IF X$ <> "Y" THEN GOTO 990
-6010 I=I+10
-6020 W=W-200
-6030 GOTO 990
-6040 REM->DEDGUY
-6050 IF F<8 THEN GOTO 3970
-6060 J=INT((RND(3)*7)+1.5)
-6070 K=INT(RND(3)*5+.5)
-6080 IF K=0 THEN Q=Q+J : Y$ = "LUDES"
-6090 IF K=1 THEN T=T+J : Y$ = "SPEED"
-6100 IF K=2 THEN U=U+J : Y$ = "WEED"
-6110 IF K=3 THEN O=O+J : Y$ = "ACID"
-6120 IF K=4 THEN N=N+J : Y$ = "HEROIN"
-6130 IF K=5 THEN M=M+J : Y$ = "COCAINE"
-6140 PRINT "YOU FOUND ";J;" UNITS OF"
-6150 PRINT "         ";Y$
-6160 PRINT "ON A DEAD DUDE IN THE SUBWAY!"
-6170 PRINT CHR$(10)
-6180 GOSUB 290
-6190 GOTO 990
-6200 REM->HOMEACID
-6210 PRINT "THE MARKET HAS BEEN FLOODED"
-6220 PRINT "WITH CHEAP HOME-MADE ACID!"
-6230 A=INT((RND(4)*550)+250.5)
-6240 GOSUB 290
-6250 GOTO 990
-6260 REM->PAYME
-6270 INPUT "REPAY HOW MUCH? ";K
-6280 IF K>W THEN PRINT:PRINT "YOU DON'T HAVE THAT MUCH!" : GOSUB 250 : GOTO 2200
-6290 IF K>V THEN PRINT:PRINT "YOU DON'T OWE THAT MUCH!" : GOSUB 250 : GOTO 2200
-6300 W=W-K
-6310 V=V-K
-6320 PRINT:PRINT "THANK YOU." 
-6330 GOSUB 290
-6340 GOTO 990
-6350 REM->BORROW
-6360 INPUT "HOW MUCH DO YOU WANT? ";K
-6370 PRINT
-6380 J=INT((RND(10)*10000)+5000)
-6390 IF K>14000 THEN PRINT "HE'S NOT THAT STUPID!" : GOSUB 290 : GOTO 990
-6400 IF K > J THEN PRINT "HE DOESN'T FEEL LIKE IT." : GOSUB 250 : GOTO 990
-6410 V=V+K
-6420 W=W+K
-6430 PRINT "HERE'S YOUR MONEY." : PRINT CHR$(10) : PRINT "REMEMBER, I BREAK THUMBS."
-6440 GOSUB 290
-6450 GOTO 990
-6460 REM->DEPOSIT
-6470 INPUT "HOW MUCH? ";J
-6480 IF J>W THEN PRINT "YOU DON'T HAVE THAT MUCH CASH." : GOTO 6470
-6490 E=E+J
-6500 W=W-J
-6510 PRINT "THANK YOU FOR YOUR DEPOSIT."
-6520 GOSUB 290
-6530 GOTO 990
-6540 REM->MYMONEY
-6550 INPUT "HOW MUCH? ";J
-6560 IF J>E THEN PRINT "YOU DON'T HAVE SUFFICIENT FUNDS." : GOTO 6550
-6570 E=E-J
-6580 W=W+J
-6590 PRINT "THANK YOU FOR YOUR BUSINESS."
-6600 GOSUB 290
-6610 GOTO 990
-6620 REM->INSTRUCTIONS
-6630 HOME
-6640 VTAB 2:HTAB10:PRINT "WELCOME TO DRUGWAR//E":HTAB15:PRINT"VERSION 1.0"
-6650 VTAB 8:HTAB 3:PRINT "BASED ON THE CLASSIC TI-BASIC CLONE":HTAB2:PRINT"OF JOHN E. DELL'S 1984 IBM/TRS80 GAME."
-6660 VTAB12:HTAB6:PRINT "APPLESOFT VERSION BY: JAY MOORE"
-6670 VTAB19:INPUT "WOULD YOU LIKE INSTRUCTIONS? (Y/N): ";X$
-6680 J =RND(-1 *(PEEK(78)+256*PEEK(79)))
-6690 IF X$ = "Y" THEN GOTO 6720
-6700 GOTO 840
-6710 REM->INST
-6720 HOME
-6730 GOSUB 100
-6740 PRINT CHR$(10)
-6750 PRINT "THIS IS A GAME OF BUYING AND SELLING."
-6760 PRINT "YOUR GOAL IS TO PAY OFF YOUR DEBT AND"
-6770 PRINT "MAKE AS MUCH MONEY AS POSSIBLE IN A ONE"
-6780 PRINT "MONTH PERIOD. PRICES FLUCTUATE EVERY DAYAND INTEREST ON YOUR LOAN IS CALCULATED AS WELL."
-6790 PRINT:PRINT "IF YOU DEAL TOO HEAVILY, YOU'LL ATTRACT THE ATTENTION OF THE POLICE."
+5530 PRINT
+5540 IF B <= 0 THEN GOTO 5740
+5550 GOSUB 410
+5560 PRINT "THEY'RE FIRING AT YOU!"
+5570 GOSUB 360
+5580 IF K=0 THEN GOTO 5640
+5590 PRINT "YOU'VE BEEN HIT!"
+5600 BB=BB+3
+5610 IF BB >= 50 GOTO 5690
+5620 GOTO 5660
+5630 REM->THEYMISS
+5640 PRINT "THEY MISSED!"
+5650 REM->NEXTA
+5660 GOSUB 140
+5670 GOTO 4710
+5680 REM->DED
+5690 PRINT
+5700 PRINT "YOU'VE BEEN KILLED!"
+5710 GOSUB 140
+5720 GOTO 7200
+5730 REM->ALLGONE
+5740 PRINT "YOU KILLED ALL OF THEM!"
+5750 PRINT
+5760 GOSUB 360
+5770 J=INT(((RND(7)*1250)+750)+.5)
+5780 W=W+J
+5790 PRINT "YOU FOUND $";J;" ON OFFICER HARDASS'" 
+5800 PRINT "CARCASS!"
+5810 IF W>=1200 THEN GOTO 5840
+5820 GOTO 1150
+5830 REM->DOCTOR
+5840 GOSUB 450
+5850 PRINT
+5860 PRINT "WILL YOU PAY $1000 FOR A DOCTOR"
+5870 INPUT "TO SEW YOU UP? (Y/N)";X$
+5880 IF X$ <> "Y" THEN GOTO 1150
+5890 W=W-1000
+5900 BB=0
+5910 REM->GUNBUY
+5920 IF W < 500 THEN GOTO 4130
+5930 GOSUB 670
+5940 IF F < 5 THEN GOTO 4130
+5950 J=INT((RND(4)*2)+.5)
+5960 IF J = 0 THEN Y$ = "BARETTA"
+5970 IF J = 1 THEN Y$ = "SATURDAY NIGHT SPECIAL"
+5980 IF J = 2 THEN Y$ = ".44 MAGNUM"
+5990 PRINT "WILL YOU BUY A ";Y$
+6000 INPUT "FOR $400? (Y/N)";X$
+6010 IF X$ <> "Y" THEN GOTO 1150
+6020 G = G+1
+6030 W = W-400
+6040 GOTO 1150
+6050 REM->DEDWEED 
+6060 PRINT "THERE'S SOME WEED HERE THAT SMELLS"
+6070 PRINT "LIKE GOOD STUFF!!"
+6080 PRINT CHR$(10)
+6090 INPUT "WILL YOU SMOKE IT? (Y/N)";X$
+6100 IF X$ = "Y" THEN GOTO 7070
+6110 GOTO1150
+6120 REM->NEWCOAT
+6130 IF W<300 THEN GOTO 4140
+6140 PRINT "WILL YOU BUY A NEW TRENCHCOAT"
+6150 INPUT "WITH MORE POCKETS FOR $200? (Y/N)";X$
+6160 IF X$ <> "Y" THEN GOTO 1150
+6170 I=I+10
+6180 W=W-200
+6190 GOTO 1150
+6200 REM->DEDGUY
+6210 IF F<8 THEN GOTO 4140
+6220 J=INT((RND(3)*7)+1.5)
+6230 K=INT(RND(3)*5+.5)
+6240 IF K=0 THEN Q=Q+J : Y$ = "LUDES"
+6250 IF K=1 THEN T=T+J : Y$ = "SPEED"
+6260 IF K=2 THEN U=U+J : Y$ = "WEED"
+6270 IF K=3 THEN O=O+J : Y$ = "ACID"
+6280 IF K=4 THEN N=N+J : Y$ = "HEROIN"
+6290 IF K=5 THEN M=M+J : Y$ = "COCAINE"
+6300 PRINT "YOU FOUND ";J;" UNITS OF"
+6310 PRINT "         ";Y$
+6320 PRINT "ON A DEAD DUDE IN THE SUBWAY!"
+6330 PRINT CHR$(10)
+6340 GOSUB 450
+6350 GOTO 1150
+6360 REM->HOMEACID
+6370 PRINT "THE MARKET HAS BEEN FLOODED"
+6380 PRINT "WITH CHEAP HOME-MADE ACID!"
+6390 A=INT((RND(4)*550)+250.5)
+6400 GOSUB 450
+6410 GOTO 1150
+6420 REM->PAYME
+6430 INPUT "REPAY HOW MUCH? ";K
+6440 IF K>W THEN PRINT:PRINT "YOU DON'T HAVE THAT MUCH!" : GOSUB 410 : GOTO 2360
+6450 IF K>V THEN PRINT:PRINT "YOU DON'T OWE THAT MUCH!" : GOSUB 410 : GOTO 2360
+6460 W=W-K
+6470 V=V-K
+6480 PRINT:PRINT "THANK YOU." 
+6490 GOSUB 450
+6500 GOTO 1150
+6510 REM->BORROW
+6520 PRINT CHR$(10)
+6530 INPUT "HOW MUCH DO YOU WANT? ";K
+6540 PRINT
+6550 J=INT((RND(10)*10000)+5000)
+6560 IF K>14000 THEN PRINT "HE'S NOT THAT STUPID!" : GOSUB 450 : GOTO 1150
+6570 IF K > J THEN PRINT "HE DOESN'T FEEL LIKE IT." : GOSUB 410 : GOTO 1150
+6580 V=V+K
+6590 W=W+K
+6600 PRINT CHR$(10)
+6610 PRINT "HERE'S YOUR MONEY." : PRINT CHR$(10) : PRINT "REMEMBER, I BREAK THUMBS."
+6620 GOSUB 450
+6630 GOTO 1150
+6640 REM->DEPOSIT
+6650 PRINT CHR$(10)
+6660 INPUT "HOW MUCH? ";J
+6670 IF J>W THEN PRINT "YOU DON'T HAVE THAT MUCH CASH." : GOTO 6650
+6680 E=E+J
+6690 W=W-J
+6700 PRINT CHR$(10)
+6710 PRINT "THANK YOU FOR YOUR DEPOSIT."
+6720 GOSUB 450
+6730 GOTO 1150
+6740 REM->MYMONEY
+6750 PRINT CHR$(10)
+6760 INPUT "HOW MUCH? ";J
+6770 IF J>E THEN PRINT "YOU DON'T HAVE SUFFICIENT FUNDS." : GOTO 6750
+6780 E=E-J
+6790 W=W+J
 6800 PRINT CHR$(10)
-6810 PRINT "COMMANDS ARE ENTERED USING THE LETTER   HIGHLIGHTED (L)IKE (S)O. Y IS YES AND   ANYTHING COUNTS AS NO."
-6820 GOSUB 130
-6830 GOTO 840
-6840 REM->WEEDEND
+6810 PRINT "THANK YOU FOR YOUR BUSINESS."
+6820 GOSUB 450
+6830 GOTO 1150
+6840 REM->INSTRUCTIONS
 6850 HOME
-6860 GOSUB 100
-6870 INVERSE : PRINT "              SMOKE WEED                " : NORMAL
-6880 PRINT "YOU HALLUCINATE ON THE WILDEST TRIP"
-6890 PRINT "OF YOUR LIFE, STUMBLE ON TO THE TRACKS,"
-6900 PRINT "AND GET CREAMED BY A TRAIN!"
-6910 PRINT CHR$(10)
-6920 PRINT CHR$(10)
-6930 PRINT "JUST SAY NO TO DRUGS!"
-6940 GOSUB 290
-6950 GOSUB 250
-6960 GOTO 7130
-6970 REM->ENDGAME
-6980 HOME
-6990 GOSUB 100
-7000 GOSUB 780
-7010 GOSUB 570
+6860 VTAB 2:HTAB10:PRINT "WELCOME TO DRUGWAR//E":HTAB14:PRINT"VERSION 1.01"
+6870 VTAB 8:HTAB 3:PRINT "BASED ON THE CLASSIC TI-BASIC CLONE":HTAB2:PRINT"OF JOHN E. DELL'S 1984 IBM/TRS80 GAME."
+6880 VTAB12:HTAB6:PRINT "APPLESOFT VERSION BY: JAY MOORE"
+6890 VTAB19:INPUT "WOULD YOU LIKE INSTRUCTIONS? (Y/N): ";X$
+6900 J =RND(-1 *(PEEK(78)+256*PEEK(79)))
+6910 IF X$ = "Y" THEN GOTO 6940
+6920 GOTO 1000
+6930 REM->INST
+6940 HOME
+6950 GOSUB 100
+6960 PRINT CHR$(10)
+6970 PRINT "THIS IS A GAME OF BUYING AND SELLING."
+6980 PRINT "YOUR GOAL IS TO PAY OFF YOUR DEBT AND"
+6990 PRINT "MAKE AS MUCH MONEY AS POSSIBLE IN A ONE"
+7000 PRINT "MONTH PERIOD. PRICES FLUCTUATE EVERY DAYAND INTEREST ON YOUR LOAN IS CALCULATED AS WELL."
+7010 PRINT:PRINT "IF YOU DEAL TOO HEAVILY, YOU'LL ATTRACT THE ATTENTION OF THE POLICE."
 7020 PRINT CHR$(10)
-7030 PRINT "YOUR SCORE ON A SCALE OF 1 TO 100: ";K
-7040 PRINT CHR$(10)
-7050 INPUT "WOULD YOU LIKE TO PLAY AGAIN? (Y/N)";X$
-7060 IF X$ = "Y" THEN GOTO 840
-7070 PRINT "THANKS FOR PLAYING."
-7080 PRINT "REMEMBER, WATCH YOUR BACK."
-7090 PRINT "HAVE A NICE DAY!"
-7100 CLEAR
-7110 END
-7120 REM->IRONICEND
-7130 HOME
-7140 GOSUB 100
-7150 GOSUB 780
-7160 GOSUB 570
-7170 PRINT CHR$(10)
-7180 PRINT "YOUR FINAL SCORE IS: ";K
-7190 PRINT CHR$(10)
-7200 GOSUB 290
-7210 PRINT "BUT YOU DIED FROM SMOKING WEED?":GOSUB 290:PRINT "IN A"
-7220 PRINT "GAME ABOUT DEALING DRUGS?":GOSUB 250: PRINT"BUDDY, NO"
-7230 PRINT "SCORE CAN REDEEM THAT STUPIDITY."
+7030 PRINT "COMMANDS ARE ENTERED USING THE LETTER   HIGHLIGHTED (L)IKE (S)O. Y IS YES AND   ANYTHING COUNTS AS NO."
+7040 GOSUB 140
+7050 GOTO 1000
+7060 REM->WEEDEND
+7070 HOME
+7080 GOSUB 100
+7090 INVERSE : GOSUB @TWOSFIFTEEN: PRINT "SMOKE WEED" : NORMAL
+7100 SPEED = 50 :PRINT "YOU HALLUCINATE ON THE WILDEST TRIP"
+7110 PRINT "OF YOUR LIFE, STUMBLE ON TO THE TRACKS,"
+7120 PRINT "AND GET CREAMED BY A TRAIN!"
+7130 PRINT CHR$(10)
+7140 PRINT CHR$(10)
+7150 HTAB 10:PRINT "JUST SAY NO TO DRUGS!":SPEED=255
+7160 GOSUB 450
+7170 GOSUB 410
+7180 GOTO 7350
+7190 REM->ENDGAME
+7200 HOME
+7210 GOSUB 100
+7220 GOSUB 940
+7230 GOSUB 730
 7240 PRINT CHR$(10)
-7250 INPUT "WOULD YOU LIKE TO PLAY AGAIN? ";X$
-7260 IF X$= "Y" THEN GOTO 840
-7270 IF X$= "N" THEN PRINT "I DON'T BLAME YOU." : END
-7280 PRINT "WHAT? IF YOU'RE THAT DUMB, I'M LEAVING."
-7290 CLEAR
-7300 END
+7250 PRINT "YOUR SCORE ON A SCALE OF 1 TO 100: ";K
+7260 PRINT CHR$(10)
+7270 INPUT "WOULD YOU LIKE TO PLAY AGAIN? (Y/N)";X$
+7280 IF X$ = "Y" THEN GOTO 1000
+7290 PRINT "THANKS FOR PLAYING."
+7300 PRINT "REMEMBER, WATCH YOUR BACK."
+7310 PRINT "HAVE A NICE DAY!"
+7320 CLEAR
+7330 END
+7340 REM->IRONICEND
+7350 HOME
+7360 GOSUB 100
+7370 GOSUB 730
+7380 PRINT CHR$(10)
+7390 SPEED = 50 : PRINT "YOU DIED FROM SMOKING WEED."
+7400 PRINT CHR$(10)
+7410 PRINT CHR$(10)
+7420 GOSUB 450: PRINT"SEE? GAMES ARE TOTALLY FAKE." : SPEED = 255
+7430 PRINT CHR$(10)
+7440 INPUT "WOULD YOU LIKE TO PLAY AGAIN? ";X$
+7450 IF X$= "Y" THEN GOTO 1000
+7460 CLEAR
+7470 END
diff --git a/drugwar2e.baz b/drugwar2e.baz
index 3373ea6..bf1405d 100644
--- a/drugwar2e.baz
+++ b/drugwar2e.baz
@@ -1,4 +1,4 @@
-rem Drugwar//e - Version 1.0
+rem Drugwar//e - Version 1.01
 rem 19-OCT-2018
 rem Copyright 2018 Jay Moore
 rem Released under GPL v3
@@ -7,26 +7,42 @@ rem twitter: _nq4t
 
 	goto @instructions {because we're sticking subroutines up here}
 £titlebar {this literally just draws the game title at the top of the screen}
-	HTAB 16 : print "Drugwar//e",
+	HTAB 16 : print "Drugwar//e"
+	inverse:print"                                        ":normal
 	return
 £wait {ubiquitious "Press ENTER to continue}
 	print chr$(10)
 	input "Press enter to continue.";x$
 	return
+£twofifteen
+	vtab 2 : htab 15
+	return
+£twosixteen
+	vtab 2:htab 16
+	return
+£twoseventeen
+	vtab 2:htab 17
+	return
+£twoeighteen
+	vtab 2: htab 18
+	return
+£twonineteen
+	vtab 2:htab 19
+	return
 £jetalthere
-	inverse:print"                  Jet                   ":normal
+	inverse:vtab 2: htab 19:print"Jet":normal
 	return
 £timera
-	for j = 1 to 500
+	for j = 1 to 2500
 	next j
 	k = int(rnd(2)+.5)
 	return
 £timerb
-	for j = 1 to 300
+	for j = 1 to 1000
 	next j
 	return
 £timerc
-	for j = 1 to 1000
+	for j = 1 to 2000
 	next j
 	return
 [
@@ -55,16 +71,16 @@ This has cleaned the code up a bit
 	return
 	
 £freespace
-	f=int(i-(m+n+o+u+t+p))
+	f=int(i-((g*5)-m+n+o+u+t+p))
 	return
 £chase
-	inverse:print"              Being Chased              ":normal
+	inverse:vtab 2: htab 15: print"Being Chased":normal
 	return
 £gmod
-	inverse:print"                Game Over               ":normal
+	speed=100:vtab 2: htab 16:inverse:print"Game Over":normal:speed=255
 	return
 £bronxcheck
-	if p$ = "THE BRONX    " then return
+	if p$ = "THE BRONX" then return
 	print "you need to head to the bronx"
 	print "to take care of this business."
 	gosub @timerc
@@ -95,7 +111,7 @@ This has cleaned the code up a bit
 	w=2000
 	e=0
 	v=5000
-	p$="The Bronx    "
+	p$="The Bronx"
 	g=0
 	i=100
 	m=0
@@ -111,10 +127,10 @@ This has cleaned the code up a bit
 	home
 	gosub @freespace
 	gosub @titlebar
-	inverse : print "     Day: "D"      Location: "p$: normal
+	inverse : vtab 2:htab 4:print "Day: "D : vtab 2:htab 18:print"Location: "p$ :normal
 	print chr$(10)
 	print "(C)heck Prices"
-	print "(I)nventory"
+	print "(T)renchcoat"
 	print "(B)uy"
 	print "(S)ell"
 	print "(J)et"
@@ -123,17 +139,34 @@ This has cleaned the code up a bit
 	print chr$(10)
 	input "Please make your selection: ";x$
 		if x$ = "C" goto @prices
-		if x$ = "I" goto @inventory
+		if x$ = "T" goto @inventory
 		if x$ = "B" goto @buy
 		if x$ = "S" goto @sell
 		if x$ = "J" goto @jet
 		if x$ = "L" goto @loan
 		if x$ = "V" goto @bank
+		{if x$="debug" goto @debug}
 	goto @menu
+
+[
+£debug
+print "Testing Screen"
+print chr$(10)
+print "(w)allet,(g)uns,(v)debt,(e)savings,(i)nventory space"
+input "What to change?";db$
+input "To?";dx
+if db$ = "w" then w=dx
+if db$ = "g" then g=dx
+if db$="v" then v=dx
+if db$="e" then e=dx
+if db$="i" then i=dx
+goto @menu
+]
+
 £prices
 	home
 	gosub @titlebar
-	inverse:print"                 Prices                  ":normal
+	inverse:vtab 2:htab 18:print"Prices":normal
 	print chr$(10)
 	print"cocaine:","$"c
 	print"heroin:","$"h
@@ -147,7 +180,7 @@ This has cleaned the code up a bit
 £inventory
 	home
 	gosub @titlebar
-	inverse:print"               Inventory                ":normal
+	inverse:vtab 2: htab 16:print"Trenchcoat":normal
 	print chr$(10)
 	print"cocaine:",m
 	print"heroin:",n
@@ -161,7 +194,7 @@ This has cleaned the code up a bit
 £buy
 	home
 	gosub @titlebar
-	inverse:print"                  Buy                   ":normal
+	inverse:vtab 2: htab 19: print"Buy":normal
 	print chr$(10)
 	print"What do you want to buy?"
 	print chr$(10)
@@ -183,7 +216,7 @@ This has cleaned the code up a bit
 £sell
 	home
 	gosub @titlebar
-	inverse:print"                 Sell                   ":normal
+	inverse: vtab 2: htab 18: print"Sell":normal
 	print chr$(10)
 	print "What would you like to sell?"
 	print chr$(10)
@@ -217,16 +250,17 @@ This has cleaned the code up a bit
 	print "Broo(K)lyn"
 	print "(O)ops...stay!"
 	input "Where to dude? ";x$
-		if x$="B" then y$ = "The Bronx    " : GOTO @jetb {we can use strings}
-		if x$="G" then y$ = "The Ghetto   " : GOTO @jetb
-		if x$="C" then y$ = "Central Park " : GOTO @jetb
-		if x$="M" then y$ = "Manhattan    " : goto @jetb
-		if x$="I" then y$   = "Coney Island " : goto @jetb
-		if x$="K" then y$ = "Brooklyn     " : goto @jetb
+		if x$="B" then y$ = "The Bronx" : GOTO @jetb {we can use strings}
+		if x$="G" then y$ = "The Ghetto" : GOTO @jetb
+		if x$="C" then y$ = "Central Park" : GOTO @jetb
+		if x$="M" then y$ = "Manhattan" : goto @jetb
+		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
+	{input "event: ";ev testing/debug}
 	if y$=p$ then goto @alreadythere {more advanced thatn Bronx only on TI}
 	p$ = y$ {it's valid, copy it and move along} : y$ = ""
 	goto @subway
@@ -234,7 +268,7 @@ This has cleaned the code up a bit
 £loan
 	home
 	gosub @titlebar
-	inverse : print "               Loan Shark               ":normal
+	inverse : vtab 2: htab 16:print "Loan Shark":normal
 	print chr$(10)
 	gosub @bronxcheck
 	print "Your debt is: $";v
@@ -249,7 +283,7 @@ This has cleaned the code up a bit
 £bank
 	home
 	gosub @titlebar
-	inverse : print"              Bank O'Murica             ":normal
+	inverse : vtab 2 : htab 15: print"Bank O'Murica":normal
 	print chr$(10)
 	gosub @bronxcheck
 	print "Your balance: $";e
@@ -259,59 +293,60 @@ This has cleaned the code up a bit
 		if x$ = "d" then goto @deposit
 		if x$ = "w" then goto @mymoney
 		if x$ = "l" then goto @menu
+		if x$ = eg$ then goto @egg
 	goto @bank
 
 £cokebuy
 	home
 	gosub @titlebar
-	inverse:print"               Buy Cocaine              ":normal
+	inverse:vtab 2: htab 16: print"Buy Cocaine":normal
 	print chr$(10)
-	j=w/c {calculate how many we can buy}
+	j=int(w/c) {calculate how many we can buy}
 	gosub @howmuchbuy
 	m=m+k : w=w-(c*k) {when the subroutine sends us back when the purchase is valid}
 	goto @menu
 £herbuy
 	home
 	gosub @titlebar
-	inverse:print"               Buy Heroin               ":normal
+	inverse:vtab 2: htab 16: print"Buy Heroin":normal
 	print chr$(10)
-	j=w/h
+	j=int(w/h)
 	gosub @howmuchbuy
 	n=n+k : w=w-(h*k)
 	goto @menu
 £acidbuy
 	home
 	gosub @titlebar
-	inverse:print"                 Buy Acid               ":normal
+	inverse:vtab 2: htab 17:print"Buy Acid":normal
 	print chr$(10)
-	j=w/a
+	j=int(w/a)
 	gosub @howmuchbuy
 	o=o+k : w=w-(a*k)
 	goto @menu
 £weedbuy
 	home
 	gosub @titlebar
-	inverse:print"                 Buy Weed               ":normal
+	inverse:vtab 2: htab 17: print"Buy Weed":normal
 	print chr$(10)
-	j=w/z
+	j=int(w/z)
 	gosub @howmuchbuy
 	u=u+k : w=w-(z*k)
 	goto @menu
 £spdbuy
 	home
 	gosub @titlebar
-	inverse:print"                Buy Speed               ":normal
+	inverse:vtab 2: htab 17: print"Buy Speed":normal
 	print chr$(10)
-	j=w/s
+	j=int(w/s)
 	gosub @howmuchbuy
 	t=t+k : w=w-(s*k)
 	goto @menu
 £ludbuy
 	home
 	gosub @titlebar
-	inverse:print"               Buy Ludes                ":normal
+	inverse:vtab 2: htab 17: print"Buy Ludes":normal
 	print chr$(10)
-	j=w/l
+	j=int(w/l)
 	gosub @howmuchbuy
 	q=q+k : w=w-(l*k)
 	goto @menu
@@ -320,7 +355,7 @@ This has cleaned the code up a bit
 £cokesell
 	home
 	gosub @titlebar
-	inverse:print"              Sell Cocaine              ":normal
+	inverse:vtab 2: htab 15:print"Sell Cocaine":normal
 	print chr$(10)
 	j=m {write amount to variable}
 	gosub @howmuchsell
@@ -331,7 +366,7 @@ This has cleaned the code up a bit
 £hersell
 	home
 	gosub @titlebar
-	inverse:print"               Sell Heroin              ":normal
+	inverse:vtab 2 : htab 17:print"Sell Heroin":normal
 	print chr$(10)
 	j=n
 	gosub @howmuchsell
@@ -342,7 +377,7 @@ This has cleaned the code up a bit
 £acidsell
 	home
 	gosub @titlebar
-	inverse:print"                Sell Acid               ":normal
+	inverse:vtab2: htab 17: print"Sell Acid":normal
 	print chr$(10)
 	j=o
 	gosub @howmuchsell
@@ -353,7 +388,7 @@ This has cleaned the code up a bit
 £weedsell
 	home
 	gosub @titlebar
-	inverse:print"                Sell Weed               ":normal
+	inverse:vtab 2: htab 17:print"Sell Weed":normal
 	print chr$(10)
 	j=u
 	gosub @howmuchsell
@@ -364,7 +399,7 @@ This has cleaned the code up a bit
 £spdsell
 	home
 	gosub @titlebar
-	inverse:print"               Sell Speed               ":normal
+	inverse:vtab 2: htab 16:print"Sell Speed":normal
 	print chr$(10)
 	j=t
 	gosub @howmuchsell
@@ -375,7 +410,7 @@ This has cleaned the code up a bit
 £ludsell
 	home
 	gosub @titlebar
-	inverse:print"                Sell Ludes              ":normal
+	inverse:vtab 2: htab 16:print"Sell Ludes":normal
 	print chr$(10)
 	j=q
 	gosub @howmuchsell
@@ -396,10 +431,11 @@ This has cleaned the code up a bit
 £subway
 	home
 	gosub @daily
+	{b=ev debugging code}
 	V=int(V*1.1+.5) {loan calculation}
 	E=int(E*1.06+.5) {savings calculation}
 	gosub @titlebar
-	inverse:print"                 Subway                 ":normal
+	inverse:vtab 2: htab 18:print"Subway":normal
 	print chr$(10)
 		if b=1 then goto @cheapludes
 		if b=2 then goto @cheepweed
@@ -466,7 +502,7 @@ This has cleaned the code up a bit
 	gosub @timerc
 	gosub @menu
 £cops
-	k=m+n+u+o+t+p {cops only active when inventory < 50}
+	k=m+n+u+o+t+p {cops only active when inventory > 50}
 [
 my improved revisions will likely add some additional
 conditions on how/when we run cops
@@ -618,7 +654,7 @@ conditions on how/when we run cops
 		if x$ <> "Y" then goto @menu
 	g = g+1
 	w = w-400
-	i = int(i-5) {I kept having problems calculating this with free space as guns * 5. gave up. put it here}
+	{i = int(i-5) I kept having problems calculating this with free space as guns * 5. gave up. put it here}
 	goto @menu
 £dedweed {don't smoke the weed}
 	print "There's some weed here that smells"
@@ -628,7 +664,7 @@ conditions on how/when we run cops
 		If X$ = "Y" THEN GOTO @weedend
 	goto@menu
 £newcoat
-	if w<300 then return {only if you can afford it}
+	if w<300 then goto @nothinghappens {only if you can afford it}
 	print "Will you buy a new trenchcoat"
 	input "with more pockets for $200? (Y/N)";X$
 		if X$ <> "Y" then goto @menu
@@ -669,6 +705,7 @@ conditions on how/when we run cops
 	GOSUB @timerc
 	GOTO @MENU
 £borrow
+	print chr$(10)
 	Input "How much do you want? ";K
 		print
 		j=int((rnd(10)*10000)+5000)
@@ -676,30 +713,43 @@ conditions on how/when we run cops
 		if K > J then print "He doesn't feel like it." : gosub @timerb : goto @menu
 		v=v+k
 		w=w+k
+		print chr$(10)
 		print "Here's your money." : PRINT CHR$(10) : PRINT "Remember, I break thumbs."
 		gosub @timerc
 		goto @menu
 
 £deposit
+	print chr$(10)
 	INPUT "How much? ";j
 		If j>w then print "You don't have that much cash." : goto @deposit
 	e=e+j
 	w=w-j
+	print chr$(10)
 	Print "Thank you for your deposit."
 	gosub @timerc
 	goto @menu
+[
+£egg
+	print "You found the easter egg!"
+	print
+	print "$1,000,000 has been deposited in to your account."
+	gosub @timerc
+	goto @bank
+]
 £mymoney
+	print chr$(10)
 	INPUT "How much? ";j
 		If j>e then print "You don't have sufficient funds." : goto @mymoney
 	e=e-j
 	w=w+j
+	print chr$(10)
 	print "Thank you for your business."
 	gosub @timerc
 	goto @menu
 
 £instructions
 	home
-	vtab 2:htab10:print "Welcome to Drugwar//e":htab15:print"Version 1.0"
+	vtab 2:htab10:print "Welcome to Drugwar//e":htab14:print"Version 1.01"
 	vtab 8:htab 3:print "Based on the classic TI-BASIC clone":htab2:print"of John E. Dell's 1984 IBM/TRS80 game."
 	vtab12:htab6:print "Applesoft version by: Jay Moore"
 	vtab19:input "Would you like instructions? (Y/N): ";X$
@@ -723,13 +773,13 @@ conditions on how/when we run cops
 £weedend
 	home
 	gosub @titlebar
-	inverse : print "              SMOKE Weed                " : NORMAL
-	print "You hallucinate on the wildest trip"
+	inverse : vtab 2: htab 15: print "SMOKE Weed" : NORMAL
+	speed = 50 :print "You hallucinate on the wildest trip"
 	print "of your life, stumble on to the tracks,"
 	print "and get creamed by a train!"
 	print chr$(10)
 	print chr$(10)
-	print "Just say NO to drugs!"
+	htab 10:print "Just say NO to drugs!":speed=255
 	gosub @timerc
 	gosub @timerb
 	goto @ironicend
@@ -753,19 +803,14 @@ conditions on how/when we run cops
 £ironicend
 	home
 	gosub @titlebar
-	gosub @scorecalculate
 	gosub @gmod
 	print chr$(10)
-	print "Your final score is: ";k
+	speed = 50 : print "You died from smoking weed."
 	print chr$(10)
-	gosub @timerc
-	print "But you died from smoking weed?":gosub @timerc:print "In a"
-	print "game about dealing drugs?":gosub @timerb: print"Buddy, no"
-	print "score can redeem that stupidity."
+	print chr$(10)
+	gosub @timerc: print"See? Games are totally fake." : speed = 255
 	print chr$(10)
 	input "Would you like to play again? ";x$
 	if x$= "Y" THEN GOTO @GAMESTART
-	if x$= "N" THEN PRINT "I don't blame you." : end
-	print "What? If you're that dumb, I'm leaving."
 	clear
 	end