module multiply; 

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

function atoi(var vi: array [lb..ub:integer] of char): integer; extern c;

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

  var
     ai, al, bi, bl, ri, rl, c: integer;
     a, b, r, s: string;

	begin 
          s := 'text/html' + char(0);
	  c := print_mimeheader(s);
	  if (params <> nil ) then
             begin  
	       write('The result of your multiply request:
');
               s:= 'a' + char(0);
               al:= parmval(params,s,a);
               ai:= atoi(a);
               s:= 'b' + char(0);
               bl:= parmval(params,s,b);
	       bi:= atoi(b);
               s:= 'round' + char(0);
               rl:= parmval(params,s,r);
	       ri:= atoi(r);
               c := ((ai * bi) div ri) * ri;
               write( a:al,' times ',b:bl,' = ',c );flush;
	       write('');flush;
             end
          else	
	     begin
	       writeln('');
               writeln('Please type in the two numbers which you want to multiply.');
               writeln('
');
               writeln('
');
               writeln('
');
               writeln('Round down to  1');
               writeln(' 10  100 
');
               writeln('');
               writeln('
');
	       writeln('');
	     end;
        end;{cgi_main}

http://blackcat.brynmawr.edu/~nswoboda/scripts/multiply.pas

home source wayback live raw inlinks options

07/1998