home *** CD-ROM | disk | FTP | other *** search
/ Taifun Collection / Taifun_Collection_Vol_1.iso / richter / 8659 / 8659.mhs / RICHTER.DTP / KFZ / KFZ5.SC < prev    next >
Text File  |  1991-12-22  |  966b  |  52 lines
  1. ; Kfz5
  2.  
  3.  
  4.  
  5. AppLib = "Kfz2"
  6. if (not isfile(AppLib + ".lib")) then
  7.   Createlib AppLib
  8. endif
  9.  
  10.  
  11. proc Kfz5Menu()
  12. private x, escape
  13.  
  14.   x = "Positionen anlegen"
  15.   while (TRUE)
  16.     Clear
  17.  
  18.     ShowMenu
  19.         "Positionen anlegen": "Positionen für einen Auftrag eingeben (Lager oder direkt)",
  20.         "Positionen ändern": "Bestehende Positionen für einen Auftrag ändern"
  21.       Default x
  22.       To x
  23.  
  24.     switch
  25.       case x = "Positionen anlegen":
  26.         Play "Lare1"
  27.         x = "Positionen anlegen"
  28.         escape = FALSE
  29.  
  30.       case x = "Positionen ändern":
  31.         Play "Posedit"
  32.         x = "Positionen ändern"
  33.         escape = FALSE
  34.  
  35.       case x = "Esc":
  36.         return FALSE
  37.     endswitch
  38.  
  39.     ; Wert von ErrorProc zurücksetzen 
  40.     ErrorProc = "ApplicErrorProc"
  41.     ApplicErrorRetVal = FALSE
  42.  
  43.     if (not escape) then
  44.       return TRUE
  45.     endif
  46.   endwhile
  47. endproc
  48.  
  49. Writelib AppLib Kfz5Menu
  50. Release Procs Kfz5Menu
  51.  
  52.