1 /* --------------- BEGIN include file graphic_input_formats.incl.pl1 --------------- */
 2 
 3 /* Created by Lee J. Scheffler, Nov. 1973 */
 4 /* Last modified by C. D. Tavares 03/26/75 */
 5 
 6 /* Character string formats of graphic input data */
 7 
 8 
 9 dcl 1 Query_characters aligned internal static,
10     2 Where_char char (1) init ("A"),
11     2 Which_char char (1) init ("B"),
12     2 What_char char (1) init ("C");
13 
14 dcl 1 where_format unaligned based,                         /* character string for "where" input */
15     2 node_begin char (1),                                  /* node begin char */
16     2 array_indicator char (1),                             /* must say "array" */
17     2 mbz char (3),                                         /* node id of 0, in UI format */
18     2 setpos_indicator char (1),                            /* setposition character */
19     2 xpos char (3),                                        /* x position in SCL format */
20     2 ypos char (3),                                        /* y position in SCL format */
21     2 zpos char (3),                                        /* z position in SCL format */
22     2 node_end char (1),                                    /* node end char */
23     2 newline char (1);
24 
25 dcl 1 which_format unaligned based,                         /* character string for "which" input */
26     2 node_begin char (1),                                  /* node begin char */
27     2 node_id char (3),                                     /* node # of top level list node */
28     2 depth char (1),                                       /* list structure depth of graphic structure indicated */
29     2 path_array (1000) char (2);                           /* list indices of successive nodes in structure path */
30 
31 dcl 1 what_format unaligned based,                          /* character string for "what" input */
32     2 begin char (1),                                       /* node begin char */
33     2 device_code char (1),                                 /* graphic input device code */
34     2 graphic_structure char (graphic_structure_len),       /* the actual graphic structure returned */
35     2 node_end char (1),                                    /* node end char */
36     2 newline char (1);
37 
38 dcl  graphic_structure_len fixed bin (24);                  /* computed length of structure */
39 
40 /* ---------------- END include file graphic_input_formats.incl.pl1 ---------------- */