00001	!								&
	!		V A X F I L M O V E				&
	!								$
00010	ON ERROR GOTO 9000
00015	EXTERNAL LONG FUNCTION LIB$SPAWN				&
\	DECLARE  LONG ISTAT
00020	OPEN "QUEWRK.ZZZ" FOR INPUT AS FILE 1%
00030	OPEN "[.COM]MOVFILE.COM" FOR OUTPUT AS FILE 2%
00100	WHILE -1%
00110	INPUT LINE #1%, QUELINE$
00115	QUELINE$ = EDIT$(QUELINE$,4%+128%)
00120	GOTO 110 IF LEN(QUELINE$) = 0%
00130	X% = INSTR(1%,QUELINE$,"$!DELETE ")				&
\	GOTO 110 IF X% = 0%
00140	FILENAME$ = RIGHT(QUELINE$,9%)					&
\	FILENAME$ = EDIT$(FILENAME$,2%)		! Remove all spaces
00160	PRINT #2%, "$ COPY "; FILENAME$;" [.PRINT]/LOG"
00161	PRINT #2%, "$ DELETE ";FILENAME$;";*"
00165	LINES% = LINES% + 1%
00198	NEXT
00899	!								&
	!		C L O S E   F I L E S				&
	!								$
00900	CLOSE 1,2
00910	IF LINES% = 0%							&
		THEN							&
		KILL "[.COM]MOVFILE.COM"				&
\		PRINT "Nothing to print"				&
\		GOTO 32767
00920	ISTAT = LIB$SPAWN("@[.COM]MOVFILE")
00998	GOTO 32767
08999	!								&
	!		E R R O R   T R A P S				&
	!								$
09000	IF ERL = 110 THEN RESUME 900
09098	RESUME 32500
32499	!								&
	!		E R R O R   M E S S A G E S			&
	!								$
32500	E% = ERR							&
\	E$ = SYS(CHR$(6%) + CHR$(9%) + CHR$(E%))			&
\	E$ = CVT$$(RIGHT(E$,3%),4%)					&
\	E$ = E$ + " on line" + NUM$(ERL)
32590	PRINT								&
\	PRINT "**************************************************"	&
\	PRINT "*                                                *"	&
\	PRINT "*                  JOB ABORTED                   *"	&
\	PRINT "*                                                *"	&
\	PRINT "*"; E$; TAB(49%);                               "*"	&
\	PRINT "*                                                *"	&
\	PRINT "**************************************************"
32767	END
