blackcat.brynmawr.edu/~nswoboda/scripts/bounce.pas

module bounce; 

#include 
#include "./cgi-pascal.h"

procedure cgi_main(var ci: cgi_ptr; var params: form_pointer);

  var
     a: integer;
     s: string;
     t: string;

	begin 
          s := 'text/html' + char(0);
	  a := print_mimeheader(s);
	  if (params <> nil ) then
             begin
               writeln('The response from your bounce request.');
               s:= 'inp' + char(0);
               a:= parmval(params,s,t);
	       writeln('');
               writeln( t:a );
	       writeln('');
             end
          else	
	     begin
	       writeln('');
               writeln('Type your bounce request.');
               writeln('');
               writeln('');
	       writeln('');
	     end;
        end;{cgi_main}