home *** CD-ROM | disk | FTP | other *** search
File List | 1987-08-30 | 467 b | 21 lines |
- // Listing 5
-
- // Weitermelden von Fehlern mit REPORT
-
- PROC eröffne_datei(dateiname$)
- TRAP
- OPEN FILE dateinr#,dateiname$,READ
- HANDLER
- CASE ERR OF
- WHEN 216
- PRINT AT 24,1: "Datei existiert nicht !!! "
- REPORT
- WHEN 213
- PRINT AT 24,1: "Überprüfen Sie bitte das Diskettenlaufwerk!"
- RETRY
- OTHERWISE
- REPORT 250,"Was ist denn nun kaputt??"
- ENDCASE
- ENDTRAP
- ENDPROC eröffne_datei
-