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