![]() |
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(
A$)
DIM
retDIM
hConsoleAS
HANDLE hConsole=
GetStdHandle(
STD_OUTPUT_HANDLE)
A$=
A$&
CHR$
(
13
)
&
CHR$
(
10
)
WriteFile(
hConsole, A$,LEN
(
A$)
,&
ret, NULL)
END
SUB