{ ------------------------------------------------------------------------- }
{ Pascal Unit : PortAES                                                     }
{          - Diese Unit stellt die Funktionen des Portfolio-AES zur         }
{            verfgung.                                                     }
{          - Alle Funktionen sind ber den Interrupt $60 zu ereichen.       }
{ letzte Žnderung : 19. Mai 1996                                            }
{ ------------------------------------------------------------------------- }
Unit PortAES;

{$M 1024, 0, 0}

Interface

Type ScreenbufferType = Array [ 1 .. 320 ] Of Byte; {}

Type EditorControlStructure = Record
                                  ep_targ : Pointer;  {}
                                  ep_pos  : Word;     {}
                                  ep_max  : Word;     {}
                                  ep_xpos : Byte;     {}
                                  ep_ypos : Byte;     {}
                                  ep_mode : Byte;     {}
                                  ep_hit  : Word;     {}
                                  ep_tit  : Pointer;  {}
                                  ep_exit : Pointer;  {}
                                  ep_fn   : Pointer;  {}
                                  ep_wid  : Byte;     {}
                                  ep_wind : Byte;     {}
                                  ep_res  : Longint;  {}
                                  ep_udel : Pointer;  {}
                              End;

     {}
     Function  LineEditor ( xtl, ytl, startMode, boxType : Byte;
                            maxLength : Word;
                            EditorTitle, EditorPrompt : String;
                            Var buffer : String ) : Boolean;

     {}
     Procedure SaveScreen ( xtl, ytl, xbr, ybr : Byte;
                            Var buffer : ScreenbufferType );

     {}
     Procedure RestoreScreen ( xtl, ytl, xbr, ybr : Byte;
                               buffer : ScreenbufferType );

     {}
     Procedure DrawBox ( xtl, ytl, xbr, ybr, lineType : Byte );

     {}
     Function  Menu ( xtl, ytl : Byte;
                      MenuTitle, MenuText, DefaultsText : String;
                      Var selectedItem : Byte ) : Boolean;

     {}
     Procedure BoxAreaCalculation ( xtl, ytl : Byte;
                                    TitleText, MenuText, DefaultsText : String;
                                    Var xbr, ybr : Byte );

     {}
     Procedure MessageWindow ( xtl, ytl : Byte;
                               WindowTitle, MessageText : String );

     {}
     Procedure ErrorWindow ( xtl, ytl : Byte;
                             ErrorText : String );