\START\
\COMMENT=Ungrouped from c:\\ti\\prog\\prog.85g
\NAME=RUSSION
\FILE=RUSSION.85P
Lbl C
ClLCD
Disp "LOADING REVOLVER..."
For(i,1,180
End
round(rand*2.5+2,0\->\x
For(i,1,x
Disp "SPIN..."
For(y,1,130
End
End
Pause "PRESS ENTER TO FIRE"
ClLCD
round(rand*6,0\->\y
If y\<>\1
Then
Outpt(1,6,"B A N G !"
"YOU WERE KILLED"\->\x
Else
Outpt(1,5,"C L I C K !"
"YOU SURVIVED"\->\x
End
Outpt(3,1,x
Outpt(5,1,"PRESS ENTER"
Pause 
If y\<>\1
Then
ClLCD
Disp "DO YOU WANT TO PUT","YOUR LIFE AT STAKE","AGAIN?"
Menu(1,"YES",C,2,"NO",E
End
Lbl E
ClLCD
Return
Stop
\STOP\