%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:26
File Name:DIVIDE27
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Fix 0:"SCORE"?\->A:100/30*A

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:146
File Name:PRM FACT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl 0:"M"?\->A:\Goto2:\Lbl 1:2\DispA/2\->A:A=1\=>\Goto9:\Lbl 2:\Frac (A/2)=0\=>\Goto1:3\->B:\Lbl 3:\sqrtA+1\->C:\Lbl 4:B\>=C\=>\Goto8:\Frac (A/B)=0\=>\Goto6:\Lbl 5:B+2\->B:\Goto4:\Lbl 6:A/B*B-A=0\=>\Goto7:\Goto5:\Lbl 7:B\DispA/B\->A:\Goto3:\Lbl 8:A\Disp\Lbl 9:"END"\Disp\Goto0
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:455
File Name:TIMER
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
\ClrList
.08181\->I
0\->M:0\->T
\Locate 5,2,"TRIAL TIMER"
\Locate 16,7,"[EXE]"\Disp\Lbl A
\ClrText
"How many trials?     (1-255)"?\->N
N\>=256\=>\GotoA
N<1\=>\GotoA
\Seq(X,X,1,N,1)\->\List 1
\Seq(0,X,1,N,1)\->\List 2
\ClrText
\Locate 6,1,"TRIAL #"
\Locate 2,6,"START:EXE STOP:(-)"
\Locate 2,7,"RESET:[0]"
\Getkey\->H:0\->H
\For 1\->J \To N
\Locate 13,1,J
\Lbl 1
\Locate 5,2,"          sec"
\While H\<>41
\Getkey\->H
H\<>0\=>\Goto2
T+M\->T
\Locate 5,2,T
\WhileEnd
T\->\List 2[J]
0\->H:0\->T:0\->M
\Next 
\ClrText
N>6\=>"Times in \List 2"\DispN>6\=>\Stop
\Locate 4,1,"TRIAL  TIME(Sec)"
\For 1\->J \To N
\Locate 5,(J+1),\List 1[J]
\Locate 12,(J+1),\List 2[J]
\Next 
\Stop
\Lbl 2
H=31\=>I\->M
H=71\=>0\->T
\Goto1

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:221
File Name:STOPWTCH
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Norm
\ClrText
0\->M
.08181\->I
\Getkey\->H
71\->H
\Locate 9,4,"RESET:[0]"
\Locate 9,5,"START:[EXE]"
\Locate 10,6,"STOP:[(-)]"
\Locate 3,7,"END PROGRAM:[DEL]"
\Goto2
\Lbl 1
\While H\<>44
\Getkey\->H
H\<>0\=>\Goto2
T+M\->T
\Locate 5,2,T
\WhileEnd
\Stop
\Lbl 2
H=31\=>I\->M
H=41\=>0\->M
\If H=71
\Then 0\->T
\Locate 5,2,"          sec"
\IfEnd
\Goto1
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:739
File Name:REACT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Locate 2,2,"PRESS [EXE] TO"
\Locate 2,3,"CLEAR LISTS."
\Locate 2,5,"PRESS [AC] TO EXIT."
\Do
\LpWhile \Getkey\<>31

\Lbl 0:\ClrText:\ClrList
"#####################                     ENTER THE NUMBER OF                       TRIALS:"?\->A
\If A<1
\Then \Goto0
\IfEnd
A\->\Dim \List 1
A\->\Dim \List 2
\For 1\->B \To 2 \Step 1
0\->I

\Lbl 1
\ClrText
\If I=0
\Then "####################"
\If B=1
\Then " USE YOUR BEST HAND"
\Else " USE YOUR WORST HAND"
\IfEnd
" TO PRESS ENTER      WHEN THE WORD NOW    IS DISPLAYED"
\Locate 1,7,"### -PRESS [EXE]- ###"
\Do
\LpWhile \Getkey<>31
\IfEnd
\ClrText
\Locate 1,1,"####################"
\Locate 3,3,"PRESS [EXE] TO"
\Locate 3,4,"BEGIN TRIAL"
\Locate 14,4,I+1
\Do
\LpWhile \Getkey<>31
\ClrText
\Do
(\Int (\Rnd#\aster865))+0\->T
\LpWhile T>20
\ClrText
\For 1\->X \To T
\Next 
\ClrText
\Locate 8,3,"#######"
\Locate 8,4,"# NOW #"
\Locate 8,5,"#######"
0\->C
\Do
C+1\->C
\LpWhile \Getkey<>31
C/185.19\->R
\If B=1
\Then R\->\List 1[I+1]
\IfEnd
\If B=2
\Then R\->\List 2[I+1]
\IfEnd
I+1\->I
\If I<A
\Then \Goto1
\IfEnd
\ClrText
\Next 
\Stop

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:716
File Name:REACTION
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->K
\ClrText
\Do
\Locate 2,2,"PRESS [EXE] TO"
\Locate 2,3,"CLEAR LISTS."
\Locate 2,4,"PRESS [AC] TO ABORT."
\LpWhile \Getkey\<>31
\Lbl 0:\ClrText:\ClrList
"#####################"
"    ENTER THE"
"    NUMBER OF"
"    TRIALS:"?\->A
\If A<1
\Then \Goto0
\IfEnd
A\->\Dim \List 1
A\->\Dim \List 2
\For 1\->B \To 2 \Step 1
0\->I
\Lbl 1
\ClrText
\If I=0
\Then "####################"
\If B=1
\Then " USE YOUR BEST HAND"
\Else " USE YOUR WORST HAND"
\IfEnd
"  TO PRESS [EXE]      WHEN THE WORD NOW      IS DISPLAYED"
\Locate 1,7,"### -PRESS [EXE]- ###"
\Do
\LpWhile \Getkey\<>31
\IfEnd
\ClrText
\Do
\Locate 1,1,"#####################"
\Locate 3,3,"PRESS [EXE] TO"
\Locate 3,4,"BEGIN TEST"
\Locate 14,4,I+1
\LpWhile \Getkey\<>31
\ClrText
\Do
(\Int (\Ran#*865))+0\->T
\LpWhile T>20
\ClrText
\For 1\->X \To T
\Next 
\ClrText
\Locate 8,3,"#######"
\Locate 8,4,"# NOW #"
\Locate 8,5,"#######"
0\->C
\Do
C+1\->C
\LpWhile \Getkey\<>31
C/185.19\->R
\If B=1
\Then R\->\List 1[I+1]
\IfEnd
\If B=2
\Then R\->\List 2[I+1]
\IfEnd
I+1\->I
\If I<A
\Then \Goto1
\IfEnd
\ClrText
\Next 
\Stop
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:843
File Name:REACT2
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
0\->K
\ClrText
\Locate 2,2,"PRESS [EXE] TO"
\Locate 2,3,"CLEAR LISTS."
\Locate 2,4,"PRESS [AC] TO ABORT."
\Do
\LpWhile \Getkey\<>31
\Lbl 0:\ClrText:\ClrList
"#####################                        ENTER THE            NUMBER OF            TRIALS."?\->A
\If A<1
\Then \Goto0
\IfEnd
A\->\Dim \List 1
A\->\Dim \List 2
A\->\Dim \List 3
\For 1\->B \To 3 \Step 1
0\->I
\Lbl 1
\ClrText
\If I=0
\Then "####################"
\If B=1
\Then "USE THE FIRST SETTING"
\IfEnd
\If B=2
\Then " USE THE 2ND SETTING"
\IfEnd
\If B=3
\Then "USE THE THIRD SETTING"
\IfEnd
"  AND PRESS ENTER    WHEN THE WORD 'NOW'     IS DISPLAYED"
\Locate 1,7,"### -PRESS ENTER- ###"
\Do
\LpWhile \Getkey\<>31
\IfEnd
\ClrText
\Locate 1,1,"#####################"
\Locate 3,2,"SETTING"
\Locate 11,2,B
\Locate 3,3,"PRESS ENTER TO"
\Locate 3,4,"BEGIN TEST"
\Locate 14,4,I+1
\Do
\LpWhile \Getkey\<>31
\ClrText
\Do
\Int (\Ran#*865)+0\->T
\LpWhile T>20
\ClrText
\For 1\->X \To T
\Next 
\ClrText
\Locate 8,3,"#######"
\Locate 8,4,"# NOW #"
\Locate 8,5,"#######"
0\->C
\Do
C+1\->C
\LpWhile \Getkey\<>31
C/185.19\->R
\If B=1
\Then R\->\List 1[I+1]
\IfEnd
\If B=2
\Then R\->\List 2[I+1]
\IfEnd
\If B=3
\Then R\->\List 3[I+1]
\IfEnd
I+1\->I
\If I<A
\Then 
\Goto1
\IfEnd
\ClrText
\Next 
\Stop
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:660
File Name:PARABOLA
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"A(X-B)\x^2+C"\->\Y 2
"D(X-E)\x^2+F"\->\Y 1
"X\x^2"\->\Y 3
\BlueG 1
\OrangeG 2
\GreenG 3
\ViewWindow \(-)6.3,6.3,1,\(-)3.1,3.1,1
\Norm
1\->L
0\->R
0\->W
\G SelOff 4
\G SelOff 5
\G SelOff 6
\ClrText
\Lbl S
\G SelOff 2
\G SelOn 1
\G SelOn 3
\ClrGraph
\Int (2\Ran#+1)\->D
\Ran#<0.3\=>0.5\->D
\Ran#\>=0.5\=>\(-)D\->D
\Int (5\Ran#-3)\->E
\Int (4\Ran#-2)\->F
\Text 57,98,"[ENTER]"
\DrawGraph\Disp\ClrText
"YOUR VALUES FOR A,B,C"
?\->A
?\->B
?\->C
\G SelOn 2
\G SelOff 3
\ClrGraph
\Text 57,98,"[ENTER]"
\DrawGraph\Disp\ClrText
"VALUES  A     B   C"
"YOURS"
"ACTUAL"
\Locate 9,2,A
\Locate 15,2,B
\Locate 19,2,C
\Locate 9,3,D
\Locate 15,3,E
\Locate 19,3,F
\If A=D\ And B=E\ And C=F
\Then \Locate 1,6,"WELL DONE":R+1\->R
\Else \Locate 1,6,":(  TRY AGAIN":W+1\->W
\IfEnd
\Locate 15,7,"[ENTER]"\Disp\ClrText
" NEXT...":"1: NEW PARABOLA":"2: QUIT":""
?\->A
A\<>2\=>\GotoS
""\->\Y 1
""\->\Y 2
""\->\Y 3
\ClrText
\Norm
"   HOW YOU WENT"
\Locate 1,3,"ATTEMPTS:"
\Locate 11,3,R+W
\Locate 1,4,"CORRECT:"
\Locate 10,4,R
\Locate 1,5,"SCORE:"
\Fix 1
100R/(R+W)
\Locate 8,5,\Ans
\Locate 13,5,"PC"
%End