%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:2889
File Name:IQMAX II
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->\theta
3\->\r
\Prog "GU"
\Locate 11,6,"12\slash12\slash96"
\Locate 14,4,"1.00"
\Locate 7,2,"IqMaX II"
1\->\r
\Prog "GU"
0\->A~Z
\theta\->E
1\->H
\AxesOff
\ViewWindow 0,126,0,0,62,0
\Locate 3,4,"HoW Many Player"
\Locate 1,7,"[ONe]"
\Locate 17,7,"[TwO]"
\Do:\Getkey\->Z:\LpWhile Z\<>79\ And Z\<>29
2\->A
Z=79\=>1\->A
\ClrText
\Locate 2,4,"UsE NagAtiVE NUmBeR"
\Locate 1,7,"[YeS]"
\Locate 18,7,"[No]"
\Do:\Getkey\->Z:\LpWhile Z\<>79\ And Z\<>29
2\->L
Z=29\=>1\->L
\Lbl F
\GotoI
\Lbl J
\Cls
1\->I
\While I\<>8:\F-Line 12I-2,10,12I-2,60
\F-Line 10,8I+4,82,8I+4
\F-Line 10,10,82,10
\Isz I
\WhileEnd
\Identity 6\->\Mat R
0\->Z
1\->I~J
\While I\<>7:\While J\<>7:\Intg (50\Ran#+10\->V
1\->K
\If L=2
\Then \Intg (7\Ran#+1\->K
K\<=H\=>2\->K
\IfEnd
V\->\Mat R[I,J
\If K=2
\Then -V\->\Mat R[I,J
\Orange \Text 53-8I,86-12J,V
\Else \Text 53-8I,86-12J,V
\IfEnd
\Isz J
\WhileEnd
\Isz I
1\->J
\WhileEnd
\Text 5,93,"PlaYeR 2:"
A=1\=>\Text 25,93,"Dr.Com ,"
A=2\=>\Text 25,93,"PLaYeR 1,"
L=2\=>\Text 43,98,"+"
L=2\=>\Orange \Text 43,103,"-"
\Intg (6\Ran#+1\->R
\GotoK
\Lbl I
\If A=1
\Then \ClrText
" "
" "
" "
H=1\=>"      LeVeL 1"
H=1\=>"     BegiNNEr"
H=2\=>"      LeVeL 2"
H=2\=>"   INtEr\MediATE"
H=3\=>"      LeVeL 3"
H=3\=>"     adVaNcEd"
H=4\=>"      LEvEL 4"
H=4\=>"      ExPeRT"
H=5\=>"      LEvEL 5"
H=5\=>"      MaStEr"
H=6\=>"      LEvEL 6"
H=6\=>"    GrAnD MasTeR"
H=7\=>"     LasT LEvEL"
H=7\=>"    \ExpErT PLuS"
\Locate 1,7,"[Ne\Xt ]"
\Do
\LpWhile \Getkey\<>79
\IfEnd
\GotoJ
\Lbl K
1\->N
0\->O
0\->W
0\->Z
\Intg (6\Ran#+1\->\r
\Intg (6\Ran#+1\->\theta
\While Z<6
0\->Z
\If N=1:\Then 3+N\->N:\Text 50,92,"      "
\For 1\->K \To 6
-9\x^2=\Mat R[K,\theta\=>\Isz Z
-9\x^2\<>\Mat R[K,\theta\=>K\->T
\Next 
Z=6\=>\GotoZ
\Text 50,93,"COL:"
\Text 55,90-12\theta,"^"
\Text 58,90-12\theta,"^"
\Text 50,110,7-\theta
Z=5\ And A=1\=>\Goto\r
\Lbl A
A=1\=>\Intg (6\Ran#+1\->T
1\->M
H\<>1\ Or A=2\=>\GotoN
\Lbl \r
\If -9\x^2=\Mat R[T,\theta
\Then A=2\=>\GotoN
A=1\=>\GotoA
\IfEnd
O+\Mat R[T,\theta\->O
\If \Mat R[T,\theta]\>=0
\Then \Text 53-8T,86-12\theta,"  "
\Else \Orange \Text 53-8T,86-12\theta,"  "
\IfEnd
-9\x^2\->\Mat R[T,\theta
T\->\r
\Text 35,99,"     "
\Text 35,100,O
\IfEnd
\If N=2:\Then N+3\->N
\Text 55,90-12\theta," "
\Text 58,90-12\theta," "
\Text 53-8\r,84,"<<"
\Text 50,93,"ROW:"
\Text 50,110,7-\r
\For 1\->K \To 6
\If -9\x^2=\Mat R[\r,K
\Then \Isz Z
\Else K\->G
\IfEnd
\Next 
Z=6\=>\GotoZ
\Lbl B
\Lbl Y
\GotoR
\Lbl S
-9\x^2=\Mat R[\r,T\=>\GotoB
W+\Mat R[\r,T\->W
\If \Mat R[\r,T]\>=0
\Then \Text 53-8\r,86-12T,"  "
\Else \Orange \Text 53-8\r,86-12T,"  "
\IfEnd
-9\x^2\->\Mat R[\r,T
\Text 15,99,"     "
\Text 15,100,W
\Text 53-8\r,84,"  "
T\->\theta
\IfEnd
\If 0=\Frac (N/2:\Then 2\->N:\Else 1\->N
\IfEnd
\WhileEnd
\Lbl N
\If A=1
\Then \Mat->List\Mat R,\theta\->\List 1
\Seq(X,X,1,6,1\->\List 2
\List 1\->\List 4
\SortD(\List 4,\List 2
\List 2[1\->T
\List 1\->\List 4
\If H>2
\Then \Trn \Mat R\->\Mat A
\For 1\->F \To 6
\Mat->List\Mat A,F\->\List 2
\Sum (81+\List 2\->R
R=0\=>0\->\List 4[F
R\<>0\=>100(81+\List 2[\theta])/R\->\List 4[F
-9\x^2\->\List 2[\theta
\Max(\List 2\->R
H=7\=>\List 4\->\List 3
\If H<5\ Or H=7
\Then \List 1[F]-R\->\List 4[F
-9\x^2=\List 1[F\=>-200\->\List 4[F
\IfEnd
\Next 
\If H=3
\Then \Seq(X,X,1,6,1\->\List 2
\SortD(\List 1,\List 4,\List 2
\For 1\->R \To 6
7-R\->F
\List 4[F]>0\ And \List 1[F]>-81\=>\List 2[F\->T
\Next 
\IfEnd
\If H\>=4
\Then \If H\>=5
\Then 81+\List 1\->\List 2
\Sum \List 2=0\=>.1+\List 2[1\->\List 2[1
\Percent \List 2\->\List 2
1\->R
1\->F
H=5\=>2\->R
H=6\=>2\->F
R\List 2+F\List 4\->\List 4
H=7\=>\List 3+\List 4\->\List 4
\For 1\->F \To 6
-9\x^2=\List 1[F\=>-99\->\List 4[F
\Next 
\IfEnd
\Seq(X,X,1,6,1\->\List 2
\SortD(\List 4,\List 2
\List 2[1\->T
\IfEnd
\IfEnd
\Else \PlotOn 10,10
Z=5\=>\Plot 88-12\theta,8T+8\DispZ\<>5\=>\Plot 88-12\theta,36\DispX-88+12\theta\>=10\ Or X-84+12\theta\<=0\=>\GotoN
Y>59\ Or Y<13\=>\GotoN
0\->T
\For 1\->Q \To 6
5+8Q\<=Y\ And 14+8Q\>=Y\=>Q\->T
\Next 
T=0\=>\GotoN
\IfEnd
\Goto\r
\Lbl Z
\Text 57,1,"[FiNiSH]":\PlotOff 0,0
\Do
\LpWhile \Getkey\<>79
\Text 57,105,"[EXiT]"
\Text 57,15,"         "
\If (O>W\ And A=1)\ Or (O<W\ And H=7)
\Then \Text 57,1,"[NeW]"
E=0\=>1\->H
O<W\=>0\->H
\Else \Text 57,1,"[Ne\Xt ]"
\IfEnd
O\<=W\=>\Text 15,99,"WiN "
A=1\=>O<W\=>\Isz H
A=1\=>O<W\=>H=1\=>\Text 57,27,"You\Deg>S VerY GeNiUS"
O>W\=>\Text 35,99,"WiN "
A=1\=>O>W\=>\Text 57,25,"\asterSOrry, GaMe OvEr\aster"
O=W\=>\Text 35,96,"WiN Too"
\PlotOn 0,0
\Do:\Getkey\->X:\LpWhile X\<>79\ And X\<>29
X=79\=>\GotoF
\Lbl X
2\->\r
\Prog "GU"
\Locate 11,5,"26\slash07\slash97"
\Locate 7,2,"IqMaX II"
\Stop
\Lbl R
\Text 57,15,"F1 F2 F3 F4 F5 F6"
\Text 57,15,"                 "
\Do
\Getkey\->G
\LpWhile G\<>79\ And G\<>69\ And G\<>59\ And G\<>49\ And G\<>39\ And G\<>29
G/10-1.9\->G
\If -9\x^2\<>\Mat R[\r,G
\Then G\->T
\Else \GotoR
\IfEnd
\GotoS
%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