home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 10_11 / dbase / adressen.prg < prev    next >
Encoding:
Text File  |  1988-07-20  |  1.7 KB  |  65 lines
  1. * -------------------------------------------------------- *
  2. *                     ADRESSEN.PRG
  3. *     Adressverwaltung und Serienbriefe mit Context PC     *
  4. *        (c) 1988 by W. Nimmrich und TOOLBOX
  5. * -------------------------------------------------------- *
  6. SET ESCAPE OFF
  7. SET TALK OFF
  8. SET SAFETY OFF
  9. SET DATE german
  10. SET COLOR TO w/n                         && weiß auf schwarz
  11. PRIVATE hauptschleife, taste, eingabe, art
  12. hauptschleife = .T.
  13. eingabe = .T.
  14. DO WHILE hauptschleife
  15.   CLEAR
  16.   @ 2,17 SAY "Die TOOLBOX Adressverwaltung"
  17.   @ 3,17 SAY "      mit Context PC"
  18.   @ 3,60 SAY "Datum: "
  19.   @ 3,68 SAY date()
  20.   @ 8,20 SAY "[ 1 ]  Eingabe"
  21.   @ 9,20 SAY "[ 2 ]  Suchen und Löschen"
  22.   @10,20 SAY "[ 3 ]  Sortieren der Adressen"
  23.   @11,20 SAY "[ 4 ]  Serienbrief drucken"
  24.   @13,20 SAY "[ 0 ]  E n d e"
  25.   art = 1
  26.   DO Fuss WITH art
  27.   eingabe = .T.
  28.   DO WHILE eingabe
  29.     SET CONSOLE OFF
  30.     taste = 0
  31.     DO WHILE taste = 0
  32.       taste = INKEY()
  33.     ENDDO
  34.     SET CONSOLE ON
  35.     DO CASE
  36.       CASE taste = 49
  37.         DO Eingabe
  38.         eingabe = .F.
  39.       CASE taste = 50
  40.         DO Suchen
  41.         eingabe = .F.
  42.       CASE taste = 51
  43.         DO sort
  44.         eingabe = .F.
  45.       CASE taste = 52
  46.         DO Drucken
  47.         eingabe = .F.
  48.       CASE taste = 48
  49.         CLEAR
  50.         eingabe = .F.
  51.         hauptschleife = .F.
  52.       CASE taste = 28
  53.         art = 1
  54.         DO Help WITH art
  55.         eingabe = .F.
  56.       CASE taste = 27
  57.         CLEAR
  58.         hauptschleife = .F.
  59.         eingabe = .F.
  60.     ENDCASE
  61.   ENDDO
  62. ENDDO
  63. * -------------------------------------------------------- *
  64. *              Ende von ADRESSEN.PRG                       *
  65.