home *** CD-ROM | disk | FTP | other *** search
/ Boston 2 / boston-2.iso / DOS / DEUTSCH / SONSTIGE / KFZWERK / TUEV.SC < prev    next >
Text File  |  1993-12-01  |  563b  |  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 Right
  18.     Right Check Right Check Right Check Right Check Right  "~Tdat"
  19.     Do_It!  {Makros} {EndeAufzeichnung}
  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.