/*rx register data
*/
ADDRESS COMMAND
ARG filename
'echo >ram:mdr_register_data' filename
'echo >ram:mdr_aweb_input_register.html' '"MDR Register infoRegistering - Wait!"'
ports = SHOW('P')
PARSE VAR ports dummy 'AWEB.' portnr .
ADDRESS VALUE 'AWEB.' || portnr
OPTIONS RESULTS
SAY 'AWEB PORT NUMBER =' portnr
IF (portnr <1) THEN DO
CALL OPEN out,"ram:mdrawebcomms", write
CALL WRITELN out, 'WARNING! AWEB not running'
CALL CLOSE out
END
IF (portnr >0) THEN DO
'GET ACTIVEPORT'
ADDRESS VALUE RESULT
'RELOAD'
'WINDOWTOFRONT'
'SCREENTOFRONT'
CALL OPEN out,"ram:mdrawebcomms", write
CALL WRITELN out, 'WARNING! AWEB is running'
CALL CLOSE out
END
EXIT