home *** CD-ROM | disk | FTP | other *** search
/ Boston 2 / boston-2.iso / DOS / DEUTSCH / SONSTIGE / KFZWERK / ADDRESU.SC next >
Text File  |  1993-12-01  |  1KB  |  54 lines
  1. view "Auftrag"
  2. clear eol
  3. @1,0 ?? "Lassen Sie sich registrieren um diese lästigen Texte und"
  4. @2,0 ?? "Zeitverzögerungen auszuschalten.In der DOS Ebene einfach"
  5. @3,0 ?? "[Regis] eintippen um das Formular zu erhalten."
  6. sleep 7000
  7. clear
  8.  
  9. @1,0 ?? "Addresse nach Auftragnummer suchen [A] oder nach Name  [N] :"
  10.   Accept "A1" to Wahl
  11.  
  12.  
  13. Switch
  14.  
  15.         case Wahl = "A" OR Wahl = "a" :
  16.             @2,0 ?? "Auftragnummer angeben: "
  17.              Accept "N" to suchauf
  18.                 right
  19.                  locate  suchauf
  20.  
  21.  
  22.         case Wahl = "N" or Wahl = "n" :
  23.             @2,0 ?? "Name angeben:"
  24.              Accept "A25" to nam
  25.                 right
  26.                 right
  27.                 right
  28.                 right
  29.                 locate pattern nam + ".."
  30.  
  31. Endswitch
  32.  
  33. Pickform 1      ;Formularsicht wählen
  34.  
  35. editkey         ;editieren des Records
  36. Wait Record
  37. Prompt "Bearbeiten abschließen mit [F2] !"
  38. Until "F2"
  39. Do_it!
  40.  
  41. Wait record                          ;Sicht konservieren
  42.  
  43. Prompt "Beenden mit  [ESC] !"
  44. until "ESC"
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.