PACKET basic menu handling

(************************************************************************)
(*                                                                      *)
(*  Basic Menu Handling Version 1.0                                   *)
(*                                                                      *)
(*                                                                      *)
(* Autor : Ingo Siekmann                                                *)
(* Stand : Donnerstag, den 12. Juni 1986                                *)
(*                                                                      *)
(* Lauffähig ab EUMEL Version 1.7.3                                     *)
(*                                                                      *)
(* (c) 1986 by ULES c/o Ingo Siekmann & Nils Ehnert                     *)
(*                                                                      *)
(************************************************************************)

       DEFINES menue monitor :



LET info line x pos    =    1 ,
    info line y pos    =   20 ,
    command line x pos =    1 ,
    command line y pos =   21 ;

LET first mon line    = "----------------------------------------------------------------------------" ,
    command line      = ">__________________________________________________________________________<" ;


TEXT VAR char ;

PROCEDURE menue monitor (TEXT CONST info line, chars,  (* I. Siekmann *)
                         INT VAR command index) :      (* 12.06.1986  *)
    enable stop ;
    cursor (1, 17) ;
    command index := 0 ;
    out (first mon line) ;
    cursor (info line x pos, info line y pos) ;
    out (info line) ;
    cursor (command line x pos, command line y pos) ;
    out (command line) ;
    cursor (command line x pos + 1, command line y pos) ;
    REPEAT
  (*  inchar (char) ;  *)
      get char (char) ;
      command index := pos (chars, char)
    UNTIL command index > 0 COR is error END REPEAT ;
    out (char) .
END PROCEDURE menue monitor ;

ENDPACKET basic menu handling ;