%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:305
File Name:LPZ
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Locate 3,4,"PH CORP PRESENTS"\Disp\ClrText
\Locate 10,4,"LPZ"\Disp\ClrText
\Lbl 2
0\->Q
\Lbl 0
1\->C
\Int 8\Ran#\->A
\Int 8\Ran#\->B
\Lbl 1
\If A=0
\Then 1\->A
\IfEnd
\If B=0
\Then 1\->B
\IfEnd
\Locate 21,B,"]"
\Locate C,A,"OO>"
C+2\->C
\If \Getkey=28
\Then \Locate C,A," "
A-1\->A
\IfEnd
\If \Getkey=37
\Then \Locate C,A," "
A+1\->A
\IfEnd
\If A=0
\Then 1\->A
\IfEnd
\If A=8
\Then 7\->A
\IfEnd
\If A=B\ And C=21
\Then \ClrText
Q+1\->Q
\Goto0
\IfEnd
\If A\<>B\ And C=21
\Then \ClrText
"PERDU"\Disp\ClrText
"SCORE"
Q\Disp\ClrText
\Goto2
\IfEnd
\Goto1

%End