Уважаемые коллеги.
Собственно говоря, вот и CGI на BlackBox. Попробуйте.
Благодарности всем, кто содействовал.
Всякие проверки можете добавить сами на свое усмотрение.

MODULE mycgi2; (*C:\Program Files\Apache Software Foundation\Apache2.2\cgi-bin\mycgi2.exe*)
IMPORT Out := ConsoleOut, In:=ConsoleIn, Win:=WinApi,Strings;

PROCEDURE Start*;
VAR
res: INTEGER;
lpBuffer: ARRAY 256 OF CHAR;
size,i:INTEGER;
c:CHAR;

BEGIN
Out.Open;
Out.String('content-type: text/html'); Out.Ln; Out.Ln;
Out.String('<HTML>'); Out.Ln;
Out.String('<BODY>'); Out.Ln;

res:=Win.GetEnvironmentVariableW ('REQUEST_METHOD', lpBuffer,  255);
IF  (res#0) THEN

IF (lpBuffer='POST')  THEN
Out.String('<P> REQUEST_METHOD  POST</P>'); Out.Ln;

res:=Win.GetEnvironmentVariableW ('QUERY_STRING', lpBuffer,  255);
Out.String('<P>QUERY_STRING</P>'); Out.Ln;
Out.String('<P>['+lpBuffer+']</P>'); Out.Ln;

res:=Win.GetEnvironmentVariableW ('CONTENT_LENGTH', lpBuffer,  255);
Out.String('<P>CONTENT_LENGTH</P>'); Out.Ln;
Out.String('<P>['+lpBuffer+']</P>'); Out.Ln;

Strings.StringToInt(lpBuffer,size,res);

Out.String('<P>StdIn</P>'); Out.Ln;

Out.String('<P>'); Out.Ln;

i:=0;
WHILE  i<size  DO
In.Char(c);
Out.Char(c);
INC(i)
END;

Out.String('</P>'); Out.Ln;

ELSIF (lpBuffer='GET') THEN

Out.String('<P> REQUEST_METHOD  GET</P>'); Out.Ln;

res:=Win.GetEnvironmentVariableW ('QUERY_STRING', lpBuffer,  255);
Out.String('<P>QUERY_STRING</P>'); Out.Ln;
Out.String('<P>['+lpBuffer+']</P>'); Out.Ln;
ELSE
Out.String('<P> INCORRECT REQUEST_METHOD OR INCORRECT SERVER CONFIGS</P>');
Out.Ln;
END;
ELSE
Out.String('<P> INCORRECT SERVER CONFIGS</P>'); Out.Ln;
END;


Out.String('</BODY>'); Out.Ln;
Out.String('</HTML>'); Out.Ln;
END Start;
BEGIN
Start;
END mycgi2.

mycgi2.Start


DevLinker.LinkExe dos mycgi2.exe := National Kernel+ Math Strings ConsoleOpen
ConsoleStdStreams ConsoleIn ConsoleOut  mycgi2~

C:\Program Files\Apache Software Foundation\Apache2.2\htdocs\myform.htm
-----------------------------------
<html>

<body>

<form method="POST" action="/cgi-bin/mycgi2.exe?preved">
<p>ФИО :<input type="text" name="realname" size=40></p>

<p>Оперативный псевдоним :<input type="text" name="nick" size=40></p>

<p> Послужной список </p>
<p><textarea name ="biography" cols="40" rows="8"></textarea></p>

<input type="submit" name="sumbit" value="Подача запроса">

<input type="reset" name="reset" value="Сброс">

</form>

</body>
</html>
-----------------------------------

Осталось сделать вариант для Линукса, пристегнуть mySQL через его API для C
и вынести платформозависимый код в отдельный модуль.

И тогда можно все заказные многопользовательские программы на BlackBox делать сразу
под Интернет или лок сеть с клиентом - браузером, не будет мороки с администрированием
многих клиентских рабочих мест.

Надеюсь, для программистов на BlackBox это будет достаточной мотивацией
для массового перехода на использование варианта BlackBox для Linux
с предварительной подготовкой всего кода в Windows.

Ну, а если народ начнет использовать, то значит народ начнет доделывать.

На сегодняшний день место Линукса - на сервере. Вот и будем это место эксплуатировать
по мере всех сил.

Завтра, после появления полноценного BB с графич. режимом для Линукса
и написания в силу этого  большого числа программ с GUI для Линукса,
возможно, место Линукса станет сначала на заточенном рабочем месте, а потом и везде.

И тогда из экстремистов-маргиналов мы станем мейнстримистами-универсалами.