%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1285
File Name:MENTV2X
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 X"
\Text 37,56,"v2.0a"
\Text 46,5,"Harradine, Schmude \@26 M\orfey."
\Text 56,16,"(Press EXE to continue.)"\Disp3\->Y
0\->Z
0\->S
0\->G
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+1))\->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#*12+3))\->P:\IfEnd
\If (W=3)
\Then (\Int (\Ran#*20+1))\->L
(\Int (\Ran#*100+1))\->P
\IfEnd
\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
"What is the answer"?\->H
\Abs (D-H)\->I
"The c\orrect answer"
"was:"
L*P\Disp\If H-(L*P)=0
\Then \ClrText
"Well done,"
"you are c\orrect\!mark"\DispG+1\->G
\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,G
"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:1333
File Name:MENTV2+
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,"v2.0a"
\Text 46,5,"Harradine, Schmude \@26 M\orfey."
\Text 56,16,"(Press EXE to continue.)"\Disp3\->Y
0\->Z
0\->S
0\->G
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#*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
\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 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
"What is the answer"?\->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-(K)=0
\Then \ClrText
"Well done,"
"you are c\orrect\!mark"\DispG+1\->G
\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,G
"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:1303
File Name:MENTV2-
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,"v2.0a"
\Text 46,5,"Harradine, Schmude \@26 M\orfey."
\Text 56,16,"(Press EXE to continue.)"\Disp3\->Y
0\->Z
0\->S
0\->G
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#*40+10))\->L
(\Int (\Ran#*40+10))\->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
\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
\IfEnd
\If L<P
\Then \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
"What is the answer"?\->H
\If L>P
\Then L-P\->K
\Else P-L\->K
\IfEnd
"The c\orrect answer"
"was:"
K\Disp\If H-K=0
\Then \ClrText
"Well done,"
"you are c\orrect\!mark"\DispG+1\->G
\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,G
"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