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