%Header Record
Format:VAL
Communication SW:0
Data Type:MT
Rows:10
Columns:21
Variable Name:Mat A
Group Name:
Variable Type:R
Variable Length:10
Option1:
Option2:
Option3:
Option4:
%Data Record
Value : 1 1 1
Value : 1 2 1
Value : 1 3 1
Value : 1 4 1
Value : 1 5 1
Value : 1 6 1
Value : 1 7 1
Value : 1 8 1
Value : 1 9 1
Value : 1 10 1
Value : 1 11 1
Value : 1 12 1
Value : 1 13 1
Value : 1 14 1
Value : 1 15 1
Value : 1 16 1
Value : 1 17 1
Value : 1 18 1
Value : 1 19 1
Value : 1 20 1
Value : 1 21 1
Value : 2 1 1
Value : 2 2 4
Value : 2 3 4
Value : 2 4 4
Value : 2 5 4
Value : 2 6 4
Value : 2 7 4
Value : 2 8 1
Value : 2 9 4
Value : 2 10 4
Value : 2 11 4
Value : 2 12 4
Value : 2 13 4
Value : 2 14 1
Value : 2 15 4
Value : 2 16 4
Value : 2 17 4
Value : 2 18 4
Value : 2 19 4
Value : 2 20 4
Value : 2 21 1
Value : 3 1 1
Value : 3 2 4
Value : 3 3 1
Value : 3 4 0
Value : 3 5 1
Value : 3 6 1
Value : 3 7 0
Value : 3 8 1
Value : 3 9 0
Value : 3 10 1
Value : 3 11 1
Value : 3 12 1
Value : 3 13 0
Value : 3 14 1
Value : 3 15 0
Value : 3 16 1
Value : 3 17 1
Value : 3 18 0
Value : 3 19 1
Value : 3 20 0
Value : 3 21 1
Value : 4 1 1
Value : 4 2 0
Value : 4 3 1
Value : 4 4 0
Value : 4 5 0
Value : 4 6 0
Value : 4 7 0
Value : 4 8 0
Value : 4 9 0
Value : 4 10 0
Value : 4 11 0
Value : 4 12 0
Value : 4 13 0
Value : 4 14 0
Value : 4 15 0
Value : 4 16 0
Value : 4 17 0
Value : 4 18 0
Value : 4 19 1
Value : 4 20 0
Value : 4 21 1
Value : 5 1 1
Value : 5 2 0
Value : 5 3 1
Value : 5 4 0
Value : 5 5 1
Value : 5 6 1
Value : 5 7 1
Value : 5 8 1
Value : 5 9 1
Value : 5 10 1
Value : 5 11 1
Value : 5 12 1
Value : 5 13 1
Value : 5 14 1
Value : 5 15 1
Value : 5 16 1
Value : 5 17 1
Value : 5 18 0
Value : 5 19 1
Value : 5 20 0
Value : 5 21 1
Value : 6 1 1
Value : 6 2 0
Value : 6 3 1
Value : 6 4 0
Value : 6 5 0
Value : 6 6 0
Value : 6 7 1
Value : 6 8 0
Value : 6 9 0
Value : 6 10 0
Value : 6 11 0
Value : 6 12 0
Value : 6 13 0
Value : 6 14 0
Value : 6 15 1
Value : 6 16 0
Value : 6 17 0
Value : 6 18 0
Value : 6 19 1
Value : 6 20 0
Value : 6 21 1
Value : 7 1 1
Value : 7 2 0
Value : 7 3 1
Value : 7 4 0
Value : 7 5 1
Value : 7 6 0
Value : 7 7 1
Value : 7 8 0
Value : 7 9 1
Value : 7 10 1
Value : 7 11 0
Value : 7 12 1
Value : 7 13 1
Value : 7 14 0
Value : 7 15 1
Value : 7 16 0
Value : 7 17 1
Value : 7 18 0
Value : 7 19 1
Value : 7 20 0
Value : 7 21 1
Value : 8 1 1
Value : 8 2 0
Value : 8 3 1
Value : 8 4 0
Value : 8 5 1
Value : 8 6 0
Value : 8 7 1
Value : 8 8 0
Value : 8 9 1
Value : 8 10 1
Value : 8 11 0
Value : 8 12 1
Value : 8 13 1
Value : 8 14 0
Value : 8 15 1
Value : 8 16 0
Value : 8 17 1
Value : 8 18 0
Value : 8 19 1
Value : 8 20 0
Value : 8 21 1
Value : 9 1 1
Value : 9 2 0
Value : 9 3 0
Value : 9 4 0
Value : 9 5 1
Value : 9 6 0
Value : 9 7 0
Value : 9 8 0
Value : 9 9 1
Value : 9 10 1
Value : 9 11 2
Value : 9 12 1
Value : 9 13 1
Value : 9 14 0
Value : 9 15 0
Value : 9 16 0
Value : 9 17 1
Value : 9 18 0
Value : 9 19 0
Value : 9 20 0
Value : 9 21 1
Value : 10 1 1
Value : 10 2 1
Value : 10 3 1
Value : 10 4 1
Value : 10 5 1
Value : 10 6 1
Value : 10 7 1
Value : 10 8 1
Value : 10 9 1
Value : 10 10 1
Value : 10 11 1
Value : 10 12 1
Value : 10 13 1
Value : 10 14 1
Value : 10 15 1
Value : 10 16 1
Value : 10 17 1
Value : 10 18 1
Value : 10 19 1
Value : 10 20 1
Value : 10 21 1
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:2210
File Name:PACMAN
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ViewWindow 1,127,0,63,1,0
\GridOff
\LabelOff
\For 1\->A \To 45 \Step 3
\For 1\->B \To 30
\Next 
\Text 30,A," PAC"
\Text 30,110-A,"MAN "
\Next 
\Circle 63,15,5
\F-Line 63,15,68,15
\Plot 65,13
\Plot 1,1
\For 1\->A \To 100
\Next 
\F-Line 63,15,66,18
\Plot 1,1
\Orange \Plot 65,16
\Orange \Plot 66,16
\Orange \Plot 67,16
\Orange \Plot 66,17
\Orange \Plot 67,17
\Text 13,72,"."
\Text 13,80,"."
\Text 13,88,"."
\Green \Text 50,25,"BY: B.RASMUS ANTHIN"
\Orange \Text 1,97,"(C) \(-)97"
\Do
\Text 1,1,"PUSH [EXE]"
\LpWhile \Getkey\<>31
0\->\theta
0\->\r
\ClrText
"TIME LIMIT [0\slash1]"?\->Z
\ClrText
\Lbl A
\Cls
\For 1\->A \To 20
\Text 25,40,"LEVEL:"
\Text 25,75,\theta+1
\Next 
\Cls
\Fill(0,\Mat A
\For 1\->I \To 10
1\->\Mat A[I,1]
1\->\Mat A[I,21]
\Next 
\For 1\->I \To 21
1\->\Mat A[1,I]
1\->\Mat A[10,I]
\Next 
\theta=0\=>\Prog "LEVEL1"
\theta=1\=>\Prog "LEVEL2"
\theta=2\=>\Prog "LEVEL3"
\theta=3\=>\Prog "LEVEL4"
\theta=3\=>1\->\r
\For 1\->W \To 10
\For 1\->V \To 21
\Mat A[W,V]=1\=>\Green \Text 6W-5,6V-5,"#"
\Mat A[W,V]=0\=>4\->\Mat A[W,V]
\Mat A[W,V]=4\=>\Text 6W-7,6V-5,"."
\Next 
\Next 
0\->E~F
0\->H
0\->K~N
0\->Q~T
0\->V~Y
500\->V
Z\=>\Green \Text 1,1,"   "
\Lbl 0
\If Z
\Then \Dsz V
V=99\=>\Text 1,1,"   "
V=9\=>\Text 1,1,"  "
\Text 1,1,V
V=0\=>\Goto2
\IfEnd
\If \Getkey=31
\Then \ClrText
" "
\For 1\->W \To 50
\Next 
\Do
\Locate 8,4,"PAUSED"
\Locate 8,4,"PAUSED"
\Locate 8,4,"PAUSED"
\Locate 8,4,"      "
\Locate 8,4,"      "
\LpWhile \Getkey\<>31
\IfEnd
0\->G
C\->E
D\->F
I\->K
J\->L
O\->Q
P\->R
\Int 4\Ran#+1\->H
\Int 4\Ran#+1\->T
H=1\=>\Mat A[3+I,2+J]\<>1\=>\Isz I
H=2\=>\Mat A[1+I,2+J]\<>1\=>\Dsz I
H=3\=>\Mat A[2+I,3+J]\<>1\=>\Isz J
H=4\=>\Mat A[2+I,1+J]\<>1\=>\Dsz J
T=1\=>\Mat A[3+O,20+P]\<>1\=>\Isz O
T=2\=>\Mat A[1+O,20+P]\<>1\=>\Dsz O
T=3\=>\Mat A[2+O,21+P]\<>1\=>\Isz P
T=4\=>\Mat A[2+O,19+P]\<>1\=>\Dsz P
K\<>I\ Or L\<>J\=>\Text 6(2+K)-5,6(2+L)-4," "
O\<>Q\ Or P\<>R\=>\Text 6(2+Q)-5,6(20+R)-4," "
(K\<>I\ Or L\<>J)\=>\Mat A[2+K,2+L]=4\=>\Text 6(2+K)-7,6(2+L)-5,"."
(O\<>Q\ Or P\<>R)\=>\Mat A[2+Q,20+R]=4\=>\Text 6(2+Q)-7,6(20+R)-5,"."
\Text 6(2+I)-5,6(2+J)-4,"O"
\Text 6(2+O)-5,6(20+P)-4,"O"
D=I-2\=>C+9=J\=>\Goto2
D+2=O\=>C=P+9\=>\Goto2
\Getkey=27\=>\Mat A[4+D,12+C]\<>1\=>\Isz C
\Getkey=38\=>\Mat A[4+D,10+C]\<>1\=>\Dsz C
\Getkey=28\=>\Mat A[3+D,11+C]\<>1\=>\Dsz D
\Getkey=37\=>\Mat A[5+D,11+C]\<>1\=>\Isz D
D\<>0\=>\Text 6(4+D)-5,6(11+C)-4,"\theta"
D=0\=>\Text 6(4+D)-5,6(11+C)-4,"\theta"
D\<>F\ Or C\<>E\=>\Text 6(4+F)-5,6(11+E)-4," "
\PlotOff 1,1
D=I-2\=>C+9=J\=>\Goto2
D+2=O\=>C=P+9\=>\Goto2
\If \Mat A[4+D,11+C]=2
\Then \For 1\->S \To 21
\For 1\->T \To 10
\Mat A[T,S]=4\=>\Isz G
\Next 
\Next 
\r=1\=>G=0\=>\Goto1
\r=0\=>G=0\=>\Isz \theta
\r=0\=>G=0\=>\Goto3
\Else 0\->\Mat A[4+D,11+C]
\IfEnd
\Goto0
\Lbl 1
\Text 20,40,"            "
\Text 30,40,"            "
\Green \Text 20,40,"            "
\Green \Text 30,40,"            "
\For 1\->A \To 5
\Green \Text 25,40,"            "
\For 1\->B \To 75
\Next 
\Green \Text 25,40," YOU WON!!! "
\For 1\->B \To 33
\Next 
\Next 
0\->G
\Goto4
\Lbl 2
\Text 20,40,"           "
\Text 30,40,"           "
\Green \Text 20,40,"           "
\Green \Text 30,40,"           "
\Green \Text 25,40,"           "
\Text 25,40," GAME OVER "
\Goto4
\Lbl 3
\Text 20,38,"              "
\Text 30,38,"              "
\Green \Text 20,38,"              "
\Green \Text 30,38,"              "
\Green \Text 25,38,"              "
\Do
\Text 25,38," LEVEL CLEAR "
\LpWhile \Getkey\<>31
\GotoA
\Lbl 4
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:332
File Name:LEVEL1
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\For 3\->I \To 8
1\->\Mat A[I,3]
1\->\Mat A[I,19]
\Next 
\For 5\->I \To 17
1\->\Mat A[5,I]
\Next 
\For 10\->I \To 12
1\->\Mat A[3,I]
\Next 
\For 2\->I \To 3
1\->\Mat A[I,8]
1\->\Mat A[I,14]
\Next 
1\->\Mat A[3,5]
1\->\Mat A[3,6]
1\->\Mat A[3,17]
1\->\Mat A[3,16]
\For 9\->I \To 7 \Step \(-)1
1\->\Mat A[I,5]
1\->\Mat A[I,9]
1\->\Mat A[I,10]
1\->\Mat A[I,12]
1\->\Mat A[I,13]
1\->\Mat A[I,17]
\Next 
\For 6\->I \To 8
1\->\Mat A[I,7]
1\->\Mat A[I,15]
\Next 
2\->\Mat A[9,11]
\Orange \Text 49,61,"U"
0\->C~D
0\->I~J
0\->O~P
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:234
File Name:LEVEL2
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\For 3\->I \To 17
1\->\Mat A[3,I]
1\->\Mat A[8,I+2]
\Next 
\For 5\->I \To 8
1\->\Mat A[I,3]
1\->\Mat A[I-2,19]
\Next 
\For 5\->I \To 7
1\->\Mat A[I-1,5]
1\->\Mat A[I,7]
1\->\Mat A[I-1,9]
1\->\Mat A[I,11]
1\->\Mat A[I-1,13]
1\->\Mat A[I,15]
1\->\Mat A[I-1,17]
\Next 
1\->\Mat A[8,20]
2\->\Mat A[9,20]
\Orange \Text 49,115,"U"
0\->C~D
0\->I~J
0\->O~P
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:226
File Name:LEVEL3
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\For 2\->I \To 20
1\->\Mat A[3,I]
1\->\Mat A[5,I]
1\->\Mat A[7,I]
\Next 
1\->\Mat A[9,3]
1\->\Mat A[8,5]
1\->\Mat A[9,7]
1\->\Mat A[8,9]
1\->\Mat A[9,11]
1\->\Mat A[8,13]
1\->\Mat A[9,15]
1\->\Mat A[8,17]
1\->\Mat A[9,19]
\For 2\->I \To 9
0\->\Mat A[I,11]
\Next 
2\->\Mat A[9,2]
\Orange \Text 49,7,"U"
2\->I
0\->J
4\->O
0\->P
\(-)9\->C
\(-)2\->D
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:186
File Name:LEVEL4
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\For 2\->I \To 19
1\->\Mat A[5,I]
\Next 
\For 3\->I \To 8
1\->\Mat A[I,3]
1\->\Mat A[I,5]
1\->\Mat A[I,7]
1\->\Mat A[I,9]
1\->\Mat A[I,11]
1\->\Mat A[I,13]
1\->\Mat A[I,15]
1\->\Mat A[I,17]
1\->\Mat A[I,19]
\Next 
2\->\Mat A[6,2]
\Orange \Text 31,7,"U"
0\->I~J
0\->O~P
0\->D
1\->C
%End