!MACRO CIF.TE ------------ GERSON GROSFELD IMAGE PROCESSING UNIT, DCBD NATIONAL CANCER INSTITUTE BETHESDA, MD. 20014 3 OCTOBER 1975 PURPOSE ------- TO LOCATE AND PRINT OUT ANY CIF INSTRUCTIONS IN THE THE CODE "62X2" IS SEARCHED FOR, WHERE X IS ANY VALUE. THE INPUT FILE IS NOT ALTERED. OUTLINE ------- [0.0] INITIALIZE STANDARD TECO PREAMBLE: SEE DEC OS/8 HANDBOOK PG. 1-70 [1.0] OPEN FILE (READ ONLY) THE FILE NAME IS THE SECOND ARGUEMENT OF THE "MUNG" COMMAND (THE FIRST BEING THIS MACRO) [2.0] SEARCH FOR "62X2" IF FOUND, PRINT PRECEEDING 10 LINES (AND TWO CR/LF'S) IF NOT, EXIT PROGRAM ------- [0.0] !HX1HKGYJ2SDEV:-4DG1J2SSTART!0,.KHX1M1! [1.0] START!ERDEV:Y! [2.0] !:_622"ENONE FOUND EX'<0LL-11T:_622"E DONE EX' >! END !