%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:781
File Name:AIRWAR 4
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl 2
\ClrText
0\->A~Z
\Locate 7,1,"AIRWAR 4"
\Locate 1,2,"#####################"
\Locate 1,7,"#####################"
5\->B:0\->C
\Locate 2,B,"[="
\While 1
\Isz C
\If \Getkey=31
\Then \While \Getkey\<>78
\WhileEnd
\IfEnd
\Getkey\->D
\If D\<>0
\Then D\<>37\=>D\<>28\=>0\->D
D=37\=>1\->D
D=28\=>\(-)1\->D
B=3\=>D=\(-)1\=>0\->D
B=6\=>D=1\=>0\->D
\If D\<>0
\Then \Locate 2,B,"  "
B+D\->B
\Locate 2,B,"[="
\IfEnd
\IfEnd
\If H=B
\Then \Locate 5,B,"(\aster)"
\Isz A
\Locate 5,B,"   "
\IfEnd
\If C\>=70
\Then C=70\=>21\->Y
Y=21\=>\Int 4\Ran#\->K
\If Y=0
\Then B=K\=>\Goto1
\For 1\->L \To 18
\Locate 1,B,"\(-)"
\Locate 1,B," "
\Next 
\For 2\->M \To 20
\Locate M,B,"[="
M=2\=>\Locate M-1,B,"\aster"
M>2\=>\Locate M-2,B,"\aster\aster"
M>3\=>\Locate M-3,B," "
\Next 
\Goto1
\IfEnd
K\<>0\=>\Locate Y,3,"#"
K\<>1\=>\Locate Y,4,"#"
K\<>2\=>\Locate Y,5,"#"
K\<>3\=>\Locate Y,6,"#"
\Dsz Y
\IfEnd
E\<>0\=>\Locate 21,E," "
F\<>0\=>\Locate 16,F," "
G\<>0\=>\Locate 11,G," "
H\<>0\=>\Locate 6,H," "
G\->H
F\->G
E\->F
\Int 4\Ran#+3\->E
C>70\=>0\->E
E\<>0\=>\Locate 21,E,"\aster"
F\<>0\=>\Locate 16,F,"\aster"
G\<>0\=>\Locate 11,G,"\aster"
H\<>0\=>\Locate 6,H,"\aster"
\WhileEnd
\Lbl 1
\ClrText
"SCORE="
"HIGHSCORE="
A*100\->A
\Locate 7,1,\Int A
(\Det \Mat T)\->\r
\Locate 11,2,\r\Disp\If A>\r
\Then \Locate 5,6,"NEW HIGHSCORE!"
[[A]]\->\Mat T
\Locate 11,2,A\Disp\IfEnd
\Goto2
%End