home *** CD-ROM | disk | FTP | other *** search
/ Boston 2 / boston-2.iso / DOS / DEUTSCH / SONSTIGE / KFZWERK / KOVORE.SC < prev    next >
Text File  |  1993-12-01  |  639b  |  39 lines
  1. {Zeige} {kovor} Menu {Abfrage} {Kovor} Right  "rechne max" Do_It!
  2.  
  3. Maxi=[maximum von Kostenvoran.] ; Letze Kostenvoran. Nr. wird zugewiesen
  4.  
  5.  
  6. @1,0
  7. prompt "Feldeingaben mit  [ENTER] abschließen!","Eingabe mit [ESC] beenden!"
  8.  
  9.  
  10. menu {Dienste} {Dateneingabe} {Kovor}
  11. menu {Bild} {Wähle} {1}
  12.  
  13. MOVETO [Kostenvoran. Nr.]
  14. [Kostenvoran. Nr.]=maxi+1
  15. Wait table
  16. until "enter"
  17. Moveto [Fahrzeug]
  18. wait table
  19. until "enter"
  20. moveto [Vorname]
  21. wait table
  22. until "enter"
  23. moveto [Nachname]
  24. wait table
  25. until "enter"
  26. moveto [Straße]
  27. wait table
  28. until "enter"
  29. moveto [Ort]
  30. wait table
  31. until "Enter"
  32.  
  33. Wait table
  34. until "ESC"
  35.  
  36.  
  37.  
  38.  
  39.