Розробка комп'ютерних навчальних засобів з обраної предметної області, Детальна інформація
Розробка комп'ютерних навчальних засобів з обраної предметної області
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);
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);
The online video editor trusted by teams to make professional video in
minutes
© Referats, Inc · All rights reserved 2021