Розробка комп'ютерних навчальних засобів з обраної предметної області, Детальна інформація
Розробка комп'ютерних навчальних засобів з обраної предметної області
m.current:=1;
end;
procedure menu_insert_main(var m: menu; s: string; c: char);
begin
inc(m.mains);
m.item1[m.mains].text:=s;
m.item1[m.mains].letter:=c;
m.item1[m.mains].current:=1;
end;
procedure menu_insert_sub(var m: menu; n: integer; s: string; c: char);
begin
inc(m.item1[n].items);
m.item1[n].item2[m.item1[n].items].text:=s;
m.item1[n].item2[m.item1[n].items].letter:=c;
end;
function menu_run(m: menu; c1, c2, c3, c4, c5, c6, c7, c8: byte): word;
var
pos_tab: array[1..max_of_main] of record
x, l: integer;
end;
scr1: array[0..3999] of byte;
procedure screen_save; assembler;
asm
push ds
mov ax, 0B800h
mov ds, ax
xor si, si
mov ax, seg scr1
mov es, ax
mov di, offset scr1
end;
procedure menu_insert_main(var m: menu; s: string; c: char);
begin
inc(m.mains);
m.item1[m.mains].text:=s;
m.item1[m.mains].letter:=c;
m.item1[m.mains].current:=1;
end;
procedure menu_insert_sub(var m: menu; n: integer; s: string; c: char);
begin
inc(m.item1[n].items);
m.item1[n].item2[m.item1[n].items].text:=s;
m.item1[n].item2[m.item1[n].items].letter:=c;
end;
function menu_run(m: menu; c1, c2, c3, c4, c5, c6, c7, c8: byte): word;
var
pos_tab: array[1..max_of_main] of record
x, l: integer;
end;
scr1: array[0..3999] of byte;
procedure screen_save; assembler;
asm
push ds
mov ax, 0B800h
mov ds, ax
xor si, si
mov ax, seg scr1
mov es, ax
mov di, offset scr1
The online video editor trusted by teams to make professional video in
minutes
© Referats, Inc · All rights reserved 2021