Stud_2_1 / Example / LABOR9

Program Labor9;
{ ‘®§¤ ­ЁҐ, ЇҐз вм, Є®а४жЁп Ё ®Ўа Ў®вЄ   аеЁў  ᢥ¤Ґ­Ё© }
{ ® Їа®¤гЄжЁЁ, ўлЇгбЄ Ґ¬®© жҐе ¬Ё ЇаҐ¤ЇаЁпвЁп             }

Uses Crt,DesUnit,BasUnit,InpUnit,WorkUnit,Printer;

Begin

  Assign(FileInput,'E:\studies\metlab\labor9\Input.txt');
  Assign(FileAdd,'E:\studies\metlab\labor9\Add.txt');
  Assign(FileKodif,'E:\studies\metlab\labor9\Kodif.txt');
  Assign(FileRes,'E:\studies\metlab\labor9\Res.txt');
  Assign(FileOut,'E:\studies\metlab\labor9\Out.dat');

  ClrScr;
  UsesDevice;
  If Device=1 then
    Rewrite(FileRes);
  SignArchive:=false;
  Repeat
    ClrScr;
    PrintString(15,7,'“Є ¦ЁвҐ ०Ё¬ а Ў®вл Їа®Ја ¬¬л:');
    PrintString(17,8,'0 - Є®­Ґж а Ў®вл;');
    PrintString(17,9,'1 - Є®­ва®«м ⥪бв®ўле д ©«®ў;');
    PrintString(17,10,'2 - ᮧ¤ ­ЁҐ  аеЁў  Ё§¤Ґ«Ё©;');
    PrintString(17,11,'3 - б®авЁа®ўЄ  Є®¬Ї®­Ґ­в  аеЁў ;');
    PrintString(17,12,'4 - ЇҐз вм  аеЁў  Ё§¤Ґ«Ё©;');
    PrintString(17,13,'5 - ЇҐз вм Є®¤ЁдЁЄ в®а  Ё§¤Ґ«Ё©;');
    PrintString(17,14,'6 - ¤®Ў ў«Ґ­ЁҐ Є®¬Ї®­Ґ­в ў  аеЁў;');
    PrintString(17,15,'7 - г¤ «Ґ­ЁҐ Є®¬Ї®­Ґ­вл Ё§  аеЁў ;');
    PrintString(17,16,'8 - Ё§¬Ґ­Ґ­ЁҐ Є®¬Ї®­Ґ­вл ў  аеЁўҐ;');
    PrintString(17,17,'9 - ®Ўа Ў®вЄ   аеЁў ');
    Writeln;
    KeyRegime:=Round(GetNumber(0,9,1,0,1,0));
    Case KeyRegime of
      0 :               ;
      1 : CheckFiles    ;
      2 : CreateArchive ;
      3 : SortArchive   ;
      4 : PrintArchive  ;
      5 : PrintKodif    ;
      6 : AddArchive    ;
      7 : DeleteArchive ;
      8 : ChangeArchive ;
      9 : WorkUpArchive
      Else KeyRegime:=0;
    end;
  Until KeyRegime=0;
  If Device=1 then
    Close(FileRes);

End.