Курсовая работа: Разработка алгоритмов чтения данных с экрана

type

TScr = array[1..25*80, 1..2] of char;

TaScr = ^TScr;

var

Scr0 : TASCR;

var

SlovYes : boolean;

SlInByte : byte;

SlX,SlY,SlX0,SlY0 : integer;

Sl0Key : boolean;

procedure SText (Sent00 : string

var REG : registers;

L : integer;

begin

Sent00 := copy (Sent00, 1, 250);

REG.es:=Seg(Sent00);

REG.SI := Ofs(Sent00) +1;

L:=length(Sent00) +1;

REG.CX:=L;

Sent00 [Reg.CX]:=',';

reg.AX:=256;

Intr($80,REG);

end;

procedure New09; interrupt;

var i,l,r:integer;

begin

SlInByte:=0;

if Port[$60] >= $80

then begin