/* Starts SongPlayer, or Adds song to playlist of running copy */

Options Results
Parse Arg FileName

If Show('P','SONGPLAYER.1') Then Do
  Address 'SONGPLAYER.1' 'ADD 'FileName
  Address 'SONGPLAYER.1' 'GET_STATE'
  State = Result
  If State = "STOP" | STATE = "PAUSE" Then Do
    Address 'SONGPLAYER.1' 'NEXT'
    Address 'SONGPLAYER.1' 'PLAY'
  End
End
Else Address Command 'Work:Multimedia/Songplayer/Songplayer GUI T=5 VOL=64 EXP=0 'FileName
Exit