OpenVMS

$ WRITE SYS$COMMAND " "
$ WRITE SYS$COMMAND "Femsys Ltd Immediate Plot Facility"
$ WRITE SYS$COMMAND "==================================="
$ WRITE SYS$COMMAND " "
$ ! Parameters:
$ ! ----------
$ !
$ !   P1 - The name of the file to be plotted
$ !   P2 - The format of the plotfile
$ !        0 - screendump
$ !        1 - Neutral
$ !        2 - Postscript Mono
$ !        3 - Interleaf
$ !        4 - Postscript Colour
$ !        5 - Laserjet
$ !        6 - Paintjet
$ !        7 - HPGL
$ !        8 - HPGL/2
$ !        9 - Deskjet
$ !       10 - CGM
$ !       11 - TIFF
$ !
$ ! Description
$ ! -----------
$ !
$ !   Only screen dump and Postscript files will be printed.
$ !
$ WRITE SYS$COMMAND "Your plotfile is called ``P1`"
$ IF P2 .EQS. "0" THEN GOTO SD
$ IF P2 .EQS. "1" THEN GOTO FN
$ IF P2 .EQS. "2" THEN GOTO PS
$ IF P2 .EQS. "3" THEN GOTO IL
$ WRITE SYS$COMMAND "File type not supported"
$ GOTO NOP
$ !
$ SD:
$ WRITE SYS$COMMAND "and it is a screen dump file"
$ RENDER ``P1`
$ GOTO FINISH
$ !
$ FN:
$ WRITE SYS$COMMAND "and it is in Femview neutral format"
$ GOTO NOP
$ !
$ PS:
$ WRITE SYS$COMMAND "and it is in Postscript format"
$ PRINT/QUE=POSTSCRIPT ``P1`
$ GOTO FINISH
$ !
$ IL:
$ WRITE SYS$COMMAND "and it is in Interleaf format"
$ GOTO NOP
$ NOP:
$ WRITE SYS$COMMAND "Plotfile will not be printed"
$ FINISH: