C @(#)syskeys.datorg	17.1.1.4 (ESO-DMD) 02/25/02 17:52:08
C +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
C
C  initial keyword file `syskeys.datorg' for Standard Interfaces
C  K. Banse  
C  ESO - IPG, Garching
C 
C  020215	last modif
C
C +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
C
C SECT./MID$MODE				no. 0
C keyword MID$MODE: 10 integer values
C (1) spare 
C (2) = 1, display all keywords as they are read in during INMIDAS
C     = 0, no display
C (3) switch to indicate interactive(=0) or batch(=1) mode (from inmidas -j ..)
C (4) = 0, use single quotes like {, } (default)
C     = 1, use single quotes as normal characters
C (5) = 1 , if -noh option in `inmidas' is used, else = 0
C (6) spare
C (7) current program level, necessary for local key business...
C (8) trace flag (currently only for MID_LOG)
C (9) switch for system status,
C     = -1 before startup, = 0 after inmidas, > 0 after gomidas
C (10) spare
C SECT./END_OF_KEY
MID$MODE/I/10/R
0,0,0,0,0,0,0,0,-1,0
C  
C SECT./ERROR					no. 1
C keyword ERROR: 10 integer values
C (1) print level: 0 = reduced error display, 1 = full error display
C (2) user level: 1 = novice (default), 0 = average user, 2 = expert
C (3) error flag for MIDAS monitor: =  0 stop on errors (default)
C                                   = -1 continue on all errors
C                                   =  n (n>0) continue on error #n
C (4) error_display_flag: = 1, display errors
C                         = 0, no display
C (5) user mode: 0 = show nothing,
C                1 = show parameters 
C (6) save ERROR(3) in some cases
C (7) error flag in batch mode: = 0 stop Midas if an error (the default)
C                               = 1 continue in interactive mode
C (8) error count per session (Monitor)
C (9) error count per session (Applications)
C (10) spare
C SECT./END_OF_KEY
ERROR/I/10/R
0,1,0,1,0,0,0,0,0,0
C  
C SECT./MID$SYS					no. 2
C keyword MID$SYS to hold info related to the current host system
C  (1:20) name of host computer/opsystem 
C (21:30) name of debugger (for UNIX systems)
C (31:40) name of editor to use with REPORT/PROBLEM (for Unix systems)
C REMARK: computer/opsystem & debugger must be next line to MID$SYS. 
C        No commented lines in between.
C SECT./END_OF_KEY
MID$SYS/C/40/R
VAX/VMS                       EDIT      
C SUN/SUNOS           $dbx      $vi       
C Stellar/Stellix     $dbx      $vi       
C mVAX/ULTRIX         $dbx      $vi       
C HP/UX               $xdb      $vi      
C BULL/SysV           $sdb      $vi      
C PC/SCO              $sdb      $vi       
C  
C SECT./LOG					no. 3
C keyword LOG: 12 integer values
C (1) normal log code, = 0 - log nothing, = 1 - log terminal I/O
C                      = 2 - log also CPU time (put time also into AUX_MODE(2))
C (2) spare
C (3) if set, log also HELP text
C (4) = 0 default; = 1 STTPUT only logs; = 2 STTPUT does nothing at all
C (5) page count of logfile
C (6) internal line-on-page counter
C (7) no. of lines per printer page (currently set to 60)
C (8) permanent logflag
C (9) printflag, = 0 no print, = 1 yes print output instead of logging it
C (10) no. of columns in window/terminal
C (11) no. of lines in window/terminal
C (12) logflag when redirecting output to Null (Midas_command >Null)
C      = 0 output not shown but logged; = -1 output not shown and not logged
C SECT./END_OF_KEY
LOG/I/12/R
1,1,0,0,0,0,60,1,0,24,80,0
C 
C SECT./MONITPAR				no. 4
C  keyword MONITPAR: 20 integer values
C  holds parameters related to the MIDAS monitor
C  (1) = current max. no. of commands
C  (2) = current max. no. of qualifiers
C  (3) = current max. no. of global keywords
C  (4) = current max. no. of local keywords
C  (5-7) spare
C  (8) = current size of code space for MIDAS procedures
C  (9) spare
C  (10) = current lock number
C  (11) = debug flag for procedure code optimization, 
C         if set (= 1), save input, result code in input/output.cprg
C  (12) initial no. of descr entries in descr. directory
C  (13) initial space (no. of bytes) for descr data
C  (14) create SELIDX descr. via SELECT/TABLE: 1 = create, 0 = don't create
C  (15-19) spare
C  (20) no. of pixels of square real frame which could be mapped in one go
C SECT./END_OF_KEY
MONITPAR/I/20/R
0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,800
C
C SECT./AUX_MODE				no. 5
C keyword AUX_MODE: 20 integer values
C (1) 1 = Portable MIDAS under VMS
C     2 = Portable MIDAS under UNIX 
C (2) CPU time in ten-of-milliseconds (only if LOG(1) = 2)
C (3) process id of Midas monitor
C (4) descriptor_copy flag: if set, copy all descriptors from input to result
C (5) double_quote flag: if set, do not strip '"' from keyword input
C (6) flag used for internal translation (starting block in CODE.SAV)
C (7) flag for INQUIRE/KEYWORD: if value entered, this flag is set...
C (8) flag for TermWindows: set by the MIDAS monitor according to the
C                           variable TERMWIN (which is "yes" or "no")
C (9) clear_overlay_channel on program start flag: 1= yes, 0 = no
C (10) = flag for new (efficient) or old descr. format: 456 = yes, 123 = no
C (11) flag for compressed files - if set, compressed frames (with .Z or .gz 
C      ending) are left uncompressed after processing in Midas, else they
C      are compressed again
C (12) separate_dummy_files_flag: if set (= 123) &a -> middummXYa.bdf
C				          else   &a -> middumma.bdf
C (13) flag for creating FITS or MIDAS frames
C      1 = FITS, 0 = Midas (default)
C (14) flag for updating FITS frames, 1 = Yes, 0 = No (default), 
C (15) Unix flag: 0 = Solaris/HP, 1 = Linux, 2 = other Unix
C (16) flag for ignoring ESO.xyz descriptors, 0 = No (default), 1 = Yes
C (17) return status from host command, Bourne shell (Unix) / DCL (VMS)
C (18 - 20) spare
C SECT./END_OF_KEY
AUX_MODE/I/20/R
1,0,0,1,0,0,0,1,0,456,0,0,0,0,0,0,0,0,0,0
C  
C SECT./CATALINF				no. 6
C keyword CATALINF: 11 integer values
C (1) offset for Image catalog
C (2) offset for ASCII file catalog
C (3) offset for Table catalog
C (4) offset for Fit file catalog
C (5) spare
C (6) 1 or 0, if Image Catalog is enabled or not
C (7) 1 or 0, if ASCII file Catalog is enabled or not
C (8) 1 or 0, if Table Catalog is enabled or not
C (9) 1 or 0, if FitFile Catalog is enabled or not
C (10) spare 
C (11) length per catalog in keyword CATALOGS (= 80 currently)
C SECT./END_OF_KEY
CATALINF/I/11/R   
1,161,81,241,-1,0,0,0,0,-1,80
C   
C SECT./CATALOGS				no. 7
C keyword CATALOGS: 320 characters
C names of currently active catalogs
C  (1:80) for Images
C (81:160) for Tables
C (161:240) for ASCII Files
C (241:320) for Fit Files
C SECT./END_OF_KEY
CATALOGS/C/320/R
                                                                              
C 
C SECT./MID$CMND				no. 8
C keyword MID$CMND: 20 characters
C MID$CMND(1:6) = command
C MID$CMND(11:14) = qualifier
C SECT./END_OF_KEY
MID$CMND/C/20/R
WRITE     DESC      
C 
C SECT./PROGSTAT				no. 9
C keyword PROGSTAT: 6 integer values
C (1) exit status of application programs, used internally in monitor
C     = 0 everything o.k. - else error no.
C     = 999 if Cntrl/C interrupt while application was running
C     = 998 if application was timed out
C     = 888 if application died for any other host system reason
C (2) error source  = 1, error from MIDAS interface lib
C                   = 2, error from host system
C                   = 10, error from MIDAS monitor
C                   = 100, error from application program
C  continuation of procedure depends on key ERROR(3)
C (3) exit status for individual applications (not modified/reset by MIDAS!)
C (4) error code from host system, if that led to Midas error
C (5) return status from individual Midas commands
C (6) same as PROGSTAT(1) when used remotely
C SECT./END_OF_KEY
PROGSTAT/I/6/R
0,0,0,0,0,0
C  
C SECT./PCOUNT					no. 10
C keyword PCOUNT: 9 integer values
C holds no. of actual parameters passed to a MIDAS procedure
C and in element 2 - 9 the actual lengths of P1 - P8
C SECT./END_OF_KEY
PCOUNT/I/9/R
0,0,0,0,0,0,0,0,0
C  
C SECT./PARSTAT					no. 11
C keyword PARSTAT: 8 integer values
C PARSTAT(i) is 1 or 0 , depending upon if the actual parameter Pi 
C conforms to the type specified in the DEFINE/PARAM command
C SECT./END_OF_KEY
PARSTAT/I/8/R
0,0,0,0,0,0,0,0
C  
C SECT./P1					no. 12
C keyword P1: 150 character values
C holds 1. parameter passed to a MIDAS procedure
C SECT./END_OF_KEY
P1/C/150/R
                                                                                   
C  
C SECT./P2					no. 13
C keyword P2: 150 character values
C holds 2. parameter passed to a MIDAS procedure
C SECT./END_OF_KEY
P2/C/150/R
                                                                                   
C  
C SECT./P3					no. 14
C keyword P3: 150 character values
C holds 3. parameter passed to a MIDAS procedure
C SECT./END_OF_KEY
P3/C/150/R
                                                                                   
C  
C SECT./P4					no. 15
C keyword P4: 150 character values
C holds 4. parameter passed to a MIDAS procedure
C SECT./END_OF_KEY
P4/C/150/R
                                                                                   
C  
C SECT./P5					no. 16
C keyword P5: 150 character values
C holds 5. parameter passed to a MIDAS procedure
C SECT./END_OF_KEY
P5/C/150/R
                                                                                   
C  
C SECT./P6					no. 17
C keyword P6: 150 character values
C holds 6. parameter passed to a MIDAS procedure
C SECT./END_OF_KEY
P6/C/150/R
                                                                                   
C  
C SECT./P7					no. 18
C keyword P7: 150 character values
C holds 7. parameter passed to a MIDAS procedure
C SECT./END_OF_KEY
P7/C/150/R
                                                                                   
C  
C SECT./P8					no. 19
C keyword P8: 150 character values
C holds 8. parameter passed to a MIDAS procedure
C SECT./END_OF_KEY
P8/C/150/R
                                                                                   
C  
C SECT./Q1					no. 20
C keyword Q1: 60 character values
C holds 1. return parameter passed to calling procedure
C SECT./END_OF_KEY
Q1/C/60/R
                                                                                   
C  
C SECT./Q2					no. 21
C keyword Q2: 60 character values
C holds 2. return parameter passed to calling procedure
C SECT./END_OF_KEY
Q2/C/60/R
                                                                                   
C  
C SECT./Q3					no. 22
C keyword Q3: 60 character values
C holds 3. return parameter passed to calling procedure
C SECT./END_OF_KEY
Q3/C/60/R
                                                                                   
C  
C SECT./MID$SESS				no. 23
C keyword MID$SESS: 25 characters - describes the user working station:
C (1:5) type of image display station
C (6:6) current display id (X11 only)
C (7:7) current graphics id (X11 only)
C (8:10) spare 
C (11:12) unit of working station - A0,A1,... 
C (13:14) spare 
C (15:15) P for parallel Midas, else a blank
C (16:20) current MIDAS version 
C (21:27) current patch level
C (28:30) spare
C SECT./END_OF_KEY
MID$SESS/C/30/R
NULL --   XX   02FEBpl1.1  xxx
C
C SECT./APPLIC					no. 24
C keyword APPLIC: 60 characters
C (1:1) either `r' when the application is running
C           or `t' when the application is terminated
C           or `x' when the application aborted on an error
C (2:2) a blank
C (3:60) complete name of current application program
C SECT./END_OF_KEY
APPLIC/C/60/R
r MID_EXE:computa                                           
C  
C SECT./MID$PRNT				no. 25
C keyword MID$PRNT: 102 characters
C MIDAS output stream for printing
C (1:2) - type of device, colon
C (3:52) -  DCL procedure to print on specific device (VMS)
C (3:52) -  specific device name (Unix)
C (53:102) -  save MID$PRNT(3:52) here
C SECT./END_OF_KEY
MID$PRNT/C/102/R
P:                                                          
C  
C SECT./MID$LINE				no. 26
C keyword MID$LINE: 256 characters
C the complete MIDAS command line is stored here for separate user parsing
C SECT./END_OF_KEY
MID$LINE/C/256/R
   
C
C SECT./OUT$FILE				no. 27
C keyword OUT$FILE: 64 characters
C SECT./END_OF_KEY
OUT$FILE/C/64/R
 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
C 
C SECT./OUT$FLAG				no. 28
C keyword OUT$FLAG: 4 integer values
C (1) = level where specified first
C (2) = 0 or 1, for `file_only' or `file+terminal' output
C (3) = file identifier returned from `osaopen'
C (4) = -1 or -2, for `new' open (>) or `append' open (>>)
C SECT./END_OF_KEY
OUT$FLAG/I/4/R
99,0,-1,-1
C
C SECT./DATAPATH                                 no. 29
C keyword DATAPATH: 320 characters
C holds up to 4 data directory paths of 80 chars. each
DATAPATH/C/320/R
^                          ^
C
C SECT./SYSCOMS                                 no. 30
C keyword SYSCOMS: 60 characters
C holds specific Unix system commands (16 chars. per command)
C (1:20)  - the printing comnd for Postscript files, e.g. `lpr' or `lp'...
C (21:40)  - the printing comnd for ASCII files, e.g. `lpr' or `print'...
C (41:60) - spare
C SECT./END_OF_KEY
SYSCOMS/C/60/R
lpr -h -P           lpr -h -P           spare
C  
C SECT./MID$IN					no. 31
C keyword MID$IN: 20 characters
C MIDAS input stream for reading
C type of device, underscore char., specific device name + info
C SECT./END_OF_KEY
MID$IN/C/20/R
T_TTB5:
C  
C SECT./MID$PLOT
C keyword MID$PLOT: 40 characters
C hold name of the assign graphics device
C MID$PLOT(1:20)   = name of the device
C MID$PLOT(21:24)  = spool flag
C SECT./END_OF_KEY
MID$PLOT/C/40
G_GRAPH_TERM        FILE SPOOL__________
C
C SECT./MID$DISP				no. 32
C keyword MID$DISP: 20 characters
C MIDAS output stream for displaying images
C type of device, underscore, specific device name 
C SECT./END_OF_KEY
MID$DISP/C/20/R
A_                  
C  
C SECT./USER					no. 33
C keyword USER: 20 character values
C holds the current MIDAS user name
C SECT./END_OF_KEY
USER/C/20/R
A.S. TRONOMER        
C  
C SECT./MID$SPEC				no. 34
C keyword MID$SPEC to hold info if we work on MIDAS commands in special mode
C SECT./END_OF_KEY
MID$SPEC/C/60/R
NORM      
C
C SECT./MID$MAIL				no. 35
C keyword MID$MAIL: 40 characters
C mail address for reception of REPORT/PROBLEM stuff
C used in MID_PROC:report.prg
C SECT./END_OF_KEY
MID$MAIL/C/40/R
MIDAS                                   
C
C SECT./MID$INFO				no. 36
C keyword MID$INFO: 8 integer values
C to hold info related to keywords, descriptors, images, tables, ...
C currently only applicable to descriptors:
C (1) = type of descriptor (1,2,3,4 or 0, if not existing)
C (2) = no. of elements of descriptor 
C (3) = no. of bytes per element of descriptor 
C (4-8) = spare
C SECT./END_OF_KEY
MID$INFO/I/8/R
0,0,0,0,0,0,0,0
C
C SECT./MID$TYPES				no. 36a
C keyword MID$TYPES: 16 characters
C file type used when building file names for FITS files
C (1-8) for images
C (9-16) for tables
C SECT./END_OF_KEY
MID$TYPES/C/16/R
bdf     tbl     
C
C SECT./PIPE_PROC                               no. 36b
C keyword PIPE_PROC: 150 characters
C holds name of pipeline procedure directory (depends on instrument)
C SECT./END_OF_KEY
PIPE_PROC/C/150/R

C
C .................................................................
C end of reserved keywords ........................................
C .................................................................
C  
C SECT./DATTIM                                  no. 37
C keyword DATTIM holds the current time
C SECT./END_OF_KEY
DATTIM/C/40
MYTIME 
C  
C SECT./HISTORY					no. 38
C keyword HISTORY holds the command string as entered on the terminal
C SECT./END_OF_KEY
HISTORY/C/80
                                                                
C  
C SECT./IN_A					no. 39
C keyword IN_A to hold any input frame
C SECT./END_OF_KEY
IN_A/C/80
MYFILE
C  
C SECT./OUT_A					no. 40
C keyword OUT_A to hold any output frame
C SECT./END_OF_KEY
OUT_A/C/80
MYFILE
C  
C SECT./IN_B					no. 41
C keyword IN_B to hold any input frame
C SECT./END_OF_KEY
IN_B/C/80
MYFILE
C  
C SECT./OUT_B					no. 42
C keyword OUT_B to hold any output frame
C SECT./END_OF_KEY
OUT_B/C/80
MYFILE
C  
C SECT./INPUTC					no. 43
C keyword INPUTC for any character input
C SECT./END_OF_KEY
INPUTC/C/80
AAAAAAAAXXYYYYYYYYYYYYYYYYYYYY                                    
C  
C SECT./INPUTI					no. 44
C keyword INPUTI for any integer input
C SECT./END_OF_KEY
INPUTI/I/20
1,2,3,4,5,6,7,8,9,0,1,2,3,4,5,6,7,8,9,0
C  
C SECT./INPUTR					no. 45
C keyword INPUTR for any real input
C SECT./END_OF_KEY
INPUTR/R/20
0.,0.,0.,0.,0.,0.,0.,0.,0.,0.1
0.,0.,0.,0.,0.,0.,0.,0.,0.,0.
C  
C SECT./INPUTD					no. 46
C keyword INPUTD for any double precision input
C SECT./END_OF_KEY
INPUTD/D/20
1.,2.,3.,4.,5.,6.,7.,8.,9.,0.,1.,2.,3.,4.,5.,6.,7.,8.,9.,0.
C  
C SECT./OUTPUTC					no. 47
C keyword OUTPUTC for any character output
C SECT./END_OF_KEY
OUTPUTC/C/80
AAAAAAAAXXYYYYYYYYYYYYYYYYYYYY                                    
C  
C SECT./OUTPUTI					no. 48
C keyword OUTPUTI for any integer output
C SECT./END_OF_KEY
OUTPUTI/I/20
0,0,0,0,0,0,0,0,0,0
0,0,0,0,0,0,0,0,0,0
C  
C SECT./OUTPUTR					no. 49
C keyword OUTPUTR for any real output
C SECT./END_OF_KEY
OUTPUTR/R/20
0.,0.,0.,0.,0.,0.,0.,0.,0.,0.
0.,0.,0.,0.,0.,0.,0.,0.,0.,0.
C  
C SECT./OUTPUTD					no. 50
C keyword OUTPUTD for any double precision output
C SECT./END_OF_KEY
OUTPUTD/D/20
0.,0.,0.,0.,0.,0.,0.,0.,0.,0.
0.,0.,0.,0.,0.,0.,0.,0.,0.,0.
C  
C SECT./DEFAULT					no. 51
C keyword DEFAULT to signal default values
C 16 character flags of "Y" or "N" (1-8 for system use, 9-16 for general use)
C SECT./END_OF_KEY
DEFAULT/C/16
YYYYYYYYYYYYYYYYYY
C  
C SECT./ACTION					no. 52
C keyword ACTION to hold action flags
C 8 character flags
C SECT./END_OF_KEY
ACTION/C/8
XXXXXXXX
C 	
C SECT./NULL					no. 53
C keyword NULL: 3 real values
C (1) "undefined pixel" count, set by relevant application program
C (2) user "null value" to be used for undefined pixels 
C (3) test flag,
C     < 0, no testing
C     > 0, test data before "crucial" operations
C undefined pixels are e.g. pixels resulting from division by zero
C SECT./END_OF_KEY
NULL/R/3
0.,0.,1. 
C  
C SECT./IDIDEV					no. 54
C keyword IDIDEV = 50 integer values for Image Display (e.g. DeAnza IP8500)
C                  and graphics window (for X11) 
C (1) unit no. (-2 before start of IDIserver)
C (2,3) image display size in x,y 
C (4) image display depth in bits
C (5,6) spare
C (7) RGB flag (=0 for pseudo, =1 for RGB, =2 for PseudoOnDirectColor (RGBP),
C               =3 for PseudoOnTrueColor(RGBQ))
C (8) peripheral_flag, =0 for joystick, =1 for trackball
C (9) no. of graph segments (only XWindow, needed for refreshing the screen)
C (10) flag for alpha memory (=0 for no alpha memory connected, else = 99)
C (11,12) current size of memory channel in x,y
C (13) current depth of memory channel in bits
C (14) current overlay channel
C (15) current image channel
C (16) current last channel no. (counting from 0 on ...)
C (17) actuall size of LUTs (may be less than DAZDEVR(3)... )
C (18) type number for current Image Display,
C      = 0, ...,9  for peripheral display device (e.g. 0 used to be the DeAnza)
C      = 11  for X11 window system
C      = -1  for NULL device
C (19,20) size of aux. zoom window (only XWindow)
C (21) no of possible different LUTs (only XWindow)
C (22) init flag (1 = after initialize/display)
C (23) unit no. of connected zoom window
C (24) 1 = if window is opened, 2 if window is created + opened
C (25) unit no. of graphics window
C (26,27) size of aux. cursor window (only XWindow)
C (28) unit no. of connected cursor window
C (29-31) spare
C (32,33) graphic display size in x,y
C (34) graphic display depth in bits
C (35-38) spare
C (39) no. of graph segments (only XWindow, needed for refreshing the screen)
C (40) flag for alpha memory (=0 for no alpha memory connected, else = 99)
C (41,42) current size of graphics memory channel in x,y
C (43) current depth of graphics memory channel in bits
C (44-48) spare
C (49,50) optional size of hardcopy devices (for ASSIGN/DISPLAY)
C SECT./END_OF_KEY
IDIDEV/I/50
-2,512,512,8,0,0,0,0,10000,99,512,512,8,4,0,4,256,0,0,0,0,0,0,0,0,0,0,0,0,0
0,625,425,8,0,0,0,0,100000,0,625,425,8,0,0,0,0,0,0,0
C  
C SECT./CURSOR					no. 55
C integer keyword CURSOR holds x,y coordinates of the 2 cursors
C (1,2) x,y of cursor 0
C (3,4) x,y of cursor 1
C (5,6) form, color of cursor 0
C (7,8) form, color of cursor 1
C SECT./END_OF_KEY
CURSOR/I/8
0,0,0,0,-1,0,-1,0
C  
C SECT./DAZIN					no. 56
C keyword DAZIN holds input values for programs manipulating the ImageDisplay 
C 6 integer values:
C SECT./END_OF_KEY
DAZIN/I/6
0,0,0,0,0,0
C  
C SECT./DAZHOLD					no. 57
C keyword DAZHOLD for Display related input values needed by programs
C 20 integer values:
C (1) cursor no
C (2) cursor form (if = -1, disable cursor)
C (3) user split mode (0 = off, 1 = on)
C (4) split addresses(2), only used if user split mode = 1
C (6) zoom factors(2), values = 1,..,8
C (8) refscale flag
C (9) overlay_set flag
C (10) last referenced LUT section 
C (11) no. of memory boards per channel
C (12) delay in millisecs for cursor/joystick polling
C (13) channel to which overlay_ch. is connected, = -1 for unconnected overlay
C (14) joystick/trackball low_speed
C (15) joystick/trackball high_speed
C (16) ROI shape: 1 for rectangle, 2 for circle
C (17 - 20) spare
C SECT./END_OF_KEY
DAZHOLD/I/20
0,-1,0,255,255,1,1,0,1,0,1,100,-1,16,8,1,0,0,0,0
C  
C SECT./IDIMEMI					no. 58
C keyword IDIMEMI holds various (integer) info related to active memory channel 
C LOADDR, SSPX, SSPY, NSX, NSY, SFPX, SFPY, SCALX, SCALY, SCROLX, SCROLY,
C ZOOMX, ZOOMY, SOURCE, ITTNUM, DZDRAW, ZPLANE, spare, spare, spare
C SECT./END_OF_KEY
IDIMEMI/I/20
0,2,3,4,5,6,7,8,9,0,1,2,3,-1,0,0,1,1,0,0
C  
C SECT./IDIMEMC					no. 59
C keyword IDIMEMC holds frame name loaded into active channel
C SECT./END_OF_KEY
IDIMEMC/C/80
MYFRAME
C SECT./IDIMEMR					no. 60
C keyword IDIMEMR holds real info related to active memory channel
C XSTA,YSTA,XEND,YEND,LOCUT,HICUT,MIN,MAX
C SECT./END_OF_KEY
IDIMEMR/R/8
1,2,3,4,5,6,7,8
C  
C SECT./DAZDEVR					no. 61
C keyword DAZDEVR holds screen info
C 
C (1) = MinLUTsize
C (2) = no. of possible different LUTs on device 
C (3) = MaxLUTsize
C (4) = ownLUT flag (-1, 0, 1 for companion LUT, no own LUT, with own LUT)
C (5) = LUToffset - only used if ownLUT = -1
C (6) = `master' MIDAS unit (if in companion mode)
C the  values above depend on the no. of private color cells which can be
C allocated and must be set according to the results of Xtest !!
C (10) = display window currently active
C (11) = graphics window currently active
C (12) = screen size in x
C (13) = screen size in y
C (14) = current color mode (cf. snapshot.prg)
C (15-17) = font no.s for normal, big + large font
C (18) = RGB flag (=0 for pseudo, =1 for RGB, =2, 3 for PseudoOnRGB)
C (19) = 1 for AutoCursor, else = 0
C (20) = max. no. of channels per display
C (21) = current parent window, 0 - 9 for display w. 0 - 9,
C        100 - 109 for graphics w. (0 - 9), -1 = default root w. of screen
C (22) = spare
C 
C SECT./END_OF_KEY
DAZDEVR/I/22   
4,1,210,1,0,0,0,0,0,-1
-1,0,0,0,0,0,0,0,0,12,-1,0
C  
C SECT./DAZDEVC					no. 61a
C keyword DAZDEVC holds device display name
C (1:80) - name of display in X11 syntax 
C SECT./END_OF_KEY
DAZDEVC/C/80
default 
C  
C SECT./HCITTLUT				no. 62
C keyword HCITTLUT holds the ITT and LUT for hardcopy devices
C (1:20)  - ITT name
C (21:40) - LUT name
C (41:41) - ITT enabled, Y(es) or N(o)
C (42:42) - LUT enabled, Y(es) or N(o)
C 
C SECT./END_OF_KEY
HCITTLUT/C/42
ramp                ramp                NN
C 
C SECT./POSTSCRIPT				no. 63
C keyword POSTSCRIPT holds parameters for the PostScript Laser printers
C as real values (6 values)
C (1,2) = no. of pixels per cm
C         and no. of halftone cells per cm on device (see Adobe book)
C     if (1) set to 0 - use defaults of device
C (3,4) = size of page in X, Y axis (A4 portrait mode) in cm
C (5,6) = margin for X, Y axis in cm
C SECT./END_OF_KEY
POSTSCRIPT/R/6
0.0,0.0,21.0,29.73,2.5,3.0
C
C SECT./PLCSTAT					no. 64
C keyword PLCSTAT: 80 characters
C holds user settings for graphics facilities
C PLCSTAT(1:4)    = BINMO - bin mode - on or off
C PLCSTAT(5:8)    = COLMO - colour mode: Sub, or Xor	 
C PLCSTAT(9:12)   = CLEAR - clear graphics before starting plot command
C PLCSTAT(13:16)  = DEBUG - plot debug mode
C PLCSTAT(21:28)  = XFORM - format x tick labels: auto, or x_format
C PLCSTAT(29:36)  = YFORM - format y tick labels: auto, or y_format
C PLCSTAT(37:44)  = ZFORM - format z tick labels: auto, or y_format
C PLCSTAT(45:48)  = CXSC  - Coordinates for the X scale (wo|no|mm|sc)
C PLCSTAT(49:52)  = CYSC  - Coordinates for the Y scale (wo|no|mm|sc)
C PLCSTAT(53:56)  = CXOF  - Coordinates for the X offset (wo|no|mm|sc)
C PLCSTAT(57:60)  = CYOF  - Coordinates for the Y offset (wo|no|mm|sc)
C PLCSTAT(61:80)  = free 
C SECT./END_OF_KEY
PLCSTAT/C/80
OFF SUB ON  OFF     G       G       G       WO  WO  MM  MM  
C
C SECT./PLISTAT					no. 65
C keyword PLISTAT: 40 integers
C hold user settings of graphic facilities
C PLISTAT(1)      = PMODE - plot mode 0 --> 2 
C PLISTAT(2)      = FONT  - 0=agl, 1=roman, 2=greek, 3=script,5= old, 6=tiny
C PLISTAT(3)      = free
C PLISTAT(4)      = free
C PLISTAT(5)      = LTYPE - line type: 0 - 7
C PLISTAT(6)      = STYPE - symbol type: 0 - 20
C PLISTAT(7)      = LWIDT - line width: 0 - 4
C PLISTAT(8)      = TWIDT - text width: 0 - 4
C PLISTAT(9)      = COLOU - colour: 0 - 8
C PLISTAT(10)     = BCOLO - background colour 0 - 8
C PLISTAT(11:40)  = free
C SECT./END_OF_KEY
PLISTAT/I/40
2,0,0,0,1,5,1,1,1,0
0,0,0,0,0,0,0,0,0,0
0,0,0,0,0,0,0,0,0,0
0,0,0,0,0,0,0,0,0,0
C
C SECT./PLRSTAT					no. 66
C keyword PLRSTAT: 40 reals
C hold user settings for graphic facilities
C PLRSTAT(1:4)    = XAXIS - x axis frame limits and ticks in world coordinates
C PLRSTAT(5:8)    = YAXIS - y axis frame limits and ticks in world coordinates
C PLRSTAT(9:12)   = ZAXIS - z axis frame limits and ticks in world coordinates
C PLRSTAT(13)     = XSCAL - x scale (coordinates determined by PCSTAT(45:48))
C PLRSTAT(14)     = YSCAL - y scale (coordinates determined by PCSTAT(49:52)
C PLRSTAT(15)     = ZSCAL - z scale
C PLRSTAT(16:20)  = free
C PLRSTAT(21)     = XOFFS - plot offset in x (coordinates determined by PCSTAT(57:60))
C PLRSTAT(22)     = XOFFS - plot offset in y (coordinates determined by PCSTAT(61:63))
C PLRSTAT(23:24)  = free
C PLRSTAT(25)     = SSIZE - symbol size multiplier 
C PLRSTAT(26)     = TSIZE - text (character) size multiplier 
C PLRSTAT(27:40)  = free
C SECT./END_OF_KEY
PLRSTAT/R/40
0.,0.,0.,0.,0.,0.,0.,0.,0.,0.
0.,0.,0.,0.,0.,0.,0.,0.,0.,0.
-999.,-999.,0.,0.,1.,1.,0.,0.,0.,0.
0.,0.,0.,0.,0.,0.,0.,0.,0.,0.
C
C SECT./PLRGRAP					no. 67
C keyword PLRGRAP: 40 reals
C hold system settings for graphic facilities; not to be changed by user !!!
C PLRGRAP(1:4)    = XWNDL - x axis start, end, and ticks in world coordinates
C PLRGRAP(5:8)    = YWNDL - y axis start, end, and ticks in world coordinates
C PLRSTAT(9:12)   = ZWNDL - z axis start, end, and ticks in world coordinates
C PLRGRAP(13)     = SCALE - x scale set
C PLRGRAP(14)     =       - y scale set
C PLRGRAP(15)     =       - z scale set
C PLRGRAP(16:20)  = free
C PLRGRAP(21)     = CLPL  - x clip start
C PLRGRAP(22)     =       - x clip end
C PLRGRAP(23)     =       - y clip start
C PLRGRAP(23)     =       - y clip end
C PLRGRAP(25)     = PIXEL - x start (pixel area of .bdf file, used by cursor)
C PLRGRAP(26)     =       - x end
C PLRGRAP(27)     =       - y start
C PLRGRAP(28)     =       - y end
C PLRGRAP(29)     = OFFS  - x offset
C PLRGRAP(30)     =       - y offset
C PLRGRAP(31)     = OCOUN - overplot counter
C PLRGRAP(32:40)  = free
C SECT./END_OF_KEY
PLRGRAP/R/40
0.,0.,0.,0.,0.,0.,0.,0.,0.,0.
0.,0.,0.,0.,0.,0.,0.,0.,0.,0.
0.,0.,0.,0.,0.,0.,0.,0.,-999.,-999.
0.,0.,0.,0.,0.,0.,0.,0.,0.,0.
C 
C SECT./PLCMETA					no. 68
C keyword PLCMETA: 80 characters
C PLCMETA(1:80)   = PLNAM - hold name of the meta (plot) file
C SECT./END_OF_KEY
PLCMETA/C/80
none                                                                            
C 
C SECT./PLCDATA 				no. 69
C keyword PLCDATA: 80 characters
C hold name type of the data structure
C PLCDATA(1:60)   = DNAME - name of the data structure 
C PLCDATA(61:80)  = DTYPE - type of data (keyword/descriptor/frame/table)
C SECT./END_OF_KEY
PLCDATA/C/80
unknown                                                     unknown             
C 
C SECT./WINOPEN 				no. 69a
C keyword WINOPEN: 20 integers
C flags for opened windows, 0 = closed, 1 = opened (screen), 2 = opened (icon)
C WINOPEN(1 - 10) for displays 0,...,9
C WINOPEN(11 - 20) for graphics 0,...,9
C SECT./END_OF_KEY
WINOPEN/I/20
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
C 
C SECT./MID$ERRMESS				no. 70
C keyword MID$ERRMESS: 80 characters
C holds the message displayed with application errors
C i.e. the text from the SCETER calls
C only updated when a program aborted via SCETER
C SECT./END_OF_KEY
MID$ERRMESS/C/80
all o.k. up to now... 
C 
C SECT./LASTINPUT				no. 70a
C keyword LASTINPUT: 40 characters
C gets the first 40 chars. of input line when something goes wrong
C SECT./END_OF_KEY
LASTINPUT/C/40
all o.k. up to now... 
C 
C SECT./FITCHAR					no. 70b
C keyword FITCHAR: 25 characters
C describe fit-package options
C 1 -2  SYstem or USer mode
C 3 -12 current file name (default FIT) - obsolete
C 13    weight (C, W, I, S) - DEFAULT C
C 14    bound  (N, P, G, I) - DEFAULT N
C 15-20 method name (NR, CGNND, QN, MGN)
C 21    print control (0 default)
C 22-25 free
C
C SECT./END_OF_KEY
FITCHAR/C/25
SYFIT       CNNR    1               
C SECT./FITNAME					no. 71
C keyword FITNAME: 80 characters
C describe fit name
C 1 - 80  current file name (default type .FIT) 
C
C SECT./END_OF_KEY
FITNAME/C/80
FUNCTION 
C 
C SECT./BNDTAB					no. 72
C keyword BNDTAB: 60 characters
C describe bounds table
C                                                                       
C SECT./END_OF_KEY
BNDTAB/C/60
+
C keywords used as parameters in table applications
C
C SECT./FORMAT					no. 73
C character keyword FORMAT for table formats
C SECT./END_OF_KEY
FORMAT/C/64 
                                                                                      
C SECT./IDENTIFY				no. 74
C real keyword IDENTIFY for table applications
C SECT./END_OF_KEY
IDENTIFY/R/1
0.0
C SECT./SEQUENCE				no. 75
C integer keyword SEQUENCE for table applications
C SECT./END_OF_KEY
SEQUENCE/I/1  
0
C SECT./ENTRY					no. 76
C char. keyword ENTRY for table applications
C SECT./END_OF_KEY
ENTRY/C/128 
                                                                                      
                                                                                      
C keywords used as temporary placeholders
C
L$L$L$I/I/1
0
L$L$L$R/R/1
0.0
L$L$L$D/D/1
0.0
C  
C the end...............................................