Turbo Toolbox/Turbo_Toolbox.iso/1988/10_11/dbase/help.prg

Text File | 1988-07-20 | 4.5 KB | 129 lines

* -------------------------------------------------------- *
*                    HELP.PRG                              *
* -------------------------------------------------------- *
PARAMETERS art
PRIVATE hauptschleife, taste
hauptschleife =.T.
DO WHILE hauptschleife
  @  3, 1 SAY "╔══════════════════════════╗"
  @  4, 1 SAY "║       Hilfe zum...       ║"
  @  5, 1 SAY "╟──────────────────────────╢"
  @  6, 1 SAY "║                          ║"
  @  7, 1 SAY "║                          ║"
  @  8, 1 SAY "║                          ║"
  @  9, 1 SAY "║                          ║"
  @ 10, 1 SAY "║                          ║"
  @ 11, 1 SAY "║                          ║"
  @ 12, 1 SAY "║                          ║"
  @ 13, 1 SAY "║                          ║"
  @ 14, 1 SAY "║                          ║"
  @ 15, 1 SAY "║                          ║"
  @ 16, 1 SAY "║                          ║"
  @ 17, 1 SAY "║                          ║"
  @ 18, 1 SAY "║                          ║"
  @ 19, 1 SAY "║                          ║"
  @ 20, 1 SAY "╟──────────────────────────╢"
  @ 21, 1 SAY "║  VOR <PgUp> ZUR <PgDn>   ║"
  @ 22, 1 SAY "║  Abbruch <ESC>           ║"
  @ 23, 1 SAY "╚══════════════════════════╝"
  IF art = 1
    @  6, 3 SAY "  ...Eingabemenü         "
    @  7, 3 SAY "Bitte 0 - 4 eingeben     "
    @  8, 3 SAY "                         "
    @  9, 3 SAY "Weiterhin können Sie     "
    @ 10, 3 SAY "im Hilfetext durch       "
    @ 11, 3 SAY "drücken der Tasten       "
    @ 12, 3 SAY "                         "
    @ 13, 3 SAY "  <PgDn>                 "
    @ 14, 3 SAY "  <PgDn>                 "
    @ 15, 3 SAY "                         "
    @ 16, 3 SAY "blättern.                "
  ENDIF
  IF art = 2
    @  6, 3 SAY " ...Eingaberoutine       "
    @  7, 3 SAY "Bitte vermeiden Sie bei  "
    @  8, 3 SAY "                         "
    @  9, 3 SAY "der Eingabe Leerzeichen. "
    @ 10, 3 SAY "können bei der Übergabe  "
    @ 11, 3 SAY "nach Context zu Fehlern  "
    @ 12, 3 SAY "führen.                  "
    @ 13, 3 SAY "<ESC> bricht die Eingabe "
    @ 14, 3 SAY "ohne Speicherung des     "
    @ 15, 3 SAY "Datensatzes ab.          "
    @ 16, 3 SAY "                         "
  ENDIF
  IF art = 3
    @ 10, 3 SAY " ...Ändern-Löschen Menü  "
    @ 12, 3 SAY "   <ESC> bricht ab       "
  ENDIF
  IF art = 4
    @  6, 3 SAY "  ...Sortieren der       "
    @  7, 3 SAY "  Adressdatei            "
    @  8, 3 SAY "                         "
    @  9, 3 SAY "                         "
    @ 10, 3 SAY "                         "
    @ 11, 3 SAY "                         "
    @ 12, 3 SAY "                         "
    @ 13, 3 SAY "                         "
    @ 14, 3 SAY "                         "
    @ 15, 3 SAY "                         "
    @ 16, 3 SAY "                         "
    @ 17, 3 SAY "                         "
  ENDIF
  SET CONSOLE OFF
  @ 23,30 SAY ""                  &&Positioniert den Cursor
  taste = 0
  DO WHILE taste = 0
    taste = INKEY()
  ENDDO
  SET CONSOLE ON
    DO CASE
      CASE taste = 27  && ESC Taste
*        @  9, 1 SAY SPACE(28)
*        @ 10, 1 SAY SPACE(28)
*        @ 11, 1 SAY SPACE(28)
*        @ 12, 1 SAY SPACE(28)
*        @ 13, 1 SAY SPACE(28)
*        @ 14, 1 SAY SPACE(28)
*        @ 15, 1 SAY SPACE(28)
*        @ 16, 1 SAY SPACE(28)
*        @ 17, 1 SAY SPACE(28)
        hauptschleife = .F.
      CASE taste = 3                           && PgUp Taste
        IF art >= 4
           art = 4
        ELSE
           art = art + 1
        ENDIF
        @  9, 2 SAY SPACE(26)
        @ 10, 2 SAY SPACE(26)
        @ 11, 2 SAY SPACE(26)
        @ 12, 2 SAY SPACE(26)
        @ 13, 2 SAY SPACE(26)
        @ 14, 2 SAY SPACE(26)
        @ 15, 2 SAY SPACE(26)
        @ 16, 2 SAY SPACE(26)
        @ 17, 2 SAY SPACE(26)
        hauptschleife = .T.
      CASE taste = 18                          && PgDn Taste
        IF art >= 1
           art = 1
        ELSE
           art = art - 1
        ENDIF
        @  9, 2 SAY SPACE(26)
        @ 10, 2 SAY SPACE(26)
        @ 11, 2 SAY SPACE(26)
        @ 12, 2 SAY SPACE(26)
        @ 13, 2 SAY SPACE(26)
        @ 14, 2 SAY SPACE(26)
        @ 15, 2 SAY SPACE(26)
        @ 16, 2 SAY SPACE(26)
        @ 17, 2 SAY SPACE(26)
        hauptschleife = .T.
    ENDCASE
ENDDO
RETURN
* -------------------------------------------------------- *
*                 Ende von HELP.PRG                        *