| Project:  CDFSFiler
| Perpose:  Replace Acorn's CDFSFiler
| Author:    J. Poulter (1997)
| Filename: ADFS::PinkBanana.$.MyPrograms.NewCDFSFiler.!CDFSFiler.!Run
| Date:     Thu,29 May 1997

IconSprites <CDViewer$Dir>.!Sprites

Set Kill "yes"
RMEnsure CDFSFiler 0.00 Set Kill "no"
If Kill="yes" Then RMKill CDFSFiler
Unset Kill

|Put this here cause the module in Filer_runed in !Run
RMEnsure CDView       0.02 Error CDViewer requires CDView version 0.02 or later.

|Reinit to make sure it has the right cd_blk things
RMReinit CDBase

/<CDViewer$Choices>.Tasks
|/<CDViewer$Dir>.^.Tasks 

Wimpslot -min 48k -max 48k

If "<CDViewerIsLoaded>"="yes" Then Error CDViewer is already loaded.
Set CDViewerIsLoaded "yes"

|0Run <CDViewer$Dir>.!RunImage { > <CDViewer$Dir>.CDOut 2> <CDViewer$Dir>.CDErr }
Run <CDViewer$Dir>.!RunImage
Unset CDViewerIsLoaded
