*set show=1
*echo
<title>Planet Puzzle</title>
<h2>Planet Puzzle</h2>
<form METHOD="POST" action="/cgi-bin/twk/examples/A.jr">
<p>Your Name: <inPUT NAME="student" maxlength=40 SIZE=60> 
<p>Your Teacher:
<SELECT NAME="teacher">
<option> Kirkman
<option> Freund
<option> Gearhart
<option> Carl Sagan
<option> Other
</SELECT> 
Class Time:
<SELECT NAME="classtime">
<option> 8:00 am
<option> 9:40 am
<option> 11:20 am
<option> 1:00 pm
<option> 2:40 pm
<option> other
</select>
!this is a comment

!seed determines which list of "random" numbers (ran) is used
!we set seed based on process specific information:
!the process identification number (pid) and the number of 
!seconds since midnight (secnds)

*let seed=pid*secnds

!r ranges from .4 to 6.4

*let r=nint(60*ran)/10+.4
*if (r.eq.1) then
*let r=.7
*endif

!rdigits(2) makes a two digit random number like: .XX0000
*let m=rdigits(2)*10+1.1

!these prepare to send the values to the grading program
*hide m f4.1
*hide r f3.1

<hr>
Your warp drive fails while rushing to the starbase near 61 Cygni A.
Seeking dilithium, you use remaining impulse power to approach an uncharted planet which is mostly
covered with oceans.  With a mass of
*write m f4.1
times Earth's mass, the planet is more massive than Earth.

*if (r.lt.1) then
The planet is a bit smaller than Earth:
its radius is
*write r f4.1
times the Earth's radius.
*elseif (r.gt.1) then
The planet is larger than Earth:
its radius is
*write r f4.1
times the Earth's radius.
*endif

<p>Klingons are able to work under adverse conditions including
gravitational pulls of up to 7.3 times that of Earth
(Earth surface has <em>g</em>=9.8 m/s<sup>2</sup> ).

<p>Can you beam the Klingons down to the surface to search for dilithium or
should you attempt to find dilithium from orbit and then
beam the dilithium aboard?<p>

<input type=radio name=1 value=K>Send the Klingons down<br>
<input type=radio name=1 value=O>Work from orbit

<p>Your away team should expect a surface gravitational pull
of <input name=g size=6 maxlength=6> times that on the surface of Earth.
(Your answer should include 3 significant digits!)

<p>Explain how you figured out your answer:<br>
<textarea name="explain" rows=6 cols=60></textarea>
<p><input value="Grade Me" type=submit>
</form>

<hr>
You might want to hit the "Reload" button a few times to see that
the problems changes every time it is accessed.  You might also want
to use the <em>Netscape</em> "View" menu to look at the
"Document Source"...i.e., exactly what was sent to your browser.
Note the hidden variables!

<p>Ignore the below; I'm just showing you what a <tt>SHOW</tt> looks like:
*show