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

run:=menu_run(m, 0, 3, 15, 0, 0, 3, 15, 0);

case hi(run) of

1: break;

2..10: begin

extt:=upcasing(copy(fmen[hi(run)-1, lo(run)],

pos('.', fmen[hi(run)-1, lo(run)])+1, 255));

if extt='STR' then showtext(fmen[hi(run)-1, lo(run)]);

if extt='EXE' then begin

textattr:=7;

clrscr;

SwapVectors;

Exec(fmen[hi(run)-1, lo(run)], '');

SwapVectors;

if DosError <> 0 then error('Dos error #'+strg(DosError));

readkey;

end;

end;

end;

until false;

menu_done(m);

textattr:=7; clrscr;

writeln('Program created as a cursova by');

writeln(' * Slawa Pidgorny. ');

writeln(' * Sveta Fiyalka. ');

writeln('using Turbo Pascal 7.0.');

end.

SMENU.PAS

unit smenu;

interface

const