*echo
*set show 1
<h2>Planet Puzzle Results</h2>
*use m,r
*if (m*r.eq.0) then
unknown error: <em>M</em> or <em>R</em> not received
*stop
*endif
*let gright=m/r^2
*if (gright.eq.0) then
*stop
*endif
*use score
*if (gright.le.7.3) then
!'K' is ascii 75
*if (answer(1).eq.75) then
You're right: the Klingons can work on the planet's surface.
The gravitional pull is only
*write gright f5.2
<em>g</em>.
*let score=score+1
*endif
*if (answer(1).ne.75) then
The Klingons are insulted: you have treated them like
wimps.  They can certainly stand the gravitional pull of
*write gright f5.2
<em>g</em>.
*endif
*endif
*if (gright.gt.7.3) then
!'O' is ascii 79
*if (answer(1).eq.79) then
You're right: the Klingons can't stand to work on 
the planets surface.  The gravitional pull of
*write gright f4.1
<em>g</em> is too great.
*let score=score+1
*endif
*if (answer(1).eq.75) then
The Klingons are dead.  The gravitional pull of
*write gright f4.1
<em>g</em> crushed them.
*endif
*if (answer(1).eq.0) then
The Klingons are dead.  While you decided to say nothing,
the Klingons decided to risk it and went to the surface. 
The gravitional pull of
*write gright f4.1
<em>g</em> crushed them.
*endif
*endif
<p>
!the window function: window(x)=1 iff a<=x<b else window(x)=0
*set a 0 b .02
*if (window(abs(g/gright-1)).eq.1) then
Your estimate of the gravitational pull:
*write g web.2
<em>g</em> was accurate
*let score=score+5
*endif
*set a .02 b .05
*if (window(abs(g/gright-1)).eq.1) then
Your estimate of the gravitational pull:
*write g web.2
<em>g</em> while wrong, was not way off.
*let score=score+1
*endif
*set a .05 b .1
*if (window(abs(g/gright-1)).eq.1) then
Your estimate of the gravitational pull:
*write g web.2
<em>g</em> was pretty far off off.  What happended?
*endif
*if ((abs(g/gright-1)).gt.0.1) then
Your estimate of the gravitational pull:
*write g web.2
<em>g</em> was wrong.  What happended?
*endif

<p>Your score for this problem was:
*write score i1
out of a maximum of 6.    
*log score '6Hscore=,i1,$'
*log gright '11H correct g=,f6.2'
<hr>
Ignore the below: it's just a <tt>SHOW</tt>
*show