| SUB 2 | [Pairwise subtract series of real or complex images] |
| ADD | [Add images] |
| AR | [Arithmetic operation] |
.SUBTRACTED FILE: PIC002
[Enter the name of the file to be subtracted from the
first file. Can be same as the first input file.]
.OUTPUT FILE: PIC999
[Enter the name of the output file. Can be same as
either input file.]
[PIC002 is subtracted from PIC001, and the result is kept in PIC999. PIC003 is then subtracted from the new PIC001, and the result is again put into PIC999.]
NOTES
[num] = 1
CP ; Create constant value file
inp{***[num]} ; First file (input)
out999 ; File name (output)
DO [num]=2,4 ; Creates running subtraction
SUB ; Add files operation
out999 ; First file (input)
inp{***[num]} ; Second file (input)
out999 ; Resulting file (output)
* ; Put asterick here
ENDDO