From a3290f600a3cbd566c363c0b0994b58331410da0 Mon Sep 17 00:00:00 2001
From: dewdude <dewdude@gmail.com>
Date: Mon, 29 Oct 2018 21:18:19 -0400
Subject: [PATCH] V 1.0

---
 drugwar2e.bas | 1442 +++++++++++++++++++++++++------------------------
 drugwar2e.baz |  450 +++++++--------
 2 files changed, 955 insertions(+), 937 deletions(-)

diff --git a/drugwar2e.bas b/drugwar2e.bas
index 4e0626d..9f567f7 100644
--- a/drugwar2e.bas
+++ b/drugwar2e.bas
@@ -1,720 +1,730 @@
-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 6260
-80 REM->TITLEBAR 
-90 PRINT ,"DRUGWAR//E",
-100 RETURN
-110 REM->WAIT 
-120 PRINT CHR$(10)
-130 INPUT "PRESS ENTER TO CONTINUE.";X$
-140 RETURN
-150 REM->TIMERA
-160 FOR N = 1 TO 500
-170 NEXT N
+10 REM DRUGWAR2EV1.BAS - 19/10/2018 - 21h23
+20 REM DRUGWAR//E - VERSION 1.0
+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
+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->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 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->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
+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
+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->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
+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?"
 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 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 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 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
+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 "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 IF P$ <> "THE BRONX" THEN GOTO 5600
-5700 PRINT "YOUR DEBT IS: $";V
-5710 PRINT "YOU HAVE: $";W
-5720 PRINT CHR$(10)
-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
+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!"
+5150 PRINT
+5160 GOSUB 130
+5170 GOTO 4540
+5180 REM->LOSERUN
+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
+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
+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."
+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
+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
+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."
+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
diff --git a/drugwar2e.baz b/drugwar2e.baz
index 2278ec5..3373ea6 100644
--- a/drugwar2e.baz
+++ b/drugwar2e.baz
@@ -1,4 +1,5 @@
-rem Drugwar//e - Beta 9
+rem Drugwar//e - Version 1.0
+rem 19-OCT-2018
 rem Copyright 2018 Jay Moore
 rem Released under GPL v3
 rem drugwar2e.sourceforge.io
@@ -6,19 +7,27 @@ 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}
-	print ,"Drugwar//e",
+	HTAB 16 : print "Drugwar//e",
 	return
 £wait {ubiquitious "Press ENTER to continue}
 	print chr$(10)
 	input "Press enter to continue.";x$
 	return
+£jetalthere
+	inverse:print"                  Jet                   ":normal
+	return
 £timera
-	for n = 1 to 500
-	next n
+	for j = 1 to 500
+	next j
+	k = int(rnd(2)+.5)
 	return
 £timerb
-	for n = 1 to 300
-	next n
+	for j = 1 to 300
+	next j
+	return
+£timerc
+	for j = 1 to 1000
+	next j
 	return
 [
 "Common logic" has been moved to buy/sell subroutines. 
@@ -45,27 +54,64 @@ This has cleaned the code up a bit
 		if K=0 goto @menu
 	return
 	
-	
+£freespace
+	f=int(i-(m+n+o+u+t+p))
+	return
+£chase
+	inverse:print"              Being Chased              ":normal
+	return
+£gmod
+	inverse:print"                Game Over               ":normal
+	return
+£bronxcheck
+	if p$ = "THE BRONX    " then return
+	print "you need to head to the bronx"
+	print "to take care of this business."
+	gosub @timerc
+	goto @menu
 
 	
 £daily {randomizes drug prices, adds a day, calculates interests, checks day number}
-	c=int(rnd(1)*12000+16000.5)
-	h=int(rnd(1)*7000+5000.5)
-	a=int((rnd(1)*34+10)*100+.5)
-	z=int((rnd(1)*42+33)*10+.5)
-	s=int((rnd(1)*15+7)*10+.5)
-	l=int((rnd(1)*4+1)*10+.5)
-	b=int(rnd(1)*20+.5)
+	c=int(rnd(5)*12000+16000.5)
+	h=int(rnd(5)*7000+5000.5)
+	a=int((rnd(5)*34+10)*100+.5)
+	z=int((rnd(5)*42+33)*10+.5)
+	s=int((rnd(5)*15+7)*10+.5)
+	l=int((rnd(5)*4+1)*10+.5)
+	b=int(rnd(5)*20+.5)
 	d=d+1
 £checkday {so I can check the day by itself}
 	if D >= 31 GOTO @endgame
 	return
+
+£scorecalculate
+	k=(w+e)-v
+	if k<0 THEN k=0 : return
+	k=int(sqr((k/31.5)+.5))
+	if k>100 then k=100
+	return
+
+£gamestart {set wallet, debt, location, inventory space, zero out inventory}
+	w=2000
+	e=0
+	v=5000
+	p$="The Bronx    "
+	g=0
+	i=100
+	m=0
+	n=0
+	o=0
+	u=0
+	t=0
+	q=0
+	gosub @daily {the only time we'll call this outside of the subway}
+	goto @menu {the real start of the game}
 	
 £menu {main menu. everything should loop back here}
 	home
-	f=i-(m+n+o+u+t+q) {former sub-routine}
+	gosub @freespace
 	gosub @titlebar
-	inverse : print "Day:";D,p$, : normal
+	inverse : print "     Day: "D"      Location: "p$: normal
 	print chr$(10)
 	print "(C)heck Prices"
 	print "(I)nventory"
@@ -74,6 +120,7 @@ This has cleaned the code up a bit
 	print "(J)et"
 	print "See (L)oan shark"
 	print "(V)isit Bank"
+	print chr$(10)
 	input "Please make your selection: ";x$
 		if x$ = "C" goto @prices
 		if x$ = "I" goto @inventory
@@ -86,7 +133,7 @@ This has cleaned the code up a bit
 £prices
 	home
 	gosub @titlebar
-	inverse:print"                 PRICES                 ":normal
+	inverse:print"                 Prices                  ":normal
 	print chr$(10)
 	print"cocaine:","$"c
 	print"heroin:","$"h
@@ -100,7 +147,7 @@ This has cleaned the code up a bit
 £inventory
 	home
 	gosub @titlebar
-	inverse:print"            INVENTORY                   ":normal
+	inverse:print"               Inventory                ":normal
 	print chr$(10)
 	print"cocaine:",m
 	print"heroin:",n
@@ -114,7 +161,7 @@ This has cleaned the code up a bit
 £buy
 	home
 	gosub @titlebar
-	inverse:print"                  BUY                   ":normal
+	inverse:print"                  Buy                   ":normal
 	print chr$(10)
 	print"What do you want to buy?"
 	print chr$(10)
@@ -131,91 +178,149 @@ This has cleaned the code up a bit
 		if x$="w" goto @weedbuy
 		if x$="s" goto @spdbuy
 		if x$="l" goto @ludbuy
-goto @menu
+	goto @menu
+
+£sell
+	home
+	gosub @titlebar
+	inverse:print"                 Sell                   ":normal
+	print chr$(10)
+	print "What would you like to sell?"
+	print chr$(10)
+	print "(C)ocaine"
+	print "(H)eroin"
+	print "(A)cid"
+	print "(W)eed"
+	print "(S)peed"
+	print "(L)udes"
+£sellsel
+	input "Enter Selection: (0 to cancel)";x$
+		if x$="c" goto @cokesell
+		if x$="h" goto @hersell
+		if x$="a" goto @acidsell
+		if x$="w" goto @weedsell
+		if x$="s" goto @spdsell
+		if x$="l" goto @ludsell
+		if x$="0" goto @menu
+	print "Invalid Selection!"
+	goto @sellsel
+£jet
+	home
+	gosub @titlebar
+	gosub @jetalthere
+	print chr$(10)
+	print "(B)ronx"
+	print "(G)hetto"
+	print "(C)entral Park
+	print "(M)anhattan"
+	print "Coney (I)sland"
+	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$="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}
+	p$ = y$ {it's valid, copy it and move along} : y$ = ""
+	goto @subway
+
+£loan
+	home
+	gosub @titlebar
+	inverse : print "               Loan Shark               ":normal
+	print chr$(10)
+	gosub @bronxcheck
+	print "Your debt is: $";v
+	print "You have: $";w
+	print chr$(10)
+	input "(R)epay, (B)orrow, (L)eave: ";X$
+		If X$ = "R" THEN goto @payme
+		If X$ = "B" Then goto @borrow
+		If X$ = "L" then goto @Menu
+	goto @loan
+
+£bank
+	home
+	gosub @titlebar
+	inverse : print"              Bank O'Murica             ":normal
+	print chr$(10)
+	gosub @bronxcheck
+	print "Your balance: $";e
+	print "Your wallet: $";w
+	print chr$(10)
+	INPUT "(D)EPOSIT, (W)ITHDRAW, (L)EAVE: ";X$
+		if x$ = "d" then goto @deposit
+		if x$ = "w" then goto @mymoney
+		if x$ = "l" then goto @menu
+	goto @bank
 
 £cokebuy
 	home
 	gosub @titlebar
-	inverse:print"             BUY COCAINE                ":normal
+	inverse:print"               Buy Cocaine              ":normal
 	print chr$(10)
-	j=int(w/c) {calculate how many we can buy}
+	j=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:print"               Buy Heroin               ":normal
 	print chr$(10)
-	j=int(w/h)
+	j=w/h
 	gosub @howmuchbuy
 	n=n+k : w=w-(h*k)
 	goto @menu
 £acidbuy
 	home
 	gosub @titlebar
-	inverse:print"                BUY ACID                 ":normal
+	inverse:print"                 Buy Acid               ":normal
 	print chr$(10)
-	j=int(w/a)
+	j=w/a
 	gosub @howmuchbuy
 	o=o+k : w=w-(a*k)
 	goto @menu
 £weedbuy
 	home
 	gosub @titlebar
-	inverse:print"                BUY WEED                ":normal
+	inverse:print"                 Buy Weed               ":normal
 	print chr$(10)
-	j=int(w/z)
+	j=w/z
 	gosub @howmuchbuy
 	u=u+k : w=w-(z*k)
 	goto @menu
 £spdbuy
 	home
 	gosub @titlebar
-	inverse:print"                BUY SPEED               ":normal
+	inverse:print"                Buy Speed               ":normal
 	print chr$(10)
-	j=int(w/s)
+	j=w/s
 	gosub @howmuchbuy
 	t=t+k : w=w-(s*k)
 	goto @menu
 £ludbuy
 	home
 	gosub @titlebar
-	inverse:print"                BUY LUDES               ":normal
+	inverse:print"               Buy Ludes                ":normal
 	print chr$(10)
-	j=int(w/l)
+	j=w/l
 	gosub @howmuchbuy
 	q=q+k : w=w-(l*k)
 	goto @menu
-£sell
-	home
-	gosub @titlebar
-	inverse:print"                   SELL                ":normal
-	print chr$(10)
-	print "What would you like to sell?"
-	print chr$(10)
-	print "(C)ocaine"
-	print "(H)eroin"
-	print "(A)cid"
-	print "(W)eed"
-	print "(S)peed"
-	print "(L)udes"
-£sellsel
-	input "Enter Selection: (0 to cancel)";x$
-		if x$="c" goto @cokesell
-		if x$="h" goto @hersell
-		if x$="a" goto @acidsell
-		if x$="w" goto @weedsell
-		if x$="s" goto @spdsell
-		if x$="l" goto @ludsell
-		if x$="0" goto @menu
-	print "Invalid Selection!"
-	goto @sellsel
+
 
 £cokesell
 	home
 	gosub @titlebar
-	inverse:print"             SELL COCAINE               ":normal
+	inverse:print"              Sell Cocaine              ":normal
 	print chr$(10)
 	j=m {write amount to variable}
 	gosub @howmuchsell
@@ -226,7 +331,7 @@ goto @menu
 £hersell
 	home
 	gosub @titlebar
-	inverse:print"              SELL HEROIN               ":normal
+	inverse:print"               Sell Heroin              ":normal
 	print chr$(10)
 	j=n
 	gosub @howmuchsell
@@ -237,7 +342,7 @@ goto @menu
 £acidsell
 	home
 	gosub @titlebar
-	inverse:print"              SELL  ACID                ":normal
+	inverse:print"                Sell Acid               ":normal
 	print chr$(10)
 	j=o
 	gosub @howmuchsell
@@ -248,7 +353,7 @@ goto @menu
 £weedsell
 	home
 	gosub @titlebar
-	inverse:print"              SELL  WEED                ":normal
+	inverse:print"                Sell Weed               ":normal
 	print chr$(10)
 	j=u
 	gosub @howmuchsell
@@ -259,7 +364,7 @@ goto @menu
 £spdsell
 	home
 	gosub @titlebar
-	inverse:print"             SELL  SPEED                ":normal
+	inverse:print"               Sell Speed               ":normal
 	print chr$(10)
 	j=t
 	gosub @howmuchsell
@@ -270,48 +375,22 @@ goto @menu
 £ludsell
 	home
 	gosub @titlebar
-	inverse:print"              SELL  LUDES               ":normal
+	inverse:print"                Sell Ludes              ":normal
 	print chr$(10)
 	j=q
 	gosub @howmuchsell
 	q=q-k
 	w=w+(l*k)
 	goto @menu
-£jet
-	home
-	gosub @titlebar
-	inverse:print"                   JET                  ":normal
-	print chr$(10)
-	print "(B)ronx"
-	print "(G)hetto"
-	print "(C)entral Park
-	print "(M)anhatten"
-	print "Coney (I)sland"
-	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$ = "Manhatten" : 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
-	if y$=p$ then goto @alreadythere {more advanced thatn Bronx only on TI}
-	p$ = y$ {it's valid, copy it and move along}
-	goto @subway
 
 £alreadythere
 	home
 	gosub @titlebar
-	inverse:print"                   JET                  ":normal
+	gosub @jetalthere
 	print chr$(10)
 	print "You're already in:"
 	print "            ";p$
-	gosub @wait
+	gosub @timerc
 	goto @jet
 
 £subway
@@ -320,7 +399,7 @@ goto @menu
 	V=int(V*1.1+.5) {loan calculation}
 	E=int(E*1.06+.5) {savings calculation}
 	gosub @titlebar
-	inverse:print"                 SUBWAY                 ":normal
+	inverse:print"                 Subway                 ":normal
 	print chr$(10)
 		if b=1 then goto @cheapludes
 		if b=2 then goto @cheepweed
@@ -344,37 +423,37 @@ goto @menu
 	print chr$(10) {the only way you should wind up here is if nothing happens}
 	print "Welcome to ";p$ {i hope}
 	print chr$(10)
-	input "Press ENTER to continue. ";X$
+	gosub @timerc
 	goto @menu
 	
 
 £cheapludes
 	print "Rival dealers are selling cheap ludes!"
 	l=2
-	gosub @wait
+	gosub @timerc
 	goto @menu
 £cheepweed
 	print "Weed prices have bottomed-out!"
 	z=122
-	gosub @wait
+	gosub @timerc
 	goto @menu
 £pigheroin
 	print "Pigs are selling cheap heroin"
 	print "from last week's raid!"
-	h=int((rnd(1)*1150)+850.5)
-	gosub @wait
+	h=int((rnd(9)*1150)+850.5)
+	gosub @timerc
 	goto @menu
 £heroinbust
 	print "Addicts are buying heroin"
 	print "at outrageous prices!"
-	h=int((rnd(1)*25000)+18000.5)
-	gosub @wait
+	h=int((rnd(9)*25000)+18000.5)
+	gosub @timerc
 	goto @menu
 £cokebust
 	print "Pigs made a big coke bust!"
 	print "Prices are outrageous!!!!"
-	c=int((rnd(1)*60000)+80000.5) {the infamous line 930}
-	gosub @wait
+	c=int((rnd(9)*60000)+80000.5) {the infamous line 930}
+	gosub @timerc
 	goto @menu
 £mugged
 	print "You got mugged!"
@@ -384,7 +463,7 @@ goto @menu
 	k=int(w-j)
 	print "You lost $";k
 	w=j
-	gosub @wait
+	gosub @timerc
 	gosub @menu
 £cops
 	k=m+n+u+o+t+p {cops only active when inventory < 50}
@@ -401,12 +480,12 @@ conditions on how/when we run cops
 	print "Officer Hardass and ";B-1;" of his"
 	print "deputies are after you!"
 	print
-	gosub @wait
+	gosub @timerc
 	goto @police
 £police
 	home
 	gosub @titlebar
-	inverse:print"              BEING CHASED!" :normal 
+	gosub @chase 
 	print
 	print 
 	print "View (G)uns"
@@ -425,7 +504,7 @@ conditions on how/when we run cops
 £pgun
 	home
 	gosub @titlebar
-	inverse:print"              BEING CHASED!" :normal 
+	gosub @chase 
 	print
 	print 
 	print "You have ";g;" guns.
@@ -435,7 +514,7 @@ conditions on how/when we run cops
 £damage
 	home
 	gosub @titlebar
-	inverse:print"              BEING CHASED!" :normal 
+	gosub @chase 
 	print
 	print 
 	print "Your current damage is ";bb;"."
@@ -447,7 +526,7 @@ conditions on how/when we run cops
 £ncops
 	home
 	gosub @titlebar
-	inverse:print"              BEING CHASED!" :normal 
+	gosub @chase 
 	print
 	print 
 	print "There are ";b;" pigs still chasing you!"
@@ -458,12 +537,11 @@ conditions on how/when we run cops
 £run
 	home
 	gosub @titlebar
-	inverse:print"              BEING CHASED!" :normal 
+	gosub @chase  
 	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
@@ -477,12 +555,10 @@ conditions on how/when we run cops
 	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 
+	gosub @chase 
 	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 
@@ -494,8 +570,6 @@ conditions on how/when we run cops
 	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
@@ -516,15 +590,14 @@ conditions on how/when we run cops
 	print "You killed all of them!"
 	print
 	gosub @timera
-	j=int((rnd(1)*1250)+750)
+	j=int(((rnd(7)*1250)+750)+.5)
 	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
+	gosub @timerc
 	print
 	print "Will you pay $1000 for a doctor"
 	input "to sew you up? (Y/N)";x$
@@ -534,17 +607,17 @@ conditions on how/when we run cops
 
 £gunbuy
 	if w < 500 THEN goto @nothinghappened
-	f=int(i-(m+n+o+u+t+p))
+	gosub @freespace
 	if f < 5 THEN goto @nothinghappened
-	j=int(rnd(1)*2)
+	j=int((rnd(4)*2)+.5)
 		if j = 0 then y$ = "Baretta"
 		if j = 1 then y$ = "Saturday Night Special"
 		if j = 2 then y$ = ".44 Magnum"
 	print "Will you buy a ";y$
 	input "for $400? (Y/N)";x$
 		if x$ <> "Y" then goto @menu
-	g = int(g+1)
-	w = int(w-400)
+	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}
 	goto @menu
 £dedweed {don't smoke the weed}
@@ -559,13 +632,13 @@ conditions on how/when we run cops
 	print "Will you buy a new trenchcoat"
 	input "with more pockets for $200? (Y/N)";X$
 		if X$ <> "Y" then goto @menu
-		i=int(i+10)
-		w=int(w-200)
+		i=i+10
+		w=w-200
 		goto @menu
 £dedguy
 	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)
+	j=int((rnd(3)*7)+1.5)
+	k=int(rnd(3)*5+.5)
 		if k=0 THEN q=q+j : y$ = "Ludes"
 		if k=1 THEN t=t+j : y$ = "Speed"
 		if k=2 THEN u=u+j : y$ = "Weed"
@@ -576,78 +649,44 @@ conditions on how/when we run cops
 	print "         ";y$
 	print "on a dead dude in the subway!"
 	print chr$(10)
-	gosub @wait
+	gosub @timerc
 	goto @menu
 £homeacid
 	print "The market has been flooded"
 	print "with cheap home-made acid!"
-	a=int((rnd(1)*550)+250.5)
-	gosub @wait
+	a=int((rnd(4)*550)+250.5)
+	gosub @timerc
 	goto @menu
 
-£notbronx
-	print "you need to head to the bronx"
-	print "to take care of this business."
-	gosub @wait
-	goto @menu
 		
-£loan
-	home
-	gosub @titlebar
-	inverse : print "         LOAN SHARK         ":normal
-	print chr$(10)
-	if p$ <> "THE BRONX" then goto @notbronx
-	print "Your debt is: $";v
-	print "You have: $";w
-	print chr$(10)
-	input "(R)epay, (B)orrow, (L)eave: ";X$
-		If X$ = "R" THEN goto @payme
-		If X$ = "B" Then goto @borrow
-		If X$ = "L" then goto @Menu
-	goto @loan
 £payme
 	INPUT "Repay how much? ";k
-		IF k>w THEN PRINT "YOU DON'T HAVE THAT MUCH!" : INPUT "PRESS ENTER TO CONTINUE. ";X$ : GOTO @LOAN
-		IF k>v THEN PRINT "YOU DON'T OWE THAT MUCH!" : INPUT"PRESS ENTER TO CONTINE. ";X$ : GOTO @LOAN
+		IF k>w THEN PRINT:PRINT "YOU DON'T HAVE THAT MUCH!" : GOSUB @timerb : GOTO @LOAN
+		IF k>v THEN PRINT:PRINT "YOU DON'T OWE THAT MUCH!" : GOSUB @timerb : GOTO @LOAN
 	W=W-k
 	v=v-k
-	PRINT "THANK YOU." 
-	GOSUB @WAIT
+	PRINT:PRINT "THANK YOU." 
+	GOSUB @timerc
 	GOTO @MENU
 £borrow
 	Input "How much do you want? ";K
-		if K>5000 then print "He's not that stupid!" : goto @borrow
+		print
+		j=int((rnd(10)*10000)+5000)
+		if K>14000 then print "He's not that stupid!" : gosub @timerc : goto @menu
+		if K > J then print "He doesn't feel like it." : gosub @timerb : goto @menu
 		v=v+k
 		w=w+k
 		print "Here's your money." : PRINT CHR$(10) : PRINT "Remember, I break thumbs."
-		gosub @wait
+		gosub @timerc
 		goto @menu
-		
-		
-		
 
-£bank
-	home
-	gosub @titlebar
-	inverse : print "         BANK O'MURICA         ":normal
-	print chr$(10)
-	if p$ <> "THE BRONX" then goto @notbronx
-	print "Your balance: $";e
-	print "Your wallet: $";w
-	print chr$(10)
-	INPUT "(D)EPOSIT, (W)ITHDRAW, (L)EAVE: ";X$
-		if x$ = "d" then goto @deposit
-		if x$ = "w" then goto @mymoney
-		if x$ = "l" then goto @menu
-	goto @bank
-	
 £deposit
 	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 "Thank you for your deposit."
-	gosub @wait
+	gosub @timerc
 	goto @menu
 £mymoney
 	INPUT "How much? ";j
@@ -655,39 +694,18 @@ conditions on how/when we run cops
 	e=e-j
 	w=w+j
 	print "Thank you for your business."
-	gosub @wait
+	gosub @timerc
 	goto @menu
 
 £instructions
 	home
-	gosub @titlebar
-	print chr$(10)
-	print "Welcome to DRUGWAR//e Beta 9"
-	print chr$(10)
-	print chr$(10)
-	input "Would you like instructions? (Y/N): ";X$
-	£inserrorhandler {I'm hoping this will prevent crashes}
+	vtab 2:htab10:print "Welcome to Drugwar//e":htab15:print"Version 1.0"
+	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$
+	j =RND(-1 *(PEEK(78)+256*PEEK(79)))
 		If X$ = "Y" THEN GOTO @inst
-		GOTO @gamestart
-£gamestart {set wallet, debt, location, inventory space, zero out inventory}
-	w=2000
-	e=0
-	v=5000
-	d=0 {daily subroutine adds a day}
-	p$="The Bronx"
-	g=0
-	i=100
-	m=0
-	n=0
-	o=0
-	u=0
-	t=0
-	q=0
-	gosub @daily {the only time we'll call this outside of the subway}
-	goto @menu {the real start of the game}
-
-
-
+	GOTO @gamestart
 
 £inst
 	home
@@ -696,42 +714,31 @@ conditions on how/when we run cops
 	print "This is a game of buying and selling."
 	print "Your goal is to pay off your debt and"
 	print "make as much money as possible in a one"
-	print "month period. Prices fluctuate every day"
-	print "and interest on your loan is calculated"
-	print "as well. If you deal too heavily, you'll"
-	print "attract the attention of the police.
+	print "month period. Prices fluctuate every dayand interest on your loan is calculated as well."
+	print:print "If you deal too heavily, you'll attract the attention of the police."
 	print CHR$(10)
-	print "Commands are usually the first letter"
-	print "of what you want to do. Y = yes and"
-	print "N = No."
-	Input "Press ENTER to continue.";X$
+	print "Commands are entered using the letter   highlighted (L)ike (S)o. Y is yes and   anything counts as no."
+	gosub @wait
 	goto @gamestart 
 £weedend
 	home
 	gosub @titlebar
-	inverse : print "       SMOKE WEED          " : NORMAL
+	inverse : print "              SMOKE Weed                " : NORMAL
 	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!"
-	gosub @wait
+	gosub @timerc
+	gosub @timerb
 	goto @ironicend
-
-£scorecalculate
-	k=(w+e)-v
-	if k<0 THEN k=0 : return
-	k=sqr((k/31.5)+.5)
-	k=int(k)
-	if k>100 then k=100
-	return
 	
 £endgame
 	home
 	gosub @titlebar
 	gosub @scorecalculate
-	inverse : print "       GAME OVER          " : NORMAL
+	gosub @gmod
 	print chr$(10)
 	print "Your score on a scale of 1 to 100: ";k
 	print chr$(10)
@@ -747,12 +754,13 @@ conditions on how/when we run cops
 	home
 	gosub @titlebar
 	gosub @scorecalculate
-	inverse : print "       GAME OVER          " : NORMAL
+	gosub @gmod
 	print chr$(10)
 	print "Your final score is: ";k
 	print chr$(10)
-	print "But you died from smoking weed? In a"
-	print "game about dealing drugs? Buddy, no"
+	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)
 	input "Would you like to play again? ";x$