Farid Golmohammadi
bmgi@Kiruna.Se (Golmohammadi)
------------------------------------------------------------------

DOUBLE OR NOTHING

"DOUBLE OR NOTHING"
1000->X
7->B_
Lbl 4
B->A
"DOLLARS":X_
"1.LOWER"
"2.SAME"
"3.HIGHER"
"4.COLLECT"?->C
C=3D4=3D>Goto 6
Int 13Ran#+1->B_
C=3D1=3D>Goto 1
C=3D2=3D>Goto 2
C=3D3=3D>Goto 3
Lbl 1
B>=3DA=3D>Goto 9
B<A=3D>Goto 5
Lbl 2
B/=3DA=3D>Goto 9
B=3DA=3D>Goto 6
Lbl 3
B<=3DA=3D>Goto 9
B>A=3D>Goto 5
Lbl 6
"COLLECT MONEY"
"DOLLARS":X_
Goto 4
Lbl 5
X*2->X
Goto 4
Lbl 6
X*10->X
Goto 4
Lbl 9
"Y O U  L O S E"
"YOU HAD":X_
"YOU HAVE":0_
" "