{
name = 'Runtime error messages';
}

function errmsg(const b:word):shortstring;
var
    errmsgs:shortstring;
begin
case b of
0:	errmsgs:='';
1:	errmsgs:='Invalid function number';
2,$12:	errmsgs:='File not found';	{ $12 findfirst / findnext only	}
3:	errmsgs:='Path not found';
4:	errmsgs:='Too many open files';
5:	errmsgs:='File access denied';
6:	errmsgs:='Invalid file handle';
12:	errmsgs:='Invalid file access code';
15:	errmsgs:='Invalid drive number';
16:	errmsgs:='Cannot remove current directory';
17:	errmsgs:='Cannot rename across drives';
100:	errmsgs:='Disk read error';
101:	errmsgs:='Disk write error';
102:	errmsgs:='File not assigned';
103:	errmsgs:='File not open';
104:	errmsgs:='File not open for input';
105:	errmsgs:='File not open for output';
106:	errmsgs:='Invalid numeric format';
150:	errmsgs:='Disk is write-protected';
151:	errmsgs:='Bad drive request struct length';
152:	errmsgs:='Drive not ready';
154:	errmsgs:='CRC error in data';
156:	errmsgs:='Disk seek error';
157:	errmsgs:='Unknown media type';
158:	errmsgs:='Sector Not Found';
159:	errmsgs:='Printer out of paper';
160:	errmsgs:='Device write fault';
161:	errmsgs:='Device read fault';
162:	errmsgs:='Hardware failure';
200:	errmsgs:='Division by zero';
201:	errmsgs:='Range check error';
202:	errmsgs:='Stack overflow error';
203:	errmsgs:='Heap overflow error';
204:	errmsgs:='Invalid pointer operation';
205:	errmsgs:='Floating point overflow';
206:	errmsgs:='Floating point underflow';
207:	errmsgs:='Invalid floating point operation';
208:	errmsgs:='Overlay manager not installed';
209:	errmsgs:='Overlay file read error';
210:	errmsgs:='Object not initialized';
211:	errmsgs:='Call to abstract method';
212:	errmsgs:='Stream registration error';
213:	errmsgs:='Collection index out of range';
214:	errmsgs:='Collection overflow error';
254:	errmsgs:='Besat';
255:	errmsgs:='Fastlagt';
else	errmsgs:='Unknown error $'+tal(b,2);
end;	{ case	}
errmsg:=errmsgs;
end;	{ emsg	}