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

mov cx, 1000

cld

db $66; rep movsw

pop ds

end;

procedure screen_restore; assembler;

asm

push ds

mov ax, seg scr1

mov ds, ax

mov si, offset scr1

mov ax, 0B800h

mov es, ax

xor di, di

mov cx, 1000

cld

db $66; rep movsw

pop ds

end;

procedure create_pos_tab;

var

i, p: integer;

begin

p:=2;

for i:=1 to m.mains do begin

pos_tab[i].x:=p;

inc(p, length(m.item1[i].text)+2);

end;

end;

procedure main_show(m: menu; sel: integer);