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

Text File | 1988-07-20 | 1.1 KB | 46 lines

* -------------------------------------------------------- *
*                   FUSS.PRG                               *
*         Prozedur für den Aufbau der Fusszeile            *
* -------------------------------------------------------- *
PARAMETERS art
IF art = 1
  @ 24, 1 SAY "F1"
  @ 24,69 SAY "<ESC>"
  SET COLOR TO n/w
  @ 24, 4 SAY "HILFE"
  @ 24,75 SAY "ENDE"
  SET COLOR TO w/n
ENDIF
IF art = 2
  @ 24, 1 SAY "F1"
  @ 24,69 SAY "<ESC>"
  @ 24,21 SAY "F3"
  @ 24,43 SAY "F4"
  SET COLOR TO n/w
  @ 24, 4 SAY "HILFE"
  @ 24,24 SAY "WEITER"
  @ 24,46 SAY "ENDE"
  @ 24,75 SAY "ENDE"
  SET COLOR TO w/n
ENDIF
IF art = 3
  @ 24, 1 SAY "F1"
  @ 24,10 SAY "F2"
  @ 24,21 SAY "F3"
  @ 24,32 SAY "F6"
  @ 24,43 SAY "F9"
  @ 24,55 SAY "F10"
  @ 24,69 SAY "<ESC>"
  SET COLOR TO n/w
  @ 24, 4 SAY "HILFE"
  @ 24,13 SAY "LÖSCHEN"
  @ 24,24 SAY "SUCHEN"
  @ 24,35 SAY "ÄNDERN"
  @ 24,46 SAY "VORIGER"
  @ 24,59 SAY "NÄCHSTER"
  @ 24,75 say "ENDE"
  SET COLOR TO w/n
ENDIF
* -------------------------------------------------------- *
*                  Ende von FUSS.PRG                       *