LOG $1
ERASE $0.T
RUN VFRAME $0/SV/N
SVCPY =$0.LST
RUN VFRAME $0/N
PRINT $0.LST/D/NOH/NOB/FF
ERASE $0.PIC,$0.CTL,$0.DO