%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:2333
File Name:XODELUXE
Group Name:
Password:NARM
Option1:NL
Option2:
Option3:
Option4:
%Data Record
3\->\r
\Prog "GU"
\Locate 7,2,"XO-DELUXE"
\Locate 11,6,"10\slash12\slash96"
\Locate 3,5,"ThE BesT EdiTiOn!!"
\Locate 14,4,"8.02"
1\->\r
\Prog "GU"
0\->A~Z
1\->\r
\Lbl 7
\Cls
\For 1\->I \To 4
\F-Line 8,15I-6,98,15I-6
\F-Line 30I-22,9,30I-22,54
\Next 
\Text 2,89,"Xo-DELUXE"
\Identity 3\->\Mat A
\Fill(0,\Mat A
\For 1\->I \To 4
\F-Line 100+5I,9,100+5I,24
\F-Line 120,5I+4,105,5I+4
\Next 
\r+1\->\r
\r=3\=>1\->\r
\r\->G
\For 1\->Z \To 10
0\->A~B
0\->M~N
\For 1\->I \To 3
\Mat A[I,1]+\Mat A[I,2]+\Mat A[I,3\->U
\Mat A[1,I]+\Mat A[2,I]+\Mat A[3,I\->H
\Mat A[1,1]+\Mat A[2,2]+\Mat A[3,3\->K
\Mat A[3,1]+\Mat A[2,2]+\Mat A[1,3\->J
U=2\=>5I+1\->M
H=2\=>5I+2\->M
K=2\=>5I+3\->M
J=2\=>5I+4\->M
U=8\=>5I+1\->N
H=8\=>5I+2\->N
K=8\=>5I+3\->N
J=8\=>5I+4\->N
U=3\ Or U=12\=>U\->J
H=3\ Or H=12\=>H\->J
K=3\ Or K=12\=>K\->J
J=12\ Or J=3\=>\GotoW
\Next 
Z=10\=>\GotoW
\Lbl R
0\->H
1\->O
\Do
H+1\->H
4=H\=>\Isz O
4=H\=>1\->H
\LpWhile 0\<>\Mat A[H,O
G=2\=>\GotoT
\Lbl A
\If Z=9
\Then \Plot 5O+103,27-5H\Disp\Else \Plot 113,16\Disp\IfEnd
\For 1\->I \To 3
X>100+5I\ And X<105+5I\=>I\->A
\Next 
\For 1\->I \To 3
Y>5I+4\ And Y<9+5I\=>4-I\->B
\Next 
A=0\ Or B=0\=>\GotoR
0\<>\Mat A[B,A\=>\GotoR
\r=1\=>E\->\theta
\r=1\=>F\->L
B\->E
A\->F
1\->\Mat A[B,A
\F-Line 30A-19,57-15B,30A+5,66-15B
\F-Line 30A+5,57-15B,30A-19,66-15B
\Goto5
\Lbl T
0\->A~B
0\->T
0\->V
\If Z=9
\Then H\->B
O\->A
4\->\Mat A[H,O
\GotoB
\IfEnd
\If Z=1
\Then \Int 3\Ran#+1\->A
\Int 3\Ran#+1\->B
4\->\Mat A[B,A
\GotoB
\IfEnd
\If Z=3
\Then \If 1=\Mat A[2,2
\Then C=1\=>3\->B
C=3\=>1\->B
D=1\=>3\->A
D=3\=>1\->A
\If C=2\ Or D=2
\Then \Int 2\Ran#+1\->A
\Int 2\Ran#+1\->B
\If C=2
\Then B=2\=>3\->B
D=1\=>A+1\->A
\IfEnd
\If D=2
\Then A=2\=>3\->A
C=1\=>B+1\->B
\IfEnd
\IfEnd
\IfEnd
\IfEnd
N=0\=>M\->N
\If N\<>0
\Then \Int (N/5\->C
N-5C\->D
\If D=1
\Then 0\->Q
\Do
1+Q\->Q
\LpWhile 0\<>\Mat A[C,Q
C\->B
Q\->A
\IfEnd
\If D=2
\Then 0\->Q
\Do
Q+1\->Q
\LpWhile 0\<>\Mat A[Q,C
Q\->B
C\->A
\IfEnd
\If D=3
\Then 0\->Q
\Do
1+Q\->Q
\LpWhile 0\<>\Mat A[Q,Q
Q\->A~B
\IfEnd
\If D=4
\Then 0\->Q
\Do
1+Q\->Q
\LpWhile 0\<>\Mat A[4-Q,Q
4-Q\->B
Q\->A
\IfEnd
\IfEnd
\If (A\<=0\ Or A>3)\ Or (B\<=0\ Or B>3)
\Then \If Z=5
\Then \If \theta\<>2\ And L=2
\Then D\->A
\theta\->B
\IfEnd
\If \theta=2\ And L\<>2
\Then C\->B
L\->A
\IfEnd
\If C\<>2\ And D=2
\Then L\->A
C\->B
\IfEnd
\If D\<>2\ And C=2
\Then D\->A
\theta\->B
\IfEnd
\If A\<>0\ And B\<>0
\Then \If \Mat A[B,A]=0
\Then 4\->\Mat A[B,A
\GotoB
\IfEnd
\IfEnd
\IfEnd
{2,1,1,3,3\->\List 1
{2,1,3,1,3\->\List 2
1\->Q
\Do
\List 1[Q\->B
\List 2[Q\->A
1+Q\->Q
\LpWhile Q\<=5\ And 0\<>\Mat A[B,A
\If 0\<>\Mat A[B,A]\ Or Z=4
\Then 1\->Q
\Do
\Int (3\Ran#+1\->B
\Int (3\Ran#+1\->A
\If Q=1
\Then \If Z=4\ And (\theta=2\ Or L=2)\ And \theta\<>L
\Then 2\->Q
\If L=2
\Then \theta\->B
F\->A
\Else L\->A
E\->B
\IfEnd
\Else \If (E=2\ Or F=2)\ And F\<>E
\Then \If F=2
\Then E\->B
L\->A
\Else \theta\->B
F\->A
\IfEnd
\IfEnd
\IfEnd
\IfEnd
\If ((\theta+L=2\ Or \theta+L=6)\ And (E+F=2\ Or E+F=6))\ Or ((\theta+L=4\ And \theta\<>2)\ And (E+F=4\ And E\<>2))\ And Z=4
\Then \While (A+B=4\ And A\<>2)\ Or (A+B=2)\ Or (A+B=6)
\Int 3\Ran#+1\->A
\Int 3\Ran#+1\->B
\WhileEnd
\IfEnd
\If Z=4\ And \theta=L\ And L=2\ And E=3\ And E=F
\Then \Int 2\Ran#+1\->B
B=2\=>3\->B
B=1\=>3\->A
B=3\=>1\->A
\IfEnd
\LpWhile 0\<>\Mat A[B,A
\IfEnd
\IfEnd
4\->\Mat A[B,A
\Lbl B
\r=2\=>C\->\theta
\r=2\=>D\->L
B\->C
A\->D
\F-Line 30A-19,57-15B,30A+5,57-15B
\F-Line 30A+5,57-15B,30A+5,66-15B
\F-Line 30A+5,66-15B,30A-19,66-15B
\F-Line 30A-19,66-15B,30A-19,57-15B
\Lbl 5
\If G=2
\Then 1\->G
\Else 2\->G
\IfEnd
\Next 
\Lbl W
J\<>12\ And J\<>3\=>\Text 57,40,"NobOdY WiN"
J=3\=>\Text 57,35,"You WiN ,GooD"
J=12\=>\Text 57,38,"S\orrY, I wIn"
\Text 57,1,"[NexT]"
\Text 57,106,"[eXIt]"
\Text 1,1," "
G+1\->G
\Do
\Getkey\->I
\LpWhile I\<>29\ And I\<>79
I=79\=>\Goto7
2\->\r
\Prog "GU"
\Locate 11,5,"20\slash09\slash97"
\Locate 7,2,"Xo-DELUXE"
\Stop
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:343
File Name:GU
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Identity 1\->\Mat A
\Mat A\->\Mat R
\Mat A\->\Mat X
\r\<>1\=>\ClrGraph
0:\ClrList
\If \r=3\ Or \r=2
\Then \Norm
\ClrText
\CoordOff
\Locate 1,1,"\aster\aster\aster\aster\aster\aster\aster\aster[NaM]\aster\aster\aster\aster\aster\aster\aster\aster"
\For 2\->I \To 6
\Locate 1,I,"\aster"
\Locate 21,I,"\aster"
\Next 
\Locate 1,7,"\aster\aster\aster\aster\aster\aster[TeLECoM]\aster\aster\aster\aster\aster\aster"
\IfEnd
\If \r=3
\Then 0\->\r
\ViewWindow 1,127,0,1,63,0
\Locate 5,4,"VeRsiOn"
\Locate 4,6,"sInCe,"
\IfEnd
\If \r=1
\Then 0\->\r
\For 1\->I \To 500
\Next 
\ClrText
\IfEnd
\If \r=2
\Then 0\->\r
\Locate 3,3,"Ac  tO eXiT"
\Locate 3,4,"eXE To pLAy AgAiN"
\Locate 4,5,"UpdAtE"
\Locate 7,6,"ThAnK You"
\IfEnd
%End