diff options
Diffstat (limited to 'misc/pascal/tests/src/801-cgihello.pas')
-rw-r--r-- | misc/pascal/tests/src/801-cgihello.pas | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/misc/pascal/tests/src/801-cgihello.pas b/misc/pascal/tests/src/801-cgihello.pas new file mode 100644 index 000000000..54170e34e --- /dev/null +++ b/misc/pascal/tests/src/801-cgihello.pas @@ -0,0 +1,20 @@ +program hello(output); + + procedure WriteResponseHeader; + begin + writeln('content-type: text/html'); + writeln + end; + +begin + WriteResponseHeader; + writeln('<HTML>'); + writeln('<HEAD>'); + writeln('<TITLE>IriePascal Hello World Program</TITLE>'); + writeln('</HEAD>'); + writeln('<BODY>'); + writeln('<BIG> Hello world!!! </BIG>'); + writeln('</BODY>'); + writeln('</HTML>') +end. + |