%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:2162
File Name:MENTAL+
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\Lbl A
\AxesOff
\GridOff
\ClrText
\ClrGraph
\ViewWindow 1,127,0,1,63,0
\Text 30,46,"MENTAL +"
\Text 37,56,"v3.0a"
\Text 46,5,"Harradine, Schmude \@26 M\orfey."
\Text 56,16,"(Press EXE to continue.)"\Disp3\->Y
0\->Z
0\->S
0\->R
55\->\Dim \List 5
\Lbl 2
\ClrText
"1: Beginner"
\If Y=2
\Then "2: \Expert"
\Else "2: Competent"
"3: \Expert"
\IfEnd
"What should the"
"level be"?\->W
\If (W\<>\Int (W))\ Or (W<1)\ Or (W>Y)
\Then "You must select the"
"difficulty from one"
"of the specified"
"numbers."\Disp\Goto2
\IfEnd
\Lbl Z
56\->M
1\->B
0\->C
0\->R
\Lbl 1
C+1\->C
\If (W=1)
\Then (\Int (\Ran#*40))\->L
(\Int (\Ran#*40))\->P
(\Int (\Ran#*40))\->Q
\IfEnd
\If (W=2)
\Then (\Int (\Ran#*280+20))\->L
(\Int (\Ran#*280+20))\->P
\IfEnd
\If (W=3)
\Then (\Int (\Ran#*2000+1000))\->L
(\Int (\Ran#*2000+1000))\->P
\IfEnd
\Int (3\Ran#+1)\->E
\ClrText
\Locate 3,3,"Press EXE to get"
\Locate 3,4,"question"
\Locate 12,4,C
\Do
\LpWhile \Getkey\<>31
\ClrGraph
\ViewWindow 1,127,0,1,63,0
\If W=1
\Then \Text 20,38,L
\Text 20,46,"+"
\Text 20,52,P
\Text 20,60,"+"
\Text 20,67,Q
\Else \Text 20,43,L
\Text 20,61,"+"
\Text 20,67,P
\IfEnd
\Text 32,M-25,"Question"
\Text 32,(M+17),C
\Text 32,(M+26),"of 10"
\Text 40,11,"Find the answer of the"
\Text 46,7," sum shown on the screen."
\Text 56,16,"(Press EXE to continue.)"
\For 0\->U \To 10000
\If \Getkey=31
\Then \Break
\IfEnd
\Next 
S+U\->S
\ClrText
\ClrGraph
\Lbl T
10(\Int (5\Ran#)-2)\->F
\If F=0
\Then F+30\->F
\IfEnd
10(\Int (5\Ran#)-2)\->G
\If G=0
\Then G+30\->G
\IfEnd
\If F=G
\Then F+G\->F
\IfEnd
\If W=1
\Then \Text 10,41,"Is the answer,"
\If W=1\ And E=1
\Then \Text 24,41,"1:"
\Text 24,67,L+P+Q
\Text 32,41,"2:"
\Text 32,67,L+P+Q+F
\Text 40,41,"3:"
\Text 40,67,L+P+Q+G
\IfEnd
\If W=1\ And E=2
\Then \Text 24,41,"1:"
\Text 24,67,L+P+Q+F
\Text 32,41,"2:"
\Text 32,67,L+P+Q
\Text 40,41,"3:"
\Text 40,67,L+P+Q+G
\IfEnd
\If W=1\ And E=3
\Then \Text 24,41,"1:"
\Text 24,67,L+P+Q+F
\Text 32,41,"2:"
\Text 32,67,L+P+Q+G
\Text 40,41,"3:"
\Text 40,67,L+P+Q
\IfEnd
\Else \Text 10,41,"Is the answer,"
\If E=1
\Then \Text 24,41,"1:"
\Text 24,67,L+P
\Text 32,41,"2:"
\Text 32,67,L+P+G+100
\Text 40,41,"3:"
\Text 40,67,L+P+F
\IfEnd
\If E=2
\Then \Text 24,41,"1:"
\Text 24,67,L+P+F+100
\Text 32,41,"2:"
\Text 32,67,L+P
\Text 40,41,"3:"
\Text 40,67,L+P+G
\IfEnd
\If E=3
\Then \Text 24,41,"1:"
\Text 24,67,L+P+F
\Text 32,41,"2:"
\Text 32,67,L+P+G+100
\Text 40,41,"3:"
\Text 40,67,L+P
\IfEnd
\IfEnd
\Lbl P
\Text 56,16,"(Press EXE to continue.)"
\For 0\->U \To 10000
\If \Getkey=31
\Then \Break
\IfEnd
\Next 
S+U\->S
\ClrText
\ClrGraph
"Is the answer"
"option 1,2 \or 3"?\->H
"The c\orrect answer"
"was:"
\If W=1
\Then L+P+Q\DispL+P+Q\->K
\Else L+P\DispL+P\->K
\IfEnd
\If H=E
\Then \ClrText
"Well done,"
"you are c\orrect\!mark"\DispR+1\->R
\Else \ClrText
"Ooops\!mark"
"Try the next one."\Disp\IfEnd
B+1\->B
\If C<10
\Then \Goto1
\IfEnd
S/100\->S
\ClrText
"You got    c\orrect"
\Locate 9,1,R
"out 10."\Disp"  "
"You took       s."
\Locate 10,4,S\Disp\AxesOn
\ClrGraph
\ClrText
"1: Yes"
"2: No"
"Would you like to"
"play again"?\->J
\If J=1
\Then \GotoA
\IfEnd
\If J=2
\Then "I'll take that as a"
"no."
\IfEnd

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:2070
File Name:MENTALX
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl A
\AxesOff
\GridOff
\ClrText
\ClrGraph
\ViewWindow 1,127,0,1,63,0
\Text 30,46,"MENTAL X"
\Text 37,56,"v3.0a"
\Text 46,5,"Harradine, Schmude \@26 M\orfey."
\Text 56,16,"(Press EXE to continue.)"\Disp3\->Y
0\->Z
0\->S
0\->R
55\->\Dim \List 5
\Lbl 2
\ClrText
"1: Beginner"
\If Y=2
\Then "2: \Expert"
\Else "2: Competent"
"3: \Expert"
\IfEnd
"What should the"
"level be"?\->W
\If (W\<>\Int (W))\ Or (W<1)\ Or (W>Y)
\Then "You must select the"
"difficulty from one"
"of the specified"
"numbers."\Disp\Goto2
\IfEnd
\Lbl Z
56\->M
1\->B
0\->C
0\->G
\Lbl 1
C+1\->C
\If (W=1)
\Then (\Int (\Ran#*12+3))\->L
\IfEnd
\If (W=2)
\Then (\Int (\Ran#*30+5))\->L
\IfEnd
\Ran#\->T
\If (W=2)\ And T\>=0.66:\Then 9\->P:\Else 5\->P:\IfEnd
\If (W=2)\ And T\<=0.33:\Then 13\->P:\IfEnd
\If W=1:\Then (\Int (\Ran#*15+3))\->P:\IfEnd
\If (W=3)
\Then (\Int (\Ran#*31+5))\->L
(\Int (\Ran#*100+1))\->P
\IfEnd
\Int (3\Ran#+1)\->E
\ClrText
\Locate 3,3,"Press EXE to get"
\Locate 3,4,"question"
\Locate 12,4,C
\Do
\LpWhile \Getkey\<>31
\ClrGraph
\ClrText
\ViewWindow 1,127,0,1,63,0
\Text 20,52,L
\Text 20,61,"*"
\Text 20,67,P
\Text 32,M-25,"Question"
\Text 32,(M+17),C
\Text 32,(M+26),"of 10"
\Text 40,11,"Find the answer of the"
\Text 46,3," product shown on the screen."
\Text 56,16,"(Press EXE to continue.)"
\For 0\->U \To 10000
\If \Getkey=31
\Then \Break
\IfEnd
\Next 
S+U\->S
\ClrText
\ClrGraph
\If W=1
\Then \Text 10,41,"Is the answer,"
\If E=1
\Then \Text 24,41,"1:"
\Text 24,67,L*P
\Text 32,41,"2:"
\Text 32,67,L*(P+1)
\Text 40,41,"3:"
\Text 40,67,L*(P-1)
\IfEnd
\If E=2
\Then \Text 24,41,"1:"
\Text 24,67,L*(P-1)
\Text 32,41,"2:"
\Text 32,67,L*P
\Text 40,41,"3:"
\Text 40,67,L*(P+1)
\IfEnd
\If E=3
\Then \Text 24,41,"1:"
\Text 24,67,P*(L-1)
\Text 32,41,"2:"
\Text 32,67,P*(L+1)
\Text 40,41,"3:"
\Text 40,67,L*P
\IfEnd
\Else \Text 10,41,"Is the answer,"
\Lbl T
10(\Int (5\Ran#)-2)\->F
\If F=0
\Then F+30\->F
\IfEnd
10(\Int (5\Ran#)-2)\->G
\If G=0
\Then G+30\->G
\IfEnd
\If F=G
\Then F+G\->F
\IfEnd
\If E=1
\Then \Text 24,41,"1:"
\Text 24,67,L*P
\Text 32,41,"2:"
\Text 32,67,L*P+F
\Text 40,41,"3:"
\Text 40,67,L*P+G
\IfEnd
\If E=2
\Then \Text 24,41,"1:"
\Text 24,67,L*P+G
\Text 32,41,"2:"
\Text 32,67,L*P
\Text 40,41,"3:"
\Text 40,67,L*P+F
\IfEnd
\If E=3
\Then \Text 24,41,"1:"
\Text 24,67,P*L+F
\Text 32,41,"2:"
\Text 32,67,P*L+G
\Text 40,41,"3:"
\Text 40,67,L*P
\IfEnd
\IfEnd
\Text 56,16,"(Press EXE to continue.)"
\For 0\->U \To 10000
\If \Getkey=31
\Then \Break
\IfEnd
\Next 
S+U\->S
\ClrText
\ClrGraph
"Is the answer"
"option 1,2 \or 3"?\->H
"The c\orrect answer"
"was:"
L*P\Disp\If H=E
\Then \ClrText
"Well done,"
"you are c\orrect\!mark"\DispR+1\->R
\Else \ClrText
"Ooops\!mark"
"Try the next one."\Disp\IfEnd
B+1\->B
\If C<10
\Then \Goto1
\IfEnd
S/100\->S
\ClrText
"You got    c\orrect"
\Locate 9,1,R
"out 10."\Disp"  "
"You took       s."
\Locate 10,4,S\Disp\AxesOn
\ClrGraph
\ClrText
"1: Yes"
"2: No"
"Would you like to"
"play again"?\->J
\If J=1
\Then \GotoA
\IfEnd
\If J=2
\Then "I'll take that as a"
"no."
\IfEnd

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:2729
File Name:MENTAL-
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl A
\AxesOff
\GridOff
\ClrText
\ClrGraph
\ViewWindow 1,127,0,1,63,0
\Text 30,46,"MENTAL -"
\Text 37,56,"v3.0a"
\Text 46,5,"Harradine, Schmude \@26 M\orfey."
\Text 56,16,"(Press EXE to continue.)"\Disp3\->Y
0\->Z
0\->S
0\->R
55\->\Dim \List 5
\Lbl 2
\ClrText
"1: Beginner"
\If Y=2
\Then "2: \Expert"
\Else "2: Competent"
"3: \Expert"
\IfEnd
"What should the"
"level be"?\->W
\If (W\<>\Int (W))\ Or (W<1)\ Or (W>Y)
\Then "You must select the"
"difficulty from one"
"of the specified"
"numbers."\Disp\Goto2
\IfEnd
\Lbl Z
56\->M
1\->B
0\->C
0\->R
\Lbl 1
C+1\->C
\If (W=1)
\Then (\Int (\Ran#*45+15))\->L
(\Int (\Ran#*90+15))\->P
\IfEnd
\If (W=2)
\Then (\Int (\Ran#*280+20))\->L
(\Int (\Ran#*280+20))\->P
\IfEnd
\If (W=3)
\Then (\Int (\Ran#*2000+1000))\->L
(\Int (\Ran#*2000+100))\->P
\IfEnd
\Int (3\Ran#+1)\->E
\ClrText
\Locate 3,3,"Press EXE to get"
\Locate 3,4,"question"
\Locate 12,4,C
\Do
\LpWhile \Getkey\<>31
\ClrGraph
\ClrText
\ViewWindow 1,127,0,1,63,0
\If L>P
\Then \Text 20,43,L
\Text 20,61,"-"
\Text 20,67,P
\Else \Text 20,43,P
\Text 20,61,"-"
\Text 20,67,L
\IfEnd
\Text 32,M-25,"Question"
\Text 32,(M+17),C
\Text 32,(M+26),"of 10"
\Text 40,11,"Find the answer of the"
\Text 46,3," diff. shown on the screen."
\Text 56,16,"(Press EXE to continue.)"
\For 0\->U \To 10000
\If \Getkey=31
\Then \Break
\IfEnd
\Next 
S+U\->S
\ClrText
\ClrGraph
\Lbl T
10(\Int (5\Ran#)-2)\->F
\If F=0
\Then F+30\->F
\IfEnd
10(\Int (5\Ran#)-2)\->G
\If G=0
\Then G+30\->G
\IfEnd
\If F=G
\Then F+G\->F
\IfEnd
\If L>P
\Then \Text 10,41,"Is the answer,"
\If W=3
\Then \Text 10,41,"Is the answer,"
\If E=1
\Then \Text 24,41,"1:"
\Text 24,67,L-P
\Text 32,41,"2:"
\Text 32,67,L-P+F+100
\Text 40,41,"3:"
\Text 40,67,L-P+G
\IfEnd
\If E=2
\Then \Text 24,41,"1:"
\Text 24,67,L-P+F+100
\Text 32,41,"2:"
\Text 32,67,L-P
\Text 40,41,"3:"
\Text 40,67,L-P+G
\IfEnd
\If E=3
\Then \Text 24,41,"1:"
\Text 24,67,L-P+F
\Text 32,41,"2:"
\Text 32,67,L-P+G+100
\Text 40,41,"3:"
\Text 40,67,L-P
\IfEnd
\Else \If E=1
\Then \Text 24,41,"1:"
\Text 24,67,L-P
\Text 32,41,"2:"
\Text 32,67,L-P+F
\Text 40,41,"3:"
\Text 40,67,L-P+G
\IfEnd
\If E=2
\Then \Text 24,41,"1:"
\Text 24,67,L-P+F
\Text 32,41,"2:"
\Text 32,67,L-P
\Text 40,41,"3:"
\Text 40,67,L-P+G
\IfEnd
\If E=3
\Then \Text 24,41,"1:"
\Text 24,67,L-P+F
\Text 32,41,"2:"
\Text 32,67,L-P+G
\Text 40,41,"3:"
\Text 40,67,L-P
\IfEnd
\IfEnd
\IfEnd
\If L<P
\Then \Text 10,41,"Is the answer,"
\If W=3
\Then \Text 10,41,"Is the answer,"
\If E=1
\Then \Text 24,41,"1:"
\Text 24,67,P-L
\Text 32,41,"2:"
\Text 32,67,P-L+F+100
\Text 40,41,"3:"
\Text 40,67,L-P+G
\IfEnd
\If E=2
\Then \Text 24,41,"1:"
\Text 24,67,P-L+F+100
\Text 32,41,"2:"
\Text 32,67,P-L
\Text 40,41,"3:"
\Text 40,67,P-L+G
\IfEnd
\If E=3
\Then \Text 24,41,"1:"
\Text 24,67,P-L+F
\Text 32,41,"2:"
\Text 32,67,P-L+G+100
\Text 40,41,"3:"
\Text 40,67,P-L
\IfEnd
\Else \If E=1
\Then \Text 24,41,"1:"
\Text 24,67,P-L
\Text 32,41,"2:"
\Text 32,67,P-L+F
\Text 40,41,"3:"
\Text 40,67,P-L+G
\IfEnd
\If E=2
\Then \Text 24,41,"1:"
\Text 24,67,P-L+F
\Text 32,41,"2:"
\Text 32,67,P-L
\Text 40,41,"3:"
\Text 40,67,P-L+G
\IfEnd
\If E=3
\Then \Text 24,41,"1:"
\Text 24,67,P-L+F
\Text 32,41,"2:"
\Text 32,67,P-L+G
\Text 40,41,"3:"
\Text 40,67,P-L
\IfEnd
\IfEnd
\IfEnd
\Text 56,16,"(Press EXE to continue.)"
\For 0\->U \To 10000
\If \Getkey=31
\Then \Break
\IfEnd
\Next 
S+U\->S
\If L>P
\Then L-P\->K
\Else P-L\->K
\IfEnd
\ClrText
\ClrGraph
"Is the answer"
"option 1,2 \or 3"?\->H
"The c\orrect answer"
"was:"
K\Disp\If H=E
\Then \ClrText
"Well done,"
"you are c\orrect\!mark"\DispR+1\->R
\Else \ClrText
"Ooops\!mark"
"Try the next one."\Disp\IfEnd
B+1\->B
\If C<10
\Then \Goto1
\IfEnd
S/100\->S
\ClrText
"You got    c\orrect"
\Locate 9,1,R
"out 10."\Disp"  "
"You took       s."
\Locate 10,4,S\Disp\AxesOn
\ClrGraph
\ClrText
"1: Yes"
"2: No"
"Would you like to"
"play again"?\->J
\If J=1
\Then \GotoA
\IfEnd
\If J=2
\Then "I'll take that as a"
"no."
\IfEnd

%End