%Header Record

Format:TXT

Communication SW:0

Data Type:PG

Capacity:1499

File Name:ZAPUZZLE

Group Name:

Password:

Option1:NL

Option2:

Option3:

Option4:

%Data Record

\Lbl 0

1\->A

60\->B

\AxesOff

\ViewWindow 1,127,1,63,1,1

\For A\->D \To B+1 \Step B/3

\Green \F-Line D,A,D,B+1

\Green \F-Line A,D,B,D

\Next 

\Orange \F-Line B+3,1,B+3,61

\Orange \F-Line B+3,1,127,1

\Orange \F-Line 127,1,127,61

\Orange \F-Line 127,61,B+3,61

\Orange \Text 3,65,"AKTIONSTASTEN:"

\Green \Text 10,70,"SHIFT"

\Green \Text 17,70,"ALPHA"

\Green \Text 10,92,"+ OPTN"

\Green \Text 17,92,"+ X^2"

\Green \Text 24,70,"EXIT"

\Orange \F-Line 63,31,127,31

\Green \Text 33,70,"ZIEL:"

\Text 33,100,"1 2 3"

\Text 40,100,"4 5 6"

\Text 47,100,"7 8 9"

\Orange \F-Line 63,53,127,53

\Green \Text 55,65,"STATUS:"

\Text 55,95,"LOAD!!!  "

\If \Getkey\<>44

\Then [[0,0,0][0,0,0][0,0,0]]\->\Mat X

\For 1\->E \To 3

\For 1\->D \To 3

\Do

0\->A

\Int (9\Ran#+1)\->C

\For 1\->F \To 3

\For 1\->G \To 3

C=\Mat X[F,G]\=>5\->A

\Next 

\Next 

\LpWhile A=5

C\->\Mat X[E,D]

\Next 

\Next 

\IfEnd

\Lbl 1

\Text 55,95,"LOAD!!!  "

0\->G

\For 1\->D \To 60 \Step 20:\Isz G

0\->H

\For 1\->E \To 60 \Step 20:\Isz H

\Text D+8,E+8,\Mat X[G,H]

\Next 

\Next 

0\->C

0\->B

0\->A

\For 1\->D \To 3

\For 1\->E \To 3

\Mat X[E,D]+B\->B

\Mat X[D,E]+C\->C

\Next 

D=1\ And B=12\ And C=06\=>\Isz A:D=2\ And B=15\ And C=15\=>\Isz A:D=3\ And B=18\ And C=24\=>\Isz A

0\->C:0\->B:A\<>D\=>\Break

\Next 

\Not (A\<>3)\=>\Goto3

\Text 55,95,"WARTE!!!"

\Lbl 2

\Getkey\->\r

\r=0\=>\Goto2

'NOCHEATP=0\slashP=P':P\->P

P=0\=>\r=71\=>\Isz P

P=1\=>\r=55\=>\Isz P

P=2\=>\r=36\=>\Isz P

P=3\=>\r=25\=>\Isz P

\If (\r=71\ And P\<>1)\ Or (\r=55\ And P\<>2)\ Or (\r=36\ And P\<>3)\ Or (\r=25\ And P\<>4)\ Or (\r\<>71\ And \r\<>55\ And \r\<>36\ And \r\<>25)

\Then 0\->P

\IfEnd

\If P=4

\Then 0\->P

\Orange "CHEATMODE"

\Orange "ORDNE!"

\For 1\->Q \To 3

\For 1\->R \To 3

(Q*3+R-3)\->\Mat X[Q,R]

\Next 

\Next 

\Goto1

\IfEnd

\If \r=47

\Then "SCHADE"

\Stop

\IfEnd

\r=31\=>\Goto1

\If \r=78

\Then \Mat X[1,1]\->\r

\Mat X[1,2]\->\Mat X[1,1]:\Mat X[2,2]\->\Mat X[1,2]:\Mat X[2,1]\->\Mat X[2,2]:\r\->\Mat X[2,1]

\Goto1

\IfEnd

\If \r=68

\Then \Mat X[1,2]\->\r

\Mat X[1,3]\->\Mat X[1,2]:\Mat X[2,3]\->\Mat X[1,3]:\Mat X[2,2]\->\Mat X[2,3]:\r\->\Mat X[2,2]

\Goto1

\IfEnd

\If \r=77

\Then \Mat X[2,1]\->\r

\Mat X[2,2]\->\Mat X[2,1]:\Mat X[3,2]\->\Mat X[2,2]:\Mat X[3,1]\->\Mat X[3,2]:\r\->\Mat X[3,1]

\Goto1

\IfEnd

\If \r=67

\Then \Mat X[2,2]\->\r

\Mat X[2,3]\->\Mat X[2,2]:\Mat X[3,3]\->\Mat X[2,3]:\Mat X[3,2]\->\Mat X[3,3]:\r\->\Mat X[3,2]

\Goto1

\IfEnd

\Goto2

\Lbl 3

"SUPER,"

"DU HAST DIE ZAHLEN"

"GEORDNET!"

%End