%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:601
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: Easy"
\If Y=2
\Then "2: Hard"
\Else "2: \Moerate"
"3: Hard"
\IfEnd
"What should the"
"difficulty 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:933
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."\Disp\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\->T
1\->B
\Lbl 5
\List 5[50+B]\->U
\If (U<T)\ And (U\>=0)
\Then U\->T
B\->V
\IfEnd
B+1\->B
\If B\<=A
\Then \Goto5
\IfEnd
(-1)\->\List 5[50+V]
\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
\ClrText
""

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:2636
File Name:SHADE
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl A
\ClrGraph
\ViewWindow 1,127,0,1,63,0
\F-Line 13,50,114,50
\F-Line 114,50,114,40
\F-Line 114,40,13,40
\F-Line 13,40,13,50
\Text 17,58,"???"
\Text 40,54,"SHADE"
\Text 47,56,"v1.2"
\Text 56,16,"(Press EXE to continue.)"\Disp3\->Y
0.917\->Z
1\->K
\Prog "SETUP"
\Lbl 2
\ClrText
"1: Percentage"
"2: \Decimal"
"3: Fraction"
"What mode should be"
"used"?\->D
\If (D\<>\Int (D))\ Or (D<1)\ Or (D>3)
\Then "You must select the"
"mode from one of the"
"specified numbers."\Disp\Goto2
\IfEnd
1\->B
0\->C
\Lbl 1
\If B=1
\Then C+1\->C
\IfEnd
\ClrGraph
\ViewWindow 1,127,0,1,63,0
\If (W=1)\ And (D\<>3)
\Then 10\->G
\IfEnd
\If (W=1)\ And (D=3)
\Then 2+(\Int (3*\Ran#))\->G
\IfEnd
\If (W=2)\ And (D=1)
\Then 20\->G
\IfEnd
\If (W=2)\ And (D=2)
\Then 100\->G
\IfEnd
\If (W=2)\ And (D=3)
\Then 5*(2^(\Int (3*\Ran#)))\->G
\IfEnd
\If (W=3)\ And (D\<>3)
\Then 100\->G
\IfEnd
\If (W=3)\ And (D=3)
\Then 4+(\Int (27*\Ran#))\->G
\IfEnd
\Int ((G*\Ran#)+1)\->F
(F/G)\->E
(\Int (100*E))\->E
\If E<W
\Then E*W\->E
\IfEnd
\F-Line 13,50,114,50
\F-Line 114,50,114,40
\F-Line 114,40,13,40
\F-Line 13,40,13,50
\If W=2
\Then (\Int 1+((101-E)*\Ran#))\->L
\Else 1\->L
\IfEnd
\If W\<>3
\Then ((L+E)-1)\->N
\Else 1+(\Int ((E/3)*\Ran#))\->N
100\->R
100-(\Int ((E/3)*\Ran#))\->Q
100-E\->O
(\Int ((O+1)*\Ran#))\->P
O-P\->O
N+O+1\->O
Q-(P+1)\->P
\IfEnd
49\->H
\Lbl 3
\F-Line 13+L,H,13+N,H
\If W=3
\Then \F-Line 13+O,H,13+P,H
\F-Line 13+Q,H,13+R,H
\IfEnd
(H-1)\->H
\If H\>=41
\Then \Goto3
\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,5,"Estimate how much of the bar"
\Text 46,14,"on the screen is shaded."
\Text 56,16,"(Press EXE to continue.)"\Disp\ClrGraph
\Lbl 4
\ClrText
\If D=1
\Then "What percentage of"
"the bar was shaded"?\->H
\IfEnd
\If D=2
\Then "What prop\ortion of"
"the bar was shaded"?\->H
\IfEnd
\If D=3
\Then "\Express the"
"prop\ortion of the"
"bar that was shaded"
"as a fraction.  What"
"is its numerat\or"?\->J
"What is its"
"denominat\or"?\->K
\IfEnd
\If (D=1)\ And (H>100\ Or H<0)
\Then "A percentage should"
"be a number between"
"1 \and 100."\Disp\Goto4
\IfEnd
\If (D=2)\ And (H>1\ Or H<0)
\Then "The prop\ortion of"
"the bar that is"
"shaded is between 0"
"\and 1."\Disp\Goto4
\IfEnd
\If (D=3)\ And (J<0\ Or J\<>\Int (J))
\Then "The numerat\or of the"
"fraction must be a"
"non-negative integer."\Disp\Goto4
\IfEnd
\If (D=3)\ And (K\<=0\ Or K\<>\Int (K))
\Then "The denominat\or of"
"the fraction must be a"
"positive integer."\Disp\Goto4
\IfEnd
\If (D=3)\ And (J>K)
\Then "The answer must be a"
"fraction between"
"zero \and one."\Disp\Goto4
\IfEnd
\If D=1
\Then \Abs (E-H)\->I
"The c\orrect answer"
"was:"
E\Disp\IfEnd
\If D=2
\Then E/100\->E
\Abs (E-H)\->I
"The c\orrect answer"
"was:"
E\Disp\IfEnd
\If D=3
\Then \Abs (E-(\Int ((100*J)/K)))\->I
"The c\orrect answer"
"was:"
F\ab/cG\Disp\IfEnd
\If (I=0)\ And (D\<>3)
\Then "You were precisely"
"c\orrect\!mark"\Disp\IfEnd
\If (I\<>0)\ And (D\<>3)
\Then "You were off by:"
I\Disp\IfEnd
\If (I\<>0)\ And (D=3)
\Then "You were off by:"
\Abs ((F\ab/cG)-(J\ab/cK))\Disp\IfEnd
\If (I=0)\ And (D=3)\ And ((F\ab/cG)=(J\ab/cK))
\Then "You were precisely"
"c\orrect\!mark"\Disp\IfEnd
\If (I=0)\ And (D=3)\ And ((F\ab/cG)\<>(J\ab/cK))
\Then "You were as close as"
"it was possible to"
"get."\Disp\IfEnd
\If D=3
\Then (J\ab/cK)\->\List 5[(10*B)+C-10]
(F\ab/cG)\->\List 5[(10*B)+C-5]
\Else H\->\List 5[(10*B)+C-10]
E\->\List 5[(10*B)+C-5]
\IfEnd
\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"
\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