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 -----