home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 6 / Amoszine 6 (Disk 2 of 2).adf / extra_source.lha / OTHER_SOURCE / _DOSERROR.Amos / _DOSERROR.amosSourceCode
Encoding:
AMOS Source Code  |  1992-02-26  |  2.6 KB  |  147 lines
  1. Procedure _DOSERROR[ERR]
  2.   MSG$=''
  3.   If ERR=103
  4.     MSG$='insufficient free store'
  5.   End If 
  6.   If ERR=105
  7.     MSG$='task table full'
  8.   End If 
  9.   If ERR=114
  10.     MSG$='bad template'
  11.   End If 
  12.   If ERR=115
  13.     MSG$='bad number'
  14.   End If 
  15.   If ERR=116
  16.     MSG$='required argument missing'
  17.   End If 
  18.   If ERR=117
  19.     MSG$='value after keyword missing'
  20.   End If 
  21.   If ERR=118
  22.     MSG$='wrong number of arguments'
  23.   End If 
  24.   If ERR=119
  25.     MSG$='unmatched quotes'
  26.   End If 
  27.   If ERR=120
  28.     MSG$='argument line invalid or too long'
  29.   End If 
  30.   If ERR=121
  31.     MSG$='file is not an object module'
  32.   End If 
  33.   If ERR=122
  34.     MSG$='invalid resident library during load'
  35.   End If 
  36.   If ERR=202
  37.     MSG$='object in use'
  38.   End If 
  39.   If ERR=203
  40.     MSG$='object already exists'
  41.   End If 
  42.   If ERR=204
  43.     MSG$='directory not found'
  44.   End If 
  45.   If ERR=205
  46.     MSG$='object not found'
  47.   End If 
  48.   If ERR=206
  49.     MSG$='invalid window description'
  50.   End If 
  51.   If ERR=207
  52.     MSG$='object too large'
  53.   End If 
  54.   If ERR=209
  55.     MSG$='packet request type unknown'
  56.   End If 
  57.   If ERR=210
  58.     MSG$='stream name component invalid'
  59.   End If 
  60.   If ERR=211
  61.     MSG$='invalid object lock'
  62.   End If 
  63.   If ERR=212
  64.     MSG$='object not of required type'
  65.   End If 
  66.   If ERR=213
  67.     MSG$='disk not validated'
  68.   End If 
  69.   If ERR=214
  70.     MSG$='disk write-protected'
  71.   End If 
  72.   If ERR=215
  73.     MSG$='rename across devices attempted'
  74.   End If 
  75.   If ERR=216
  76.     MSG$='directory not empty'
  77.   End If 
  78.   If ERR=217
  79.     MSG$='too many levels'
  80.   End If 
  81.   If ERR=218
  82.     MSG$='device (or volume) not mounted'
  83.   End If 
  84.   If ERR=219
  85.     MSG$='seek failure'
  86.   End If 
  87.   If ERR=220
  88.     MSG$='comment too big'
  89.   End If 
  90.   If ERR=221
  91.     MSG$='disk full'
  92.   End If 
  93.   If ERR=222
  94.     MSG$='file is protected from deletion'
  95.   End If 
  96.   If ERR=223
  97.     MSG$='file is write protected'
  98.   End If 
  99.   If ERR=224
  100.     MSG$='file is read protected'
  101.   End If 
  102.   If ERR=225
  103.     MSG$='not a valid DOS disk'
  104.   End If 
  105.   If ERR=226
  106.     MSG$='no disk in drive'
  107.   End If 
  108.   If ERR=232
  109.     MSG$='no more entries in directory'
  110.   End If 
  111.   If ERR=233
  112.     MSG$='object is soft link'
  113.   End If 
  114.   If ERR=234
  115.     MSG$='object is linked'
  116.   End If 
  117.   If ERR=235
  118.     MSG$='bad loadfile hunk'
  119.   End If 
  120.   If ERR=236
  121.     MSG$='function not implemented'
  122.   End If 
  123.   If ERR=240
  124.     MSG$='record not locked'
  125.   End If 
  126.   If ERR=241
  127.     MSG$='record lock collision'
  128.   End If 
  129.   If ERR=242
  130.     MSG$='record lock timeout'
  131.   End If 
  132.   If ERR=243
  133.     MSG$='record unlock error'
  134.   End If 
  135.   If ERR=303
  136.     MSG$='buffer overflow'
  137.   End If 
  138.   If ERR=304
  139.     MSG$='***Break'
  140.   End If 
  141.   If ERR=305
  142.     MSG$='file not executable'
  143.   End If 
  144.   If MSG$=''
  145.     MSG$='Error'+Str$(ERR)
  146.   End If 
  147. End Proc[MSG$]