Лабораторная работа №5 по О-Средам / lab_5_1 / LAB5

{ "ЋЇҐа жЁ®­­лҐ баҐ¤л Ђ‘Ћ€“"
     Copyrights 2003 "9331 super group"
  ‹ Ў®а в®а­ п а Ў®в  5

  „Ґ¬®­бва жЁп ЇаЁ¬Ґ­Ґ­Ёп ᥬ д®а®ў  }

Program Lab5;

Uses Corout,CRT;

{-----------------------------------------------------}
Var SScr : TSemaphore; { ђ §аҐиҐ­ЁҐ ­  ўлў®¤ ­  нЄа ­ }
    SCanRead : TSemaphore; { ђ §аҐиҐ­ЁҐ ­  з⥭ЁҐ б®®ЎйҐ­Ёп }
    SCanWrite : TSemaphore; { ђ §аҐиҐ­ЁҐ ­  § ЇЁбм б®®ЎйҐ­Ёп }
    myMessage : String;

Procedure WriteMessage; far;
Var Row : Byte;
Begin
  Row := 5;
  while true do begin
    SCanRead.P; { †¤Ґ¬ а §аҐиҐ­Ёп зЁв вм б®®ЎйҐ­ЁҐ }
    SScr.P; { ‡ Єал«Ё ᥬ д®а нЄа ­  }
    GotoXY(1,Row); Inc(Row);
    Writeln('Џ®«г祭® б®®ЎйҐ­ЁҐ: ',myMessage);
    SScr.V; { ЋвЄал«Ё ᥬ д®а нЄа ­  }
    SCanWrite.V; { ђ §аҐи Ґ¬ ЇЁб вм ­®ў®Ґ б®®ЎйҐ­ЁҐ }
  end {while};
End;

{-- Џа®бв®© бва®Є®ўл© । Єв®а Є®¬ ­¤ --}
Procedure CommandLine; far;
Var CurKey:Char; { ’ҐЄгй п ­ ¦ в п Є« ўЁи  }
    S:String; { ’ҐЄг饥 б®бв®п­ЁҐ Є®¬ ­¤­®© бва®ЄЁ }
Begin
  Writeln('ESC - ‚л室 Ё§ Їа®Ја ¬¬л');
  Writeln('------------------------');
  S := '';
  while true do begin
    if KeyPressed then begin
      CurKey := ReadKey;
      Case CurKey of
        #27: { ESC - ‚л室 Ё§ бЁб⥬л }
          Begin
            Writeln('‚л室 Ї® Є« ўЁиҐ ESC!');
            ReadyList.Stop_Manager;
          End;
        #13: { Џ®б« вм б®®ЎйҐ­ЁҐ }
          Begin
            myMessage:=S; S:='';
            SScr.P; { ‡ Єал«Ё ᥬ д®а нЄа ­  }
            GotoXY(1,20);
            Write('                                                   ');
            SScr.V; { ЋвЄал«Ё ᥬ д®а нЄа ­  }
            SCanRead.V; { ђ §аҐиЁ«Ё з⥭ЁҐ б®®ЎйҐ­Ёп }
            SCanWrite.P; { †¤Ґ¬ а §аҐиҐ­ЁҐ ­  § ЇЁбм б«Ґ¤го饣® б®®ЎйҐ­Ёп }
          End;
      Else
        S := S + CurKey;
      End;
      SScr.P; { ‡ Єал«Ё ᥬ д®а нЄа ­  }
      GotoXY(1,20);
      Write(S);
      SScr.V; { ЋвЄал«Ё ᥬ д®а нЄа ­  }
    end;
  end {while};
End;

{-----------------------------------------------------}
Begin
  { €­ЁжЁ «Ё§ жЁп ᥬ д®а®ў }
  SScr.Init(1);
  SCanRead.Init(0);
  SCanWrite.Init(0);
  { „®Ў ў«пҐ¬ Їа®жҐббл }
  ReadyList.Add_New_Process(WriteMessage);
  ReadyList.Add_New_Process(CommandLine);
  { ‡ ЇгбЄ ¬­®Ј®§ ¤ з­®© бЁб⥬л }
  ReadyList.Run_Manager;
  { ЋвзЁбвЄ  Ї ¬п⨠ᥬ д®а®ў }
  SScr.Done;
  SCanRead.Done;
  SCanWrite.Done;
  { ЋвзЁбвЄ  Ї ¬пвЁ бЁб⥬­ле ®зҐаҐ¤Ґ© }
  Free_All_Subsystems;
End.