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

max_of_main = 10;

max_of_item = 30;

type

menu = record

mains: integer;

current: integer;

item1: array [1..max_of_main] of record

text: string[max_of_item];

letter: char;

items: integer;

current: integer;

item2: array [1..10] of record

text: string[max_of_item];

letter: char;

able: boolean;

end;

end;

end;

procedure menu_init(var m: menu);

procedure menu_insert_main(var m: menu; s: string; c: char);

procedure menu_insert_sub(var m: menu; n: integer; s: string; c: char);

function menu_run(m: menu; c1, c2, c3, c4, c5, c6, c7, c8: byte): word;

procedure menu_done(m: menu);

implementation

uses

crt;

procedure Cursor(x1, x2: byte); assembler;

asm

mov ah, 1

mov ch, x1