Onearmed Bandit v2.18
By Daniel Peterson
dpn@njudung.se
----------------------
/begin ascii
:1/->/D /->/ "store"
:1/->/E
:1/->/F
:0/->/G
:0/->/J
:20/->/P
:ClrHome
:Disp ""
:Disp "ONEARMED BANDIT V2.18"
:Disp ""
:Disp "DANIEL PETERSON TIC COORPORATION"
:Pause
:Lbl A
:If P=0
:PrgmU
:200/->/H
:ClrHome
:Disp "YOU HAVE"
:Disp P
:0/->/S
:If D
:Disp "1. HOLD FIRST"
:If D=0
:Disp " -HELD-"
:If E
:Disp "2. HOLD SECOND"
:If E=0
:Disp " -HELD-"
:If F
:Disp "3. HOLD THIRD"
:If F=0
:Disp " -HELD-"
:Disp "4.*PULL HANDLE!*5. QUIT"
:Input I
:If I>5
:Goto A
:If I<1
:Goto A
:If G>=2 >= the same as or more
:Goto 9
:If J
:Goto 9
:If I=1
:0/->/D
:If I=2
:0/->/E
:If I=3
:0/->/F
:Lbl 9
:If I=5
:PrgmU
:If I<>4 <> not the same as
:Goto A
:If D=0
:1/->/S
:If E=0
:1/->/S
:If F=0
:1/->/S
:If S
:G+1/->/G
:ClrHome
:Disp ""
:Disp ""
:Disp ""
:Disp " VRRR...."
:0/->/J
:PrgmW
:PrgmR
:PrgmS
:PrgmT
:P-1/->/P
:Goto A
-------------------
To run this program you need these programs too:
PrgmR
PrgmS
PrgmT
PrgmU
PrgmV
-------------------
PrgmR:
:If D
:Int Rand6+1/->/A
:If E
:Int Rand6+1/->/B
:If F
:Int Rand6+1/->/C
:1/->/D
:1/->/E
:1/->/F
:If G>=3 >= the same or more
:0/->/G
PrgmS:
:ClrHome
:If S<>1 <> not the same as
:Goto E
:If G=1
:Disp "(1/2)"
:If G=2
:Disp "(2/2)"
:Disp ""
:Lbl E
:If S<>1 <> not the same as
:Disp ""
:If S<>1 <> not the same as
:Disp ""
:Disp A
:Disp B
:Disp C
:Pause
:If S<>1 <> not the same as
:0/->/G /->/ "store"
PrgmT:
:If A<>B <> not the same as
:Goto E
:If A<>C <> not the same as
:Goto E
:99/->/H
:0/->/O
:Lbl O
:ClrHome
:Disp ""
:Disp ""
:Disp " ********** *JACKPOT!* **********"
:PrgmW
:ClrHome
:PrgmW
:O+1/->/O
:If O<5
:Goto O
:If A=1
:4/->/Q
:If A=2
:8/->/Q
:If A=3
:12/->/Q
:If A=4
:16/->/Q
:If A=5
:20/->/Q
:If A=6
:24/->/Q
:ClrHome
:Disp "YOU WON"
:Disp Q
:P+Q/->/P
:Pause
:1/->/J
:0/->/G
:Lbl E
PrgmU:
:ClrHome
:If P<=0 the same or smaller
:Disp "HEHE, LOST YOUR MONEY? =)"
:Disp ""
:Disp "MONEY LEFT AFTERTHE GAME"
:Disp P
:Stop
PrgmV:
:H
:Lbl 1
:Ans-1
:If Ans
:Goto 1
/End ascii