%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 2
Value : 2 3 2
Value : 2 4 2
Value : 2 5 2
Value : 2 6 2
Value : 2 7 2
Value : 2 8 1
Value : 2 9 0
Value : 2 10 0
Value : 2 11 0
Value : 2 12 2
Value : 2 13 2
Value : 2 14 1
Value : 2 15 2
Value : 2 16 2
Value : 2 17 2
Value : 2 18 2
Value : 2 19 2
Value : 2 20 2
Value : 2 21 1
Value : 3 1 1
Value : 3 2 2
Value : 3 3 1
Value : 3 4 1
Value : 3 5 1
Value : 3 6 1
Value : 3 7 0
Value : 3 8 0
Value : 3 9 0
Value : 3 10 1
Value : 3 11 2
Value : 3 12 1
Value : 3 13 2
Value : 3 14 2
Value : 3 15 2
Value : 3 16 1
Value : 3 17 1
Value : 3 18 1
Value : 3 19 1
Value : 3 20 2
Value : 3 21 1
Value : 4 1 1
Value : 4 2 2
Value : 4 3 1
Value : 4 4 0
Value : 4 5 0
Value : 4 6 0
Value : 4 7 0
Value : 4 8 1
Value : 4 9 1
Value : 4 10 1
Value : 4 11 2
Value : 4 12 1
Value : 4 13 1
Value : 4 14 1
Value : 4 15 2
Value : 4 16 2
Value : 4 17 2
Value : 4 18 2
Value : 4 19 1
Value : 4 20 2
Value : 4 21 1
Value : 5 1 1
Value : 5 2 2
Value : 5 3 2
Value : 5 4 2
Value : 5 5 1
Value : 5 6 1
Value : 5 7 1
Value : 5 8 1
Value : 5 9 9
Value : 5 10 2
Value : 5 11 2
Value : 5 12 2
Value : 5 13 9
Value : 5 14 1
Value : 5 15 1
Value : 5 16 1
Value : 5 17 1
Value : 5 18 2
Value : 5 19 2
Value : 5 20 2
Value : 5 21 1
Value : 6 1 1
Value : 6 2 2
Value : 6 3 1
Value : 6 4 2
Value : 6 5 1
Value : 6 6 1
Value : 6 7 1
Value : 6 8 1
Value : 6 9 9
Value : 6 10 2
Value : 6 11 2
Value : 6 12 2
Value : 6 13 9
Value : 6 14 1
Value : 6 15 1
Value : 6 16 1
Value : 6 17 1
Value : 6 18 2
Value : 6 19 1
Value : 6 20 2
Value : 6 21 1
Value : 7 1 1
Value : 7 2 2
Value : 7 3 1
Value : 7 4 2
Value : 7 5 2
Value : 7 6 2
Value : 7 7 2
Value : 7 8 1
Value : 7 9 1
Value : 7 10 1
Value : 7 11 2
Value : 7 12 1
Value : 7 13 1
Value : 7 14 1
Value : 7 15 2
Value : 7 16 2
Value : 7 17 2
Value : 7 18 2
Value : 7 19 1
Value : 7 20 2
Value : 7 21 1
Value : 8 1 1
Value : 8 2 2
Value : 8 3 1
Value : 8 4 1
Value : 8 5 1
Value : 8 6 1
Value : 8 7 2
Value : 8 8 2
Value : 8 9 2
Value : 8 10 1
Value : 8 11 2
Value : 8 12 1
Value : 8 13 2
Value : 8 14 2
Value : 8 15 2
Value : 8 16 1
Value : 8 17 1
Value : 8 18 1
Value : 8 19 1
Value : 8 20 2
Value : 8 21 1
Value : 9 1 1
Value : 9 2 2
Value : 9 3 2
Value : 9 4 2
Value : 9 5 2
Value : 9 6 2
Value : 9 7 2
Value : 9 8 1
Value : 9 9 2
Value : 9 10 2
Value : 9 11 2
Value : 9 12 2
Value : 9 13 2
Value : 9 14 1
Value : 9 15 2
Value : 9 16 2
Value : 9 17 2
Value : 9 18 2
Value : 9 19 2
Value : 9 20 2
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:587
File Name:PACMAN X
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl 0
\AxesOff
0\->P
\Lbl 1
\Prog "L1"
1\->U~V
\ClrGraph
\Lbl 2
\For 1\->V \To 21 \Step 1
\Mat A[U,V]=1\=>\Text 6U-5,6V-5,"#"
\Mat A[U,V]=2\=>\PxlOn 6U-3,6V-3
\Mat A[U,V]=2\=>P+1\->P
\Mat A[U,V]=9\=>\Text 6U-5,6V-5,"~"
\Next 
U+1\->U
1\->V
U=11\=>\Goto3
\Goto2
\Lbl 3
7\->A
62\->B
\Lbl 4
P=0\=>\Stop
\Text A,B,"\theta"
\Mat A[((A+5)/6),((B+4)/6)]=2\=>P-1\->P
\Mat A[((A+5)/6),((B+4)/6)]=2\=>0\->\Mat A[((A+5)/6),((B+4)/6)]
\Getkey\->M
A\->E
B\->F
M=27\=>\Mat A[((A+5)/6),((B+4)/6)+1]\->D
M=27\=>(D=0\ Or D=2)\=>B+6\->B
M=28\=>\Mat A[((A+5)/6)-1,((B+4)/6)]\->D
M=28\=>(D=0\ Or D=2)\=>A-6\->A
M=37\=>\Mat A[((A+5)/6)+1,((B+4)/6)]\->D
M=37\=>(D=0\ Or D=2)\=>A+6\->A
M=38\=>\Mat A[((A+5)/6),((B+4)/6)-1]\->D
M=38\=>(D=0\ Or D=2)\=>B-6\->B
A<E\=>\Text A+6,B," "
A>E\=>\Text A-6,B," "
B<F\=>\Text A,B+6," "
B>F\=>\Text A,B-6," "
\Goto4
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:580
File Name:L1
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Fill(2,\Mat A
1\->U
\For 1\->V \To 21 \Step 1
1\->\Mat A[1,V
1\->\Mat A[10,V
\Next 
1\->V
\For 1\->U \To 10 \Step 1
1\->\Mat A[U,1
1\->\Mat A[U,21
\Next 
\For 3\->U \To 4 \Step 1
1\->\Mat A[U,3
\Next 
\For 6\->U \To 8 \Step 1
1\->\Mat A[U,3
\Next 
\For 3\->V \To 6 \Step 1
1\->\Mat A[3,V
\Next 
\For 3\->V \To 6 \Step 1
1\->\Mat A[3,V
\Next 
\For 3\->V \To 6 \Step 1
1\->\Mat A[8,V
\Next 
1\->\Mat A[2,8
1\->\Mat A[9,8
1\->\Mat A[2,14
1\->\Mat A[9,14
\For 16\->V \To 19 \Step 1
1\->\Mat A[3,V
\Next 
\For 16\->V \To 19 \Step 1
1\->\Mat A[8,V
\Next 
1\->\Mat A[4,19
1\->\Mat A[6,19
1\->\Mat A[7,19
\For 5\->V \To 8 \Step 1
1\->\Mat A[5,V
1\->\Mat A[6,V
\Next 
\For 14\->V \To 17 \Step 1
1\->\Mat A[5,V
1\->\Mat A[6,V
\Next 
1\->\Mat A[3,10
1\->\Mat A[3,12
1\->\Mat A[8,10
1\->\Mat A[8,12
\For 8\->V \To 10 \Step 1
1\->\Mat A[4,V
1\->\Mat A[7,V
\Next 
\For 12\->V \To 14 \Step 1
1\->\Mat A[4,V
1\->\Mat A[7,V
\Next 
9\->\Mat A[5,9
9\->\Mat A[6,9
9\->\Mat A[5,13
9\->\Mat A[6,13
\Return
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:449
File Name:L2
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Fill(2,\Mat A
1\->U
\For 1\->V \To 21 \Step 1
1\->\Mat A[1,V
1\->\Mat A[10,V
\Next 
\For 1\->U \To 10 \Step 1
1\->\Mat A[U,1
1\->\Mat A[U,21
\Next 
\For 7\->V \To 9 \Step 1
1\->\Mat A[7,V
1\->\Mat A[9,V
1\->\Mat A[7,22-V
1\->\Mat A[9,22-V
\Next 
\For 4\->U \To 6 \Step 1
1\->\Mat A[U,11
1\->\Mat A[U+4,11
\Next 
\For 7\->V \To 10 \Step 1
1\->\Mat A[2,V
1\->\Mat A[2,V+5
\Next 
9\->\Mat A[2,11
9\->\Mat A[9,10
9\->\Mat A[9,12
\For 7\->V \To 15 \Step 1
1\->\Mat A[5,V
\Next 
1\->\Mat A[3,9
1\->\Mat A[3,13
1\->\Mat A[4,7
1\->\Mat A[4,15
\For 3\->V \To 5 \Step 1
1\->\Mat A[3,V
1\->\Mat A[8,V
1\->\Mat A[3,22-V
1\->\Mat A[8,22-V
\Next 
\For 4\->U \To 6 \Step 1
1\->\Mat A[U,3
1\->\Mat A[U,19
1\->\Mat A[U+1,5
1\->\Mat A[U+1,17
\Next 
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:505
File Name:L3
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Fill(2,\Mat A
\For 1\->V \To 21 \Step 1
1\->\Mat A[1,V
1\->\Mat A[10,V
\Next 
\For 1\->U \To 10 \Step 1
1\->\Mat A[U,1
1\->\Mat A[U,21
\Next 
\For 3\->V \To 5 \Step 1
1\->\Mat A[3,V
1\->\Mat A[5,V+2
1\->\Mat A[9,V+2
1\->\Mat A[3,V+14
1\->\Mat A[5,V+12
1\->\Mat A[9,V+12
\Next 
\For 5\->U \To 6 \Step 1
1\->\Mat A[U,3
1\->\Mat A[U+2,3
1\->\Mat A[U,5
1\->\Mat A[U+3,5
1\->\Mat A[U-2,7
1\->\Mat A[U+2,7
\Next 
9\->\Mat A[9,6
9\->\Mat A[9,16
1\->\Mat A[9,9
1\->\Mat A[9,13
\For 2\->U \To 3 \Step 1
1\->\Mat A[U,9
1\->\Mat A[U,13
1\->\Mat A[U+1,15
1\->\Mat A[U+3,17
1\->\Mat A[U+5,15
\Next 
\For 5\->U \To 8 \Step 1
1\->\Mat A[U,19
1\->\Mat A[U,11
1\->\Mat A[U-1,11
\Next 
1\->\Mat A[8,17
\For 9\->V \To 10 \Step 1
1\->\Mat A[5,V
1\->\Mat A[7,V
1\->\Mat A[5,V+3
1\->\Mat A[7,V+3
\Next 
1\->\Mat A[3,11

%End