*Basic
*| Make AFSFiler program
*|
*| Put library files together
OS."LOAD DiskIOadfs          "+STR$~(TOP-2):END
OS."LOAD BLib.MOS            "+STR$~(TOP-2):END
OS."LOAD BLib.Number         "+STR$~(TOP-2):END
OS."LOAD BLib.String         "+STR$~(TOP-2):END
OS."LOAD BLib.Generic.FileIO "+STR$~(TOP-2):END
OS."LOAD BLib.Generic.NetFS  "+STR$~(TOP-2):END
*CRUNCH
SAVE "libAFS"
*SetType libAFS FFB
*|
*SetType AFSFiler/s FFB
*Access AFSFiler/s r/r
*Access AFSFiler wr/wr
LO."AFSFiler/s"
OS."LOAD libAFS "+STR$~(TOP-2):END
*LINK
*CRUNCH
1REM > AFSFiler
REN.
SA."AFSFiler"
*|Delete libAFS
*SetType AFSFiler FFB
*Access AFSFiler r/r