!!##language independant
!default java_inptype=!word 1 of $wims_read_parm
!set java_inptype=!lower $java_inptype
!bound java_inptype within\
curve,rect,rectangle,circle,line,lines,sline,segment,seg,poly,polygon,\
points,vector\
default curve
!default java_width=300
!default java_height=300
!! java_bgcolor must use rgb coding. Color names bring security violations.
!default java_bgcolor=#FFFFFF
!default nojava=$wims_name_nojava
!default java_retry
=!trim $wims_name_erase
!default java_prompt=$wims_name_send
:prend
<center>
<applet codebase="java" code="input.class" archive="input.jar"
width="$java_width" height="$[$java_height+25]">
!if $java_background!=$empty
<param name=background value="$java_background">
!endif
<param name=bgcolor value="$java_bgcolor">
<param name=type value="$java_inptype">
<param name=retry value="$java_retry">
<param name=prompt value="$java_prompt">
<param name=replyurl
value="$wims_ref_name?session=$wims_session.$[$wims_session_serial+1]&+$java_reply">
<font color="red"><b>$nojava</b></font>
</applet>
</center><p>
!reset java_inptype
, java_background
, java_bgcolor
, java_retry
, java_prompt
, java_reply