GRICHTER / HTML-Embperl-1.3b7 / test / html / inputjava.htm 
  <html>
  <body>
    [- $s = "script.htm" -]
    [$ if (($fdat{'Screen'} || 0) != 1) $]
    <form action="[+ $s +]" method="POST">
      <input type=hidden name="Screen" value="1">

      Screen 1<br>
      <input type=submit name="Command" value="Start" onClick="document.forms[0].Command.action = 'Start'">
      <input type=submit name="Command" value="Next" onClick="document.forms[0].Command.action = 'Next'">
    </form>
    [$ else $]
    <form action="[+ $s +]" method="POST">
      <input type=hidden name="Screen" value="2">

      Screen 2<br>
      <input type=submit name="Command" value="Back" onClick="document.forms[0].Command.action = 'Back'">
      <input type=submit name="Command" value="Done" onClick="document.forms[0].Command.action = 'Done'">
    </form>
    [$ endif $]
  </body>
  </html>