Q   ql $p

U ! if $t=?q?;$!sys:uf $p $d$u:;else;$!sys:uncr $p $d$u:;fi

S ! $!sfa $p $" SFA Options (/o,o.. o=ARC,-ARC,R/O,R/W,SYS,DIR): "
K ! $d$u:;$!crunch $f $"Destination directory (DU:) -- ";$h:
B   $d$u:;crunch $f $"Destination directory (DU:) -- ";sfa $f /arc;$h:

M ! /move $p $"Destination directory for move: "

X ! $d$u:;:$n $" Command Tail: ";$h:
Z ! $d$u:;$" Command to perform on file: " $f $" Tail: ";$h:
0 ! $"Enter ZFILER macro script: "
#		   SAMPLE ZFILER MACROS FOR TCJ

0. on-line macro	A. set Archive bit		N. NULU
1. LPUT			B. Backup (cr/sfa)		O.
2. Z80ASM to COM	C. CRC				P. Protect
3. Z80ASM to REL	D. Date display			Q. QL
4. Compare Files	E. Edit				R.
5.			F.				S. SFA
6.			G.				T. Type
7.			H.				U. Uncompress
8.			I.				V. VLU
9.			J.				W.
			K. Krunch			X. eXecute
			L. LDIR				Y.
			M. Move				Z. run command

$!  ZEX 'GO'		$D  DRIVE		$P  DU:FN.FT	$F  FN.FT
$".."  PROMPT		$U  USER		$N  FN		$T  FT
$'..'  PROMPT		$H  HOME

                               