NOCASH
By Daniel Peterson
----- /Begin ascii -----
prgmD:
:ClrHome
:Disp "NOCASH"
:Disp "******"
:Disp ""
:Disp "MADE BY"
:Disp "DANIEL PETERSON"
:Disp "25 OKT 1995"
:Pause
:0/->/P /->/ "Store"/"Sto"
:0/->/L
:Lbl 5
:PrgmE
:If L<1
:Goto 5
:Lbl 1
:PrgmF
:PrgmG
:PrgmH
:PrgmN
:Disp "LOAN? (1/0)"
:Input E
:If E=1
:PrgmE
:If L<>0 <> not the same as
:PrgmL
:If P<=0 smaller or the same as
:Goto Z
:PrgmN
:Disp "LOAN"
:Disp L
:Disp "----------------TOTAL SUM"
:P-L/->/S /->/ "store"/"Sto"
:Disp S
:Pause
:PrgmK
:If Z<>1 <> not the same as
:Goto 1
:PrgmM
:Pause
:If P<=0 <= smaller or the same as
:Goto Z
:ClrHome
:Disp "END SUM"
:Disp P
:Disp ""
:Disp "THE RECORD="
:Disp W
:Pause
:PrgmJ
:PrgmM
:End
:Lbl Z
:ClrHome
:Disp "NO MONEY,"
:Disp "NO GAME =)"
:Disp ""
:Disp "THE RECORD="
:Disp W
:6/->/X /->/ "Store"/"Sto"
:PrgmM
To play this game, you need these programs as well:
PrgmE
PrgmF
PrgmG
PrgmH
PrgmI
PrgmJ
PrgmK
PrgmL
PrgmM
PrgmN
PrgmE:
:If L>=10^6
:Goto 2
:Lbl 1
:PrgmN
:Pause
:ClrHome
:Disp "LOAN"
:Disp L
:Disp ""
:Disp "HOW MUCH MORE?"
:Disp "(MAX 100000)"
:Input M
:If L+M>10^5
:Goto 1
:If M<0
:Goto 1
:L+M/->/L /->/ "Store"/"Sto"
:P+M/->/P /->/ "Store"/"Sto"
:Lbl 2
PrgmF:
:Lbl 1
:PrgmN
:Disp "HOW MUCH DO"
:Disp "YOU BET"
:Input Q
:If P-Q<0
:Goto 1
:If Q<1
:PrgmI
:If Q<1
:Goto 1
:P-Q/->/P /->/ "Store"/"Sto"
:ClrHome
:Disp "WHICH NUMBER?"
:Disp "(1-5)"
:Input A
PrgmG:
:Int Rand5+1/->/B /->/ "Store"/"Sto"
PrgmH:
:ClrHome
:Disp "YOU BET ON"
:Disp A
:Disp "AND THE RIGHT"
:Disp "NR IS"
:Disp B
:If A<>B <> not the same as
:Disp "Better luck"
:Disp "next time..."
:Pause
:If A<>B <> not the same as
:Goto 1
:ClrHome
:Disp "YOU WON"
:Disp "10*YOUR MONEY="
:10Q/->/Q /->/ "Store"/"Sto"
:Disp Q
:Pause
:P+Q/->/P /->/ "Store"/"Sto"
:Lbl 1
prgmI:
:ClrHome
:Disp "SORRY, NO BET"
:Disp "BELOW 1..."
:Pause
prgmJ:
:If P<=W <= smaller or the same as
:Goto 1
:Pause
:ClrHome
:Disp "CONGRATZ!!"
:Disp "YOU HAVE NOW"
:Disp "THE RECORD!"
:P/->/W /->/ "Store"/"Sto"
:Pause
:Lbl 1
prgmK:
:ClrHome
:Disp "YOU HAVE"
:Disp P
:Disp "YOU WANT TO
:Disp "EXIT? (1/0)"
:Input Z
prgmL:
:If PL
:Goto 2
:If J<0
:Goto 1
:L-J/->/L /->/ "Store"/"Sto"
:P-J/->/ P /->/ "Store"/"Sto"
:Lbl 1
prgmM:
:If L=0
:Goto 1
:If X=6
:Pause
:ClrHome
:Disp "YOU FORGOT TO"
:Disp "PAY BACK YOUR"
:Disp "LOAN:"
:Disp L
:Disp "SO THE BANK"
:Disp "PICKS THE MONEY"
:Disp "NOW"
:P-L/->/P
:Lbl 1
----- /End ascii -----