ALPHA 5

drugwar2e.bas

@@ -1,5 +1,5 @@
-10 REM - VIRTUALBASIC.ORG - ONLINE-TOOL.BAS - 08/10/2018 - 01h44
+10 REM - VIRTUALBASIC.ORG - ONLINE-TOOL.BAS - 08/10/2018 - 01h58
-11 REM LABELED ALPHA 3
+11 REM LABELED ALPHA 5
 20 GOTO 4460
 30 REM->TITLEBAR 
 40 PRINT "               DRUGWAR//E               "
@@ -197,7 +197,7 @@
 1960 IF T$ = "S" GOTO 3170
 1970 IF T$ = "J" GOTO 4220
 1980 IF T$ = "L" GOTO 1680
-1990 IF T% = "V" GOTO 1750
+1990 IF T$ = "V" GOTO 1750
 2000 PRINT "INVALID SELECTION" 
 2010 GOTO 1820
 2020 REM->PRICES
@@ -211,7 +211,7 @@
 2100 PRINT"WEED:","$"W%
 2110 PRINT"SPEED:","$"S%
 2120 PRINT"LUDES:","$"L%
-2130 PRINT"WALLET:,"$"WA%
+2130 PRINT"WALLET:","$"WA%31
 2140 GOSUB 70
 2150 GOTO 1820
 2160 REM->INVENTORY
@@ -257,7 +257,7 @@
 2560 GOSUB 110
 2570 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2510
 2580 IF K%<=J% THEN CI%=CI%+J% : WA%=WA%-(C%*J%)
-2590 IF K%>J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2510
+2590 IF K%>J% THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2510
 2600 GOTO 1820
 2610 REM->HERBUY
 2620 HOME
@@ -268,7 +268,7 @@
 2670 GOSUB 110
 2680 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2620
 2690 IF K%<=J% THEN HI%=HI%+J% : WA%=WA%-(H%*J%)
-2700 IF K%>J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2620
+2700 IF K%>J% THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2620
 2710 GOTO 1820
 2720 REM->ACIDBUY
 2730 HOME
@@ -279,7 +279,7 @@
 2780 GOSUB 110
 2790 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2730
 2800 IF K%<=J% THEN AI%=AI%+J% : WA%=WA%-(A%*J%)
-2810 IF K%>J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2730
+2810 IF K%>J% THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2730
 2820 GOTO 1820
 2830 REM->WEEDBUY
 2840 HOME
@@ -290,7 +290,7 @@
 2890 GOSUB 110
 2900 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2840
 2910 IF K%<=J% THEN WI%=WI%+J% : WA%=WA%-(W%*J%)
-2920 IF K%>J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2840
+2920 IF K%>J% THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2840
 2930 GOTO 1820
 2940 REM->SPDBUY
 2950 HOME
@@ -301,7 +301,7 @@
 3000 GOSUB 110
 3010 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 2950
 3020 IF K%<=J% THEN SI%=SI%+J% : WA%=WA%-(S%*J%)
-3030 IF K%>J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2950
+3030 IF K%>J% THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 2950
 3040 GOTO 1820
 3050 REM->LUDBUY
 3060 HOME
@@ -312,7 +312,7 @@
 3110 GOSUB 110
 3120 IF K%>FS% THEN INVERSE : PRINT "YOU CAN'T CARRY THAT MUCH!" : NORMAL : GOTO 3060
 3130 IF K%<=J% THEN LI%=LI%+J% : WA%=WA%-(L%*J%)
-3140 IF K%>J% INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 3060
+3140 IF K%>J% THEN INVERSE : PRINT "YOU CAN'T AFFORD THAT MUCH!" : NORMAL : GOTO 3060
 3150 GOTO 1820
 3160 REM->SELL
 3170 HOME
@@ -461,7 +461,7 @@
 4600 SA%=0
 4610 LS%=5000
 4620 D%=0 
-4630 P$="THE BRONX" 
+4630 P$="THE BRONX"
 4640 GN%=0
 4650 DP%=0
 4660 IN%=100
@@ -507,7 +507,7 @@
 5060 PRINT CHR$(10)
 5070 IF WD%=1 THEN GOTO 5170
 5080 PRINT "THANKS FOR PLAYING."
-5090 PRINT "AT THIS POINT I'M SUPPOSED TO CALCULATE"
+5090 PRINT "AT THIS POINT I'M SUPPOSLISTED TO CALCULATE"
 5100 PRINT "YOUR FINAL SCORE AND ALL THAT. BUT THIS"
 5110 PRINT "IS AN ALPHA RELEASE. SO IT'S NOT DONE."
 5120 PRINT CHR$(10)