ALPHA 1

drugwar2e.bas

@@ -0,0 +1,528 @@
+10 REM - VIRTUALBASIC.ORG - ONLINE-TOOL.BAS - 08/10/2018 - 01h32
+11 REM - LABELED ALPHA 1
+20 GOTO 4480
+30 REM->TITLEBAR 
+40 PRINT "               DRUGWAR//E               "
+50 RETURN
+60 REM->WAIT
+70 PRINT CHR$(10)
+80 INPUT "PRESS ENTER TO CONTINUE.";X$
+90 RETURN
+100 REM->HOWMUCHBUY 
+110 PRINT "YOU CAN AFFORD ";J%
+120 PRINT "YOU CAN CARRY  ";FS%
+130 PRINT CHR$(10)
+140 INPUT "HOW MANY? (ENTER 0 TO RETURN TO MENU.)";K%
+150 GOSUB 260
+160 RETURN
+170 REM->HOWMUCHSELL 
+180 PRINT "YOU CAN SELL: ";J%
+190 PRINT CHR$(10)
+200 REM->HOWMANYSELL
+210 INPUT "HOW MANY? (ENTER 0 TO RETURN TO MENU.)";K%
+220 IF K%>J% THEN PRINT "YOU DON'T HAVE THAT MANY!" : GOTO 210
+230 GOSUB 260
+240 RETURN
+250 REM->NOBUYSELL 
+260 IF K%=0 GOTO 1820
+270 RETURN
+280 REM->STATUSBAR
+290 INVERSE:PRINT "DAY: ";D%,P$:NORMAL
+300 PRINT CHR$(10)
+310 RETURN
+320 REM->FREESPACE 
+330 FS%=IN%-((CI%+HI%+AI%+WI%+SI%+LI%)+(GN%*5))
+340 RETURN
+350 REM->DAILY 
+360 C%=INT(RND(1)*12000+16000)
+370 H%=INT(RND(1)*7000+5000)
+380 A%=INT((RND(1)*34+10)*100)
+390 W%=INT((RND(1)*42+33)*10)
+400 S%=INT((RND(1)*15+7)*10)
+410 L%=INT((RND(1)*4+1)*10)
+420 B%=INT(RND(1)*20)
+430 D%=D%+1
+440 LS%=INT(LS%*1.1)
+450 SA%=INT(SA%*1.06)
+460 REM->CHECKDAY 
+470 IF D% >= 31 GOTO 5050
+480 RETURN
+490 REM->SUBWAYEVENTS
+500 IF B%=1 THEN GOTO 690
+510 IF B%=2 THEN GOTO 740
+520 IF B%=3 THEN GOTO 790
+530 IF B%=4 THEN GOTO 850
+540 IF B%=5 THEN GOGO 850
+550 IF B%=6 THEN GOTO 910
+560 IF B%=7 THEN GOTO 910
+570 IF B%=8 THEN GOTO 970
+580 IF B%=9 THEN GOTO 1070
+590 IF B%=10 THEN GOGO 1070
+600 IF B%=11 THEN GOTO 1070
+610 IF B%=12 THEN GOTO 1160
+620 IF B%=13 THEN GOTO 1160
+630 IF B%=14 THEN GOTO 1310
+640 IF B%=15 THEN GOTO 1380
+650 IF B%=16 THEN GOTO 1460
+660 IF B%=17 THEN GOTO 1620
+670 RETURN
+680 REM->CHEAPLUDES
+690 PRINT "RIVAL DEALERS ARE SELLING CHEAP LUDES!"
+700 L%=2
+710 GOSUB 70
+720 GOTO 1820
+730 REM->CHEEPWEED
+740 PRINT "WEED PRICES HAVE BOTTOMED-OUT!"
+750 W%=122
+760 GOSUB 70
+770 GOTO 1820
+780 REM->PIGHEROIN
+790 PRINT "PIGS ARE SELLING CHEAP HEROIN"
+800 PRINT "FROM LAST WEEK'S RAID!"
+810 H%=INT((RND(1)*1150)+850)
+820 GOSUB 70
+830 GOTO 1820
+840 REM->HEROINBUST
+850 PRINT "ADDICTS ARE BUYING HEROIN"
+860 PRINT "AT OUTRAGEOUS PRICES!"
+870 H%=INT((RND(1)*25000)+18000)
+880 GOSUB 70
+890 GOTO 1820
+900 REM->COKEBUST
+910 PRINT "PIGS MADE A BIG COKE BUST!"
+920 PRINT "PRICES ARE OUTRAGEOUS!!!!"
+930 C%=INT((RND(1)*60000)+80000)
+940 GOSUB 70
+950 GOTO 1820
+960 REM->MUGGED
+970 PRINT "YOU GOT MUGGED!"
+980 PRINT CHR$(10)
+990 MS%=WA%/3
+1000 MS%=MS%*2
+1010 ML%=WA%-MS%
+1020 PRINT "YOU LOST $";ML%
+1030 WA%=MS%
+1040 GOSUB 70
+1050 GOSUB 1820
+1060 REM->COPS
+1070 WE%=C%+H%+W%+A%+S%+L%
+1080 IF WE%<50 THEN RETURN 
+1090 PRINT "IT'S THE COPS!"
+1100 PRINT CHR$(10)
+1110 PRINT "JUST KIDDING!"
+1120 PRINT "COPS HAVEN'T BEEN CODED YET."
+1130 GOSUB 70
+1140 GOTO 1820
+1150 REM->GUNBUY
+1160 IF WA% < 500 THEN RETURN
+1170 GOSUB 330
+1180 IF FS% < 5 THEN RETURN
+1190 GX%=INT(RND(1)*2)
+1200 IF GX% = 0 THEN AX$ = "BARETTA"
+1210 IF GX% = 1 THEN AX$ = "SATURDAY NIGHT SPECIAL"
+1220 IF GX% = 2 THEN AX$ = ".44 MAGNUM"
+1230 PRINT "WILL YOU BUY A ";AX$
+1240 INPUT "FOR $400? (Y/N)";RE$
+1250 IF RE$ <> "Y" THEN GOTO 1820
+1260 GN% = GN%+1
+1270 WA% = WA%-400
+1280 FS% = FS%-5
+1290 GOTO 1820
+1300 REM->DEDWEED
+1310 PRINT "THERE'S SOME WEED HERE THAT SMELLS"
+1320 PRINT "LIKE GOOD STUFF!!"
+1330 PRINT CHR$(10)
+1340 INPUT "WILL YOU SMOKE IT? (Y/N)";X$
+1350 IF X$ = "Y" THEN GOTO 4950
+1360 RETURN
+1370 REM->NEWCOAT
+1380 IF WA%<300 THEN RETURN
+1390 PRINT "WILL YOU BUY A NEW TRENCHCOAT"
+1400 INPUT "WITH MORE POCKETS FOR $200? (Y/N)";X$
+1410 IF X$ <> "Y" THEN GOTO 1820
+1420 IN%=IN%+10
+1430 WA%=WA%-200
+1440 GOTO 1820
+1450 REM->DEDGUY
+1460 IF FS%<8 THEN RETURN
+1470 DG%=(INT((RND(1)*7)+1)
+1480 XG%=INT((RND(1)*5)
+1490 IF XG%=0 THEN LI%=LI%+DG% : SS$ = "LUDES"
+1500 IF XG%=1 THEN SI%=SI%+DG% : SS$ = "SPEED"
+1510 IF XG%=2 THEN WI%=WI%+DG% : SS$ = "WEED"
+1520 IF XG%=3 THEN AI%=AI%+DG% : SS$ = "ACID"
+1530 IF XG%=4 THEN HI%=HI%+DG% : SS$ = "HEROIN"
+1540 IF XG%=5 THEN CI%=CI%+DG% : SS$ = "COCAINE"
+1550 PRINT "YOU FOUND ";DG%;" UNITS OF"
+1560 PRINT "         ";SS%
+1570 PRINT "ON A DEAD DUDE IN THE SUBWAY!"
+1580 PRINT CHR$(10)
+1590 GOSUB 70
+1600 GOTO 1820
+1610 REM->HOMEACID
+1620 PRINT "THE MARKET HAS BEEN FLOODED"
+1630 PRINT "WITH CHEAP HOME-MADE ACID!"
+1640 A%=INT((RND(1)*550)+250)
+1650 GOSUB 70
+1660 GOTO 1820
+1670 REM->LOAN
+1680 HOME
+1690 GOSUB 40
+1700 PRINT CHR$(10)
+1710 PRINT "LOAN SHARK NOT IMPLEMENTED.
+1720 GOSUB 70
+1730 GOTO 1820
+1740 REM->BANK
+1750 HOME
+1760 GOSUB 40
+1770 PRINT CHR$(10)
+1780 PRINT "BANK NOT IMPLEMENTED."
+1790 GOSUB 70
+1800 GOTO 1820
+1810 REM->MENU
+1820 HOME
+1830 GOSUB 40
+1840 GOSUB 330
+1850 PRINT (C)HECK PRICES
+1860 PRINT (I)NVENTORY
+1870 PRINT (B)UY
+1880 PRINT (S)ELL
+1890 PRINT (J)ET
+1900 PRINT SEE (L)OAN SHARK
+1910 PRINT (V)ISIT BANK
+1920 INPUT "PLEASE MAKE YOUR SELECTION: ";T$
+1930 IF T$ = "C" GOTO 2030
+1940 IF T$ = "I" GOTO 2180
+1950 IF T$ = "B" GOTO 2320
+1960 IF T$ = "S" GOTO 3190
+1970 IF T$ = "J" GOTO 4240
+1980 IF T$ = "L" GOTO 1680
+1990 IF T% = "V" GOTO 1750
+2000 PRINT "INVALID SELECTION" 
+2010 GOTO 1820
+2020 REM->PRICES
+2030 HOME
+2040 GOSUB 40
+2050 INVERSE:PRINT"                 PRICES                 ":NORMAL
+2060 PRINT CHR$(10)
+2070 PRINT"COCAINE:","$"C%
+2080 PRINT"HEROIN:","$"H%
+2090 PRINT"ACID:","$"A%
+2100 PRINT"WEED:","$"W%
+2110 PRINT"SPEED:","$"S%
+2120 PRINT"LUDES:","$"L%
+2130 PRINT"WALLET:,"$"WA%
+2140 PRINT CHR$(10)
+2150 PRINT"PRESS ENTER TO CONTINUE.";X$
+2160 GOTO 1820
+2170 REM->INVENTORY
+2180 HOME
+2190 GOSUB 40
+2200 INVERSE:PRINT"            INVENTORY                   ":NORMAL
+2210 PRINT CHR$(10)
+2220 PRINT"COCAINE:",CI%
+2230 PRINT"HEROIN:",HI%
+2240 PRINT"ACID:",AI%
+2250 PRINT"WEED:",WI%
+2260 PRINT"LUDES:",LI%
+2270 PRINT"FREE SPACE:",FS%
+2280 PRINT CHR$(10)
+2290 PRINT"PRESS ENTER TO CONTINUE.";X$
+2300 GOTO 1820
+2310 REM->BUY
+2320 HOME
+2330 GOSUB 40
+2340 INVERSE:PRINT"                  BUY                   ":NORMAL
+2350 PRINT CHR$(10)
+2360 PRINT"WHAT DO YOU WANT TO BUY?"
+2370 PRINT CHR$(10)
+2380 PRINT "(C)OCAINE"
+2390 PRINT "(H)EROIN"
+2400 PRINT "(A)CID"
+2410 PRINT "(W)EED"
+2420 PRINT "(S)PEED"
+2430 PRINT "(L)UDES"
+2440 INPUT "ENTER SELECTION: ";DB$
+2450 IF DB$="C" GOTO 2530
+2460 IF DB$="H" GOTO 2640
+2470 IF DB$="A" GOTO 2750
+2480 IF DB$="W" GOTO 2860
+2490 IF DB$="S" GOTO 2970
+2500 IF DB$="L" GOTO 3080
+2510 GOTO 1820
+2520 REM->COKEBUY
+2530 HOME
+2540 GOSUB 40
+2550 INVERSE:PRINT"             BUY COCAINE                ":NORMAL
+2560 PRINT CHR$(10)
+2570 J%=INT(WA%/C%)
+2580 GOSUB 110
+2590 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2530
+2600 IF K%<=J% THEN CI%=CI%+J% : WA%=WA%-(C%*J%)
+2610 IF K%>J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2530
+2620 GOTO 1820
+2630 REM->HERBUY
+2640 HOME
+2650 GOSUB 40
+2660 INVERSE:PRINT"              BUY HEROIN                ":NORMAL
+2670 PRINT CHR$(10)
+2680 J%=INT(WA%/H%)
+2690 GOSUB 110
+2700 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2640
+2710 IF K%<=J% THEN HI%=HI%+J% : WA%=WA%-(H%*J%)
+2720 IF K%>J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2640
+2730 GOTO 1820
+2740 REM->ACIDBUY
+2750 HOME
+2760 GOSUB 40
+2770 INVERSE:PRINT"                BUY ACID                 ":NORMAL
+2780 PRINT CHR$(10)
+2790 J%=INT(WA%/A%)
+2800 GOSUB 110
+2810 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2750
+2820 IF K%<=J% THEN AI%=AI%+J% : WA%=WA%-(A%*J%)
+2830 IF K%>J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2750
+2840 GOTO 1820
+2850 REM->WEEDBUY
+2860 HOME
+2870 GOSUB 40
+2880 INVERSE:PRINT"                BUY WEED                ":NORMAL
+2890 PRINT CHR$(10)
+2900 J%=INT(WA%/W%)
+2910 GOSUB 110
+2920 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2860
+2930 IF K%<=J% THEN WI%=WI%+J% : WA%=WA%-(W%*J%)
+2940 IF K%>J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2860
+2950 GOTO 1820
+2960 REM->SPDBUY
+2970 HOME
+2980 GOSUB 40
+2990 INVERSE:PRINT"                BUY SPEED               ":NORMAL
+3000 PRINT CHR$(10)
+3010 J%=INT(WA%/S%)
+3020 GOSUB 110
+3030 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2970
+3040 IF K%<=J% THEN SI%=SI%+J% : WA%=WA%-(S%*J%)
+3050 IF K%>J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2970
+3060 GOTO 1820
+3070 REM->LUDBUY
+3080 HOME
+3090 GOSUB 40
+3100 INVERSE:PRINT"                BUY LUDES               ":NORMAL
+3110 PRINT CHR$(10)
+3120 J%=INT(WA%/L%)
+3130 GOSUB 110
+3140 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 3080
+3150 IF K%<=J% THEN LI%=LI%+J% : WA%=WA%-(L%*J%)
+3160 IF K%>J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 3080
+3170 GOTO 1820
+3180 REM->SELL
+3190 HOME
+3200 GOSUB 40
+3210 INVERSE:PRINT"                   SELL                ":NORMAL
+3220 PRINT CHR$(10)
+3230 PRINT "WHAT WOULD YOU LIKE TO SELL?"
+3240 PRINT CHR$(10)
+3250 PRINT "(C)OCAINE"
+3260 PRINT "(H)EROIN"
+3270 PRINT "(A)CID"
+3280 PRINT "(W)EED"
+3290 PRINT "(S)PEED"
+3300 PRINT "(L)UDES"
+3310 REM->SELLSEL
+3320 INPUT "ENTER SELECTION: (0 TO CANCEL)";DB$
+3330 IF DB$="C" GOTO 3430
+3340 IF DB$="H" GOTO 3530
+3350 IF DB$="A" GOTO 3630
+3360 IF DB$="W" GOTO 3730
+3370 IF DB$="S" GOTO 3830
+3380 IF DB$="L" GOTO 3930
+3390 IF DB$="0" GOGO 1820
+3400 PRINT "INVALID SELECTION!"
+3410 GOTO 3320
+3420 REM->COKESELL
+3430 HOME
+3440 GOSUB 40
+3450 INVERSE:PRINT"             SELL COCAINE               ":NORMAL
+3460 PRINT CHR$(10)
+3470 J%=CI%
+3480 GOSUB 180
+3490 CI%=CI%-J%
+3500 WA%=WA%+(C%*J%)
+3510 GOTO 1820
+3520 REM->HERSELL
+3530 HOME
+3540 GOSUB 40
+3550 INVERSE:PRINT"              SELL HEROIN               ":NORMAL
+3560 PRINT CHR$(10)
+3570 J%=HI%
+3580 GOSUB 180
+3590 HI%=HI%-J%
+3600 WA%=WA%+(H%*J%)
+3610 GOTO 1820
+3620 REM->ACIDSELL
+3630 HOME
+3640 GOSUB 40
+3650 INVERSE:PRINT"              SELL  ACID                ":NORMAL
+3660 PRINT CHR$(10)
+3670 J%=AI%
+3680 GOSUB 180
+3690 AI%=AI%-J%
+3700 WA%=WA%+(A%*J%)
+3710 GOTO 1820
+3720 REM->WEEDSELL
+3730 HOME
+3740 GOSUB 40
+3750 INVERSE:PRINT"              SELL  WEED                ":NORMAL
+3760 PRINT CHR$(10)
+3770 J%=WI%
+3780 GOSUB 180
+3790 WI%=WI%-J%
+3800 WA%=WA%+(W%*J%)
+3810 GOTO 1820
+3820 REM->SPDSELL
+3830 HOME
+3840 GOSUB 40
+3850 INVERSE:PRINT"             SELL  SPEED                ":NORMAL
+3860 PRINT CHR$(10)
+3870 J%=SI%
+3880 GOSUB 180
+3890 SI%=SI%-J%
+3900 WA%=WA%+(S%*J%)
+3910 GOTO 1820
+3920 REM->LUDSELL
+3930 HOME
+3940 GOSUB 40
+3950 INVERSE:PRINT"             SELL COCAINE               ":NORMAL
+3960 PRINT CHR$(10)
+3970 J%=LI%
+3980 GOSUB 180
+3990 LI%=LI%-J%
+4000 WA%=WA%+(L%*J%)
+4010 GOTO 1820
+4020 REM->JET
+4030 HOME
+4040 GOSUB 40
+4050 INVERSE:PRINT"                   JET                  ":NORMAL
+4060 PRINT CHR$(10)
+4070 PRINT "(B)RONX"
+4080 PRINT "(G)HETTO"
+4090 PRINT "(C)ENTRAL PARK
+4100 PRINT "(M)ANHATTEN"
+4110 PRINT "CONEY (I)SLAND"
+4120 PRINT "BROO(K)LYN"
+4130 PRINT "(O)OPS...STAY!"
+4140 INPUT "WHERE TO DUDE";JT$
+4150 IF JT$="B" THEN PQ$ = "THE BRONX" : GOTO 42402
+4160 IF JT$="G" THEN PQ$ = "THE GHETTO" : GOTO 42402
+4170 IF JT$="C" THEN PQ$ = "CENTRAL PARK" : GOTO 42402
+4180 IF JT$="M" THEN PQ$ = "MANHATTEN" : GOTO 42402
+4190 IF JT$="I" THEN PQ$ = "CONEY ISLAND" : GOTO 42402
+4200 IF JT$="K" THEN PQ$ = "BROOKLYN" : GOTO 42402
+4210 IF JT$="O" THEN GOTO 1820
+4220 GOTO 4240
+4230 REM->JET2
+4240 IF PQ$=P$ THEN GOTO 4280
+4250 P$ = PQ$
+4260 GOTO 4370
+4270 REM->ALREADYTHERE
+4280 HOME
+4290 GOSUB 40
+4300 INVERSE:PRINT"                   JET                  ":NORMAL
+4310 PRINT CHR$(10)
+4320 PRINT "YOU'RE ALREADY IN:"
+4330 PRINT "            ";P$
+4340 GOSUB 70
+4350 GOTO 4240
+4360 REM->SUBWAY
+4370 GOSUB 360
+4380 GOSUB 40
+4390 INVERSE:PRINT"                 SUBWAY                 "
+4400 PRINT CHR$(10)
+4410 GOSUB 500
+4420 PRINT CHR$(10) 
+4430 PRINT "WELCOME TO ";P$ 
+4440 PRINT CHR$(10)
+4450 INPUT "PRESS ENTER TO CONTINUE. ";X$
+4460 GOTO 1820
+4470 REM->INSTRUCTIONS
+4480 HOME
+4490 GOSUB 40
+4500 PRINT CHR$(10)
+4510 PRINT "WELCOME TO DRUGWAR//E"
+4520 PRINT CHR$(10)
+4530 PRINT CHR$(10)
+4540 INPUT "WOULD YOU LIKE INSTRUCTIONS? (Y/N): ";Q$
+4550 REM->INSERRORHANDLER 
+4560 IF Q$ = "Y" THEN GOTO 4780
+4570 IF Q$ = "N" THEN GOGO 4610
+4580 INPUT "I DON'T UNDERSTAND YOU. Y OR N ONLY. ";Q$
+4590 GOTO 4560
+4600 REM->GAMESTART 
+4610 WA%=2000
+4620 SA%=0
+4630 LS%=5000
+4640 D%=0 
+4650 P$="THE BRONX" 
+4660 GN%=0
+4670 DP%=0
+4680 IN%=100
+4690 CI%=0
+4700 HI%=0
+4710 AI%=0
+4720 WI%=0
+4730 SI%=0
+4740 LI%=0
+4750 GOSUB 360
+4760 GOTO 1820
+4770 REM->INST
+4780 HOME
+4790 GOSUB 40
+4800 PRINT CHR$(10)
+4810 PRINT "THIS IS A GAME OF BUYING AND SELLING."
+4820 PRINT "YOUR GOAL IS TO PAY OFF YOUR DEBT AND"
+4830 PRINT "MAKE AS MUCH MONEY AS POSSIBLE IN A ONE"
+4840 PRINT "MONTH PERIOD. PRICES FLUCTUATE EVERY DAY"
+4850 PRINT "AND INTEREST ON YOUR LOAN IS CALCULATED"
+4860 PRINT "AS WELL. IF YOU DEAL TOO HEAVILY, YOU'LL"
+4870 PRINT "ATTRACT THE ATTENTION OF THE POLICE.
+4880 PRINT CHR$(10)
+4890 PRINT "COMMANDS ARE USUALLY THE FIRST LETTER"
+4900 PRINT "OF WHAT YOU WANT TO DO. Y = YES AND"
+4910 PRINT "N = NO."
+4920 INPUT "PRESS ENTER TO CONTINUE.";X$
+4930 GOTO 4610
+4940 REM->WEEDEND
+4950 PRINT "YOU HALLUCINATE ON THE WILDEST TRIP"
+4960 PRINT "OF YOUR LIFE, STUMBLE ON TO THE TRACKS,"
+4970 PRINT "AND GET CREAMED BY A TRAIN!"
+4980 PRINT CHR$(10)
+4990 PRINT CHR$(10)
+5000 PRINT "JUST SAY NO TO DRUGS!"
+5010 WD%=1
+5020 GOTO 70
+5030 GOTO 5050
+5040 REM->ENDGAME
+5050 HOME
+5060 GOSUB 40
+5070 INVERSE : PRINT "       GAME OVER          " : NORMAL
+5080 PRINT CHR$(10)
+5090 IF WD%=1 THEN GOTO 5190
+5100 PRINT "THANKS FOR PLAYING."
+5110 PRINT "AT THIS POINT I'M SUPPOSED TO CALCULATE"
+5120 PRINT "YOUR FINAL SCORE AND ALL THAT. BUT THIS"
+5130 PRINT "IS AN ALPHA RELEASE. SO IT'S NOT DONE."
+5140 PRINT CHR$(10)
+5150 PRINT "AT LEAST YOU DIDN'T DIE FROM SMOKING"
+5160 PRINT "THAT WEED IN THE SUBWAY. GOOD JOB."
+5170 END
+5180 REM->IRONICEND
+5190 HOME
+5200 GOSUB 40
+5210 INVERSE : PRINT "       GAME OVER          " : NORMAL
+5220 PRINT CHR$(10)
+5230 PRINT "OH WOW MAN. YOU DIED...FROM SMOKING POT"
+5240 PRINT "IN A GAME ABOUT DRUG DEALING."
+5250 PRINT CHR$(10)
+5260 PRINT "WELL, THANKS FOR PLAYING."
+5270 END