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

screen_save;

repeat

screen_restore;

main_show(m, main_menu_position);

if sub_menu_open then begin

sub_show(m, main_menu_position, sub_menu_position);

end;

ch:=readkey;

if ch=#0 then begin

ch:=readkey;

if ch=#75{Left} then begin

if main_menu_position>1 then begin

m.item1[main_menu_position].current:=sub_menu_position;

dec(main_menu_position);

sub_menu_position:=m.item1[main_menu_position].current;

end;

end;

if ch=#77{Right} then begin

if main_menu_position
m.item1[main_menu_position].current:=sub_menu_position;

inc(main_menu_position);

sub_menu_position:=m.item1[main_menu_position].current;

end;

end;

if sub_menu_open then begin

if ch=#72{Up} then begin

if sub_menu_position>1 then begin

dec(sub_menu_position);

end;

end;