# =========== MIS-supplied code to print form ==============

print "\n\n<P>\n", "<TABLE>",

  $new_row,       "Username: ",
  $next_column,   CGI::textfield('-name'      => 'username',
                                 '-default'   => '',
                                 '-size'      => 8,
                                 '-maxlength' => 16 ),
  
  $new_row,       "Password: ",
  $next_column,   CGI::password_field('-name'      => 'password',
                                      '-default'   => '',
                                      '-size'      => 8,
                                      '-maxlength' => 16 ),

  $new_row,       "As Of Date (DD-MON-YYYY): ",
  $next_column,   CGI::textfield('-name'      => 'asof_date',
                                 '-default'   => '',
                                 '-size'      => 11,
                                 '-maxlength' => 11 ),

  $new_row,       "Grant Code: ",
  $next_column,   CGI::textfield('-name'      => 'grant',
                                 '-default'   => '',
                                 '-size'      => 6,
                                 '-maxlength' => 6 ),

  "</TABLE>", "<P>",
  CGI::submit('-name' => 'Submit'),
  "\n\n";