home *** CD-ROM | disk | FTP | other *** search
/ Taifun Collection / Taifun_Collection_Vol_1.iso / richter / 8659 / 8659.mhs / RICHTER.DTP / KFZ / POSEDIT.SC < prev    next >
Text File  |  1991-12-22  |  610b  |  37 lines
  1. clear
  2.     cursor bar
  3.     @1,0 ?? "Abbruch mit [ESC] !"
  4.     @3,0 ?? "Von welchem Auftrag sollen die Positionen verändert werden: "
  5.     accept "S" to at
  6.        if retval = "ESC" then
  7.           return
  8.        endif
  9.  
  10.     view "reart"
  11.  
  12.          moveto [Auftrag]
  13.  
  14.          locate at
  15.  
  16.          editkey
  17.  
  18.          wait table
  19.               prompt "Editieren beenden mit  [F2] ! Abbruch mit [ESC] !"
  20.          until "F2","ESC"
  21.  
  22.          if retval = "ESC" then
  23.             canceledit         ;rücknahme der änderungen
  24.             return
  25.          endif
  26.  
  27.          do_it!
  28.     return
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.