_____________________________________________________________________
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
______________________________________________________________________