home *** CD-ROM | disk | FTP | other *** search
- /**/
-
- 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
-