%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:269
File Name:DCRICKET
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->A:0\->W:0\->T
\ClrText
" "
" "
"********************"
"SCORE:"
" "
"     WICKET FOR"
\Lbl 1
\Int (6\Ran#+1)\->A
\If A=5
\Then \Locate 6,1,"OUT.!!"
W+1\->W
\If W>1
\Then \Locate 12,6,"S FOR"
\IfEnd
\Goto3
\IfEnd
T+A\->T
\Locate 6,1,A
\If A=1
\Then \Locate 7,1,".RUN."
\Goto3
\IfEnd
\Locate 7,1,".RUNS"
\Lbl 3
\Locate 3,6,W
\Locate 18,6,T\Disp\If W=10
\Then \Goto2
\IfEnd
\Goto1
\Lbl 2
\Locate 8,7,"GAME OVER"

%End