home *** CD-ROM | disk | FTP | other *** search
/ Boston 2 / boston-2.iso / DOS / DEUTSCH / SONSTIGE / KFZWERK / KFZ5.SC < prev    next >
Text File  |  1993-12-01  |  1KB  |  59 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 = "TÜV fällig"
  15.   while (TRUE)
  16.     Clear
  17.  
  18.     ShowMenu
  19.         "TÜV fällig": "Kundenfahrzeuge die zum gewählten Zeitpunkt TÜV fällig werd.",
  20.         "Kundenstatistik": "Informationen über Kunden",
  21.         "Umsatz": "Gesamter Umsatz"
  22.       Default x
  23.       To x
  24.  
  25.     switch
  26.       case x = "TÜV fällig":
  27.         Play "Tuev"
  28.         x = "TÜV fällig"
  29.         escape = FALSE
  30.  
  31.       case x = "Kundenstatistik":
  32.         ReadLib "Kfz4" Kfz11Menu
  33.         escape = Kfz11Menu()
  34.         escape = not escape
  35.         Release Procs Kfz11Menu
  36.  
  37.       case x = "Umsatz":
  38.         Play "Umbere1"
  39.         x = "Umsatz"
  40.         escape = FALSE
  41.  
  42.       case x = "Esc":
  43.         return FALSE
  44.     endswitch
  45.  
  46.     ; Wert von ErrorProc zurücksetzen 
  47.     ErrorProc = "ApplicErrorProc"
  48.     ApplicErrorRetVal = FALSE
  49.  
  50.     if (not escape) then
  51.       return TRUE
  52.     endif
  53.   endwhile
  54. endproc
  55.  
  56. Writelib AppLib Kfz5Menu
  57. Release Procs Kfz5Menu
  58.  
  59.