while setvar(http, input("HTTP> ")) <> "EXIT" do
  if http = "GET" then
    input pathinfo, "PATHINFO> "
    input querystring, "QUERYSTRING> "
    echo !<html!>
    echo !<title!>MPE Proglet Demo!</title!>
    echo !<h1!>Welcome to my CI Proglet!</h1!>
    echo !<p!>PathInfo is !pathinfo!</p!>
    echo !<p!>QueryString is !querystring!</p!>
    echo !<form method=POST action=/servlet/cmdfile1/example!>
    echo !<p!>Name
    echo !<input type=text name=NAME size=30 value=default!>
    echo !</p!>
    echo !<p!>Age
    echo !<select name=AGE!>
    echo !<option value=Below30!>below 30
    echo !<option value=Above30!>above 30
    echo !</select!>
    echo !</p!>
    echo !<input type=submit!>
    echo !</form!>
    echo !<address!>Lars Appel, March 2000!</address!>
    echo !</html!>
  else
    input pathinfo, "PATHINFO> "
    input querystring, "QUERYSTRING> "
    input name, "NAME> "
    input age, "AGE> "
    echo !<html!>
    echo !<title!>MPE Proglet Demo!</title!>
    echo !<h1!>Thanks for your response!</h1!>
    echo !<p!>PathInfo is !pathinfo!</p!>
    echo !<p!>QueryString is !querystring!</p!>
    echo !<p!>Name is !name!</p!>
    echo !<p!>Age is !Age!</p!>
    echo !<address!>Lars Appel, March 2000!</address!>
    echo !</html!>
  endif
endwhile