/* disconnect prog */
address command
ARG filename
'echo >ram:mdr_video_data' filename
'echo >ram:mdr_aweb_input_status.html' '"
"'
ports = SHOW('P')
PARSE VAR ports dummy 'AWEB.' portnr .
ADDRESS VALUE 'AWEB.' || portnr
OPTIONS RESULTS
SAY 'AWEB PORT NUMBER =' portnr
IF (portnr >0) THEN DO
'GET ACTIVEPORT'
ADDRESS VALUE RESULT
DO i=1 to 1000
'GET URL var url'
IF URL='file://localhost/ram:mdr_aweb_input_status.html' then LEAVE
'GO 1 BACK'
END i
IF i>1000 THEN 'OPEN URL file://localhost/ram:mdr_aweb_input_status.html RELOAD'
'RELOAD'
'SCREENTOFRONT'
END
EXIT