Metropoli BBS
VIEWER: jaz MODE: TEXT (ASCII)
.key address
.def address ${JAZBOSS}
Assign JAZ: ""
Cd JAZ:
IF NOT EXISTS JAZ:JAZ.WPL
Echo "JAZ must be run from the same directory where Jaz.wpl resides"
QUIT
ENDIF
IF <address> EQ "PANEL"
ECHO "Loading JAZ Control Panel"
SKIP panel
ENDIF 
IF NOT EXISTS JAZ:jaz.x
Echo "JAZ is not configured yet"
SKIP panel
ENDIF
Echo "Calling <address>"
SetEnv calling <address>
Assign XFERQ: T:
LoadLib LIBS:rexxsupport.library
LoadLib libs/xferq.library
LoadLib libs/xprzedzap.library
sys:rexxc/rxlib rexxsupport.library 0 -30 0
sys:rexxc/rxlib xferq.library 0 -30 0
rx "if ~show('p','LOGPROC') then address COMMAND 'Run >NIL: JAZ:LogProc'"
LaunchWPL jaz jaz:jaz.wpl jaz jaz!startup 0 30000
QUIT
LAB PANEL
Assign JAZ: ""
LoadLib libs/req.library
run >nil: Cliva jaz.p
QUIT
[ RETURN TO DIRECTORY ]