PASCAL + MACRO11 (УКНЦ-ДВК).

[hobot]

Ну да так и есть.
Расширяем набор процедур и функций стандартного паскаля.
На прилагаемой дискете нового в принципе ничего (на форуме уже
выкладывалось), но что бы данную тему освежить - самое то.

Подробности...

Скрытый текст

Содержимое диска:

Image  :   power_pascal.dsk

Format :   DSK 
Size   :   800 Kb

Volume ID: PASCAL
Owner    : ZX-FORUM

File       Blocks    Date       Bytes
---------- ------ ----------- ----------
PASCAL.SAV    52P 22-Apr-1987     26'624
PASCAL.OBJ    83P 22-Apr-1987     42'496
MACRO .SAV    63P 21-Dec-1980     32'256
LINK  .SAV    59P 31-Oct-1998     30'208
SYSLIB.OBJ    47P 19-Dec-1988     24'064
SYSMAC.SML    92P 31-Oct-1998     47'104
POWER .TTL     2P 02-Feb-1994      1'024
POWER .OBJ     6P 30-Jan-1994      3'072
POWER .PAS     9P 07-Feb-1994      4'608
POWER .SAV    13P 03-Dec-1993      6'656
BOX   .MAC    11P 24-Jan-1993      5'632
BOX   .OBJ     1P 31-Dec-1999        512
SHBOX .PAS     1  21-Feb-1981        512
SHBOX .SAV     4P 31-Dec-1999      2'048
< UNUSED >  1143                 585'216
---------- ------ ----------- ----------
 14 Files, 443 Blocks
 1143 Free blocks

Библиотека POWER.OBJ содержит в себе:

Файл POWER.TTL
(* TEXT MODE *)
PROCEDURE INV(N:BOOLEAN);EXTERNAL;
PROCEDURE UNDERLINE(N:BOOLEAN);EXTERNAL;
PROCEDURE MODE(N:INTEGER);EXTERNAL;
PROCEDURE DKL(N:BOOLEAN);EXTERNAL;
PROCEDURE AT(X,Y:INTEGER);EXTERNAL;
PROCEDURE COLOR(A,B,C:INTEGER);EXTERNAL;

PROCEDURE SCREEN(N:BOOLEAN);EXTERNAL;

(* GRAPHICS MODE *)
PROCEDURE PLOT(X,Y,C:INTEGER);EXTERNAL;
PROCEDURE LINE(X,Y,XX,YY,C:INTEGER);EXTERNAL;
PROCEDURE DRAW(X,Y,C:INTEGER);EXTERNAL;
PROCEDURE CURSOR(A,B:INTEGER);EXTERNAL;
PROCEDURE PAINT(X,Y,C,CC:INTEGER);EXTERNAL;
PROCEDURE BOX(X,Y,XX,YY,C,T:INTEGER);EXTERNAL;
FUNCTION POINT(X,Y:INTEGER):INTEGER;EXTERNAL;

(* ALL AREA *)
PROCEDURE DISPLAY(N:INTEGER);EXTERNAL;
PROCEDURE PRINTER(N:INTEGER);EXTERNAL;
FUNCTION READKEY:CHAR;EXTERNAL;
FUNCTION KEYPRESSED:BOOLEAN;EXTERNAL;
PROCEDURE IK(N:BOOLEAN);EXTERNAL;
PROCEDURE ID(N:BOOLEAN);EXTERNAL;
PROCEDURE IP(N:BOOLEAN);EXTERNAL;
FUNCTION GD:INTEGER;EXTERNAL;
FUNCTION GIK:BOOLEAN;EXTERNAL;
FUNCTION GID:BOOLEAN;EXTERNAL;
FUNCTION GIP:BOOLEAN;EXTERNAL;

Программа POWER.SAV демонстрирует работу этих подпрограмм









Прямоугольники закрашенные УК-НЦ рисует очень шустро.


А вот закрашивание большой площади медленное (короче говоря как в Бейсике).






Ну после жёлтого - понятно будет ещё и белый. Долго. Медленно.
Бейсик сразу вспоминается как не крути. )


Режимы экрана 10Х24 - ужасный режим нигде не видел
что бы использовался (или вроде была 1-а игра?)


Игра про банки с вареньем? ) 20х24.


40х24 - ИМХО:самый удобный режим для игр, которые ещё
предстоит написать для замечательного комп. УК-НЦ. )


80х24.




Можно ещё добавить, что некоторые подпрограммы
это ESC-последовательности в одну строчку )
А некоторые конечно более сложные и не все могут
сами написать такое (по крайней мере сразу).

Процедура BOX в исходнике BOX.MAC и в
объектном модуле BOX.OBJ = псевдографические окна.
Меня она исключительно радует ) Кто автор (?) не знаю.
Но написал что бы просто показать окошки вот такую программу
с её использованием SHBOX.PAS :

PROGRAM SHOWBOX;
/* uses BOX.OBJ */
PROCEDURE BOX(A,B,C,D : INTEGER); EXTERNAL;

BEGIN

	WRITE(CHR(27),'H',CHR(27),'J');
	WRITELN(CHR(14),'rISUEM PSEWDOGRAFI^ESKIE OKNA',CHR(15));
	BOX(12,6,68,18);
	BOX(10,4,70,20);
	WRITELN(CHR(7));
	
END.

[свернуть]

Попутно, хотелось бы спросить, возможно есть счастливые
обладатели OMSI PASCAL for RT-11 версии отличной от 1.1G ?