s42.bas

BCX Console Demonstration Program s42.bas

DIM A$

Send("Status: 200 OK")

A$ = "Content-type: text/html" & CHR$(13) & CHR$(10)

Send(A$)

Send("<HTML><HEAD><TITLE> BCX Sample CGI </TITLE></HEAD>")
Send("<BODY>")
Send("Hello, World From BCX cgi-bin!")
Send("</BODY>")
Send("</HTML>")

SUB Send (B$)
  DIM ret AS ULONG
  DIM hConsole AS HANDLE
  DIM C$
  hConsole = GetStdHandle(STD_OUTPUT_HANDLE)
  C$ = B$ & CHR$(13) & CHR$(10)
  WriteFile(hConsole, C$, LEN(C$), &ret, NULL)
END SUB

Result:

Status: 200 OK
Content-type: text/html

<HTML><HEAD><TITLE> BCX Sample CGI </TITLE></HEAD>
<BODY>
Hello, World From BCX cgi-bin!
</BODY>
</HTML>