drugwar2e.bas 17 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749
  1. 10 REM DRUGWAR2EV103.BAS - 20/10/2018 - 20h50
  2. 20 REM DRUGWAR//E - VERSION 1.03
  3. 30 REM 20-OCT-2018
  4. 40 REM COPYRIGHT 2018 JAY MOORE
  5. 50 REM RELEASED UNDER GPL V3
  6. 60 REM DRUGWAR2E.SOURCEFORGE.IO
  7. 70 REM TWITTER: _NQ4T
  8. 80 RV=1.03
  9. 90 GOTO 6870
  10. 100 REM->TITLEBAR
  11. 110 HTAB 16 : PRINT "DRUGWAR//E"
  12. 120 INVERSE:PRINT" ":NORMAL
  13. 130 RETURN
  14. 140 REM->WAIT
  15. 150 PRINT CHR$(10)
  16. 160 INPUT "PRESS ENTER TO CONTINUE.";X$
  17. 170 RETURN
  18. 180 REM->TWOFIFTEEN
  19. 190 VTAB 2 : HTAB 15
  20. 200 RETURN
  21. 210 REM->TWOSIXTEEN
  22. 220 VTAB 2:HTAB 16
  23. 230 RETURN
  24. 240 REM->TWOSEVENTEEN
  25. 250 VTAB 2:HTAB 17
  26. 260 RETURN
  27. 270 REM->TWOEIGHTEEN
  28. 280 VTAB 2: HTAB 18
  29. 290 RETURN
  30. 300 REM->TWONINETEEN
  31. 310 VTAB 2:HTAB 19
  32. 320 RETURN
  33. 330 REM->JETALTHERE
  34. 340 INVERSE:GOSUB 310:PRINT"JET":NORMAL
  35. 350 RETURN
  36. 360 REM->TIMERA
  37. 370 FOR J = 1 TO 2500
  38. 380 NEXT J
  39. 390 K = INT(RND(2)+.5)
  40. 400 RETURN
  41. 410 REM->TIMERB
  42. 420 FOR J = 1 TO 1000
  43. 430 NEXT J
  44. 440 RETURN
  45. 450 REM->TIMERC
  46. 460 FOR J = 1 TO 2000
  47. 470 NEXT J
  48. 480 RETURN
  49. 490 REM->HOWMUCHBUY
  50. 500 PRINT "YOU CAN AFFORD ";J
  51. 510 PRINT "YOU CAN CARRY ";F
  52. 520 REM->HOWMANYBUY
  53. 530 PRINT CHR$(10)
  54. 540 INPUT "HOW MANY? (ENTER 0 CANCEL): ";K
  55. 550 IF K=0 GOTO 1160
  56. 560 IF K>F THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 530
  57. 570 IF K>J THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 530
  58. 580 RETURN
  59. 590 REM->HOWMUCHSELL
  60. 600 PRINT "YOU CAN SELL: ";J
  61. 610 PRINT CHR$(10)
  62. 620 REM->HOWMANYSELL
  63. 630 INPUT "HOW MANY? (ENTER 0 TO CANCEL.): ";K
  64. 640 IF K>J THEN PRINT "YOU DON'T HAVE THAT MANY!" : GOTO 630
  65. 650 IF K=0 GOTO 1160
  66. 660 RETURN
  67. 670 REM->FREESPACE
  68. 680 F=I-((G*5)+M+N+O+U+T+Q)
  69. 690 RETURN
  70. 700 REM->CHASE
  71. 710 INVERSE:GOSUB 190: PRINT"BEING CHASED":NORMAL
  72. 720 RETURN
  73. 730 REM->GMOD
  74. 740 SPEED=100:GOSUB 220:INVERSE:PRINT"GAME OVER":NORMAL:SPEED=255
  75. 750 RETURN
  76. 760 REM->BRONXCHECK
  77. 770 IF P$ = "THE BRONX" THEN RETURN
  78. 780 PRINT "YOU NEED TO HEAD TO THE BRONX"
  79. 790 PRINT "TO TAKE CARE OF THIS BUSINESS."
  80. 800 GOSUB 460
  81. 810 GOTO 1160
  82. 820 REM->DAILY
  83. 830 C=INT(RND(5)*12000+16000.5)
  84. 840 H=INT(RND(5)*7000+5000.5)
  85. 850 A=INT((RND(5)*34+10)*100+.5)
  86. 860 Z=INT((RND(5)*42+33)*10+.5)
  87. 870 S=INT((RND(5)*15+7)*10+.5)
  88. 880 L=INT((RND(5)*4+1)*10+.5)
  89. 890 B=INT(RND(5)*20+.5)
  90. 900 D=D+1
  91. 910 REM->CHECKDAY
  92. 920 IF D >= 31 GOTO 7220
  93. 930 RETURN
  94. 940 REM->SCORECALCULATE
  95. 950 K=(W+E)-V
  96. 960 IF K<0 THEN K=0 : RETURN
  97. 970 K=INT(SQR((K/31.5)+.5))
  98. 980 IF K>100 THEN K=100
  99. 990 RETURN
  100. 1000 REM->GAMESTART
  101. 1010 W=2000
  102. 1020 E=0
  103. 1030 V=5000
  104. 1040 P$="THE BRONX"
  105. 1050 G=0
  106. 1060 I=100
  107. 1070 M=0
  108. 1080 N=0
  109. 1090 O=0
  110. 1100 U=0
  111. 1110 T=0
  112. 1120 Q=0
  113. 1130 GOSUB 830
  114. 1140 GOTO 1160
  115. 1150 REM->MENU
  116. 1160 HOME
  117. 1170 GOSUB 680
  118. 1180 GOSUB 110
  119. 1190 INVERSE : VTAB 2:HTAB 4:PRINT "DAY: "D : VTAB 2:HTAB 18:PRINT"LOCATION: "P$ :NORMAL
  120. 1200 PRINT CHR$(10)
  121. 1210 PRINT "(C)HECK PRICES"
  122. 1220 PRINT "(T)RENCHCOAT"
  123. 1230 PRINT "(B)UY"
  124. 1240 PRINT "(S)ELL"
  125. 1250 PRINT "(J)ET"
  126. 1260 PRINT "SEE (L)OAN SHARK"
  127. 1270 PRINT "(V)ISIT BANK"
  128. 1280 PRINT CHR$(10)
  129. 1290 INPUT "PLEASE MAKE YOUR SELECTION: ";X$
  130. 1300 IF X$ = "C" GOTO 1390
  131. 1310 IF X$ = "T" GOTO 1530
  132. 1320 IF X$ = "B" GOTO 1670
  133. 1330 IF X$ = "S" GOTO 1880
  134. 1340 IF X$ = "J" GOTO 2120
  135. 1350 IF X$ = "L" GOTO 2370
  136. 1360 IF X$ = "V" GOTO 2510
  137. 1370 GOTO 1160
  138. 1380 REM->PRICES
  139. 1390 HOME
  140. 1400 GOSUB 110
  141. 1410 INVERSE:GOSUB 280:PRINT"PRICES":NORMAL
  142. 1420 PRINT CHR$(10)
  143. 1430 PRINT"COCAINE:","$"C
  144. 1440 PRINT"HEROIN:","$"H
  145. 1450 PRINT"ACID:","$"A
  146. 1460 PRINT"WEED:","$"Z
  147. 1470 PRINT"SPEED:","$"S
  148. 1480 PRINT"LUDES:","$"L
  149. 1490 PRINT"WALLET:","$"W
  150. 1500 GOSUB 150
  151. 1510 GOTO 1160
  152. 1520 REM->INVENTORY
  153. 1530 HOME
  154. 1540 GOSUB 110
  155. 1550 INVERSE:GOSUB 220 :PRINT"TRENCHCOAT":NORMAL
  156. 1560 PRINT CHR$(10)
  157. 1570 PRINT"COCAINE:",M
  158. 1580 PRINT"HEROIN:",N
  159. 1590 PRINT"ACID:",O
  160. 1600 PRINT"WEED:",U
  161. 1610 PRINT"SPEED:",T
  162. 1620 PRINT"LUDES:",Q
  163. 1630 PRINT"FREE SPACE:",F
  164. 1640 GOSUB 150
  165. 1650 GOTO 1160
  166. 1660 REM->BUY
  167. 1670 HOME
  168. 1680 GOSUB 110
  169. 1690 INVERSE:GOSUB 310: PRINT"BUY":NORMAL
  170. 1700 PRINT CHR$(10)
  171. 1710 PRINT"WHAT DO YOU WANT TO BUY?"
  172. 1720 PRINT CHR$(10)
  173. 1730 PRINT "(C)OCAINE"
  174. 1740 PRINT "(H)EROIN"
  175. 1750 PRINT "(A)CID"
  176. 1760 PRINT "(W)EED"
  177. 1770 PRINT "(S)PEED"
  178. 1780 PRINT "(L)UDES"
  179. 1790 INPUT "ENTER SELECTION: ";X$
  180. 1800 IF X$="C" GOTO 2660
  181. 1810 IF X$="H" GOTO 2750
  182. 1820 IF X$="A" GOTO 2840
  183. 1830 IF X$="W" GOTO 2930
  184. 1840 IF X$="S" GOTO 3020
  185. 1850 IF X$="L" GOTO 3110
  186. 1860 GOTO 1160
  187. 1870 REM->SELL
  188. 1880 HOME
  189. 1890 GOSUB 110
  190. 1900 INVERSE: GOSUB 280: PRINT"SELL":NORMAL
  191. 1910 PRINT CHR$(10)
  192. 1920 PRINT "WHAT WOULD YOU LIKE TO SELL?"
  193. 1930 PRINT CHR$(10)
  194. 1940 PRINT "(C)OCAINE"
  195. 1950 PRINT "(H)EROIN"
  196. 1960 PRINT "(A)CID"
  197. 1970 PRINT "(W)EED"
  198. 1980 PRINT "(S)PEED"
  199. 1990 PRINT "(L)UDES"
  200. 2000 REM->SELLSEL
  201. 2010 INPUT "ENTER SELECTION: (0 TO CANCEL)";X$
  202. 2020 IF X$="C" GOTO 3200
  203. 2030 IF X$="H" GOTO 3300
  204. 2040 IF X$="A" GOTO 3400
  205. 2050 IF X$="W" GOTO 3500
  206. 2060 IF X$="S" GOTO 3600
  207. 2070 IF X$="L" GOTO 3700
  208. 2080 IF X$="0" GOTO 1160
  209. 2090 PRINT "INVALID SELECTION!"
  210. 2100 GOTO 2010
  211. 2110 REM->JET
  212. 2120 HOME
  213. 2130 GOSUB 110
  214. 2140 GOSUB 340
  215. 2150 PRINT CHR$(10)
  216. 2160 PRINT "(B)RONX"
  217. 2170 PRINT "(G)HETTO"
  218. 2180 PRINT "(C)ENTRAL PARK
  219. 2190 PRINT "(M)ANHATTAN"
  220. 2200 PRINT "CONEY (I)SLAND"
  221. 2210 PRINT "BROO(K)LYN"
  222. 2220 PRINT "(O)OPS...STAY!"
  223. 2230 INPUT "WHERE TO DUDE? ";X$
  224. 2240 IF X$="B" THEN Y$ = "THE BRONX" : GOTO 2330
  225. 2250 IF X$="G" THEN Y$ = "THE GHETTO" : GOTO 2330
  226. 2260 IF X$="C" THEN Y$ = "CENTRAL PARK" : GOTO 2330
  227. 2270 IF X$="M" THEN Y$ = "MANHATTAN" : GOTO 2330
  228. 2280 IF X$="I" THEN Y$ = "CONEY ISLAND" : GOTO 2330
  229. 2290 IF X$="K" THEN Y$ = "BROOKLYN" : GOTO 2330
  230. 2300 IF X$="O" THEN GOTO 1160
  231. 2310 GOTO 2120
  232. 2320 REM->JETB
  233. 2330 IF Y$=P$ THEN GOTO 3800
  234. 2340 P$ = Y$ : Y$ = ""
  235. 2350 GOTO 3890
  236. 2360 REM->LOAN
  237. 2370 HOME
  238. 2380 GOSUB 110
  239. 2390 INVERSE : GOSUB 220:PRINT "LOAN SHARK":NORMAL
  240. 2400 PRINT CHR$(10)
  241. 2410 GOSUB 770
  242. 2420 PRINT "YOUR DEBT IS: $";V
  243. 2430 PRINT "YOU HAVE: $";W
  244. 2440 PRINT CHR$(10)
  245. 2450 INPUT "(R)EPAY, (B)ORROW, (L)EAVE: ";X$
  246. 2460 IF X$ = "R" THEN GOTO 6450
  247. 2470 IF X$ = "B" THEN GOTO 6540
  248. 2480 IF X$ = "L" THEN GOTO 1160
  249. 2490 GOTO 2370
  250. 2500 REM->BANK
  251. 2510 HOME
  252. 2520 GOSUB 110
  253. 2530 INVERSE : GOSUB 190: PRINT"BANK O'MURICA":NORMAL
  254. 2540 PRINT CHR$(10)
  255. 2550 GOSUB 770
  256. 2560 PRINT "YOUR BALANCE: $";E
  257. 2570 PRINT "YOUR WALLET: $";W
  258. 2580 PRINT CHR$(10)
  259. 2590 INPUT "(D)EPOSIT, (W)ITHDRAW, (L)EAVE: ";X$
  260. 2600 IF X$ = "D" THEN GOTO 6670
  261. 2610 IF X$ = "W" THEN GOTO 6770
  262. 2620 IF X$ = "L" THEN GOTO 1160
  263. 2630 IF X$ = EG$ THEN GOTO @EGG
  264. 2640 GOTO 2510
  265. 2650 REM->COKEBUY
  266. 2660 HOME
  267. 2670 GOSUB 110
  268. 2680 INVERSE:GOSUB 220: PRINT"BUY COCAINE":NORMAL
  269. 2690 PRINT CHR$(10)
  270. 2700 J=INT(W/C)
  271. 2710 GOSUB 500
  272. 2720 M=M+K : W=W-(C*K)
  273. 2730 GOTO 1160
  274. 2740 REM->HERBUY
  275. 2750 HOME
  276. 2760 GOSUB 110
  277. 2770 INVERSE:GOSUB 220: PRINT"BUY HEROIN":NORMAL
  278. 2780 PRINT CHR$(10)
  279. 2790 J=INT(W/H)
  280. 2800 GOSUB 500
  281. 2810 N=N+K : W=W-(H*K)
  282. 2820 GOTO 1160
  283. 2830 REM->ACIDBUY
  284. 2840 HOME
  285. 2850 GOSUB 110
  286. 2860 INVERSE:GOSUB 250:PRINT"BUY ACID":NORMAL
  287. 2870 PRINT CHR$(10)
  288. 2880 J=INT(W/A)
  289. 2890 GOSUB 500
  290. 2900 O=O+K : W=W-(A*K)
  291. 2910 GOTO 1160
  292. 2920 REM->WEEDBUY
  293. 2930 HOME
  294. 2940 GOSUB 110
  295. 2950 INVERSE:GOSUB 250: PRINT"BUY WEED":NORMAL
  296. 2960 PRINT CHR$(10)
  297. 2970 J=INT(W/Z)
  298. 2980 GOSUB 500
  299. 2990 U=U+K : W=W-(Z*K)
  300. 3000 GOTO 1160
  301. 3010 REM->SPDBUY
  302. 3020 HOME
  303. 3030 GOSUB 110
  304. 3040 INVERSE:GOSUB 250: PRINT"BUY SPEED":NORMAL
  305. 3050 PRINT CHR$(10)
  306. 3060 J=INT(W/S)
  307. 3070 GOSUB 500
  308. 3080 T=T+K : W=W-(S*K)
  309. 3090 GOTO 1160
  310. 3100 REM->LUDBUY
  311. 3110 HOME
  312. 3120 GOSUB 110
  313. 3130 INVERSE:GOSUB 250: PRINT"BUY LUDES":NORMAL
  314. 3140 PRINT CHR$(10)
  315. 3150 J=INT(W/L)
  316. 3160 GOSUB 500
  317. 3170 Q=Q+K : W=W-(L*K)
  318. 3180 GOTO 1160
  319. 3190 REM->COKESELL
  320. 3200 HOME
  321. 3210 GOSUB 110
  322. 3220 INVERSE:GOSUB 190:PRINT"SELL COCAINE":NORMAL
  323. 3230 PRINT CHR$(10)
  324. 3240 J=M
  325. 3250 GOSUB 600
  326. 3260 M=M-K
  327. 3270 W=W+(C*K)
  328. 3280 GOTO 1160
  329. 3290 REM->HERSELL
  330. 3300 HOME
  331. 3310 GOSUB 110
  332. 3320 INVERSE:GOSUB 250:PRINT"SELL HEROIN":NORMAL
  333. 3330 PRINT CHR$(10)
  334. 3340 J=N
  335. 3350 GOSUB 600
  336. 3360 N=N-K
  337. 3370 W=W+(H*K)
  338. 3380 GOTO 1160
  339. 3390 REM->ACIDSELL
  340. 3400 HOME
  341. 3410 GOSUB 110
  342. 3420 INVERSE:GOSUB 250: PRINT"SELL ACID":NORMAL
  343. 3430 PRINT CHR$(10)
  344. 3440 J=O
  345. 3450 GOSUB 600
  346. 3460 O=O-K
  347. 3470 W=W+(A*K)
  348. 3480 GOTO 1160
  349. 3490 REM->WEEDSELL
  350. 3500 HOME
  351. 3510 GOSUB 110
  352. 3520 INVERSE:GOSUB 250:PRINT"SELL WEED":NORMAL
  353. 3530 PRINT CHR$(10)
  354. 3540 J=U
  355. 3550 GOSUB 600
  356. 3560 U=U-K
  357. 3570 W=W+(Z*K)
  358. 3580 GOTO 1160
  359. 3590 REM->SPDSELL
  360. 3600 HOME
  361. 3610 GOSUB 110
  362. 3620 INVERSE:GOSUB 220:PRINT"SELL SPEED":NORMAL
  363. 3630 PRINT CHR$(10)
  364. 3640 J=T
  365. 3650 GOSUB 600
  366. 3660 T=T-K
  367. 3670 W=W+(S*K)
  368. 3680 GOTO 1160
  369. 3690 REM->LUDSELL
  370. 3700 HOME
  371. 3710 GOSUB 110
  372. 3720 INVERSE:GOSUB 220:PRINT"SELL LUDES":NORMAL
  373. 3730 PRINT CHR$(10)
  374. 3740 J=Q
  375. 3750 GOSUB 600
  376. 3760 Q=Q-K
  377. 3770 W=W+(L*K)
  378. 3780 GOTO 1160
  379. 3790 REM->ALREADYTHERE
  380. 3800 HOME
  381. 3810 GOSUB 110
  382. 3820 GOSUB 340
  383. 3830 PRINT CHR$(10)
  384. 3840 PRINT "YOU'RE ALREADY IN:"
  385. 3850 PRINT " ";P$
  386. 3860 GOSUB 460
  387. 3870 GOTO 2120
  388. 3880 REM->SUBWAY
  389. 3890 HOME
  390. 3900 GOSUB 830
  391. 3910 V=INT(V*1.1+.5)
  392. 3920 E=INT(E*1.06+.5)
  393. 3930 GOSUB 110
  394. 3940 INVERSE:GOSUB 280:PRINT"SUBWAY":NORMAL
  395. 3950 PRINT CHR$(10)
  396. 3960 IF B=1 THEN GOTO 4210
  397. 3970 IF B=2 THEN GOTO 4260
  398. 3980 IF B=3 THEN GOTO 4310
  399. 3990 IF B=4 THEN GOTO 4370
  400. 4000 IF B=5 THEN GOTO 4370
  401. 4010 IF B=6 THEN GOTO 4430
  402. 4020 IF B=7 THEN GOTO 4430
  403. 4030 IF B=8 THEN GOTO 4490
  404. 4040 IF B=9 THEN GOTO 4590
  405. 4050 IF B=10 THEN GOTO 4590
  406. 4060 IF B=11 THEN GOTO 4590
  407. 4070 IF B=12 THEN GOTO 5930
  408. 4080 IF B=13 THEN GOTO 5930
  409. 4090 IF B=14 THEN GOTO 6070
  410. 4100 IF B=15 THEN GOTO 6140
  411. 4110 IF B=16 THEN GOTO 6220
  412. 4120 IF B=17 THEN GOTO 6390
  413. 4130 REM->NOTHINGHAPPENED
  414. 4140 REM->NOTHINGHAPPENS
  415. 4150 PRINT CHR$(10)
  416. 4160 PRINT "WELCOME TO ";P$
  417. 4170 PRINT CHR$(10)
  418. 4180 GOSUB 460
  419. 4190 GOTO 1160
  420. 4200 REM->CHEAPLUDES
  421. 4210 PRINT "RIVAL DEALERS ARE SELLING CHEAP LUDES!"
  422. 4220 L=2
  423. 4230 GOSUB 460
  424. 4240 GOTO 1160
  425. 4250 REM->CHEEPWEED
  426. 4260 PRINT "WEED PRICES HAVE BOTTOMED-OUT!"
  427. 4270 Z=122
  428. 4280 GOSUB 460
  429. 4290 GOTO 1160
  430. 4300 REM->PIGHEROIN
  431. 4310 PRINT "PIGS ARE SELLING CHEAP HEROIN"
  432. 4320 PRINT "FROM LAST WEEK'S RAID!"
  433. 4330 H=INT((RND(9)*1150)+850.5)
  434. 4340 GOSUB 460
  435. 4350 GOTO 1160
  436. 4360 REM->HEROINBUST
  437. 4370 PRINT "ADDICTS ARE BUYING HEROIN"
  438. 4380 PRINT "AT OUTRAGEOUS PRICES!"
  439. 4390 H=INT((RND(9)*25000)+18000.5)
  440. 4400 GOSUB 460
  441. 4410 GOTO 1160
  442. 4420 REM->COKEBUST
  443. 4430 PRINT "PIGS MADE A BIG COKE BUST!"
  444. 4440 PRINT "PRICES ARE OUTRAGEOUS!!!!"
  445. 4450 C=INT((RND(9)*60000)+80000.5)
  446. 4460 GOSUB 460
  447. 4470 GOTO 1160
  448. 4480 REM->MUGGED
  449. 4490 PRINT "YOU GOT MUGGED!"
  450. 4500 PRINT CHR$(10)
  451. 4510 J=INT(W/3)
  452. 4520 J=INT(J*2)
  453. 4530 K=INT(W-J)
  454. 4540 PRINT "YOU LOST $";K
  455. 4550 W=J
  456. 4560 GOSUB 460
  457. 4570 GOSUB 1160
  458. 4580 REM->COPS
  459. 4590 K=M+N+U+O+T+P
  460. 4600 IF K<50 THEN GOTO 4140
  461. 4610 IF B=9 THEN B = 2
  462. 4620 IF B=10 THEN B=4
  463. 4630 IF B=11 THEN B=5
  464. 4640 PRINT "IT'S THE COPS!"
  465. 4650 PRINT CHR$(10)
  466. 4660 PRINT "OFFICER HARDASS AND ";B-1;" OF HIS"
  467. 4670 PRINT "DEPUTIES ARE AFTER YOU!"
  468. 4680 PRINT
  469. 4690 GOSUB 460
  470. 4700 GOTO 4720
  471. 4710 REM->POLICE
  472. 4720 HOME
  473. 4730 GOSUB 110
  474. 4740 GOSUB 710
  475. 4750 PRINT
  476. 4760 PRINT
  477. 4770 PRINT "VIEW (G)UNS"
  478. 4780 PRINT "VIEW (D)AMAGE"
  479. 4790 PRINT "(N)UMBER OF PIGS"
  480. 4800 PRINT "(R)UN"
  481. 4810 PRINT "(F)IGHT"
  482. 4820 PRINT
  483. 4830 INPUT "WHAT DO YOU WANT TO DO? ";X$
  484. 4840 IF X$="G" GOTO 4910
  485. 4850 IF X$ = "D" GOTO 5010
  486. 4860 IF X$ = "N" GOTO 5130
  487. 4870 IF X$ = "R" GOTO 5240
  488. 4880 IF X$="F" GOTO 5410
  489. 4890 GOTO 4720
  490. 4900 REM->PGUN
  491. 4910 HOME
  492. 4920 GOSUB 110
  493. 4930 GOSUB 710
  494. 4940 PRINT
  495. 4950 PRINT
  496. 4960 PRINT "YOU HAVE ";G;" GUNS.
  497. 4970 PRINT
  498. 4980 GOSUB 150
  499. 4990 GOTO 4720
  500. 5000 REM->DAMAGE
  501. 5010 HOME
  502. 5020 GOSUB 110
  503. 5030 GOSUB 710
  504. 5040 PRINT
  505. 5050 PRINT
  506. 5060 PRINT "YOUR CURRENT DAMAGE IS ";BB;"."
  507. 5070 PRINT
  508. 5080 PRINT "50 AND YOU DIE!"
  509. 5090 PRINT
  510. 5100 GOSUB 150
  511. 5110 GOTO 4720
  512. 5120 REM->NCOPS
  513. 5130 HOME
  514. 5140 GOSUB 110
  515. 5150 GOSUB 710
  516. 5160 PRINT
  517. 5170 PRINT
  518. 5180 PRINT "THERE ARE ";B;" PIGS STILL CHASING YOU!"
  519. 5190 PRINT
  520. 5200 PRINT
  521. 5210 GOSUB 150
  522. 5220 GOTO 4720
  523. 5230 REM->RUN
  524. 5240 HOME
  525. 5250 GOSUB 110
  526. 5260 GOSUB 710
  527. 5270 PRINT
  528. 5280 PRINT
  529. 5290 PRINT "RUNNING..."
  530. 5300 GOSUB 370
  531. 5310 IF K = 0 THEN PRINT "YOU LOST THEM IN AN ALLEY!" : GOTO 5370
  532. 5320 PRINT "YOU CAN'T SHAKE THEM!"
  533. 5330 PRINT
  534. 5340 GOSUB 150
  535. 5350 GOTO 4720
  536. 5360 REM->LOSERUN
  537. 5370 PRINT
  538. 5380 GOSUB 150
  539. 5390 GOTO 1160
  540. 5400 REM->FIGHT
  541. 5410 IF G<=0 THEN PRINT : PRINT : PRINT "YOU DON'T HAVE ANY GUNS!" : GOSUB 150 : GOTO 4720
  542. 5420 HOME
  543. 5430 GOSUB 110
  544. 5440 GOSUB 710
  545. 5450 PRINT
  546. 5460 PRINT "YOU SHOOT!"
  547. 5470 GOSUB 370
  548. 5480 IF K=0 THEN GOTO 5510
  549. 5490 PRINT "YOU GOT ONE!" : B = B-1 : GOTO 5530
  550. 5500 REM->MISS
  551. 5510 PRINT "YOU MISSED!"
  552. 5520 REM->NEXT
  553. 5530 PRINT
  554. 5540 PRINT
  555. 5550 IF B <= 0 THEN GOTO 5750
  556. 5560 GOSUB 420
  557. 5570 PRINT "THEY'RE FIRING AT YOU!"
  558. 5580 GOSUB 370
  559. 5590 IF K=0 THEN GOTO 5650
  560. 5600 PRINT "YOU'VE BEEN HIT!"
  561. 5610 BB=BB+3
  562. 5620 IF BB >= 50 GOTO 5700
  563. 5630 GOTO 5670
  564. 5640 REM->THEYMISS
  565. 5650 PRINT "THEY MISSED!"
  566. 5660 REM->NEXTA
  567. 5670 GOSUB 150
  568. 5680 GOTO 4720
  569. 5690 REM->DED
  570. 5700 PRINT
  571. 5710 PRINT "YOU'VE BEEN KILLED!"
  572. 5720 GOSUB 150
  573. 5730 GOTO 7220
  574. 5740 REM->ALLGONE
  575. 5750 PRINT "YOU KILLED ALL OF THEM!"
  576. 5760 PRINT
  577. 5770 GOSUB 370
  578. 5780 J=INT(((RND(7)*1250)+750)+.5)
  579. 5790 W=W+J
  580. 5800 PRINT "YOU FOUND $";J;" ON OFFICER HARDASS'"
  581. 5810 PRINT "CARCASS!"
  582. 5820 IF W>=1200 THEN GOTO 5850
  583. 5830 GOTO 1160
  584. 5840 REM->DOCTOR
  585. 5850 GOSUB 460
  586. 5860 PRINT
  587. 5870 PRINT "WILL YOU PAY $1000 FOR A DOCTOR"
  588. 5880 INPUT "TO SEW YOU UP? (Y/N)";X$
  589. 5890 IF X$ <> "Y" THEN GOTO 1160
  590. 5900 W=W-1000
  591. 5910 BB=0
  592. 5920 REM->GUNBUY
  593. 5930 IF W < 500 THEN GOTO 4140
  594. 5940 GOSUB 680
  595. 5950 IF F < 5 THEN GOTO 4140
  596. 5960 J=INT((RND(4)*2)+.5)
  597. 5970 IF J = 0 THEN Y$ = "BARETTA"
  598. 5980 IF J = 1 THEN Y$ = "SATURDAY NIGHT SPECIAL"
  599. 5990 IF J = 2 THEN Y$ = ".44 MAGNUM"
  600. 6000 PRINT "WILL YOU BUY A ";Y$
  601. 6010 INPUT "FOR $400? (Y/N)";X$
  602. 6020 IF X$ <> "Y" THEN GOTO 1160
  603. 6030 G = G+1
  604. 6040 W = W-400
  605. 6050 GOTO 1160
  606. 6060 REM->DEDWEED
  607. 6070 PRINT "THERE'S SOME WEED HERE THAT SMELLS"
  608. 6080 PRINT "LIKE GOOD STUFF!!"
  609. 6090 PRINT CHR$(10)
  610. 6100 INPUT "WILL YOU SMOKE IT? (Y/N)";X$
  611. 6110 IF X$ = "Y" THEN GOTO 7090
  612. 6120 GOTO1160
  613. 6130 REM->NEWCOAT
  614. 6140 IF W<300 THEN GOTO 4150
  615. 6150 PRINT "WILL YOU BUY A NEW TRENCHCOAT"
  616. 6160 INPUT "WITH MORE POCKETS FOR $200? (Y/N)";X$
  617. 6170 IF X$ <> "Y" THEN GOTO 1160
  618. 6180 I=I+10
  619. 6190 W=W-200
  620. 6200 GOTO 1160
  621. 6210 REM->DEDGUY
  622. 6220 GOSUB 680
  623. 6230 IF F<8 THEN GOTO 4150
  624. 6240 J=INT((RND(3)*7)+1.5)
  625. 6250 K=INT(RND(3)*5+.5)
  626. 6260 IF K=0 THEN Q=Q+J : Y$ = "LUDES"
  627. 6270 IF K=1 THEN T=T+J : Y$ = "SPEED"
  628. 6280 IF K=2 THEN U=U+J : Y$ = "WEED"
  629. 6290 IF K=3 THEN O=O+J : Y$ = "ACID"
  630. 6300 IF K=4 THEN N=N+J : Y$ = "HEROIN"
  631. 6310 IF K=5 THEN M=M+J : Y$ = "COCAINE"
  632. 6320 PRINT "YOU FOUND ";J;" UNITS OF"
  633. 6330 PRINT " ";Y$
  634. 6340 PRINT "ON A DEAD DUDE IN THE SUBWAY!"
  635. 6350 PRINT CHR$(10)
  636. 6360 GOSUB 460
  637. 6370 GOTO 1160
  638. 6380 REM->HOMEACID
  639. 6390 PRINT "THE MARKET HAS BEEN FLOODED"
  640. 6400 PRINT "WITH CHEAP HOME-MADE ACID!"
  641. 6410 A=INT((RND(4)*550)+250.5)
  642. 6420 GOSUB 460
  643. 6430 GOTO 1160
  644. 6440 REM->PAYME
  645. 6450 INPUT "REPAY HOW MUCH? ";K
  646. 6460 IF K>W THEN PRINT:PRINT "YOU DON'T HAVE THAT MUCH!" : GOSUB 420 : GOTO 2370
  647. 6470 IF K>V THEN PRINT:PRINT "YOU DON'T OWE THAT MUCH!" : GOSUB 420 : GOTO 2370
  648. 6480 W=W-K
  649. 6490 V=V-K
  650. 6500 PRINT:PRINT "THANK YOU."
  651. 6510 GOSUB 460
  652. 6520 GOTO 1160
  653. 6530 REM->BORROW
  654. 6540 PRINT CHR$(10)
  655. 6550 INPUT "HOW MUCH DO YOU WANT? ";K
  656. 6560 PRINT
  657. 6570 J=INT((RND(10)*10000)+5000)
  658. 6580 IF K>14000 THEN PRINT "HE'S NOT THAT STUPID!" : GOSUB 460 : GOTO 1160
  659. 6590 IF K > J THEN PRINT "HE DOESN'T FEEL LIKE IT." : GOSUB 420 : GOTO 1160
  660. 6600 V=V+K
  661. 6610 W=W+K
  662. 6620 PRINT CHR$(10)
  663. 6630 PRINT "HERE'S YOUR MONEY." : PRINT CHR$(10) : PRINT "REMEMBER, I BREAK THUMBS."
  664. 6640 GOSUB 460
  665. 6650 GOTO 1160
  666. 6660 REM->DEPOSIT
  667. 6670 PRINT CHR$(10)
  668. 6680 INPUT "HOW MUCH? ";J
  669. 6690 IF J>W THEN PRINT "YOU DON'T HAVE THAT MUCH CASH." : GOTO 6670
  670. 6700 E=E+J
  671. 6710 W=W-J
  672. 6720 PRINT CHR$(10)
  673. 6730 PRINT "THANK YOU FOR YOUR DEPOSIT."
  674. 6740 GOSUB 460
  675. 6750 GOTO 1160
  676. 6760 REM->MYMONEY
  677. 6770 PRINT CHR$(10)
  678. 6780 INPUT "HOW MUCH? ";J
  679. 6790 IF J>E THEN PRINT "YOU DON'T HAVE SUFFICIENT FUNDS." : GOTO 6770
  680. 6800 E=E-J
  681. 6810 W=W+J
  682. 6820 PRINT CHR$(10)
  683. 6830 PRINT "THANK YOU FOR YOUR BUSINESS."
  684. 6840 GOSUB 460
  685. 6850 GOTO 1160
  686. 6860 REM->INSTRUCTIONS
  687. 6870 HOME
  688. 6880 VTAB 2:HTAB10:PRINT "WELCOME TO DRUGWAR//E":HTAB14:PRINT"VERSION ";RV
  689. 6890 VTAB 8:HTAB 3:PRINT "BASED ON THE CLASSIC TI-BASIC CLONE":HTAB2:PRINT"OF JOHN E. DELL'S 1984 IBM/TRS80 GAME."
  690. 6900 VTAB12:HTAB6:PRINT "APPLESOFT VERSION BY: JAY MOORE"
  691. 6910 VTAB19:INPUT "WOULD YOU LIKE INSTRUCTIONS? (Y/N): ";X$
  692. 6920 J =RND(-1 *(PEEK(78)+256*PEEK(79)))
  693. 6930 IF X$ = "Y" THEN GOTO 6960
  694. 6940 GOTO 1010
  695. 6950 REM->INST
  696. 6960 HOME
  697. 6970 GOSUB 110
  698. 6980 PRINT CHR$(10)
  699. 6990 PRINT "THIS IS A GAME OF BUYING AND SELLING."
  700. 7000 PRINT "YOUR GOAL IS TO PAY OFF YOUR DEBT AND"
  701. 7010 PRINT "MAKE AS MUCH MONEY AS POSSIBLE IN A ONE"
  702. 7020 PRINT "MONTH PERIOD. PRICES FLUCTUATE EVERY DAYAND INTEREST ON YOUR LOAN IS CALCULATED AS WELL."
  703. 7030 PRINT:PRINT "IF YOU DEAL TOO HEAVILY, YOU'LL ATTRACT THE ATTENTION OF THE POLICE."
  704. 7040 PRINT CHR$(10)
  705. 7050 PRINT "COMMANDS ARE ENTERED USING THE LETTER HIGHLIGHTED (L)IKE (S)O. Y IS YES AND ANYTHING COUNTS AS NO."
  706. 7060 GOSUB 150
  707. 7070 GOTO 1010
  708. 7080 REM->WEEDEND
  709. 7090 HOME
  710. 7100 GOSUB 110
  711. 7110 INVERSE : GOSUB 190: PRINT "SMOKE WEED" : NORMAL
  712. 7120 SPEED = 50 :PRINT "YOU HALLUCINATE ON THE WILDEST TRIP"
  713. 7130 PRINT "OF YOUR LIFE, STUMBLE ON TO THE TRACKS,"
  714. 7140 PRINT "AND GET CREAMED BY A TRAIN!"
  715. 7150 PRINT CHR$(10)
  716. 7160 PRINT CHR$(10)
  717. 7170 HTAB 10:PRINT "JUST SAY NO TO DRUGS!":SPEED=255
  718. 7180 GOSUB 460
  719. 7190 GOSUB 420
  720. 7200 GOTO 7370
  721. 7210 REM->ENDGAME
  722. 7220 HOME
  723. 7230 GOSUB 110
  724. 7240 GOSUB 950
  725. 7250 GOSUB 740
  726. 7260 PRINT CHR$(10)
  727. 7270 PRINT "YOUR SCORE ON A SCALE OF 1 TO 100: ";K
  728. 7280 PRINT CHR$(10)
  729. 7290 INPUT "WOULD YOU LIKE TO PLAY AGAIN? (Y/N)";X$
  730. 7300 IF X$ = "Y" THEN GOTO 1010
  731. 7310 PRINT "THANKS FOR PLAYING."
  732. 7320 PRINT "REMEMBER, WATCH YOUR BACK."
  733. 7330 PRINT "HAVE A NICE DAY!"
  734. 7340 CLEAR
  735. 7350 END
  736. 7360 REM->IRONICEND
  737. 7370 HOME
  738. 7380 GOSUB 110
  739. 7390 GOSUB 740
  740. 7400 PRINT CHR$(10)
  741. 7410 SPEED = 50 : PRINT "YOU DIED FROM SMOKING WEED."
  742. 7420 PRINT CHR$(10)
  743. 7430 PRINT CHR$(10)
  744. 7440 GOSUB 460: PRINT"SEE? GAMES ARE TOTALLY FAKE." : SPEED = 255
  745. 7450 PRINT CHR$(10)
  746. 7460 INPUT "WOULD YOU LIKE TO PLAY AGAIN? ";X$
  747. 7470 IF X$= "Y" THEN GOTO 1010
  748. 7480 CLEAR
  749. 7490 END