MODULE 'player61','tools/file','exec/memory','tools/trapguru','tools/exceptions'

RAISE "P61L" IF OpenLibrary()=0

PROC main() HANDLE
    DEF file
    player61base:=OpenLibrary('player61.library',37)
    file:=readfile(arg,0,MEMF_CHIP)
    IF Pl61_Play(file,NIL,NIL)<>0 THEN Raise("P61")
    WHILE CtrlC()=0 DO WaitTOF()
    Pl61_Stop()
EXCEPT
    report_exception()
ENDPROC