DECLARE SUB guncap ()
DECLARE SUB winner ()
DECLARE SUB suck ()
DECLARE SUB loantuna ()
DECLARE SUB bank ()
DECLARE SUB sell ()
DECLARE SUB buy ()
DECLARE SUB travel ()
DECLARE SUB mexico ()
DECLARE SUB panama ()
DECLARE SUB honduras ()
DECLARE SUB begin ()
DECLARE SUB usa ()
DECLARE SUB bermuda ()
DECLARE SUB canada ()

DIM SHARED money: DIM SHARED b: DIM SHARED m: DIM SHARED z: DIM SHARED b1%
DIM SHARED l$: DIM SHARED i: DIM SHARED b2: DIM SHARED y: DIM SHARED aa$
DIM SHARED e$: DIM SHARED h$: DIM SHARED l1: DIM sharedl2
DIM SHARED d: DIM SHARED a: DIM SHARED ccc: DIM SHARED ddd
DIM SHARED eee: DIM SHARED ii: DIM SHARED iii: DIM SHARED iiii
DIM SHARED iiiii: DIM SHARED zz: DIM SHARED zzz: DIM SHARED zzzz
DIM SHARED zzzzz: DIM SHARED bb: DIM SHARED b3: DIM SHARED b4
DIM SHARED b5: DIM SHARED mm: DIM SHARED mmm: DIM SHARED mmmm
DIM SHARED mmmmm: DIM SHARED bbb: DIM SHARED vancap

'define variables
money = 5000
vancap = 50
l1 = 0
l2 = 0
b2 = 0
z = 0
a = 0
i = 0
ii = 0
iii = 0
iiii = 0
iiiii = 0
d = 0
y = 0
b1% = 0

'command center
begin
END

SUB bank
CLS
PRINT
PRINT "Welcome to the bank"
PRINT "You have in the currently $"; l1; " in the bank"
PRINT "Would you like to Deposit or Withdraw money?"; dw$
DO
        dw$ = UCASE$(INPUT$(1))
LOOP WHILE INSTR("DW", dw$) = 0
IF dw$ = "D" THEN GOTO dep
IF dw$ = "W" THEN GOTO withd
dep:
INPUT "How much to deposit?"; mo
IF mo > money THEN GOTO dep
IF mo < 0 THEN GOTO dep
l1 = l1 + mo
money = money - mo
GOTO endingb
withd:
INPUT "How much to withdraw?"; wi
IF wi > l1 THEN GOTO withd
IF wi < 0 THEN GOTO withd
l1 = l1 - wi
money = money + wi
endingb:
END SUB

SUB begin
CLS
COLOR 3: PRINT "C"; : COLOR 9: PRINT "anada"
COLOR 3: PRINT "U"; : COLOR 9: PRINT "sa"
COLOR 3: PRINT "B"; : COLOR 9: PRINT "ermuda"
COLOR 3: PRINT "M"; : COLOR 9: PRINT "exico"
COLOR 3: PRINT "P"; : COLOR 9: PRINT "anama"
COLOR 3: PRINT "H"; : COLOR 9: PRINT "onduras"
PRINT "Where to start?";
DO
        aa$ = UCASE$(INPUT$(1))
LOOP WHILE INSTR("CUBMPH", aa$) = 0
 IF aa$ = "C" THEN
   canada
  ELSEIF aa$ = "U" THEN
   usa
  ELSEIF aa$ = "B" THEN
   bermuda
  ELSEIF aa$ = "M" THEN
   mexico
  ELSEIF aa$ = "P" THEN
   panama
  ELSEIF aa$ = "H" THEN
   honduras
 END IF
DO
IF aa$ = "C" THEN
  canada
 ELSEIF aa$ = "U" THEN
  usa
 ELSEIF aa$ = "B" THEN
  bermuda
 ELSEIF aa$ = "H" THEN
  honduras
 ELSEIF aa$ = "P" THEN
  panama
 ELSEIF aa$ = "M" THEN
  mexico
END IF
LOOP
END SUB

SUB bermuda
DO
IF money >= 1000000000 THEN winner
IF money <= 0 AND l1 <= 0 THEN suck
b = 0
bb = 0
b3 = 0
b4 = 0
b5 = 0
m = 10
mm = 10
mmm = 10
mmmm = 10
mmmmm = 10
z = 0
zz = 0
zzz = 0
zzzz = 0
zzzzz = 0
CLS
COLOR 7: LOCATE 1, 1: PRINT "Guns R NOT Us"
PRINT : COLOR 30: LOCATE 3, 1: PRINT "Bermuda"
COLOR 15: PRINT : LOCATE 5, 1
PRINT "Type of gun    Price    Amount owned   Money on hand   Money in Bank     Loan"
LOCATE 6, 1
PRINT "--------------------------------------------------------------------------------"
ranab: LET a = INT(RND(1) * 500 + 65): LET a = INT(RND(1) * 500 + 65)
IF a > 550 OR a < 60 THEN GOTO ranab
ranbbbb: LET bbb = INT(RND(1) * 1500 + 700): LET bbb = INT(RND(1) * 1500 + 700)
IF bbb > 1500 OR bbb < 700 THEN GOTO ranbbbb
rancccb: LET ccc = INT(RND(1) * 2850 + 1750): LET ccc = INT(RND(1) * 2850 + 1750)
IF ccc > 2850 OR ccc < 1750 THEN GOTO rancccb
randddb: LET ddd = INT(RND(1) * 5000 + 2900): LET ddd = INT(RND(1) * 5000 + 2900)
IF ddd > 5000 OR ddd < 2900 THEN GOTO randddb
raneeeb: LET eee = INT(RND(1) * 75000 + 40000): LET eee = INT(RND(1) * 75000 + 40000)
IF eee > 75000 OR eee < 40000 THEN GOTO raneeeb
f = i + ii + iii + iiii + iiiii
LOCATE 7, 1: COLOR 6: PRINT "Revolver"
LOCATE 7, 15: COLOR 15: PRINT "$"; a, i
LOCATE 9, 42: COLOR 2: PRINT "$"; money: COLOR 15
LOCATE 7, 61: PRINT l1: LOCATE 7, 73: PRINT b1%
LOCATE 9, 63: PRINT "Gun Capacity": LOCATE 10, 63: PRINT "------------"
LOCATE 11, 67: PRINT vancap
LOCATE 8, 1: COLOR 6: PRINT "Rifle"
LOCATE 8, 15: COLOR 15: PRINT "$"; bbb, ii
LOCATE 9, 1: COLOR 6: PRINT "Shotgun"
LOCATE 9, 15: COLOR 15: PRINT "$"; ccc, iii
LOCATE 10, 1: COLOR 6: PRINT "Machine Gun"
LOCATE 10, 15: COLOR 15: PRINT "$"; ddd, iiii
LOCATE 11, 1: COLOR 6: PRINT "Laser"
LOCATE 11, 15: COLOR 15: PRINT "$"; eee, iiiii
PRINT "--------------------------------------------------------------------------------"
PRINT "Total                       "; f
PRINT : COLOR 10: PRINT "1. New Country  "
COLOR 3: LOCATE 15, 29: PRINT "2. Buy Guns"
COLOR 12: PRINT "3. Sell Guns  "
COLOR 9: LOCATE 16, 29: PRINT "4. Bank"
COLOR 11: PRINT "5. Loan Tuna  ": LOCATE 17, 29: PRINT "6. Van Size"
COLOR 13: PRINT "7. End": PRINT
COLOR 5
askb:
PRINT "What to do?"
DO
 h$ = UCASE$(INPUT$(1))
LOOP WHILE INSTR("1234567", h$) = 0
 IF h$ = "1" THEN travel
 IF h$ = "2" THEN buy
 IF h$ = "3" THEN sell
 IF h$ = "4" THEN bank
 IF h$ = "5" THEN loantuna
 IF h$ = "6" THEN guncap
 IF h$ = "7" THEN END
LOOP

END SUB

SUB buy
PRINT
COLOR 9: PRINT "Guns to buy : "
COLOR 2: PRINT "1. Revolver"
COLOR 13: PRINT "2. Rifle"
COLOR 14: PRINT "3. Shotgun"
COLOR 6: PRINT "4. Machine Gun"
COLOR 4: PRINT "5. Laser"
PRINT : COLOR 8
PRINT "Which one?";
DO
        l$ = UCASE$(INPUT$(1))
LOOP WHILE INSTR("12345", l$) = 0
PRINT " "; l$; : PRINT "    ";
COLOR 12
numberb:
IF l$ = "1" THEN GOTO numberb1
IF l$ = "2" THEN GOTO numberb2
IF l$ = "3" THEN GOTO numberb3
IF l$ = "4" THEN GOTO numberb4
IF l$ = "5" THEN GOTO numberb5
numberb1:
exe% = money \ a
PRINT "How many (max"; exe; ")": INPUT b
vancap = vancap - b
 IF vancap < 0 THEN
   PRINT "You can't carry that many!": vancap = vancap + b: SLEEP 2: GOTO numberb1
  ELSE
 END IF
PRINT "OK"
PRINT
z = a * b
 IF z >= money THEN
   PRINT "You don't have enough money!": vancap = vancap + b: GOTO numberb1
  ELSE
 END IF
PRINT "This is going to cost you"; z
PRINT "You sure?"
DO
        j$ = UCASE$(INPUT$(1))
LOOP WHILE INSTR("YN", j$) = 0
IF j$ = "N" THEN GOTO no
f = f + m
i = i + b
m = m - i
money = money - z
GOTO ending
no: b = 0
i = i + b
z = 0
GOTO ending
numberb2:
exe = money \ bbb
PRINT "How many (max"; exe; ")": INPUT bb
vancap = vancap - bb
 IF vancap < 0 THEN
   PRINT "You can't carry that many!": vancap = vancap + bb: SLEEP 2: GOTO numberb2
  ELSE
 END IF
PRINT "OK"
PRINT
zz = bb * bbb
 IF zz >= money THEN
   PRINT "You don't have enough money!": vancap = vancap + bb: GOTO numberb2
  ELSE
 END IF
PRINT "This is going to cost you"; zz
PRINT "You sure?"
DO
        j$ = UCASE$(INPUT$(1))
LOOP WHILE INSTR("YN", j$) = 0
IF j$ = "N" THEN GOTO nobb
f = f + mm
mm = mm - ii
ii = ii + bb
money = money - zz
GOTO ending
nobb: bb = 0
ii = ii + bb
zz = 0
GOTO ending
numberb3:
exe = money \ ccc
PRINT "How many (max"; exe; ")": INPUT b3
vancap = vancap - b3
 IF vancap < 0 THEN
   PRINT "You can't carry that many!": vancap = vancap + b3: SLEEP 2: GOTO numberb3
  ELSE
 END IF
PRINT "OK"
PRINT
zzz = b3 * ccc
 IF zzz >= money THEN
   PRINT "You don't have enough money!": vancap = vancap + b3: GOTO numberb3
  ELSE
 END IF
PRINT "This is going to cost you"; zzz
PRINT "You sure?"
DO
        j$ = UCASE$(INPUT$(1))
LOOP WHILE INSTR("YN", j$) = 0
IF j$ = "N" THEN GOTO nobbb
f = f + mmm
mmm = mmm - iii
iii = iii + b3
money = money - zzz
GOTO ending
nobbb: bbb = 0
iii = iii + bbb
zzz = 0
GOTO ending
numberb4:
exe = money \ ddd
PRINT "How many (max"; exe; ") : INPUT b4"
vancap = vancap - b4
 IF vancap < 0 THEN
   PRINT "You can't carry that many!": vancap = vancap + b4: SLEEP 2: GOTO numberb4
  ELSE
 END IF
PRINT "OK"
PRINT
zzzz = b4 * ddd
 IF zzzz >= money THEN
   PRINT "You don't have enough money!": vancap = vancap + b4: GOTO numberb4
  ELSE
 END IF
PRINT "This is going to cost you"; zzzz
PRINT "You sure?"
DO
        j$ = UCASE$(INPUT$(1))
LOOP WHILE INSTR("YN", j$) = 0
IF j$ = "N" THEN GOTO nobbbb
f = f + mmmm
mmmm = mmmm - iiii
iiii = iiii + b4
money = money - zzzz
GOTO ending
nobbbb: bbbb = 0
iiii = iiii + bbbb
zzzz = 0
GOTO ending
numberb5:
exe = money \ eee
PRINT "How many (max"; exe; ")"; : INPUT b5
vancap = vancap - b5
 IF vancap < 0 THEN
   PRINT "You can't carry that many!": vancap = vancap + b5: SLEEP 2: GOTO numberb5
  ELSE
 END IF
PRINT "OK"
PRINT
zzzzz = b5 * eee
 IF zzzzz >= money THEN
   PRINT "You don't have enough money!": vancap = vancap + b5: GOTO numberb5
  ELSE
 END IF
PRINT "This is going to cost you"; zzzzz
PRINT "You sure?"
DO
        j$ = UCASE$(INPUT$(1))
LOOP WHILE INSTR("YN", j$) = 0
IF j$ = "N" THEN GOTO nobbbbb
f = f + mmmmm
mmmmm = mmmmm - iiiii
iiiii = iiiii + b5
money = money - zzzzz
GOTO ending
nobbbbb: bbbbb = 0
iiiii = iiiii + bbbbb
zzz = 0
GOTO ending
ending:
END SUB

SUB canada
DO
IF money >= 1000000000 THEN winner
IF money <= 0 AND l1 <= 0 THEN suck
b = 0
bb = 0
b3 = 0
b4 = 0
b5 = 0
m = 10
mm = 10
mmm = 10
mmmm = 10
mmmmm = 10
z = 0
zz = 0
zzz = 0
zzzz = 0
zzzzz = 0
CLS
COLOR 7: LOCATE 1, 1: PRINT "Guns R NOT Us"
PRINT : COLOR 30: LOCATE 3, 1: PRINT "Canada"
COLOR 15: PRINT : LOCATE 5, 1
PRINT "Type of gun    Price    Amount owned   Money on hand   Money in Bank     Loan"
LOCATE 6, 1
PRINT "--------------------------------------------------------------------------------"
rana: LET a = INT(RND(1) * 500 + 65): LET a = INT(RND(1) * 500 + 65)
IF a > 550 OR a < 60 THEN GOTO rana
ranbbb: LET bbb = INT(RND(1) * 1500 + 700): LET bbb = INT(RND(1) * 1500 + 700)
IF bbb > 1500 OR bbb < 700 THEN GOTO ranbbb
ranccc: LET ccc = INT(RND(1) * 2850 + 1750): LET ccc = INT(RND(1) * 2850 + 1750)
IF ccc > 2850 OR ccc < 1750 THEN GOTO ranccc
randdd: LET ddd = INT(RND(1) * 5000 + 2900): LET ddd = INT(RND(1) * 5000 + 2900)
IF ddd > 5000 OR ddd < 2900 THEN GOTO randdd
raneee: LET eee = INT(RND(1) * 75000 + 40000): LET eee = INT(RND(1) * 75000 + 40000)
IF eee > 75000 OR eee < 40000 THEN GOTO raneee
f = i + ii + iii + iiii + iiiii
LOCATE 7, 1: COLOR 6: PRINT "Revolver"
LOCATE 7, 15: COLOR 15: PRINT "$"; a, i
LOCATE 9, 42: COLOR 2: PRINT "$"; money: COLOR 15
LOCATE 7, 61: PRINT l1: LOCATE 7, 73: PRINT b1%
LOCATE 9, 63: PRINT "Gun Capacity": LOCATE 10, 63: PRINT "------------"
LOCATE 11, 67: PRINT vancap
LOCATE 8, 1: COLOR 6: PRINT "Rifle"
LOCATE 8, 15: COLOR 15: PRINT "$"; bbb, ii
LOCATE 9, 1: COLOR 6: PRINT "Shotgun"
LOCATE 9, 15: COLOR 15: PRINT "$"; ccc, iii
LOCATE 10, 1: COLOR 6: PRINT "Machine Gun"
LOCATE 10, 15: COLOR 15: PRINT "$"; ddd, iiii
LOCATE 11, 1: COLOR 6: PRINT "Laser"
LOCATE 11, 15: COLOR 15: PRINT "$"; eee, iiiii
PRINT "--------------------------------------------------------------------------------"
PRINT "Total                       "; f
PRINT : COLOR 10: PRINT "1. New Country  "
COLOR 3: LOCATE 15, 29: PRINT "2. Buy Guns"
COLOR 12: PRINT "3. Sell Guns  "
COLOR 9: LOCATE 16, 29: PRINT "4. Bank"
COLOR 11: PRINT "5. Loan Tuna  ": LOCATE 17, 29: PRINT "6. Van Size"
COLOR 13: PRINT "7. End": PRINT
COLOR 5
ask:
PRINT "What to do?"
DO
 h$ = UCASE$(INPUT$(1))
LOOP WHILE INSTR("1234567", h$) = 0
 IF h$ = "1" THEN travel
 IF h$ = "2" THEN buy
 IF h$ = "3" THEN sell
 IF h$ = "4" THEN bank
 IF h$ = "5" THEN loantuna
 IF h$ = "6" THEN guncap
 IF h$ = "7" THEN END
LOOP
END SUB

SUB guncap
CLS
PRINT
COLOR 3: PRINT "You are here because you want a bigger van"
PRINT
COLOR 15: PRINT "Van #        Gun Capacity            Price"
PRINT "------------------------------------------"
COLOR 2: PRINT " 1"; : COLOR 15: PRINT "                 75"; : COLOR 4: PRINT "               $1500"
COLOR 2: PRINT " 2"; : COLOR 15: PRINT "                100"; : COLOR 4: PRINT "               $3000"
COLOR 2: PRINT " 3"; : COLOR 15: PRINT "                200"; : COLOR 4: PRINT "               $8500"
COLOR 2: PRINT " 4"; : COLOR 15: PRINT "                400"; : COLOR 4: PRINT "               $15000"
COLOR 2: PRINT " 5"; : COLOR 15: PRINT "                500"; : COLOR 4: PRINT "               $30000"
COLOR 2: PRINT " 6"; : COLOR 15: PRINT "               1000"; : COLOR 4: PRINT "               $50000"
PRINT
COLOR 13: PRINT "Which van do you want?";
DO
        size$ = UCASE$(INPUT$(1))
LOOP WHILE INSTR("123456", size$) = 0
COLOR 14
IF size$ = "1" THEN
  IF 1500 > money THEN GOTO maxgun
  LOCATE 14, 1: PRINT "This will cost you $1500. Is this OK?";
   DO: yn$ = UCASE$(INPUT$(1)): LOOP WHILE INSTR("YN", yn$) = 0
  IF yn$ = "N" THEN GOTO endingg
  vancap = 75: money = money - 1500
  GOTO endingg
 ELSEIF size$ = "2" THEN
  IF 3000 > money THEN GOTO maxgun
  LOCATE 14, 1: PRINT "This will cost you $3000. Is this OK?";
   DO: yn$ = UCASE$(INPUT$(1)): LOOP WHILE INSTR("YN", yn$) = 0
  IF yn$ = "N" THEN GOTO endingg
  vancap = 100: money = money - 3000
  GOTO endingg
 ELSEIF size$ = "3" THEN
  IF 8500 > money THEN GOTO maxgun
  LOCATE 14, 1: PRINT "This will cost you $8500. Is this OK?";
   DO: yn$ = UCASE$(INPUT$(1)): LOOP WHILE INSTR("YN", yn$) = 0
  IF yn$ = "N" THEN GOTO endingg
  vancap = 200: money = money - 8500
  GOTO endingg
 ELSEIF size$ = "4" THEN
  IF 15000 > money THEN GOTO maxgun
  LOCATE 14, 1: PRINT "This will cost you $15000. Is this OK?";
   DO: yn$ = UCASE$(INPUT$(1)): LOOP WHILE INSTR("YN", yn$) = 0
  IF yn$ = "N" THEN GOTO endingg
  vancap = 400: money = money - 15000
  GOTO endingg
 ELSEIF size$ = "5" THEN
  IF 30000 > money THEN GOTO maxgun
  LOCATE 14, 1: PRINT "This will cost you $30000. Is this OK?";
   DO: yn$ = UCASE$(INPUT$(1)): LOOP WHILE INSTR("YN", yn$) = 0
  IF yn$ = "N" THEN GOTO endingg
  vancap = 500: money = money - 30000
  GOTO endingg
 ELSEIF size$ = "6" THEN
  IF 50000 > money THEN GOTO maxgun
  LOCATE 14, 1: PRINT "This will cost you $50000. Is this OK?";
  DO: yn$ = UCASE$(INPUT$(1)): LOOP WHILE INSTR("YN", yn$) = 0
   IF yn$ = "N" THEN GOTO endingg
  vancap = 1000: money = money - 50000
  GOTO endingg
END IF
maxgun:
LOCATE 14, 1
PRINT "You don't have enough money to buy this!"
SLEEP 2
GOTO endingg
endingg:
END SUB

SUB honduras
DO
IF money >= 1000000000 THEN winner
IF money <= 0 AND l1 <= 0 THEN suck
b = 0
bb = 0
b3 = 0
b4 = 0
b5 = 0
m = 10
mm = 10
mmm = 10
mmmm = 10
mmmmm = 10
z = 0
zz = 0
zzz = 0
zzzz = 0
zzzzz = 0
CLS
COLOR 7: LOCATE 1, 1: PRINT "Guns R NOT Us"
PRINT : COLOR 30: LOCATE 3, 1: PRINT "Honduras"
COLOR 15: PRINT : LOCATE 5, 1
PRINT "Type of gun    Price    Amount owned   Money on hand   Money in Bank     Loan"
LOCATE 6, 1
PRINT "--------------------------------------------------------------------------------"
ranah: LET a = INT(RND(1) * 500 + 65): LET a = INT(RND(1) * 500 + 65)
IF a > 550 OR a < 60 THEN GOTO ranah
ranbbbh: LET bbb = INT(RND(1) * 1500 + 700): LET bbb = INT(RND(1) * 1500 + 700)
IF bbb > 1500 OR bbb < 700 THEN GOTO ranbbbh
ranccch: LET ccc = INT(RND(1) * 2850 + 1750): LET ccc = INT(RND(1) * 2850 + 1750)
IF ccc > 2850 OR ccc < 1750 THEN GOTO ranccch
randddh: LET ddd = INT(RND(1) * 5000 + 2900): LET ddd = INT(RND(1) * 5000 + 2900)
IF ddd > 5000 OR ddd < 2900 THEN GOTO randddh
raneeeh: LET eee = INT(RND(1) * 75000 + 40000): LET eee = INT(RND(1) * 75000 + 40000)
IF eee > 75000 OR eee < 40000 THEN GOTO raneeeh
f = i + ii + iii + iiii + iiiii
LOCATE 7, 1: COLOR 6: PRINT "Revolver"
LOCATE 7, 15: COLOR 15: PRINT "$"; a, i
LOCATE 9, 42: COLOR 2: PRINT "$"; money: COLOR 15
LOCATE 7, 61: PRINT l1: LOCATE 7, 73: PRINT b1%
LOCATE 9, 63: PRINT "Gun Capacity": LOCATE 10, 63: PRINT "------------"
LOCATE 11, 67: PRINT vancap
LOCATE 8, 1: COLOR 6: PRINT "Rifle"
LOCATE 8, 15: COLOR 15: PRINT "$"; bbb, ii
LOCATE 9, 1: COLOR 6: PRINT "Shotgun"
LOCATE 9, 15: COLOR 15: PRINT "$"; ccc, iii
LOCATE 10, 1: COLOR 6: PRINT "Machine Gun"
LOCATE 10, 15: COLOR 15: PRINT "$"; ddd, iiii
LOCATE 11, 1: COLOR 6: PRINT "Laser"
LOCATE 11, 15: COLOR 15: PRINT "$"; eee, iiiii
PRINT "--------------------------------------------------------------------------------"
PRINT "Total                       "; f
PRINT : COLOR 10: PRINT "1. New Country  "
COLOR 3: LOCATE 15, 29: PRINT "2. Buy Guns"
COLOR 12: PRINT "3. Sell Guns  "
COLOR 9: LOCATE 16, 29: PRINT "4. Bank"
COLOR 11: PRINT "5. Loan Tuna  ": LOCATE 17, 29: PRINT "6. Van Size"
COLOR 13: PRINT "7. End": PRINT
COLOR 5
askh:
PRINT "What to do?"
DO
 h$ = UCASE$(INPUT$(1))
LOOP WHILE INSTR("1234567", h$) = 0
 IF h$ = "1" THEN travel
 IF h$ = "2" THEN buy
 IF h$ = "3" THEN sell
 IF h$ = "4" THEN bank
 IF h$ = "5" THEN loantuna
 IF h$ = "6" THEN guncap
 IF h$ = "7" THEN END
LOOP

END SUB

SUB loantuna
CLS
b2 = 10000 - b1%
PRINT
PRINT "Loan Tuna"
PRINT "Money Borrowed ="; b1%
PRINT "Max. Loan = $"; b2
PRINT "Interest 7%!"
PRINT "Borrow or Repay?"
DO
loan$ = UCASE$(INPUT$(1))
LOOP WHILE INSTR("BR", loan$) = 0
 IF loan$ = "B" THEN
borrow1: INPUT "How much to borrow?"; borrow
        IF borrow > 10000 OR borrow > b2 THEN
         PRINT "You can't borrow that much!"
         GOTO borrow1
        END IF
        b1% = b1% + borrow
        IF b1% > 10000 THEN LET b1% = 10000
        money = money + borrow
        GOTO endingl
  ELSE
repay1: abc = b1% * .07
        b1% = b1% + abc
        PRINT "You owe: $"; b1%
        INPUT "How much to repay?"; repay
        IF repay > b1% THEN GOTO repay1
        b1% = b1% - repay
        money = money - repay
        GOTO endingl
 END IF
endingl:
END SUB

SUB mexico
DO
IF money >= 1000000000 THEN winner
IF money <= 0 AND l1 <= 0 THEN suck
b = 0
bb = 0
b3 = 0
b4 = 0
b5 = 0
m = 10
mm = 10
mmm = 10
mmmm = 10
mmmmm = 10
z = 0
zz = 0
zzz = 0
zzzz = 0
zzzzz = 0
CLS
COLOR 7: LOCATE 1, 1: PRINT "Guns R NOT Us"
PRINT : COLOR 30: LOCATE 3, 1: PRINT "Mexico"
COLOR 15: PRINT : LOCATE 5, 1
PRINT "Type of gun    Price    Amount owned   Money on hand   Money in Bank     Loan"
LOCATE 6, 1
PRINT "--------------------------------------------------------------------------------"
ranam: LET a = INT(RND(1) * 500 + 65): LET a = INT(RND(1) * 500 + 65)
IF a > 550 OR a < 60 THEN GOTO ranam
ranbbbm: LET bbb = INT(RND(1) * 1500 + 700): LET bbb = INT(RND(1) * 1500 + 700)
IF bbb > 1500 OR bbb < 700 THEN GOTO ranbbbm
rancccm: LET ccc = INT(RND(1) * 2850 + 1750): LET ccc = INT(RND(1) * 2850 + 1750)
IF ccc > 2850 OR ccc < 1750 THEN GOTO rancccm
randddm: LET ddd = INT(RND(1) * 5000 + 2900): LET ddd = INT(RND(1) * 5000 + 2900)
IF ddd > 5000 OR ddd < 2900 THEN GOTO randddm
raneeem: LET eee = INT(RND(1) * 75000 + 40000): LET eee = INT(RND(1) * 75000 + 40000)
IF eee > 75000 OR eee < 40000 THEN GOTO raneeem
f = i + ii + iii + iiii + iiiii
LOCATE 7, 1: COLOR 6: PRINT "Revolver"
LOCATE 7, 15: COLOR 15: PRINT "$"; a, i
LOCATE 9, 42: COLOR 2: PRINT "$"; money: COLOR 15
LOCATE 7, 61: PRINT l1: LOCATE 7, 73: PRINT b1%
LOCATE 9, 63: PRINT "Gun Capacity": LOCATE 10, 63: PRINT "------------"
LOCATE 11, 67: PRINT vancap
LOCATE 8, 1: COLOR 6: PRINT "Rifle"
LOCATE 8, 15: COLOR 15: PRINT "$"; bbb, ii
LOCATE 9, 1: COLOR 6: PRINT "Shotgun"
LOCATE 9, 15: COLOR 15: PRINT "$"; ccc, iii
LOCATE 10, 1: COLOR 6: PRINT "Machine Gun"
LOCATE 10, 15: COLOR 15: PRINT "$"; ddd, iiii
LOCATE 11, 1: COLOR 6: PRINT "Laser"
LOCATE 11, 15: COLOR 15: PRINT "$"; eee, iiiii
PRINT "--------------------------------------------------------------------------------"
PRINT "Total                       "; f
PRINT : COLOR 10: PRINT "1. New Country  "
COLOR 3: LOCATE 15, 29: PRINT "2. Buy Guns"
COLOR 12: PRINT "3. Sell Guns  "
COLOR 9: LOCATE 16, 29: PRINT "4. Bank"
COLOR 11: PRINT "5. Loan Tuna  ": LOCATE 17, 29: PRINT "6. Van Size"
COLOR 13: PRINT "7. End": PRINT
COLOR 5
askm:
PRINT "What to do?"
DO
 h$ = UCASE$(INPUT$(1))
LOOP WHILE INSTR("1234567", h$) = 0
 IF h$ = "1" THEN travel
 IF h$ = "2" THEN buy
 IF h$ = "3" THEN sell
 IF h$ = "4" THEN bank
 IF h$ = "5" THEN loantuna
 IF h$ = "6" THEN guncap
 IF h$ = "7" THEN END
LOOP

END SUB

SUB panama
DO
IF money >= 1000000000 THEN winner
IF money <= 0 AND l1 <= 0 THEN suck
b = 0
bb = 0
b3 = 0
b4 = 0
b5 = 0
m = 10
mm = 10
mmm = 10
mmmm = 10
mmmmm = 10
z = 0
zz = 0
zzz = 0
zzzz = 0
zzzzz = 0
CLS
COLOR 7: LOCATE 1, 1: PRINT "Guns R NOT Us"
PRINT : COLOR 30: LOCATE 3, 1: PRINT "Panama"
COLOR 15: PRINT : LOCATE 5, 1
PRINT "Type of gun    Price    Amount owned   Money on hand   Money in Bank     Loan"
LOCATE 6, 1
PRINT "--------------------------------------------------------------------------------"
ranap: LET a = INT(RND(1) * 500 + 65): LET a = INT(RND(1) * 500 + 65)
IF a > 550 OR a < 60 THEN GOTO ranap
ranbbbp: LET bbb = INT(RND(1) * 1500 + 700): LET bbb = INT(RND(1) * 1500 + 700)
IF bbb > 1500 OR bbb < 700 THEN GOTO ranbbbp
rancccp: LET ccc = INT(RND(1) * 2850 + 1750): LET ccc = INT(RND(1) * 2850 + 1750)
IF ccc > 2850 OR ccc < 1750 THEN GOTO rancccp
randddp: LET ddd = INT(RND(1) * 5000 + 2900): LET ddd = INT(RND(1) * 5000 + 2900)
IF ddd > 5000 OR ddd < 2900 THEN GOTO randddp
raneeep: LET eee = INT(RND(1) * 75000 + 40000): LET eee = INT(RND(1) * 75000 + 40000)
IF eee > 75000 OR eee < 40000 THEN GOTO raneeep
f = i + ii + iii + iiii + iiiii
LOCATE 7, 1: COLOR 6: PRINT "Revolver"
LOCATE 7, 15: COLOR 15: PRINT "$"; a, i
LOCATE 9, 42: COLOR 2: PRINT "$"; money: COLOR 15
LOCATE 7, 61: PRINT l1: LOCATE 7, 73: PRINT b1%
LOCATE 9, 63: PRINT "Gun Capacity": LOCATE 10, 63: PRINT "------------"
LOCATE 11, 67: PRINT vancap
LOCATE 8, 1: COLOR 6: PRINT "Rifle"
LOCATE 8, 15: COLOR 15: PRINT "$"; bbb, ii
LOCATE 9, 1: COLOR 6: PRINT "Shotgun"
LOCATE 9, 15: COLOR 15: PRINT "$"; ccc, iii
LOCATE 10, 1: COLOR 6: PRINT "Machine Gun"
LOCATE 10, 15: COLOR 15: PRINT "$"; ddd, iiii
LOCATE 11, 1: COLOR 6: PRINT "Laser"
LOCATE 11, 15: COLOR 15: PRINT "$"; eee, iiiii
PRINT "--------------------------------------------------------------------------------"
PRINT "Total                       "; f
PRINT : COLOR 10: PRINT "1. New Country  "
COLOR 3: LOCATE 15, 29: PRINT "2. Buy Guns"
COLOR 12: PRINT "3. Sell Guns  "
COLOR 9: LOCATE 16, 29: PRINT "4. Bank"
COLOR 11: PRINT "5. Loan Tuna  ": LOCATE 17, 29: PRINT "6. Van Size"
COLOR 13: PRINT "7. End": PRINT
COLOR 5
askp:
PRINT "What to do?"
DO
 h$ = UCASE$(INPUT$(1))
LOOP WHILE INSTR("1234567", h$) = 0
 IF h$ = "1" THEN travel
 IF h$ = "2" THEN buy
 IF h$ = "3" THEN sell
 IF h$ = "4" THEN bank
 IF h$ = "5" THEN loantuna
 IF h$ = "6" THEN guncap
 IF h$ = "7" THEN END
LOOP

END SUB

SUB sell
monsell1 = a * i
monsell2 = bbb * ii
monsell3 = ccc * iii
monsell4 = ddd * iiii
monsell5 = eee * iiiii
PRINT
PRINT "Which one to sell? "
PRINT "1. Revolver"
PRINT "2. Rifle"
PRINT "3. Shotgun"
PRINT "4. Machine Gun"
PRINT "5. Laser"
PRINT ;
DO
        e$ = UCASE$(INPUT$(1))
LOOP WHILE INSTR("12345", e$) = 0
 IF e$ = "1" THEN GOTO numbers1
 IF e$ = "2" THEN GOTO numbers2
 IF e$ = "3" THEN GOTO numbers3
 IF e$ = "4" THEN GOTO numbers4
 IF e$ = "5" THEN GOTO numbers5
numbers1:
PRINT "How many to sell? ( max "; i; ")"; : INPUT s
 IF s > i OR s < 0 THEN
   GOTO maxsell
  ELSE
   GOTO sell1
 END IF
maxsell:
PRINT "You don't own that much!"
SLEEP 1
GOTO numbers1
sell1:
PRINT "OK"
vancap = vancap + s
f = f - i
i = i - s
money = money + monsell1
SLEEP 1
GOTO endings
numbers2:
PRINT "How many to sell? ( max "; ii; ")"; : INPUT s
 IF s > ii OR s < 0 THEN
   GOTO maxsell2
  ELSE
   GOTO sell2
 END IF
maxsell2:
PRINT "You don't own that much!"
SLEEP 1
GOTO numbers2
sell2:
PRINT "OK"
vancap = vancap + ii
f = f - ii
ii = ii - s
money = money + monsell2
SLEEP 1
GOTO endings
numbers3:
PRINT "How many to sell? ( max "; iii; ")"; : INPUT s
 IF s > iii OR s < 0 THEN
   GOTO maxsell3
  ELSE
   GOTO sell3
 END IF
maxsell3:
PRINT "You don't own that much!"
SLEEP 1
GOTO numbers3
sell3:
PRINT "OK"
vancap = vancap + iii
f = f - iii
iii = iii - s
money = money + monsell3
SLEEP 1
GOTO endings
numbers4:
PRINT "How many to sell? ( max "; iiii; ")"; : INPUT s
 IF s > iiii OR s < 0 THEN
   GOTO maxsell4
  ELSE
   GOTO sell4
 END IF
maxsell4:
PRINT "You don't own that much!"
SLEEP 1
GOTO numbers4
sell4:
PRINT "OK"
vancap = vancap + iiii
f = f - iiii
iiii = iiii - s
money = money + monsell4
SLEEP 1
GOTO endings
numbers5:
PRINT "How many to sell? ( max "; iiiii; ")"; : INPUT s
 IF s > iiiii OR s < 0 THEN
   GOTO maxsell5
  ELSE
   GOTO sell5
 END IF
maxsell5:
PRINT "You don't own that much!"
SLEEP 1
GOTO numbers5
sell5:
PRINT "OK"
vancap = vancap + iiiii
f = f - iiiii
iiiii = iiiii - s
money = money + monsell5
SLEEP 1
GOTO endings
endings:
END SUB

SUB suck
CLS
PRINT "You are out of money!"
PRINT "You suck!"
END
END SUB

SUB travel
CLS
PRINT
PRINT "Where to?"
PRINT "1. Canada", "2. USA", "3. Bermuda"
PRINT "4. Mexico", "5. Panama", "6. Honduras"
DO
        g$ = UCASE$(INPUT$(1))
LOOP WHILE INSTR("123456", g$) = 0
 IF g$ = "1" THEN canada
 IF g$ = "2" THEN usa
 IF g$ = "3" THEN bermuda
 IF g$ = "4" THEN mexico
 IF g$ = "5" THEN panama
 IF g$ = "6" THEN honduras
END SUB

SUB usa
DO
IF money >= 1000000000 THEN winner
IF money <= 0 AND l1 <= 0 THEN suck
b = 0: bb = 0: b3 = 0: b4 = 0: b5 = 0
m = 10: mm = 10: mmm = 10: mmmm = 10: mmmmm = 10
z = 0: zz = 0: zzz = 0: zzzz = 0: zzzzz = 0
CLS
COLOR 7: LOCATE 1, 1: PRINT "Guns R NOT Us"
PRINT : COLOR 30: LOCATE 3, 1: PRINT "United States Of America"
COLOR 15: PRINT : LOCATE 5, 1
PRINT "Type of gun    Price    Amount owned   Money on hand   Money in Bank     Loan"
LOCATE 6, 1
PRINT "--------------------------------------------------------------------------------"
ranau: LET a = INT(RND(1) * 500 + 65): LET a = INT(RND(1) * 500 + 65)
IF a > 550 OR a < 60 THEN GOTO ranau
ranbbbu: LET bbb = INT(RND(1) * 1500 + 700): LET bbb = INT(RND(1) * 1500 + 700)
IF bbb > 1500 OR bbb < 700 THEN GOTO ranbbbu
rancccu: LET ccc = INT(RND(1) * 2850 + 1750): LET ccc = INT(RND(1) * 2850 + 1750)
IF ccc > 2850 OR ccc < 1750 THEN GOTO rancccu
randddu: LET ddd = INT(RND(1) * 5000 + 2900): LET ddd = INT(RND(1) * 5000 + 2900)
IF ddd > 5000 OR ddd < 2900 THEN GOTO randddu
raneeeu: LET eee = INT(RND(1) * 75000 + 10000): LET eee = INT(RND(1) * 75000 + 10000)
IF eee > 75000 OR eee < 7000 THEN GOTO raneeeu
f = i + ii + iii + iiii + iiiii
LOCATE 7, 1: COLOR 6: PRINT "Revolver"
LOCATE 7, 15: COLOR 15: PRINT "$"; a, i
LOCATE 9, 42: COLOR 2: PRINT "$"; money: COLOR 15
LOCATE 7, 61: PRINT l1: LOCATE 7, 73: PRINT b1%
LOCATE 9, 63: PRINT "Gun Capacity": LOCATE 10, 63: PRINT "------------"
LOCATE 11, 67: PRINT vancap
LOCATE 8, 1: COLOR 6: PRINT "Rifle"
LOCATE 8, 15: COLOR 15: PRINT "$"; bbb, ii
LOCATE 9, 1: COLOR 6: PRINT "Shotgun"
LOCATE 9, 15: COLOR 15: PRINT "$"; ccc, iii
LOCATE 10, 1: COLOR 6: PRINT "Machine Gun"
LOCATE 10, 15: COLOR 15: PRINT "$"; ddd, iiii
LOCATE 11, 1: COLOR 6: PRINT "Laser"
LOCATE 11, 15: COLOR 15: PRINT "$"; eee, iiiii
PRINT "--------------------------------------------------------------------------------"
PRINT "Total                       "; f
PRINT : COLOR 10: PRINT "1. New Country  "
COLOR 3: LOCATE 15, 29: PRINT "2. Buy Guns"
COLOR 12: PRINT "3. Sell Guns  "
COLOR 9: LOCATE 16, 29: PRINT "4. Bank"
COLOR 11: PRINT "5. Loan Tuna  ": LOCATE 17, 29: PRINT "6. Van Size"
COLOR 13: PRINT "7. End": PRINT
COLOR 5
asku:
PRINT "What to do?"
DO
 h$ = UCASE$(INPUT$(1))
LOOP WHILE INSTR("1234567", h$) = 0
 IF h$ = "1" THEN travel
 IF h$ = "2" THEN buy
 IF h$ = "3" THEN sell
 IF h$ = "4" THEN bank
 IF h$ = "5" THEN loantuna
 IF h$ = "6" THEN guncap
 IF h$ = "7" THEN END
LOOP
END SUB

SUB winner
CLS
END SUB

    Source: geocities.com/southbeach/cove/Cove/9222

               ( geocities.com/southbeach/cove/Cove)                   ( geocities.com/southbeach/cove)                   ( geocities.com/southbeach)