!MACRO DEBUG.TE
 --------------


GERSON GROSFELD
IMAGE PROCESSING UNIT, DCBD
NATIONAL CANCER INSTITUTE
BETHESDA, MD. 20014

3 OCTOBER 1975

PURPOSE
-------
TO ENABLE DUBUGGING CODE IN A FORTRAN II PROGRAM BY
STRIPPING THE "C@" FROM THE FRONT OF EACH LINE OF THAT CODE.


OUTLINE
-------
[0.0] INITIALIZE
STANDARD TECO PREAMBLE: SEE DEC OS/8 HANDBOOK PG. 1-70

[1.0] OPEN FILE (EDIT BACKUP)
THE FILE NAME IS THE SECOND ARGUEMENT OF THE "MUNG" COMMAND
(THE FIRST BEING THIS MACRO) AND IS ASSUMED TO CONTAIN THE
PROPER TAGS AROUND THE CODE TO BE ENABLED, I.E. THE CODE
IS PRECEEDED WITH A COMMENT LINE CONTAINING AT LEAST ONE
ASTERISK FOLLOWED (NO SPACES) BY THE WORD "DEBUG", AND THE
CODE IS FOLLOWED BY A COMMENT LINE CONTAINING AT LEAST THREE
ASTERISKS IN A ROW.

[2.0] SEARCH FOR THE "C@" CHARACTERS.
	IF NOT FOUND, EXIT;
	IF FOUND, STRIP THEM FROM THE LINE AND CONTINUE




PROGRAM
-------
[0.0]
!HX1HKGYJ2SDEV:-4DG1J2SSTART!0,.KHX1M1!

[1.0]
START!EBDEV:Y!

[2.0]
!<:NC@"EEX'-2D>!

END!