home *** CD-ROM | disk | FTP | other *** search
/ Boston 2 / boston-2.iso / DOS / DEUTSCH / SONSTIGE / KFZWERK / KFZ6.SC < prev    next >
Text File  |  1993-12-01  |  883b  |  52 lines
  1. ; Kfz6
  2.  
  3.  
  4.  
  5. AppLib = "Kfz2"
  6. if (not isfile(AppLib + ".lib")) then
  7.   Createlib AppLib
  8. endif
  9.  
  10.  
  11. proc Kfz6Menu()
  12. private x, escape
  13.  
  14.   x = "Setup"
  15.   while (TRUE)
  16.     Clear
  17.  
  18.     ShowMenu
  19.         "Setup": "KFZ WEKSTATT Systemeinstellungen",
  20.         "Sicherung": "Datensicherung durchführen"
  21.       Default x
  22.       To x
  23.  
  24.     switch
  25.       case x = "Setup":
  26.         Message "Option ist nicht definiert"
  27.         Sleep 3000
  28.         escape = TRUE
  29.  
  30.       case x = "Sicherung":
  31.         Message "Option ist nicht definiert"
  32.         Sleep 3000
  33.         escape = TRUE
  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 Kfz6Menu
  50. Release Procs Kfz6Menu
  51.  
  52.