%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:539
File Name:BET
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Locate 9,1,"BET"
\Locate 1,7,"PUSH EXE TO CONTINUE"
\Locate 9,3,"BY"
\Locate 3,4,"THE MADWEB TEAM"
\Locate 2,5,"WWW.MADWEB.4T.COM"
\Do
\LpWhile \Getkey\<>31
\ClrText
0\->C
\Lbl A
\ClrText
"WELCOME TO CASI\(-)INO"
C\>=1000000\=>"STATUS: MILLIONAIRE"
C\>=100000\ And C<100000\=>"STATUS: RICH"
C\>=0\ And C<100000\=>"STATUS: OK"
C<0\ And C\>=-100\=>"STATUS: BROKE"
C<-100\=>"STATUS: BANKRUPT"
"CREDITS:"
\Locate 11,3,C
"ODDS 1 IN(\>=3)"?\->O
O<3\=>3\->O
"AMOUNT TO GAMBLE(>0)"?\->A
A<0\=>0\->A
\Ran#\->P
0\->W
P>1-(1/O)\=>1\->W
"ROLLING..."
W=1\=>C+(O*A)\->C
W=0\=>C-A\->C
W=1\=>"YOU WIN"
W=0\=>"YOU LOSE"
W=1\=>"GAINED:"
W=0\=>"LOST"
W=1\=>\Locate 10,7,(O*A)
W=0\=>\Locate 10,7,A
\Do
\LpWhile \Getkey\<>31
\GotoA

%End