.key wplbase/a,line/a
.bra [
.ket ]
Rx "exit show('p',RFH[line])"
if ${RC} NOT EQ 0
    Echo "Closing RFH[line]"
    rx "Address RFH[line] RFHEXIT"
    wait 5 SEC
endif
Echo "Loading RFH Port:RFH[line]"
IF EXISTS "RPDIR:RFH" 
echo "Loading compiled version"
run >NIL: RFH [wplbase] [line]
ELSE 
run >NIL: Rx mail:rexx/RFH [wplbase] [line]
ENDIF
