oops

DRUGWAR2e.bas

@@ -1,5 +1,5 @@
 1 
-2 RV=1.05:GOTO308
+2 RV=1.05:GOTO307
 3 
 4 POKE36,0:POKE37,1:CALL -958:INVERSE:?"                                        ":NORMAL:?:?:RETURN
 5 
@@ -49,12 +49,12 @@
 49 ?"YOU NEED TO HEAD TO THE BRONX":?"TO TAKE CARE OF THIS BUSINESS."
 50 GOSUB24:GOTO65
 51 
-52 IFAD>=3THENGOTO315
+52 IFAD>=3THENGOTO314
 53 RETURN
 54 
 55 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):D=D+1:AC=INT(((RND(1)*3)+1)*-1)
 56 
-57 IFD>=31GOTO320:RETURN
+57 IFD>=31GOTO319:RETURN
 58 
 59 K=(W+E)-V:IFK<0THENK=0:RETURN
 60 K=INT(SQR((K/31.5)+.5)):IFK>100THENK=100
@@ -127,15 +127,15 @@
 127 GOTO168
 128 
 129 GOSUB4:INVERSE:GOSUB10:?"LOAN SHARK":NORMAL:?:GOSUB48:?"YOUR DEBT IS:$";V:?"YOU HAVE:$";W:?:INPUT"(R)EPAY, (B)ORROW, (L)EAVE:";X$
-130 IFX$="R"THENGOTO285
-131 IFX$="B"THENGOTO290
+130 IFX$="R"THENGOTO284
+131 IFX$="B"THENGOTO289
 132 IFX$="L"THENGOTO65
 133 GOTO129
 134 
 135 GOSUB4:INVERSE:GOSUB8:?"BANK O'MURICA":NORMAL:?:GOSUB48:?"YOUR BALANCE:$";E:?"YOUR WALLET:$";W:?
 136 INPUT"(D)EPOSIT, (W)ITHDRAW, (L)EAVE:";X$
-137 IFX$="D"THENGOTO296
-138 IFX$="W"THENGOTO303
+137 IFX$="D"THENGOTO295
+138 IFX$="W"THENGOTO302
 139 IFX$="L"THENGOTO65
 140 GOTO135
 141 
@@ -166,165 +166,164 @@
 166 GOSUB4:GOSUB18:?:?"YOU'RE ALREADY IN:":HTAB15:? P$:GOSUB24:GOTO113
 167 
 168 GOSUB4:GOSUB55:V=INT(V*1.1+.5):E=INT(E*1.06+.5):INVERSE:GOSUB14:?"SUBWAY":NORMAL:?:?
-169 IFB=1THENGOTO190
-170 IFB=2THENGOTO192
-171 IFB=3THENGOTO194
-172 IFB=4THENGOTO196
-173 IFB=5THENGOTO196
-174 IFB=6THENGOTO198
-175 IFB=7THENGOTO198
-176 IFB=8THENGOTO200
-177 IFB=9THENGOTO202
-178 IFB=10THENGOTO202
-179 IFB=11THENGOTO202
-180 IFB=12THENGOTO255
-181 IFB=13THENGOTO255
-182 IFB=14THENGOTO263
-183 IFB=15THENGOTO267
-184 IFB=16THENGOTO272
-185 IFB=17THENGOTO283
+169 IFB=1GOTO189
+170 IFB=2GOTO191
+171 IFB=3GOTO193
+172 IFB=4GOTO195
+173 IFB=5GOTO195
+174 IFB=6GOTO197
+175 IFB=7GOTO197
+176 IFB=8GOTO199
+177 IFB=9GOTO201
+178 IFB=10GOTO201
+179 IFB=11GOTO201
+180 IFB=12GOTO254
+181 IFB=13GOTO254
+182 IFB=14GOTO262
+183 IFB=15GOTO266
+184 IFB=16GOTO271
+185 IFB=17GOTO282
 186 
-187 
-188 ?:?"WELCOME TO ";P$:?:GOSUB24:GOTO65
-189 
-190 ?"RIVAL DEALERS ARE SELLING CHEAP LUDES!":L=2:GOSUB24:GOTO65
-191 
-192 ?"WEED PRICES HAVE BOTTOMED-OUT!":Z=122:GOSUB24:GOTO65
-193 
-194 ?"PIGS ARE SELLING CHEAP HEROIN":?"FROM LAST WEEK'S RAID!":H=INT((RND(1)*1150)+850.5):GOSUB24:GOTO65
-195 
-196 ?"ADDICTS ARE BUYING HEROIN":?"AT OUTRAGEOUS PRICES!":H=INT((RND(1)*25000)+18000.5):GOSUB24:GOTO65
-197 
-198 ?"PIGS MADE A BIG COKE BUST!":?"PRICES ARE OUTRAGEOUS!!!!":C=INT((RND(1)*60000)+80000.5):GOSUB24:GOTO65
-199 
-200 ?"YOU GOT MUGGED!":?:J=INT((W/3)*2):?"YOU LOST $";W-J:W=W-J:GOSUB24:GOTO65
-201 
-202 GOSUB42:IFF<I/2THENGOTO187
-203 IFB=9THENB=2
-204 IFB=10THENB=4
-205 IFB=11THENB=5
-206 ?"IT'S THE COPS!":?:?"OFFICER HARDASS AND ";B-1;"OF HIS":?"DEPUTIES ARE AFTER YOU!":?:GOSUB24:GOTO208
-207 
-208 GOSUB4:GOSUB44:?:?:?"VIEW (G)UNS":?"VIEW (D)AMAGE":?"(N)UMBER OF PIGS":?"(R)UN":?"(F)IGHT":?
-209 INPUT"WHAT DO YOU WANT TO DO?";X$
-210 IFX$="G"GOTO217
-211 IFX$="D"GOTO219
-212 IFX$="N"GOTO221
-213 IFX$="R"GOTO223
-214 IFX$="F"GOTO226
-215 GOTO208
-216 
-217 GOSUB4:GOSUB44:?:?:?"YOU HAVE ";G;"GUNS.:?:GOSUB6:GOTO208
-218 
-219 GOSUB4:GOSUB44:?:?:?"YOUR HEALTH IS ";BB;".":?:?"0 AND YOU DIE!":?:GOSUB6:GOTO208
-220 
-221 GOSUB4:GOSUB44:?:?:?"THERE ARE ";B;"PIGS STILL CHASING YOU!":?:?:GOSUB6:GOTO208
-222 
-223 GOSUB4:GOSUB44:?:?:?"RUNNING...":GOSUB20:IFK=0THEN?"YOU LOST THEM IN AN ALLEY!":GOSUB24:GOTO65
-224 ?"YOU CAN'T SHAKE THEM!":?:GOTO233
-225 
-226 IFG<=0THEN?:?:?"YOU DON'T HAVE ANY GUNS!":GOSUB6:GOTO208
-227 GOSUB4:GOSUB44
-228 ?:?"YOU SHOOT!":GOSUB20:IFK=0THENGOTO231
-229 ?"YOU GOT ONE!":B=B-1:	GOTO233
-230 
-231 ?"YOU MISSED!"
-232 
-233 ?:?:IFB<=0THENGOTO244
-234 GOSUB22:?"THEY'RE FIRING AT YOU!":GOSUB20:IFK=0THENGOTO238
-235 ?"YOU'VE BEEN HIT!":BB=BB-6:IFBB>=0GOTO242
-236 GOTO240
-237 
-238 ?"THEY MISSED!"
-239 
-240 GOSUB20:GOTO208
-241 
-242 ?:?"YOU'VE BEEN KILLED!":GOSUB6:GOTO320
-243 
-244 ?"YOU KILLED ALL OF THEM!":?:GOSUB20
-245 J=INT(((RND(1)*1250)+750)+.5):W=W+J
-246 ?"YOU FOUND $";J;"ON OFFICER HARDASS'"
-247 ?"CARCASS!"
-248 IFW>=1200THENGOTO251
-249 GOTO65
-250 
-251 GOSUB24:?:?"WILL YOU PAY $1000 FOR A DOCTOR":INPUT"TO SEW YOU UP? (Y/N)";X$
-252 IFX$<>"Y"THENGOTO65
-253 W=W-1000:BB=100:GOTO65
-254 
-255 IFW<500THENGOTO187:GOSUB42:IFF<5THENGOTO187
-256 J=INT((RND(1)*2)+.5)
-257 IFJ=0THENY$="BARETTA"
-258 IFJ=1THENY$="SATURDAY NIGHT SPECIAL"
-259 IFJ=2THENY$=".44 MAGNUM"
-260 ?"WILL YOU BUY A ";Y$:INPUT"FOR $400? (Y/N)";X$:IFX$<>"Y"THENGOTO65
-261 G=G+1:W=W-400:GOTO65
-262 
-263 ?"THERE'S SOME WEED HERE THAT SMELLS":?"LIKE GOOD STUFF!!":?:INPUT"WILL YOU SMOKE IT? (Y/N)";X$
-264 IFX$="Y"THENGOTO317
-265 GOTO65
-266 
-267 IFW<300THENGOTO188
-268 ?"WILL YOU BUY A NEW TRENCHCOAT":INPUT"WITH MORE POCKETS FOR $200? (Y/N)";X$
-269 IFX$<>"Y"THENGOTO65
-270 I=I+10:W=W-200:GOTO65
-271 
-272 GOSUB42
-273 IFF<8THENGOTO188
-274 J=INT((RND(1)*7)+1.5):K=INT(RND(1)*5+.5)
-275 IFK=0THENQ=Q+J:Y$="LUDES"
-276 IFK=1THENT=T+J:Y$="SPEED"
-277 IFK=2THENU=U+J:Y$="WEED"
-278 IFK=3THENO=O+J:Y$="ACID"
-279 IFK=4THENN=N+J:Y$="HEROIN"
-280 IFK=5THENM=M+J:Y$="COKE"
-281 ?"YOU FOUND "J"UNITS OF "Y$:?"ON A DEAD DUDE IN THE SUBWAY!":?:GOSUB24:GOTO65
-282 
-283 ?"THE MARKET HAS BEEN FLOODED":?"WITH CHEAP HOME-MADE ACID!":A=INT((RND(1)*550)+250.5):GOSUB24:GOTO65
-284 
-285 INPUT"REPAY HOW MUCH?";K:IFK=0THEN?"GET OUT OF HERE, LOSER!":GOSUB22:GOTO65
-286 IFK>WTHEN?:?"YOU DON'T HAVE THAT MUCH!":GOSUB22:GOTO129
-287 IFK>VTHEN?:?"YOU DON'T OWE THAT MUCH!":GOSUB22:GOTO129
-288 W=W-K:V=V-K:?:?"THANK YOU.":GOSUB24:GOTO65
-289 
-290 ?:J=INT((RND(1)*10000)+4000):INPUT"HOW MUCH DO YOU WANT?";K:?:IFK=0GOTO65
-291 IFK<0THEN?"TRYING TO CHEAT? DOUBLE DEBT!":AD=AD+3:V=V*2:GOSUB24:GOSUB52:GOTO65
-292 IFK>14000THEN?"HE'S NOT THAT STUPID!":GOSUB24:GOTO65
-293 IFK>JTHEN?"HE DOESN'T FEEL LIKE IT.":GOSUB22:GOTO65
-294 V=V+K:W=W+K:?:?"HERE'S YOUR MONEY.":?:?"
-295 
-296 ?:K=INT((RND(1)*100)+1):INPUT"HOW MUCH?";J:IFJ=0GOTO65
-297 IFJ>WTHEN?"YOU DON'T HAVE THAT MUCH CASH.":GOTO296
-298 IFK=2THENGOTO301
-299 IFJ<0THEN?"YOU TRIED TO ROB THE BANK, BUT BARELY":?"MADE IT OUT WITH NOTHING.":AD=AD+3:GOSUB24:GOTO65
-300 
-301 E=E+J:W=W-J:?:?"THANK YOU FOR YOUR DEPOSIT.":GOSUB24:GOTO65
-302 
-303 ?:INPUT"HOW MUCH?";J
-304 IFJ<0THEN?"TRY MAKING A DEPOSIT.":GOSUB24:GOTO135
-305 IFJ>ETHEN?"YOU DON'T HAVE SUFFICIENT FUNDS.":GOTO303
-306 E=E-J:W=W+J:?:?"THANK YOU FOR YOUR BUSINESS.":GOSUB24:GOTO65
-307 
-308 HOME:VTAB2:HTAB10:?"WELCOME TO DRUGWAR//E":HTAB14:?"VERSION ";RV:VTAB8:HTAB3:?"BASED ON THE CLASSIC TI-BASIC CLONE":HTAB2:?"OF JOHN E. DELL'S 1984 IBM/TRS80 GAME.":VTAB12:HTAB6:?"APPLESOFT VERSION BY:JAY MOORE"
-309 VTAB19:INPUT"WOULD YOU LIKE INSTRUCTIONS? (Y/N):";X$:J =RND(-1 *(PEEK(78)+256*PEEK(79))):IFX$="Y"THENGOTO312
-310 GOTO63
-311 
-312 HOME:?:?"THIS IS A GAME OF BUYING AND SELLING.":?"YOUR GOAL IS TO PAY OFF YOUR DEBT AND":?"MAKE AS MUCH MONEY AS POSSIBLE IN A ONE":?"MONTH PERIOD. PRICES FLUCTUATE EVERY DAYAND INTEREST ON YOUR LOAN IS CALCULATED AS WELL."
-313 ?:?"IF YOU DEAL TOO HEAVILY, YOU'LL ATTRACT THE ATTENTION OF THE POLICE.":?:?"COMMANDS ARE ENTERED USING THE LETTER   HIGHLIGHTED (L)IKE (S)O. Y IS YES AND   ANYTHING COUNTS AS NO.":GOSUB6:GOTO63
-314 
-315 HOME:HTAB8:VTAB10:?"PUT A QUARTER IN YOUR ASS":GOSUB22:HTAB7:?"'CAUSE YOU PLAYED YOURSELF!":GOSUB24:GOSUB24:VTAB19:HTAB11:?"DON'T CHEAT SO MUCH.":GOSUB24:GOSUB24:GOSUB24:CLEAR:END
-316 
-317 GOSUB4:INVERSE:GOSUB8:?"SMOKE WEED":NORMAL:SPEED=50:?"YOU HALLUCINATE ON THE WILDEST TRIP":?"OF YOUR LIFE, STUMBLE ON TO THE TRACKS,":?"AND GET CREAMED BY A TRAIN!":?:?
-318 HTAB10:?"JUST SAY NO TO DRUGS!":SPEED=255:GOSUB24:GOSUB22:GOTO324
-319 
-320 GOSUB4:GOSUB59:GOSUB46:?:?"YOUR SCORE ON A SCALE OF 1 TO 100:";K:?
-321 INPUT"WOULD YOU LIKE TO PLAY AGAIN? (Y/N)";X$:IFX$="Y"THENGOTO63
-322 ?"THANKS FOR PLAYING.":?"
-323 
-324 GOSUB4:GOSUB46:?:SPEED=50:?"YOU DIED FROM SMOKING WEED.":?:?:GOSUB24:?"SEE? GAMES ARE TOTALLY FAKE.":SPEED=255:?:INPUT"WOULD YOU LIKE TO PLAY AGAIN?";X$:IFX$= "Y"THENGOTO63
-325 CLEAR:END
-326 REM DRUGWAR//E - VERSION 1.05
-327 REM 5-NOV-2018
-328 REM COPYRIGHT 2018 JAY MOORE
-330 REM GITLAB.COM/DEWDUDE/DRUGWAR2E
-331 REM TWITTER: _NQ4T
+187 ?:?"WELCOME TO ";P$:?:GOSUB24:GOTO65
+188 
+189 ?"RIVAL DEALERS ARE SELLING CHEAP LUDES!":L=2:GOSUB24:GOTO65
+190 
+191 ?"WEED PRICES HAVE BOTTOMED-OUT!":Z=122:GOSUB24:GOTO65
+192 
+193 ?"PIGS ARE SELLING CHEAP HEROIN":?"FROM LAST WEEK'S RAID!":H=INT((RND(1)*1150)+850.5):GOSUB24:GOTO65
+194 
+195 ?"ADDICTS ARE BUYING HEROIN":?"AT OUTRAGEOUS PRICES!":H=INT((RND(1)*25000)+18000.5):GOSUB24:GOTO65
+196 
+197 ?"PIGS MADE A BIG COKE BUST!":?"PRICES ARE OUTRAGEOUS!!!!":C=INT((RND(1)*60000)+80000.5):GOSUB24:GOTO65
+198 
+199 ?"YOU GOT MUGGED!":?:J=INT((W/3)*2):?"YOU LOST $";W-J:W=W-J:GOSUB24:GOTO65
+200 
+201 GOSUB42:IFF<I/2THENGOTO187
+202 IFB=9THENB=2
+203 IFB=10THENB=4
+204 IFB=11THENB=5
+205 ?"IT'S THE COPS!":?:?"OFFICER HARDASS AND ";B-1;"OF HIS":?"DEPUTIES ARE AFTER YOU!":?:GOSUB24:GOTO207
+206 
+207 GOSUB4:GOSUB44:?:?:?"VIEW (G)UNS":?"VIEW (D)AMAGE":?"(N)UMBER OF PIGS":?"(R)UN":?"(F)IGHT":?
+208 INPUT"WHAT DO YOU WANT TO DO?";X$
+209 IFX$="G"GOTO216
+210 IFX$="D"GOTO218
+211 IFX$="N"GOTO220
+212 IFX$="R"GOTO222
+213 IFX$="F"GOTO225
+214 GOTO207
+215 
+216 GOSUB4:GOSUB44:?:?:?"YOU HAVE ";G;"GUNS.:?:GOSUB6:GOTO207
+217 
+218 GOSUB4:GOSUB44:?:?:?"YOUR HEALTH IS ";BB;".":?:?"0 AND YOU DIE!":?:GOSUB6:GOTO207
+219 
+220 GOSUB4:GOSUB44:?:?:?"THERE ARE ";B;"PIGS STILL CHASING YOU!":?:?:GOSUB6:GOTO207
+221 
+222 GOSUB4:GOSUB44:?:?:?"RUNNING...":GOSUB20:IFK=0THEN?"YOU LOST THEM IN AN ALLEY!":GOSUB24:GOTO65
+223 ?"YOU CAN'T SHAKE THEM!":?:GOTO232
+224 
+225 IFG<=0THEN?:?:?"YOU DON'T HAVE ANY GUNS!":GOSUB6:GOTO207
+226 GOSUB4:GOSUB44
+227 ?:?"YOU SHOOT!":GOSUB20:IFK=0THENGOTO230
+228 ?"YOU GOT ONE!":B=B-1:	GOTO232
+229 
+230 ?"YOU MISSED!"
+231 
+232 ?:?:IFB<=0THENGOTO243
+233 GOSUB22:?"THEY'RE FIRING AT YOU!":GOSUB20:IFK=0THENGOTO237
+234 ?"YOU'VE BEEN HIT!":BB=BB-6:IFBB>=0GOTO241
+235 GOTO239
+236 
+237 ?"THEY MISSED!"
+238 
+239 GOSUB20:GOTO207
+240 
+241 ?:?"YOU'VE BEEN KILLED!":GOSUB6:GOTO319
+242 
+243 ?"YOU KILLED ALL OF THEM!":?:GOSUB20
+244 J=INT(((RND(1)*1250)+750)+.5):W=W+J
+245 ?"YOU FOUND $";J;"ON OFFICER HARDASS'"
+246 ?"CARCASS!"
+247 IFW>=1200THENGOTO250
+248 GOTO65
+249 
+250 GOSUB24:?:?"WILL YOU PAY $1000 FOR A DOCTOR":INPUT"TO SEW YOU UP? (Y/N)";X$
+251 IFX$<>"Y"THENGOTO65
+252 W=W-1000:BB=100:GOTO65
+253 
+254 IFW<500THENGOTO187:GOSUB42:IFF<5THENGOTO187
+255 J=INT((RND(1)*2)+.5)
+256 IFJ=0THENY$="BARETTA"
+257 IFJ=1THENY$="SATURDAY NIGHT SPECIAL"
+258 IFJ=2THENY$=".44 MAGNUM"
+259 ?"WILL YOU BUY A ";Y$:INPUT"FOR $400? (Y/N)";X$:IFX$<>"Y"THENGOTO65
+260 G=G+1:W=W-400:GOTO65
+261 
+262 ?"THERE'S SOME WEED HERE THAT SMELLS":?"LIKE GOOD STUFF!!":?:INPUT"WILL YOU SMOKE IT? (Y/N)";X$
+263 IFX$="Y"THENGOTO316
+264 GOTO65
+265 
+266 IFW<300THENGOTO187
+267 ?"WILL YOU BUY A NEW TRENCHCOAT":INPUT"WITH MORE POCKETS FOR $200? (Y/N)";X$
+268 IFX$<>"Y"THENGOTO65
+269 I=I+10:W=W-200:GOTO65
+270 
+271 GOSUB42
+272 IFF<8THENGOTO187
+273 J=INT((RND(1)*7)+1.5):K=INT(RND(1)*5+.5)
+274 IFK=0THENQ=Q+J:Y$="LUDES"
+275 IFK=1THENT=T+J:Y$="SPEED"
+276 IFK=2THENU=U+J:Y$="WEED"
+277 IFK=3THENO=O+J:Y$="ACID"
+278 IFK=4THENN=N+J:Y$="HEROIN"
+279 IFK=5THENM=M+J:Y$="COKE"
+280 ?"YOU FOUND "J"UNITS OF "Y$:?"ON A DEAD DUDE IN THE SUBWAY!":?:GOSUB24:GOTO65
+281 
+282 ?"THE MARKET HAS BEEN FLOODED":?"WITH CHEAP HOME-MADE ACID!":A=INT((RND(1)*550)+250.5):GOSUB24:GOTO65
+283 
+284 INPUT"REPAY HOW MUCH?";K:IFK=0THEN?"GET OUT OF HERE, LOSER!":GOSUB22:GOTO65
+285 IFK>WTHEN?:?"YOU DON'T HAVE THAT MUCH!":GOSUB22:GOTO129
+286 IFK>VTHEN?:?"YOU DON'T OWE THAT MUCH!":GOSUB22:GOTO129
+287 W=W-K:V=V-K:?:?"THANK YOU.":GOSUB24:GOTO65
+288 
+289 ?:J=INT((RND(1)*10000)+4000):INPUT"HOW MUCH DO YOU WANT?";K:?:IFK=0GOTO65
+290 IFK<0THEN?"TRYING TO CHEAT? DOUBLE DEBT!":AD=AD+3:V=V*2:GOSUB24:GOSUB52:GOTO65
+291 IFK>14000THEN?"HE'S NOT THAT STUPID!":GOSUB24:GOTO65
+292 IFK>JTHEN?"HE DOESN'T FEEL LIKE IT.":GOSUB22:GOTO65
+293 V=V+K:W=W+K:?:?"HERE'S YOUR MONEY.":?:?"
+294 
+295 ?:K=INT((RND(1)*100)+1):INPUT"HOW MUCH?";J:IFJ=0GOTO65
+296 IFJ>WTHEN?"YOU DON'T HAVE THAT MUCH CASH.":GOTO295
+297 IFK=2THENGOTO300
+298 IFJ<0THEN?"YOU TRIED TO ROB THE BANK, BUT BARELY":?"MADE IT OUT WITH NOTHING.":AD=AD+3:GOSUB24:GOTO65
+299 
+300 E=E+J:W=W-J:?:?"THANK YOU FOR YOUR DEPOSIT.":GOSUB24:GOTO65
+301 
+302 ?:INPUT"HOW MUCH?";J
+303 IFJ<0THEN?"TRY MAKING A DEPOSIT.":GOSUB24:GOTO135
+304 IFJ>ETHEN?"YOU DON'T HAVE SUFFICIENT FUNDS.":GOTO302
+305 E=E-J:W=W+J:?:?"THANK YOU FOR YOUR BUSINESS.":GOSUB24:GOTO65
+306 
+307 HOME:VTAB2:HTAB10:?"WELCOME TO DRUGWAR//E":HTAB14:?"VERSION ";RV:VTAB8:HTAB3:?"BASED ON THE CLASSIC TI-BASIC CLONE":HTAB2:?"OF JOHN E. DELL'S 1984 IBM/TRS80 GAME.":VTAB12:HTAB6:?"APPLESOFT VERSION BY:JAY MOORE"
+308 VTAB19:INPUT"WOULD YOU LIKE INSTRUCTIONS? (Y/N):";X$:J =RND(-1 *(PEEK(78)+256*PEEK(79))):IFX$="Y"THENGOTO311
+309 GOTO63
+310 
+311 HOME:?:?"THIS IS A GAME OF BUYING AND SELLING.":?"YOUR GOAL IS TO PAY OFF YOUR DEBT AND":?"MAKE AS MUCH MONEY AS POSSIBLE IN A ONE":?"MONTH PERIOD. PRICES FLUCTUATE EVERY DAYAND INTEREST ON YOUR LOAN IS CALCULATED AS WELL."
+312 ?:?"IF YOU DEAL TOO HEAVILY, YOU'LL ATTRACT THE ATTENTION OF THE POLICE.":?:?"COMMANDS ARE ENTERED USING THE LETTER   HIGHLIGHTED (L)IKE (S)O. Y IS YES AND   ANYTHING COUNTS AS NO.":GOSUB6:GOTO63
+313 
+314 HOME:HTAB8:VTAB10:?"PUT A QUARTER IN YOUR ASS":GOSUB22:HTAB7:?"'CAUSE YOU PLAYED YOURSELF!":GOSUB24:GOSUB24:VTAB19:HTAB11:?"DON'T CHEAT SO MUCH.":GOSUB24:GOSUB24:GOSUB24:CLEAR:END
+315 
+316 GOSUB4:INVERSE:GOSUB8:?"SMOKE WEED":NORMAL:SPEED=50:?"YOU HALLUCINATE ON THE WILDEST TRIP":?"OF YOUR LIFE, STUMBLE ON TO THE TRACKS,":?"AND GET CREAMED BY A TRAIN!":?:?
+317 HTAB10:?"JUST SAY NO TO DRUGS!":SPEED=255:GOSUB24:GOSUB22:GOTO323
+318 
+319 GOSUB4:GOSUB59:GOSUB46:?:?"YOUR SCORE ON A SCALE OF 1 TO 100:";K:?
+320 INPUT"WOULD YOU LIKE TO PLAY AGAIN? (Y/N)";X$:IFX$="Y"THENGOTO63
+321 ?"THANKS FOR PLAYING.":?"
+322 
+323 GOSUB4:GOSUB46:?:SPEED=50:?"YOU DIED FROM SMOKING WEED.":?:?:GOSUB24:?"SEE? GAMES ARE TOTALLY FAKE.":SPEED=255:?:INPUT"WOULD YOU LIKE TO PLAY AGAIN?";X$:IFX$= "Y"THENGOTO63
+324 CLEAR:END
+325 REM DRUGWAR//E - VERSION 1.05 (fixed)
+326 REM 5-NOV-2018
+327 REM COPYRIGHT 2018 JAY MOORE
+328 REM GITLAB.COM/DEWDUDE/DRUGWAR2E
+329 REM TWITTER:_NQ4T