%Header Record

Format:VAL

Communication SW:0

Data Type:LT

Rows:2

Columns:1

Variable Name:List 3

Group Name:

Variable Type:R

Variable Length:10

Option1:

Option2:

Option3:

Option4:

%Data Record

Value : 1 1 0

Value : 2 1 0

%End

%Header Record

Format:TXT

Communication SW:0

Data Type:PG

Capacity:816

File Name:S~EATER

Group Name:

Password:

Option1:NL

Option2:

Option3:

Option4:

%Data Record

0\->A~Z

'\Prog "INTRO"

\(-)1\->E~F

\Int 21\Ran#+1\->A

\Int 7\Ran#+1\->B

\Int 21\Ran#+1\->E

\Int 7\Ran#+1\->F

1\->V

\(-)1\->Z

\Lbl 2

\ClrText

\Int 21\Ran#+1\->C

\Int 7\Ran#+1\->D

C=1\=>D=1\=>D+1\->D

C=2\=>D=1\=>D+1\->D

C=3\=>D=1\=>D+1\->D

\Locate C,D,"\aster"

Z+1\->Z

Z=V*10\=>\Goto3

\Lbl 1

Y+1\->Y

\Locate A,B,"\theta"

\Locate 1,1,Z

\Prog "EX1"

A=E\=>B=F\=>\Goto6

E=C\=>F=D\=>Z-2\->Z

E=C\=>F=D\=>\Goto2

A=C\=>B=D\=>\Goto2

\If \Getkey=31

\Then \Goto5

\IfEnd

\If \Getkey=27

\Then \Locate A,B," "

A+1\->A

\IfEnd

A>21\=>1\->A

\If \Getkey=38

\Then \Locate A,B," "

A-1\->A

\IfEnd

A<1\=>21\->A

\If \Getkey=37

\Then \Locate A,B," "

B+1\->B

\IfEnd

B>7\=>1\->B

\If \Getkey=28

\Then \Locate A,B," "

B-1\->B

\IfEnd

B<1\=>7\->B

A=C\=>B=D\=>\Goto2

A=E\=>B=F\=>\Goto6

\Goto1

\Lbl 5

\Locate 7,4,"PAUSE"

\If \Getkey\<>31

\Then \Goto5

\IfEnd

\Locate 7,4,"     "

\Goto1

\Lbl 3

Z/Y*10000\->X

\Int X\->X

W+X\->W

\Locate 3,3,"LEVEL COMPLETE"

\Locate 4,4,"SCORE:"

\Locate 4,5,"LEVEL:"

\Locate 11,5,V

\Locate 11,4,W

Z-1\->Z

V+1\->V

\Lbl 4

\If \Getkey\<>31

\Then \Goto4

\IfEnd

\Goto2

\Lbl 6

\ClrText

\Locate 2,3,"EATEN BY BLACK HOLE"

Z/Y*5000\->X

\Int X\->X

W+X\->W

\Locate 4,4,"SCORE:"

\Locate 11,4,W

\Locate 4,5,"LEVEL:"

\Locate 11,5,V

\Dim \List 3\->Q

\Locate 4,6,"HISCORE:"

W\->\List 3[(\Dim \List 3)-1]

\SortA(\List 3)

\Dim \List 3\->\theta

\List 3[\theta]\->W

\Locate 12,6,\List 3[Q]\Disp\Lbl 7

\If \Getkey\<>31

\Then \Goto7

\IfEnd



%End

%Header Record

Format:TXT

Communication SW:0

Data Type:PG

Capacity:117

File Name:EX1

Group Name:

Password:

Option1:NL

Option2:

Option3:

Option4:

%Data Record

E=A\=>F=B\=>\Goto1

0\->M~N

\Int 2\Ran#+1\->H

H=1\=>A>E\=>1\->M

H=1\=>A<E\=>\(-)1\->M

H=2\=>B>F\=>1\->N

H=2\=>B<F\=>\(-)1\->N

E+M\->E

F+N\->F

\Locate E-M,F-N," "

\Locate E,F,"0"

\Lbl 1



%End

%Header Record

Format:TXT

Communication SW:0

Data Type:PG

Capacity:650

File Name:INTRO

Group Name:

Password:

Option1:NL

Option2:

Option3:

Option4:

%Data Record

1\->A

1\->B

1\->C

\Lbl 1

C+1\->C

\Locate A,B,"\aster"

A+1\->A

C<21\=>\Goto1

\Lbl 2

C+1\->C

\Locate A,B,"\aster"

B+1\->B

C<27\=>\Goto2

\Lbl 3

C+1\->C

\Locate A,B,"\aster"

A-1\->A

C<47\=>\Goto3

\Lbl 4

C+1\->C

\Locate A,B,"\aster"

B-1\->B

C<52\=>\Goto4

\Lbl 5

C+1\->C

\Locate A,B,"\aster"

A+1\->A

C<71\=>\Goto5

\Lbl 6

C+1\->C

\Locate A,B,"\aster"

B+1\->B

C<75\=>\Goto6

\Lbl 7

C+1\->C

\Locate A,B,"\aster"

A-1\->A

C<93\=>\Goto7

\Lbl 8

C+1\->C

\Locate A,B,"\aster"

B-1\->B

C<96\=>\Goto8

\Lbl 9

C+1\->C

\Locate A,B,"\aster"

A+1\->A

C<113\=>\Goto9

\Lbl A

C+1\->C

\Locate A,B,"\aster"

B+1\->B

C<115\=>\GotoA

\Lbl B

C+1\->C

\Locate A,B,"\aster"

A-1\->A

C<131\=>\GotoB

\Lbl C

C+1\->C

\Locate A,B,"\aster"

B-1\->B

C<132\=>\GotoC

\Lbl D

C+1\->C

\Locate A,B,"\aster"

A+1\->A

C<149\=>\GotoD

8\->A

7\->B

\Lbl E

\Locate A,B,"STAR"

B<7\=>\Locate A,B+1,"\aster\aster\aster\aster"

B-1\->B

B>1\=>\GotoE

1\->A

3\->B

\Lbl F

A>1\=>\Locate A-1,B,"\aster\aster\aster\aster\aster"

\Locate A,B,"EATER"

A+1\->A

A<11\=>\GotoF

\Lbl G

\If \Getkey\<>31

\Then \For 1\->A \To 2

\Locate 7,5,"PRESS EXE"

\Next 

\For 1\->A \To 2

\Locate 7,5,"         "

\Next 

\Else \GotoH

\IfEnd

\GotoG

\Lbl H

%End