| <stdcrap.h>
Set CDAudio$Dir <Obey$Dir>
Set CDAudioDisc$Dir <Obey$Dir>.CDs
IconSprites <CDAudio$Dir>.!Sprites
|
| Lock & load required modules.
RMEnsure Director 0.00 RMLoad Director:Director
RMEnsure Director 0.26 Error 0 This program requires !Director 0.26 to run
|RMEnsure CDAudio 0.00 RMLoad <Obey$Dir>.CDAudio
|RMEnsure CDAudio 0.00 Error 0 Application module missing.  PANIC!
RMLoad <Obey$Dir>.CDAudio
|
| Setup exit handler.
Set Director$AtExitCDAudio "WimpTask Run <CDAudio$Dir>.!Exit"
|
| Create a standard configuration file first time out.
IfThereIs -Not -File <Obey$Dir>.!Config "Copy <Obey$Dir>.StdConfig <Obey$Dir>.!Config ~C ~V"
|
| Load CDAudio Configuration
/<CDAudio$Dir>.!Config
|
| Rock-n-roll!
Wimpslot -min 16K -max 32K
%Desktop_CDAudio