%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:735
File Name:NHL99
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\Lbl A
\For 1\->A \To 4
\ClrText
\Locate 1,A,"N  N H  H K    9   9"
\Locate 1,A+1,"NN N H  H L   9 9 9 9"
\Locate 1,A+2,"N NN HHHH L    99  99"
\Locate 1,A+3,"N  N H  H LLL 9   9"
\Next 
\Locate 6,2,"PRESS [EXE]"
\While \Getkey\<>31
\WhileEnd
11\->A
11\->B
2\->C
0\->P
0\->Q
0\->U
0\->V
\Lbl B
4\->W
\If C=2
\Then 1\->C
\GotoG
\IfEnd
\If C=1
\Then 2\->C
\GotoG
\IfEnd
\Lbl G
C=1\->U+1\->U
C=2\->V+1\->V
U=6\->\GotoE
\Lbl C
\ClrText
\Locate 2,1,"PLAYER"
\Locate 9,1,C
\Locate 2,2,"ROUND"
C=1\=>\Locate 8,2,U
C=2\=>\Locate 8,2,V
\Locate 13,2,"POINTS"
C=1\=>\Locate 20,2,P
C=2\=>\Locate 20,2,Q
\Locate 16,1,"OS\(-)98"
\Locate 9,7,"[---]"
\Lbl D
\Locate 10,6,"   "
\Locate 10,3,"   "
\Int 3\Ran#+10\->B
\If \Getkey=27
\Then A=11\=>12\->A
A=10\=>11\->A
\IfEnd
\If \Getkey=38
\Then A=11\=>10\->A
A=12\=>11\->A
\IfEnd
\Locate B,6,"\theta"
\Locate A,3,"\theta"
\Getkey=31\=>\GotoF
\GotoD
\Lbl F
W\->Z
\Locate A,Z," "
\Locate 10,6,"   "
W+1\->W
\Int 3\Ran#+10\->B
\Locate B,6,"\theta"
\Locate A,W,"."
\If W=6\ And A\<>B
\Then C=1\=>P+1\->P
C=2\=>Q+1\->Q
\GotoB
\IfEnd
W=6\=>A=B\=>\GotoB
\GotoF
\Lbl E
\ClrText
\Locate 2,2,"GAME OVER"
\Locate 2,4,"P1-P2"
\Locate 9,4,P
\Locate 10,4,"-"
\Locate 11,4,Q
%End