Паскаль о котором не знали...

[ezswift]

Создал Динамическую библиотеку ML доступа к экрану
Вот зипчик:
CLSN_MAE.zip

Вот код главной программы:

(*==================================*)
(*   CLSN Pascal DYNBLK Library     *)
(*      Demonstration Program       *)
(*                           ZenSoft*)
(*----------------------------------*)
(*Evgeny Zolotarev,(aka 576XE), 2021*)
(*==================================*)
program savres;

type
  bArr = array[0..0] of byte;
  bufP = ^bArr;
  ptrT = pointer;
  adrT = word;
var
  SAVMSC: adrT absolute $58;
  buf: bufP;
  srcP: ptrT absolute $ca;
  srcA: adrT absolute $ca;
  dstP: ptrT absolute $cd;
  dstA: adrT absolute $cd;
  sWid: byte absolute $d0;
  sHei: byte absolute $d1;

include 'D1:DYNBLK.PAS';

(*= Main Procedure =================*)
label loop;
var
  x,y,w,h: byte; ch: char;
begin
  x:=2; y:=2; w:=20; h:=10;

loop:
  ch := readkey; if ch=#27 then exit;
  getmem(buf,sizeof(byte)*w*h);
  saveBlk(x,y,w,h);
  putFram(x,y,w,h);
  invLine(x+1,y+1,w-2);

  ch := readkey;
  restBlk(x,y,w,h);
  freemem(buf,sizeof(byte)*w*h);
  if ch=#27 then exit;
  goto loop;
end.

Видео1 https://www.youtube.com/watch?v=7L6l6ewUV9A
Видео2 https://www.youtube.com/watch?v=7L6l6ewUV9A

zen