%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:609
File Name:SETUP
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\If Z\<>0.917
\Then \ClrText
"This program is"
"intended to be run"
"only as a subprogram"
"of ANGLE \or SURDS."
"Try running them"
"instead."
\GotoZ
\IfEnd
0\->Z
55\->\Dim \List 5
\Lbl 1
\ClrText
"How many players are"
"there"?\->A
\If A\<>\Int (A)
\Then "Please round off the"
"number of players to"
"the nearest integer."\Disp\Goto1
\IfEnd
\If A>5
\Then "No m\ore than five "
"people can play at "
"once."\Disp\Goto1
\IfEnd
\If A<1
\Then "There must be at "
"least one player."\Disp\Goto1
\IfEnd
\Lbl 2
\ClrText
"1: Beginner"
\If Y=2
\Then "2: Competent"
\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

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:995
File Name:SCORES
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\If Z\<>0.429
\Then \ClrText
"This program is"
"intended to be run"
"only as a subprogram"
"of ANGLE \or SURDS."
"Try running them"
"instead."
\GotoZ
\IfEnd
0\->Z
1\->B
\Lbl 1
0\->V
1\->C
\Lbl 2
\List 5[(10*B)-10+C]\->U
\List 5[(10*B)-5+C]\->T
V+(\Abs (U-T))\->V
C+1\->C
\If C\<=5
\Then \Goto2
\IfEnd
V/5\->V
V\->\List 5[50+B]
\ClrGraph
\ViewWindow 1,127,0,1,63,0
\Text 2,2,"Player"
\Text 2,30,B
\Text 2,43,"Average err\or:"
\Text 2,103,(\Int (100*V))/100
\Text 10,2,"Question"
\Text 10,40,"Guess"
\Text 10,65,"\Answer"
\Text 10,97,"Err\or"
1\->C
\Lbl 3
\List 5[(10*B)+C-10]\->T
\List 5[(10*B)+C-5]\->U
\Text (13+7*C),3,C
\Text (13+7*C),41,(\Int (100*T))/100
\Text (13+7*C),66,(\Int (100*U))/100
\Text (13+7*C),98,(\Int (100*\Abs (T-U)))/100
C+1\->C
\If C\<=5
\Then \Goto3
\IfEnd
\Text 56,16,"(Press EXE to continue.)"\DispB+1\->B
\If B\<=A
\Then \Goto1
\IfEnd
\ClrGraph
\If A=1
\Then \GotoZ
\IfEnd
\ViewWindow 1,127,0,1,63,0
\Text 2,10,"R"
\Text 2,14,"anking"
\Text 2,60,"Average Err\or"
1\->C
\Lbl 4
\Text (6+8*C),11,"Player"
10^99\->V
1\->B
\Lbl 5
\List 5[50+B]\->T
\If (T<V)\ And (T\>=0)
\Then T\->V
\IfEnd
B+1\->B
\If B\<=A
\Then \Goto5
\IfEnd
1\->B
\Lbl 6
(\List 5[50+B])\->T
\If T=V
\Then B\->V
\List 5[50+V]\->T
(-1)\->\List 5[50+B]
A\->B
\IfEnd
B+1\->B
\If B\<=A
\Then \Goto6
\IfEnd
\Text (6+8*C),39,V
\Text (6+8*C),61,(\Int (100*T))/100
C+1\->C
\If C\<=A
\Then \Goto4
\IfEnd
\Text 56,16,"(Press EXE to continue.)"\Disp\Lbl Z

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1176
File Name:SURDS
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl A
\AxesOff
\GridOff
\ClrText
\ClrGraph
\ViewWindow 1,127,0,1,63,0
\F-Line 48,45,52,45
\F-Line 52,45,56,37
\F-Line 56,37,64,61
\F-Line 64,61,80,61
\Text 10,54,"n"
\F-Line 66,57,78,41
\F-Line 78,57,66,41
\Text 33,54,"SURDS"
\Text 40,55,"v1.2b"
\Text 46,7,"Schmude, Harradine \@26 M\orfey."
\Text 56,16,"(Press EXE to continue.)"\Disp3\->Y
0.917\->Z
\Prog "SETUP"
1\->B
0\->C
\Lbl 1
\If B=1
\Then C+1\->C
\IfEnd
\If (W=3)\ And (\Ran#>0.5)
\Then 3\->E
\Else 2\->E
\IfEnd
\If W=3
\Then \Int (1000\Ran#)\->F
\Else \Int (400\Ran#)\->F
\IfEnd
E\xrtF\->D
\If W=1
\Then (\Int (D+1))\->D
\IfEnd
D^E\->F
\Int F\->F
\If E=2
\Then \sqrtF\->D
\Else \curtF\->D
\IfEnd
\ClrGraph
\ViewWindow 1,127,0,1,63,0
(\log F)\->G
(\Int (G+1))\->G
(2*G)\->G
\If D\<>(\Int D)
\Then (G+(2*E)+2)\->G
\IfEnd
\If (10*D)\<>(\Int (10*D))
\Then (G+(2*E))\->G
\IfEnd
\F-Line 52,42,54,40
\F-Line 54,40,58,46
\F-Line 58,46,69,46
\Text 20,59,F
\If E\<>2
\Then \Text 16,52,E
\IfEnd
\If A>1
\Then \Text 34,15,"Player"
\Text 34,44,B
\Text 34,50,":"
56\->M
\Else 38\->M
\IfEnd
\Text 34,M,"Question"
\Text 34,(M+39),C
\Text 34,(M+46),"of 5"
\Text 40,6,"Give the \Decimal value of the"
\Text 46,8," surd shown on the screen."
\Text 56,16,"(Press EXE to continue.)"\Disp\Lbl C
\ClrText
\ClrGraph
"What is the value"?\->H
\Abs (D-H)\->I
\If I=0\ And \Int H\<>H
\Then "You cheated, give"
"a \Decimal value\!mark"\Disp\GotoC
\Else "The c\orrect answer"
"was:"
D\Disp"You were off by:"
I\Disp\IfEnd
H\->\List 5[(10*B)+C-10]
D\->\List 5[(10*B)+C-5]
\If B<A
\Then B+1\->B
\Else 1\->B
\IfEnd
\If B\<>1\ Or C<5
\Then \Goto1
\IfEnd
0.429\->Z
\Prog "SCORES"
\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