\start83P\
\comment=Program file dated 03/26/00, 09:42
\protected=TRUE
\name=CRAPS
ClrHome
Disp "STARTING UP..."
Full

ClrHome
Disp "     CRAPS"
Pause 
ClrHome
Disp "BY:","","KIROS LIONHEART"
Pause 
ClrHome
Lbl 1
ClrHome
Menu("CRAPS","NEW GAME",2,"LOAD GAME",3,"INFO",I,"QUIT",4)
Lbl I
ClrHome
Disp "     CRAPS","   RELEASE 3"
Pause 
Goto 1
Lbl 2
ClrHome
Disp "STARTING GAME..."
Normal
Float
Real
0\->\M
randInt(1,5)\->\T
Goto 5
ClrHome
Lbl 3
ClrHome
Disp "LOADING..."
UnArchive \L\CRAPS
\L\CRAPS(1)\->\M
ClrHome
Goto 5
Lbl 5
ClrHome
Menu("GAME MENU","BET",6,"SAVE GAME",7,"BACK",8,"QUIT",9)
Lbl 6
ClrHome
Input "BET: ",Z
If Z\<=\0 or Z>500
Then
ClrHome
Disp "BET TOO LARGE OR","TOO SMALL","MUST BE 0-500"
Pause 
Goto 6
End
T-1\->\T
If T=0
Then
randInt(1,5)\->\T
M-Z\->\M
ClrHome
Disp "YOU LOST",Z,"YOU NOW HAVE",M
Pause 
Goto 5
Else
ClrHome
Disp "ROLLING..."
randInt(1,6)\->\A
randInt(1,6)\->\B
ClrHome
Disp "DIE 1",A,"DIE 2",B,"TOTAL",A+B
Pause 
A+B\->\R
If R=7 or R=11
Then
ClrHome
M+Z\->\M
Disp "YOU WON",Z,"YOU NOW HAVE",M
Pause 
Goto 5
Else
ClrHome
Disp "NO CHANGE","YOU STILL HAVE",M
Pause 
Goto 5
End
Lbl 7
ClrHome
UnArchive \L\CRAPS
1\->\dim(\L\CRAPS)
If \L\CRAPS(1)\!=\0
Then
ClrHome
Disp "GAME DATA EXISTS","OVERWRITE?"
Input "YES=1- ",\theta\
If \theta\\!=\1
Then
Goto 5
End
End
ClrHome
Disp "SAVING..."
M\->\\L\CRAPS(1)
ClrHome
Goto 5
Lbl 8
ClrHome
Disp "ARE YOU SURE YOU","WANT TO GO BACK?"
Input "YES=1- ",\theta\
If \theta\\!=\1
Then
Goto 5
End
Goto 1
Lbl 9
ClrHome
Disp "ARE YOU SURE YOU","WANT TO QUIT?"
Input "YES=1- ",\theta\
If \theta\\!=\1
Then
Goto 5
End
1\->\dim(\L\CRAPS)
Archive \L\CRAPS
ClrHome
Stop
Lbl 4
1\->\dim(\L\CRAPS)
Archive \L\CRAPS
ClrHome
Stop
\stop83P\