home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 12 / comal5.lst < prev    next >
Encoding:
File List  |  1987-08-30  |  467 b   |  21 lines

  1. // Listing 5
  2.  
  3. // Weitermelden von Fehlern mit REPORT
  4.  
  5. PROC eröffne_datei(dateiname$) 
  6.   TRAP
  7.     OPEN FILE dateinr#,dateiname$,READ
  8.   HANDLER
  9.     CASE ERR OF 
  10.     WHEN 216
  11.       PRINT AT 24,1: "Datei existiert nicht !!!                  "
  12.       REPORT
  13.     WHEN 213
  14.       PRINT AT 24,1: "Überprüfen Sie bitte das Diskettenlaufwerk!"
  15.       RETRY
  16.     OTHERWISE
  17.       REPORT 250,"Was ist denn nun kaputt??"
  18.     ENDCASE
  19.   ENDTRAP
  20. ENDPROC eröffne_datei
  21.