10 ! CENERR.BAC
1005 INTEGER : EXTEND 
50000 DEF FNCenerr(Ecode) LOCAL I,A$=80
50010   IF Ecode=255 ; 'File not found!' : RETURN -1
50020   IF (Ecode AND 128)=0 RETURN 0
50030   I=Ecode AND 127 : RESTORE 50080
50040   READ A$ : WHILE I : READ A$ : I=I-1 : WEND : ; A$ : RETURN -1
50050   ! 
50060   ! Usual DOS traps
50070   ! 
50080   DATA 'CRC or AM error during read.'
50090   DATA 'CRC or AM error during write.'
50100   DATA 'Record format error.'
50110   DATA 'Record number out of range.'
50120   DATA 'Write protect violation.'
50130   DATA 'Delete or read protect violation.'
50140   DATA 'File space full.'
50150   DATA 'Drive off line.'
50160   DATA 'Disc write protect.'
50170   DATA 'Logical file not open.'
50180   DATA 'Invalid logical file number.'
50190   DATA 'Invalid drive number.'
50200   DATA 'Invalid trap number.'
50210   DATA 'Failure in system data.'
50220   DATA 'Invalid physical file number.'
50230   DATA '*** INVALID ERROR CODE'
50240   ! 
50250   ! Here follows specific net error codes
50260   ! 
50270   DATA 'Login please.'
50280   DATA 'You must be a superuser.'
50290   DATA 'Illegal subfunction code.'
50300   DATA 'Central task already running.'
50310   DATA 'Task not found.'
50320   DATA 'Can''t change directory.'
50330   DATA 'Bad login.'
50340   DATA 'Illegal terminal number.'
50350   DATA 'Login is not allowed at the moment.'
50360   DATA 'Can''t unmount this device.'
50370   DATA 'Someone is already exclusive.'
50380 FNEND