1$ Verif = F$Verify(0)
2$ ! OpenVMS command file to emulate behavior of:
3$ !
4$ !      Appending a string to the end of a new or existing file
5$ !
6$ OPEN="OPEN"
7$ WRITE="WRITE"
8$ CLOSE="CLOSE"
9$ IF F$SEARCH("''P1'") .EQS. "" THEN OPEN/WRITE TEXT_FILE 'P1'
10$ IF F$SEARCH("''P1'") .NES. "" THEN OPEN/APPEND TEXT_FILE 'P1'
11$ IF P2 .NES. "" THEN WRITE TEXT_FILE "''P2'"
12$ IF P3 .NES. "" THEN WRITE TEXT_FILE "''P3'"
13$ IF P4 .NES. "" THEN WRITE TEXT_FILE "''P4'"
14$ IF P5 .NES. "" THEN WRITE TEXT_FILE "''P5'"
15$ IF P6 .NES. "" THEN WRITE TEXT_FILE "''P6'"
16$ IF P7 .NES. "" THEN WRITE TEXT_FILE "''P7'"
17$ IF P8 .NES. "" THEN WRITE TEXT_FILE "''P8'"
18$ CLOSE TEXT_FILE
19$ xxx = F$Verify(Verif)
20