$ IF P1 .EQS. "" THEN WRITE SYS$OUTPUT "[0m[H[2J[Fpaint version 3.12]"
$ IF P1 .EQS. "" THEN INQUIRE P1 "Filename"
$ PID := 'F$GETJPI("","PID")'
$
$ OPEN/WRITE SUBCOM 'PID'.COM
$ WRITE SUBCOM "$ ASSIGN/USER_MODE ''PID'SC1.TMP SC1"
$ WRITE SUBCOM "$ ASSIGN/USER_MODE ''PID'SC2.TMP SC2"
$ WRITE SUBCOM "$ ASSIGN/USER_MODE ''PID'NAM.TMP NAM"
$ WRITE SUBCOM "$ RUN DUA1:[ALIENS.RESEARCH.SKUNK.FPAINT]MAKSCR"
$ WRITE SUBCOM "''P1'"
$ WRITE SUBCOM "$ ASSIGN/USER_MODE ''PID'NAM.TMP NAM"
$ WRITE SUBCOM "$ RUN DUA1:[ALIENS.RESEARCH.SKUNK.FPAINT]BLDSCR"
$ WRITE SUBCOM "$ DEL ''PID'.COM.*"
$ CLOSE SUBCOM
$ @'PID'.COM
  