_____________________________________________________________________ DEF DEFBOX Write a string of options - including do loops. Give the file with the command string any name eg. FIT. Then to run the string type #STRING_NAME. eg. #FIT. ______________________________________________________________________ EXAMPLE: ___ A file FIT is created. TYPE OPTIE 17-OCT-1981 10:11:18.52 >>>def OPTION def DEFBOX, VERSION 1 TYPE BOX NAME NAME=fit TYPE COMMAND LINE (C/R to end) COMMAND=.R9 TYPE COMMAND LINE (C/R to end) COMMAND=DO($=1.6).SH TYPE COMMAND LINE (C/R to end) COMMAND=DO($=4:6,&=1:3).DI TYPE COMMAND LINE (C/R to end) COMMAND=DO($=4:6,&=1:3).RS TYPE COMMAND LINE (C/R to end) COMMAND=.R9 TYPE COMMAND LINE (C/R to end) COMMAND=.FL TYPE COMMAND LINE (C/R to end) COMMAND= NIL ___________________________________________________________________ The created file looks like: - FIT.BOX .R9 DO($=1.6).SH DO($=4:6,&=1:3).DI DO($=4:6,&=1:3).RS .R9 .FL _____________________________________________________________________ And is run thus: TYPE OPTIE 17-OCT-1981 11:33:47.53 >>>#FIT >>> .R9 OPTION .R9 ROTAT90, VERSION 1 OPEN INPUT FILE - To be rotated FILI=R92ADD There are 6 maps in the file Reading from the file 2040 rows of 69 pixels in R4 format OPEN NEW FILE FOR ROTATED MAPS NMAPS= 1 NPLNS= 1 NROWS= 69 NELS= 2040 FILO=ADD2 Writing to an existing file 69 rows of 2040 pixels in R4 format MAPI=4:6 MAPO=4:6 SAME=N >>> DO($=1:6).SH OPTION DO $=1:6 &= DO LOOP: $= 1:60 &= 1:60 OPTION .SH SHUFFLE, VERSION 1 OPEN FILE TO BE SHUFFLED FILI=ADD2 There are 7 maps in the file Reading from the file 69 rows of 2040 pixels in R4 format OPEN OUTPUT FILE (can be same as FILI) FILO=FLATOUT Writing to an existing file 1 rows of 2040 pixels in R4 format HEAD=N MAPI=$ FACM=1. MAPO=$ ROWI=23:25 33:35 43:45 AND THEIR (+ve or -ve) SCALING FACTORS (def = +1.0) etc etc ______________________________________________________________________