(* ------------------------------------------------------------------------- *)
(*                            HYPERKEY.HLP                                   *)
(*                     Anzeige der Hilfsbildschirme                          *)
(* ------------------------------------------------------------------------- *)
(*                  Anzeige des Haupt-Hilfsbildschirms:                      *)
PROCEDURE MainHelp;
   VAR DummyKey :INTEGER;  XPos,YPos :BYTE;
BEGIN
   Cursor (off);   XPos := WhereX;   YPos := WhereY;
   MkWindow (XWin+4,YWin+1,XWin+61,YWin+23,2,HelpFore,HelpBack,HelpBack);
   WriteString (16,  3, 'Kommandos im HYPERKEY-Hauptmenue:');
   WriteString ( 8,  5, 'Pfeil links ...... vorherigen Eintrag anzeigen');
   WriteString ( 8,  6, 'Pfeil rechts ..... nächsten Eintrag anzeigen');
   WriteString ( 8,  7, 'Home ............. auf ersten Eintrag springen');
   WriteString ( 8,  8, 'End .............. auf letzten Eintrag springen');
   WriteString ( 8,  9, 'Del .............. angezeigten Eintrag löschen');
   WriteString ( 8, 10, 'Shift-Del ........ alle Einträge löschen');
   WriteString ( 8, 11, 'Return ........... angezeigten Eintrag editieren');
   WriteString ( 8, 12, 'Ins .............. einen neuen Eintrag einfügen');
   WriteString ( 8, 13, 'Pfeil hoch ....... aktuellen Eintrag aktivieren');
   WriteString ( 8, 14, 'Pfeil runter ..... aktuellen Eintrag desaktivieren');
   WriteString ( 8, 15, 'Alt-hoch ......... alle Einträge aktivieren');
   WriteString ( 8, 16, 'Alt-runter ....... alle Einträge desaktivieren');
   WriteString ( 8, 17, 'PgDn ............. Makro-Belegung aus Datei lesen');
   WriteString ( 8, 18, 'PgUp ............. aktuelle Liste wegspeichern');
   WriteString ( 8, 19, 'Esc .............. HYPERKEY verlassen');
   WriteString (19, 21, 'Zurück mit beliebiger Taste');
   GetKey (DummyKey);   RmWindow;   Window (1,1,80,25);
   GotoXY (XPos,YPos);  Cursor (on)
END;
(*                 Anzeige des Editor-Hilfsbildschirms:                      *)
PROCEDURE EditHelp;
   VAR DummyKey :INTEGER;  XPos,YPos :BYTE;
BEGIN
   Cursor (off);   XPos := WhereX;   YPos := WhereY;
   MkWindow (XWin+4,YWin+1,XWin+60,YWin+22,2,HelpFore,HelpBack,HelpBack);
   WriteString (17,  3, 'Kommandos im HYPERKEY-Editmenue:');
   WriteString ( 8,  5, 'Pfeil links ...... Cursor ein Zeichen nach links ');
   WriteString ( 8,  6, 'Pfeil rechts ..... Cursor ein Zeichen nach rechts');
   WriteString ( 8,  7, 'Home ............. Cursor an Zeilenanfang');
   WriteString ( 8,  8, 'End .............. Cursor ans Zeilenende');
   WriteString ( 8,  9, 'Del .............. Zeichen unter Cursor löschen');
   WriteString ( 8, 10, 'Clr .............. Zeichen vor Cursor löschen');
   WriteString ( 8, 11, 'Ctrl-Home ........ die gesamte Zeile löschen');
   WriteString ( 8, 12, 'Ctrl-End ......... bis Zeilenende löschen');
   WriteString ( 8, 13, 'Ins .............. Insert/Overwrite-Modus');
   WriteString ( 8, 14, 'Scroll-Lock ...... Sondereingabemodus ein/aus');
   WriteString ( 8, 15, 'Tab .............. Tastencode neu eingeben/ändern');
   WriteString ( 8, 16, 'Return ........... Ende, Eingabe übernehmen');
   WriteString ( 8, 17, 'Ctrl-Return ...... Ende, Eingabe an ANSI-Treiber');
   WriteString ( 8, 18, 'Esc .............. Ende, Eingabe nicht übernehmen');
   WriteString (19, 20, 'Zurück mit beliebiger Taste');
   GetKey (DummyKey);   RmWindow;   Window (1,1,80,25);
   GotoXY (XPos,YPos);  Cursor (on)
END;
(* ------------------------------------------------------------------------- *)
(*                                HYPERKEY.HLP                               *)
