%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:3636
File Name:IQMAX++
Group Name:
Password:NARM
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->\theta
3\->\r
\Prog "GU"
\Locate 11,6,"12\slash12\slash96"
\Locate 14,4,"4.00"
\Locate 8,2,"IQ MAXX"
1\->\r
\Prog "GU"
0\->A~Z
\theta\->E
1\->H
\ViewWindow 0,126,0,0,62,0
\Locate 3,4,"HOW MANY PLAYER"
\Locate 1,7,"[ONE]"
\Locate 17,7,"[TWO]"
\Do:\Getkey\->A:\LpWhile A\<>79\ And A\<>29
2\->Z
A=79\=>1\->Z
Z\->A
\ClrText
\Locate 2,4,"USE NAGATIVE NUMBER"
\Locate 1,7,"[YES]"
\Locate 18,7,"[NO]"
\Do:\Getkey\->L:\LpWhile L\<>79\ And L\<>29
2\->Z
L=29\=>1\->Z
Z\->L
1\->Z
\If A=1
\Then \ClrText
\Locate 2,4,"USE KEY \To SELECT"
\Locate 1,7,"[PLOT]"
\Locate 8,7,"[ARROW]"
\Locate 16,7,"[FKEY]"
\Do:\Getkey\->C:\LpWhile C\<>79\ And C\<>59\ And C\<>29
C=59\=>2\->Z
C=29\=>3\->Z
\IfEnd
Z\->C
\Lbl F
\GotoI
\Lbl J
\Cls
1\->I
\While I\<>8:\F-Line I*12-2,10,I*12-2,60
\F-Line 10,I*8+4,82,I*8+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"\DispH=2\=>"      LEVEL 2"
H=2\=>"   INTERMEDIATE"\DispH=3\=>"      LEVEL 3"
H=3\=>"     ADVANCED"\DispH=4\=>"      LEVEL 4"
H=4\=>"      EXPERT"\DispH=5\=>"      LEVEL 5"
H=5\=>"      MASTER"\DispH=6\=>"      LEVEL 6"
H=6\=>"    GRAND MASTER"\DispH=7\=>"     LAST LEVEL"
H=7\=>"    EXPERT PLUS"\Disp\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
C=2\=>\Text 57,15,"SELECT="
\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:"
C\<>2\=>\Text 55,90-12\theta,"^"
C\<>2\=>\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
C=2\=>\Text 57,43,"    "
C=2\=>\Text 57,45,\Mat R[T,\theta
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
C\<>2\=>\Text 55,90-12\theta," "
C\<>2\=>\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
C=2\=>\GotoM
\Lbl Y
C=3\=>\GotoR
\Lbl S
\If C=1
\Then \PlotOn 10,10
Z=5\=>\Plot 88-12G,8\r+8\DispZ\<>5\=>\Plot 46,8\r+8\DispY-8\r-5\>=6\ Or Y-8\r-5\<=0\=>\GotoB
X>81\ Or X<11\=>\GotoB
0\->T
\For 1\->Q \To 6
12Q-1\<=X\ And 12Q+9\>=X\=>Q\->T
\Next 
7-T\->T
T=7\=>\GotoB
\IfEnd
-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 \Frac (N/2)=0:\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 50,92,"FINISH "\Disp\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,"[NEXT]"
\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,"06\slash07\slash97"
\Locate 8,2,"IQ MAXX"
\Stop
\Lbl M
\Do
\Intg (6\Ran#+1\->K
\LpWhile -9\x^2=\Mat R[\r,K
\Lbl O
K\->S
-1\->V
\Text 57,45,"   "
\Text 57,45,\Mat R[\r,K
0\->I
\Do
I+1\->I
\Mat R[\r,K\->F
F>0\=>I=4\=>\Text 53-8\r,86-12K,F
F>0\=>I=1\=>\Text 53-8\r,86-12K,"  "
F<0\=>I=1\=>\Orange \Text 53-8\r,86-12K,"  "
F<0\=>I=4\=>\Orange \Text 53-8\r,86-12K,-F
I=6\=>0\->I
\Getkey\->G
\LpWhile G\<>38\ And G\<>27\ And G\<>31\ And G\<>79
\If G=27
\Then \Do
K-1\->K
K<1\=>6\->K
\LpWhile -9\x^2=\Mat R[\r,K
\IfEnd
\If G=38
\Then \Do
\Isz K
K>6\=>1\->K
\LpWhile -9\x^2=\Mat R[\r,K
\IfEnd
F<0\=>\Orange \Text 53-8\r,86-12S,-\Mat R[\r,S
F>0\=>\Text 53-8\r,86-12S,\Mat R[\r,S
\If G=31\ Or G=79
\Then K\->T
\GotoY
\IfEnd
\GotoO
\Lbl R
\Text 57,4,"   F1 F2 F3 F4 F5 F6"
\Text 57,4,"                    "
\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