/* Open a document in Apdf. If Apdf is already running, */
/* use that copy. */

OPTIONS RESULTS
PARSE ARG doc

IF ~SHOW('P','APDF.1') THEN DO
  ADDRESS COMMAND
  'RUN Apdf "' || doc || '"'
END
ELSE DO
  ADDRESS 'APDF.1'
  'OPEN "' || doc || '"'
END