1$ ! This command file reads DOTEST. and executes the GRACE commands.
2$ !
3$ XMGRACE = XMGRACE + " -noask"
4$ !
5$ ON CONTROL_Y THEN GOTO DONE
6$ ON ERROR THEN GOTO DONE
7$ OPEN IN DOTEST.
8$LOOP:
9$ READ/END=DONE IN REC
10$ IF (F$EXTRACT (0, 6, REC) .EQS. "$GRACE")
11$ THEN
12$   REDIR = F$ELEMENT (1, "<", REC)
13$   IF (REDIR .NES. "<")
14$   THEN
15$     WRITE SYS$OUTPUT "$ DEFINE/USER SYS$INPUT ''REDIR'"
16$     DEFINE/USER SYS$INPUT 'REDIR'
17$     REC = F$ELEMENT (0, "<", REC)
18$   ENDIF
19$   REC = "XM" + (REC - "$")
20$   WRITE SYS$OUTPUT "$ ", REC
21$   'REC'
22$ ENDIF
23$ GOTO LOOP
24$DONE:
25$ CLOSE IN
26$ EXIT
27