%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1482
File Name:ANGLE
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl A
\Rad
\AxesOff
\GridOff
\ClrText
\ClrGraph
\ViewWindow 1,127,0,1,63,0
\F-Line 24,58,64,38
\F-Line 64,38,104,58
\F-Line 54,43,59,51
\F-Line 59,51,64,53
\F-Line 64,53,69,51
\F-Line 69,51,74,43
\F-Line 54,43,54,48
\F-Line 54,43,58,46
\F-Line 74,43,74,48
\F-Line 74,43,70,46
\Text 5,62,"\theta"
\Text 30,54,"ANGLE"
\Text 37,56,"v1.2b"
\Text 46,23,"Harradine \@26 M\orfey"
\Text 56,16,"(Press EXE to continue.)"\Disp2\->Y
0.917\->Z
\Prog "SETUP"
1\->B
0\->C
\Lbl 1
\If B=1
\Then C+1\->C
\IfEnd
\ClrGraph
\ViewWindow 1,127,0,1,63,0
\Int (170*\Ran#+5)\->D
\If D=90
\Then 175\->D
\IfEnd
3.14159*D/180\->E
\If (W=2)\ And ((\Ran#)>0.5)
\Then (360-D)\->D
\IfEnd
\If W=1
\Then \F-Line 64,28,99,28
\F-Line 64,28,(64+34*\cos E),(28+34*\sin E)
\Goto2
\IfEnd
6.28319*(\Ran#-0.5)\->F
\If ((\Abs F)>0.268)\ And ((\Abs F)<2.874)
\Then (\Abs (17/(\sin F)))\->G
\Else (\Abs (62/(\cos F)))\->G
\IfEnd
\F-Line 64,45,(64+(G*(\cos F))),(45+(G*(\sin F)))
E+F\->F
\If F>3.14159
\Then (F-6.28319)\->F
\IfEnd
\If ((\Abs F)>0.268)\ And ((\Abs F)<2.874)
\Then (\Abs (17/(\sin F)))\->G
\Else (\Abs (62/(\cos F)))\->G
\IfEnd
\F-Line 64,45,(64+(G*(\cos F))),(45+(G*(\sin F)))
\Lbl 2
40\->L
\If A>1
\Then \Text L,15,"Player"
\Text L,44,B
\Text L,50,":"
56\->M
\Else 38\->M
\IfEnd
\Text L,M,"Question"
\Text L,(M+39),C
\Text L,(M+46),"of 5"
L+6\->L
\If D<90
\Then \Text L,15,"Estimate the acute angle"
\IfEnd
\If D>90\ And D<180
\Then \Text L,15,"Estimate the obtuse angle"
\IfEnd
\If D>180
\Then \Text L,15,"Estimate the reflex angle"
\IfEnd
L+6\->L
\Text L,20,"shown on the screen."
L+6\->L
\Text L,16,"(Press EXE to continue.)"\Disp\ClrText
\ClrGraph
"What is your estimate"
"(in degrees)"?\->H
\Abs (D-H)\->I
"The angle was:"
D\Disp\If I=0
\Then "You were precisely"
"c\orrect\!mark"\Disp\Else "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
\Deg
"1: Yes"
"2: No"
"Would you like to"
"play again"?\->J
\If J=1
\Then \GotoA
\IfEnd
\If J\<>1
\Then "I'll take that as a"
"no."
"Calc. now set in"
"degrees."
\IfEnd
\Stop

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:605
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: \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

%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