Розробка комп'ютерних навчальних засобів з обраної предметної області, Детальна інформація

mov cl, x2

int 10h

end;

function strings(a: integer): string;

var

s: string;

i: integer;

begin

s:='';

for i:=1 to a do begin

s:=s+' ';

end;

strings:=s;

end;

procedure colors(a, b: byte);

begin

textcolor(a); textbackground(b);

end;

procedure colour(a: byte);

begin

textattr:=a;

end;

procedure print(x, y: integer; c: byte; s: string);

begin

gotoxy(x, y);

colour(c);

write(s);

end;

procedure frame(x1, y1, x2, y2: byte; S: string; c1, c2: byte; Double: boolean);

var