Program PortfolioDemo;

Uses PortCRT, PortAESx, PortHelp;

Procedure HilfeFenster;
    Var FensterTitel, FensterText, dummy : String;
        xur, yur, cMode : Byte;
        puffer : Pointer;
        keyCode : Char;
Begin
     FensterTitel := 'Hilfefenster';
     FensterText := 'Hilfefenster mit F1/ATARI-Taste' + Chr( 0 ) +
                    'Demomen� Eins mit F2' + Chr( 0 ) +
                    'Demomen� Zwei mit F3' + Chr( 0 ) +
                    'Ende mi ESC im Textfenster';
     BoxAreaCalculation( 2, 2, FensterTitel, FensterText, '', xur, yur );
     SaveScreen( 2, 2, xur, yur, puffer );
     cMode := SetCursorMode( 0 );
     MessageWindow( 2, 2, FensterTitel, FensterText );
     keyCode := ReadKey;
     cMode := SetCursorMode( 2 );
     RestoreScreen( 2, 2, xur, yur, puffer );
End;

Procedure MenuZweiAufrufen;
    Var MenuTitel, MenuText, dummy : String;
        xur, yur, auswahl : Byte;
        puffer : Pointer;
Begin
     MenuTitel := 'Demo Men� Zwei';
     MenuText := 'Erster Men�eintrag' + Chr( 0 ) +
                 'Zweiter Men�eintrag' + Chr( 0 ) +
                 'Dritter Men�eintrag';
     BoxAreaCalculation( 8, 2, MenuTitel, MenuText, '', xur, yur );
     SaveScreen( 8, 2, xur, yur, puffer );
     While Menu( 8, 2, MenuTitel, MenuText, '', auswahl ) Do
     Begin
          Str( auswahl, dummy );
          ErrorWindow( 5, 2, 'Men�eintrag ' + dummy + ' ausgew„hlt !' );
     End;
     RestoreScreen( 8, 2, xur, yur, puffer );
End;

Procedure MenuEinsAufrufen;
    Var MenuTitel, MenuText, dummy : String;
        xur, yur, auswahl : Byte;
        puffer : Pointer;
Begin
     MenuTitel := 'Demo Men� Eins';
     MenuText := 'Das ist ein ...' + Chr( 0 ) +
                 'Test, um die ...' + Chr( 0 ) +
                 'Funktionen des AES ...' + Chr( 0 ) +
                 'des Portfolio ...' + Chr( 0 ) +
                 'zu demonstrieren.' + Chr( 0 ) +
                 'Men� Nummer Zwei aufrufen !';
     BoxAreaCalculation( 3, 0, MenuTitel, MenuText, '', xur, yur );
     SaveScreen( 3, 0, xur, yur, puffer );
     While Menu( 3, 0, MenuTitel, MenuText, '', auswahl ) Do
     Begin
          If auswahl = 5 Then
              MenuZweiAufrufen
          Else
          Begin
               Str( auswahl, dummy );
               ErrorWindow( 5, 2, 'Men�eintrag ' + dummy + ' ausgew„hlt !' );
          End;
     End;
     RestoreScreen( 3, 0, xur, yur, puffer );
End;

Var p : Pointer;
    keyCode : Char;
    quit : Boolean;

Begin
     SaveScreen( 0, 0, 39, 7, p );
     ClrScr;
     DrawBox( 0, 0, 39, 7, 1 );
     EnableSystemStatusLine( 1, 7 );
     GotoXY( 2, 0 ); Write( ' Demofenster ' );
     GotoXY( 25, 0 ); Write( ' F1 = Hilfe ' );

     GotoXY( 10, 2 ); Write( 'Portfolio AES Demo' );
     GotoXY( 6, 3 ); Write( 'programmiert in Turbo Pascal' );
     GotoXY( 6, 5 ); Write( '(c)' + Chr( 39 ) + '96 by Turtle Vision inc.' );

     quit := False;
     While Not quit Do
     Begin
          GotoXY( 1, 1 );
          keyCode := ReadKey;
          If keyCode = #27 Then
             quit := True;
          If keyCode = #0 Then
          Begin
               keyCode := ReadKey;
               If keyCode = #59 Then
                  HilfeFenster;
               If keyCode = #60 Then
                  MenuEinsAufrufen;
               If keyCode = #61 Then
                  MenuZweiAufrufen;
          End;
     End;

     DisableSystemStatusLine;
     RestoreScreen( 0, 0, 39, 7, p );
End.