home *** CD-ROM | disk | FTP | other *** search
/ Taifun Collection / Taifun_Collection_Vol_1.iso / richter / 8659 / 8659.mhs / RICHTER.DTP / KFZ / TUEV.SC < prev    next >
Text File  |  1991-12-22  |  546b  |  33 lines
  1. @0,0
  2. ?? "Abbruch mit  [ESC]"
  3.  
  4. @1,0
  5. Cursor Bar
  6. ?? "Datum der vorhandenen TÜV Plakette angeben (tt.mm.jj):"
  7.  
  8.  
  9. Accept "D" TO Tdat
  10.  
  11. if retval
  12.  
  13.  
  14.     then
  15.  
  16.  
  17.     {Zeige} {auftrag} Menu {Abfrage} {Auftrag} Right  Right Check Right
  18.     Right Check Right Check Right Check Right Check Right Right "~Tdat"
  19.     Do_It!
  20.     copy "Antwort" "Tuev"
  21.     Clearall
  22.  
  23.     VIEW "Tuev"
  24.  
  25.     WAIT TABLE
  26.     PROMPT "Kundenfahrzeuge deren TÜV zum angegebenen Zeitpunkt abläuft!",
  27.        "Abbruch mit  [ESC]"
  28.  
  29.     UNTIL "ESC"
  30.  
  31. else ESC
  32. endif
  33.