! 
	Program:	REFORMAT.TEC
	Author:		Robin Miller
	Date:		September 8, 1981

	Teco macro to reformat log files created by VAXNET.	!

@^A%
REFORMAT Version 2.1 - Reformats log files created by VAXNET

%
@EI%% Z"G @O!GO! '
!FILENAME! @^U1%Enter name of log file (.LOG)% -1U2 M0 :Q4"E @O!FILENAME! ' G4
!GO! J @:S%.%"U ZJ @I%.LOG% ' HX4 HK
@:EB/Q4/"U @^A%File "% :G4 @^A%" could not be accessed.
% @O!FILENAME! '
13@^UA// !	<CR> !
10@^UB// !	<LF> !
8@^UC// !	Backspace (BS) !
0@^UD// !	NULL !
127@^UE// !	Delete !
< 25<1:A "T ZJ 12@I// '>
! Remove DELETE characters (usually last byte of messages). !
J <@FS/QE//;>
! Remove all NULLS !
J <@FS/QD//;>
! Change <LF><CR> to <CR><LF> !
J <@FS/QBQA/
/;>
! Remove multiple <CR> !
J <@S/QAQA/; 2R D>
! Change <CR><LF><LF> to <CR><LF><CR><LF> !
J <@S/QAQBQB/; R 13@I// R>
! Change <CR><LF><CR> to <CR><LF>. !
J <@S/QAQBQAQB/; R -D>
! If <BS><SP><BS> found presume rubout on CRT and delete !
J <@S/QC QC/; -4D>
! Remove BELLS, Runoff no like these. !
! J <@FS///;> !
^N^_; ZJ -L B,.PW B,.K F<>
@^A%Reformatting complete ...
%
EX