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

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