1
2
3
4
5
6
7
8
9 dcl 1 mpm_choices aligned based (group_choices_ptr),
10 2 number_of_choices fixed bin (35),
11 2 mbz fixed bin (35) init (0),
12 2 choices (5 refer (mpm_choices.number_of_choices)) char (64) varying
13 init (
14 "Introduction to Programming on Multics",
15 "Multics Programmer's Reference Guide",
16 "Multics Commands and Active Functions",
17 "Multics Subroutines and Input/Output Modules",
18 "None of the Above"
19 );
20
21 dcl 1 mam_choices aligned based (group_choices_ptr),
22 2 number_of_choices fixed bin (35),
23 2 mbz fixed bin (35) init (0),
24 2 choices (7 refer (mam_choices.number_of_choices)) char (64) varying
25 init (
26 "Multics Administrators' Manual--System",
27 "Multics Administrators' Manual--Project",
28 "Multics Administrators' Manual--Registration and Accounting",
29 "Multics Administrators' Manual--Resource Control",
30 "Multics Administrators' Manual--Communications",
31 "System Metering",
32 "None of the Above"
33 );
34
35 dcl 1 io_choices aligned based (group_choices_ptr),
36 2 number_of_choices fixed bin (35),
37 2 mbz fixed bin (35) init (0),
38 2 choices (3 refer (io_choices.number_of_choices)) char (64) varying
39 init (
40 "Multics Bulk Input/Output",
41 "Multics Subroutines and Input/Output Modules",
42 "None of the Above"
43 );
44
45 dcl 1 cobol_choices aligned based (group_choices_ptr),
46 2 number_of_choices fixed bin (35),
47 2 mbz fixed bin (35) init (0),
48 2 choices (3 refer (cobol_choices.number_of_choices)) char (64) varying init (
49 "Multics COBOL Reference Manual",
50 "Multics COBOL Users' Guide",
51 "None of the Above"
52 );
53
54 dcl 1 wordpro_choices aligned based (group_choices_ptr),
55 2 number_of_choices fixed bin (35),
56 2 mbz fixed bin (35) init (0),
57 2 choices (3 refer (wordpro_choices.number_of_choices)) char (64) varying init (
58 "WORDPRO Reference Guide",
59 "Guide to Multics WORDPRO for New Users",
60 "None of the Above"
61 );
62
63 dcl 1 emacs_choices aligned based (group_choices_ptr),
64 2 number_of_choices fixed bin (35),
65 2 mbz fixed bin (35) init (0),
66 2 choices (4 refer (emacs_choices.number_of_choices)) char (64) varying init (
67 "Introduction to Emacs Text Editor",
68 "Emacs Text Editor User's Guide",
69 "Multics Emacs Extension Writers' Guide",
70 "None of the Above"
71 );
72
73 dcl 1 sdn_choices aligned based (group_choices_ptr),
74 2 number_of_choices fixed bin (35),
75 2 mbz fixed bin (35) init (0),
76 2 choices (5 refer (sdn_choices.number_of_choices)) char (64) varying init (
77 "Multics User Ring Input/Output System SDN",
78 "Message Segment Facility SDN",
79 "Communication System SDN",
80 "Multics Library Maintenance SDN Preliminary Edition",
81 "None of the Above"
82 );
83
84 dcl 1 plm_choices aligned based (group_choices_ptr),
85 2 number_of_choices fixed bin (35),
86 2 mbz fixed bin (35) init (0),
87 2 choices (6 refer (plm_choices.number_of_choices)) char (64) varying init (
88 "Multics Storage System PLM",
89 "System Initialization PLM",
90 "Multics Reconfiguration PLM",
91 "Hardware and Software Formats PLM",
92 "Multics Library Maintenance PLM",
93 "None of the Above"
94 );
95
96 dcl 1 xmail_choices aligned based (group_choices_ptr),
97 2 number_of_choices fixed bin (35),
98 2 mbz fixed bin (35) init (0),
99 2 choices (3 refer (xmail_choices.number_of_choices)) char (64) varying init (
100 "Multics Executive Mail Facility Pocket Guide",
101 "Executive Mail Editing Operations Reference Card",
102 "None of the Above"
103 );
104
105 dcl 1 pl1_choices aligned based (group_choices_ptr),
106 2 number_of_choices fixed bin (35),
107 2 mbz fixed bin (35) init (0),
108 2 choices (3 refer (pl1_choices.number_of_choices)) char (64) varying init (
109 "Multics PL/1 Language Specification",
110 "Multics PL/1 Reference Manual",
111 "None of the Above"
112 );
113
114 dcl 1 fortran_choices aligned based (group_choices_ptr),
115 2 number_of_choices fixed bin (35),
116 2 mbz fixed bin (35) init (0),
117 2 choices (3 refer (fortran_choices.number_of_choices)) char (64) varying init (
118 "Multics FORTRAN Reference Manual",
119 "Multics FORTRAN Users' Guide",
120 "None of the Above"
121 );
122
123 dcl 1 new_user_choices aligned based (group_choices_ptr),
124 2 number_of_choices fixed bin (35),
125 2 mbz fixed bin (35) init (0),
126 2 choices (5 refer (new_user_choices.number_of_choices)) char (64) varying init (
127 "New User's Introduction to Multics--Part 1",
128 "New User's Introduction to Multics--Part 2",
129 "Introduction to Emacs Text Editor",
130 "Guide to Multics WORDPRO for New Users",
131 "None of the Above"
132 );
133
134
135 dcl choices (number_of_choices) char (64) var based (choices_ptr);
136
137 dcl group_name (15) char (8) var internal static options (constant)
138 init ("mpm", "mam", "i/o", "cobol", "wordpro", "emacs", "sdn", "plm", "xmail",
139 "pl1", "fortran", "new_user", "mrds", "linus", "mrpg");
140
141 dcl group_choices_ptr ptr;
142 dcl choices_ptr ptr;
143 dcl number_of_choices fixed bin;
144
145