home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 10_11 / dbase / eingabe.prg < prev    next >
Encoding:
Text File  |  1988-07-20  |  1.0 KB  |  46 lines
  1. * -------------------------------------------------------- *
  2. *                    EINGABE.PRG                           *
  3. * -------------------------------------------------------- *
  4. SET TALK OFF
  5. SET ESCAPE OFF
  6. PRIVATE anrede, vorname, nachname, strasse, plz, ort
  7. PRIVATE eingabe, land, ihrzeichen, art
  8. EINGABE = .T.
  9. USE adressen
  10. DO WHILE EINGABE
  11.   CLEAR
  12.   art = 1
  13.   DO Fuss WITH art
  14.   @ 2,10 SAY "Eingabe..."
  15.   APPEND BLANK
  16.   DO Anzeigen
  17.   READ
  18.   art = 2
  19.   DO Fuss WITH art
  20.   taste = 0
  21.   SET CONSOLE OFF
  22.   DO WHILE taste = 0
  23.   taste = INKEY()
  24.   ENDDO
  25.   SET CONSOLE ON
  26.   DO CASE
  27.     CASE taste = 27
  28.       eingabe = .F.
  29.       DELETE                      &&Verlassen ohne speichern
  30.       PACK
  31.     CASE taste = -2
  32.       eingabe = .T.
  33.     CASE taste = -3
  34.       eingabe = .F.
  35.     CASE taste = 28
  36.       art = 2
  37.       DO Help WITH art
  38.       taste = 0
  39.   ENDCASE
  40. ENDDO
  41. CLEAR ALL
  42. CLOSE DATABASE
  43. RETURN
  44. * -------------------------------------------------------- *
  45. *                   Ende von EINGABE.PRG                   *
  46.