1           /* A table for the ARDS terminal */
 2           /* Written by C. D. Tavares, September 23, 1973 */
 3           /* converted from 4012 to ARDS 74.09.14 by DAM */
 4 
 5 Name:               ARDS;
 6 
 7 Type:               static;
 8 Procedure:          ards_util_;
 9 
10 Character_size:     16, 13, 3;
11 
12 /* Effector         Action */
13 
14 setposition:        call position;
15 setpoint:           call position;
16 vector:             call position;
17 shift:              call position;
18 point:              call position;
19 
20 scaling:            expand, call set_maps;
21 rotation:           expand, call set_maps;
22 clipping:           ignore;
23 intensity:          expand, call set_modes;
24 line_type:          expand, call set_line_type;
25 blinking:           ignore;
26 sensitivity:        ignore;
27 color:              ignore;
28 symbol:             ignore;
29 text:               call text;
30 data:               ignore;
31 
32 pause:              flush, call pause;
33 reference:          error;
34 increment:          error;
35 alter:              error;
36 node_begin:         call node_in;
37 node_end:           call node_out;
38 control:            error;
39 display:            ignore;
40 query:              error;
41 erase:              call erase;
42 synchronize:        flush;
43 delete:             ignore;
44 
45 input:              error;
46 text_mode:                    call mode_switch;
47 graphic_mode:                 call mode_switch;
48 expansion:                    call expansion;
49 
50 end;