%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:716
File Name:ALIENS
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
" "
" "
" "
"       ALIENS"
"      BY OS-98"\Disp\ClrText

0\->Q
1\->A
1\->B
2\->C
0.5\->D
0\->E
\Locate 1,1,"POINTS:"
0\->J
1\->L
15\->H
\Lbl 1
J=0\=>\Int 11\Ran#*2+1\->L
J=0\=>\Int 15\Ran#\->K
\Locate A,7," "
\Locate B,C," "
\Getkey\->F
A<21\=>F=27\=>A+2\->A
A>1\=>F=38\=>A-2\->A
\If F=31
\Then \Locate A,6,"^"
\IfEnd
\If E\>=Q
\Then 1\->B
2\->C
Q+(Q*0.1)+40\->Q
H-2\->H
\IfEnd
\If A=8\ And F=31
\Then E+1\->E
\Locate A,6,"^"
1\->G
D=0.5\=>D=1
\Else 1\->G
\IfEnd
\If B=21
\Then 1\->B
C+1\->C
\Else B+D\->B
\IfEnd
\If B=A\ And C=7
\Then \Goto2
\IfEnd
\Locate A,7,"W"
\Locate B,B,"\aster"
\Locate A,6," "
\Locate 9,1,E
\If J=1
\Then \Locate 19,1,I
I=9\=>\Locate 20,1," "
\Locate L,7,"\theta"
\If A=L
\Then E+5\->E
\Locate L,7," "
0\->J
\Locate 12,2,"          "
\IfEnd
\If I=0
\Then \Goto2
\IfEnd
I-1\->I
\IfEnd
\If K=5
\Then \Locate L,7,"\theta"
1\->J
H\->I
\Locate 13,1,"GET \theta"
1\->K
\IfEnd
\Goto1
\Lbl 2
\ClrText
\Green "GAME"
\Locate 16,1,"POINTS"
\Locate 13,1,E
\Orange "OVER"
\File2
\If \List 2[1]<E
\Then \Locate 1,4,"YOU MADE HIGHSCORE"
E\->\List 2[1]
\IfEnd
\Locate 1,6,"HIGHSCORE:"
\Locate 13,6,\List 2[1]
\Locate 16,6,"POINTS"
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:79
File Name:RESHGSCO
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
"ARE YOU SURE?"
"YES [EXE]"
"NO  [AC]"
\File5
{0}\->\List 2
\File1
"HIGHSCORE INTIALIZED""
%End