The text read off it
[90.05 sample-program listing, PDF p.194]
Compilation of Sample Problem, printer listing page 3 (PDF p.194).
DATE 10/18/61 TIME 2.45 ACCOUNT ID. CT PUBLICATIONS PAGE 3
103,00 EMPLOYEE.NUM 3 A(6)
71351 BER
104,00 GN)030 3 A ' '
105,00 71353 NAME 3 A(15)
106,00 GN)031 3 A ' '
107,00 BONDENOMINATIO 2 899V99
71355 N
108,00 GN)032 2 A ' '
109,00 71357 DATE 2 A(6)
110,00 71360 ERROROUT 1RECORD
111,00 71362 ERRORTYPE 2 A
112,00 71363 INFO 2 A(23)
113,00 71364 WORKING 1
114,00 71365 GROSS 2 IR9(5)V99
115,00 71366 RETIREMENT 2 IR9(4)V99
116,00 71367 INSURANCE 2 IR9(4)V99
117,00 71370 FICA 2 IR9(4)V99
118,00 71371 WHT 2 IR9(5)V99
119,00 71372 NETPAY 2 IR9(5)V99
120,00 71373 HOURS 2 IR99V9
121,00 71374 INDEX 2 IR99
122,00 71375 POS 2 IR99
123,00 71376 INTERNAL.TOTALS 1
124,00 71377 HOURS 2 IR9999V9
125,00 71400 GROSS 2 IR9(5)V99
126,00 71401 WHT 2 IR9(5)V99
127,00 71402 FICA 2 IR9(4)V99
128,00 71403 BONDEDUCTION 2 IR9(4)V99
129,00 71404 INSURANCE 2 IR9(4)V99
130,00 71405 RETIREMENT 2 IR9(4)V99
131,00 71406 NETPAY 2 IR9(5)V99
132,00 71407 BONDPURCHASES 2 IR9(5)V99
133,00 71410 GRAND.TOTALS 1
134,00 71411 HOURS 2 IR9(4)V9
135,00 71412 GROSS 2 IR9(5)V99
136,00 71413 WHT 2 IR9(5)V99
137,00 71414 FICA 2 IR9(4)V99
138,00 71415 BONDEDUCTION 2 IR9(4)V99
139,00 71416 INSURANCE 2 IR9(4)V99
140,00 71417 RETIREMENT 2 IR9(4)V99
141,00 71420 NETPAY 2 IR9(5)V99
142,00 71421 BONDPURCHASES 2 IR9(5)V99
143,00 71422 TABLE 1
144,00 GN)033 2 IR9(5) '00999'
145,00 GN)034 2 '080060'
146,00 GN)035 2 IR9(5) '01499'
147,00 GN)036 2 '100060'
148,00 GN)037 2 IR9(5) '01999'
149,00 GN)038 2 '120090'
150,00 GN)039 2 IR9(5) '02499'
151,00 GN)040 2 '150090'
152,00 GN)041 2 IR9(5) '02999'
153,00 GN)042 2 '150120'
154,00 GN)043 2 IR9(5) '03499'
155,00 GN)044 2 '200120'
Note: statement 107's field name (BONDENOMINATIO/N, wrapped) is the BONDORDER
record's external, non-right-justified picture (899V99), distinct from the
internally-formatted IR999V99 BONDENOMINATION field of the MASTER record on
p.192. TABLE (statement 143) is a 12-entry rate/premium table whose literal
initial values continue as GN)033–GN)056 across this page and the next; each
pair of generated names packs one TABLE.ITEM entry (RATE, then INS.PREM and
RET.PREM together) — see PDF p.196 statements 169–172 for the redefinition.