/**/

address command
call erasefiles
call addfiles
call compilefiles
call linkfile
'dir *.er*'
exit 0

erasefiles:
  'delete *.sym *.lnk *.er*'
return

addfiles:
  files = 0
  call addfile 'DynItemList.def'
  call addfile 'DynamicItem.def'
  call addfile 'DynItem.def'
  call addfile 'HandleCollection.def'
  call addfile 'FreeHandle.def'
  call addfile 'WordAlign.def'
  call addfile 'Storage.def'

  call addfile 'DynItemList'
  call addfile 'DynamicItem'
  call addfile 'DynItem'
  call addfile 'HandleCollection'
  call addfile 'FreeHandle'
  call addfile 'WordAlign'
  call addfile 'Storage'
  call addfile 'DynTest'
return

addfile:
  parse arg filename
  files = files + 1
  infile.files = filename
return

compilefiles:
  do index = 1 to files
    'modula' infile.index
  end
return


linkfile:
  'link' infile.index
return