.key Option,DirName,NumSongs
.bra {
.ket }

;*
;*  JB(.sc) ver 1.2
;*  ~~~~~~~~~~~~~~~
;*  by Pendracon of A.C.T. Datatech  |-)
;*  on 27 Nov 92
;*
;*  This script is used to invoke the EdPlayer 2.x JukeBox
;*  environment from scratch.
;*
;*  See JukeBox.rexx or .doc for specific usage instructions.
;*
;*  This script starts EdPlayer(Jr) in hidden mode (by default)
;*  and starts the 'Pgm' script JukeBox.rexx, passing on any
;*  optional command line parameters
;*


;** THE "UNDOCUMENTED" AUTHOR SWITCH

if {Option} eq "-author"
    echo "The **EdPlayer** JukeBox"
    echo "~~~~~~~~~~~~~~~~~~~~~~"
    echo "by Pendracon of A.C.T. Datatech  |-)"
    echo "-- This package is released as Copyware (NC) 1992"
    echo "-- Spread it around!  :)"
    skip EXIT
endif


;** INITIALIZE ENVIRONMENT

;* NOT TRYING TO QUIT
if not {Option} eq "-q"
    setenv EPlayer TRUE
endif


;** PRINT USAGE STRING IF REQUESTED

if {Option} eq "-?"
    echo "JB(.sc) USAGE: JB [-?|-d|-i|-o|-q] [DirName] [NumSongs]"
    skip EXIT
endif


;** GET EDPLAYER'S LOCATION IF IN THE PATH

;* FIND EDPLAYERJR
which EdPlayerJr >ENV:EPJ
if "$EPJ" eq ""
    setenv EPJ sys:AV/EdPlayerJr
endif

;* FIND EDPLAYER
which EdPlayer >ENV:EP
if "$EP" eq ""
    setenv EP sys:AV/EdPlayer
endif

;* CHECK IF FOUND
if not exists $EPJ
    if not exists $EP
        echo "Can not locate EdPlayer 2.x!"
        echo "Please consult the documentation before using this package."
        skip EXIT
    endif
    setenv EPJ $EP
endif


;** PARSE OPTION PARAMETER AND/OR START EDPLAYER

;* DEFAULT
if {Option} eq "-d"
    skip JBDEF
endif

;* ICONIFY
if {Option} eq "-i"
    echo "Starting EdPlayer 2.x in Iconify mode."
    runback >NIL: $EP -i
    skip PORT
endif

;* OPENSCREEN
if {Option} eq "-o"
    echo "Starting EdPlayer 2.x on Open screen."
    runback >NIL: $EP
    skip PORT
endif

;* QUIT EDPLAYER
if {Option} eq "-q"
    if not "$EPlayer" eq "TRUE"
        echo "Cannot QUIT what you have not started!"
        skip EXIT
    else
        echo "Quitting EdPlayer 2.x!  ':-("
        telled KILL
        setenv EPlayer FALSE
        skip EXIT
    endif
endif

;* HIDDEN <DEFAULT>
lab JBDEF
echo "Starting EdPlayer 2.x in background."
runback >NIL: $EPJ -h


;** FINISH UP AND SPLIT..
lab PORT
wport EDPLAYER
if {Option} eq "-d"
    if not "{NumSongs}" eq ""
        rx JukeBox.rexx {DirName} {NumSongs}
    else
        isnum {DirName}
        if not warn
            rx JukeBox.rexx -DEF {DirName}
        else
            rx JukeBox.rexx {DirName}
        endif
    endif
else
rx JukeBox.rexx {DirName} {NumSongs}
endif

lab EXIT
