* KERMIT - LOADS AND RUNS PE-KERMIT HOST PROGRAM
* P#1 = DEBUG FLAG -- LOGS KERMIT SESSION TO KERMIT.LOG
$JOB
LO KERMIT/S
AS 0,CON:;AS 1,CON:
$IFX SYST:KERMIT.INI/S;AS 2,SYST:KERMIT.INI/S;$ENDC
$IFX SYST:KERMIT.HLP/S;AS 14,SYST:KERMIT.HLP/S;$ENDC
CLRTRM
$W KERMIT LOADING> PLEASE WAIT ....
XAL KERMIT.DIR,IN,20
D F,-.-,KERMIT.DIR
AS 3,KERMIT.DIR
ENA TYPE
PRE PROMPT
PRE ETM
$IFNNULL @1
XAL KERMIT.LOG,IN
LOG KERMIT.LOG
$ENDC
START
$TERMJOB
LOG
XDE KERMIT.DIR
PRE TYPE
ENA PROMPT
ENA ETM
$EXIT