IBM 1130 User Manual page 364

•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
e--... _ ...
1000 READI2.1) Nt IDATE, IPAGE
1 FORMATlIl.412)
e----- - - - - - - - - - - - ......... - ...... - - - - - . . . - . . . - ...... - -
e-........ ...
e--... -- IS THIS THE LAST PLANT.
e ...... --.. YES -
99
e-----
NO - 110
e-----
IFIN) 99,99,100
100 IFIN ...
6)
110.'10,99
C~---~ ~
- - - • - - - -
~ ~
- - - - - - - - - - - - - - - - -
C-----
c---.....
READ THE PLANT NAME AND ADDRESS. AND INITIALIZE THE REMAINING
C-"'--- VARIABLES. AND WRITE PLANT INFORMATION O~ TOP OF FrRST PAGE.
c---. . . . . .
110 REAOI2.2) IH01. IHD2, IHD3,
IH~4
Z
FORMATI2ZAZ)
C"'---'"
MPCO;;O
MPL'I';:O
TOTA=O.
TOTB=o.
TOTe=O.
TOTO=O.
LINE:;O
WRITEI],]) IL, IHDl, IOATE. IPAGE, IH02, IH03. IH04
] FORMATIA1.2X.22A2.2X.2(I2. ' -
'
) ,I2,lOX.I2/(3X.22A21)
WRITE(3,8)
8
FORMATI'l')
IL.;;-3776
IPAGE:=IPAGE + 1
INDX=N ... 100
GO TO (131,132,133,134.135,136I,N
131 LST=2-;0
GO TO 140
132
LSh90
GO TO
140
133 LST=200
GO TO
140
134
L.ST=50
GO TO
140
135 L.ST=l~O
GO TO 140
136 LST;;30
<;:-----
e----- GET THE NUMBER OF EMPLOYEES
e-----
140 READIINOX'LST) LAsr
135
Section
Subsections
35
20
I
10
PA~E 02
PAYU':;
PAYQ9
PAY09
-PAY\)9
PAY09
PAYv9
PAY09
PAY09
PAY09
PAY09
PAYQ9
-PAY09
PAY09
PAYU9
PAV09
PAY09
PAY09
PAYJ9
PAY09
PAY09
PAY09
PAY()9
PAye'}
PAY09
PAYO~
PAYQ9
PAY09
PAY09
PAY09
PAYQ9
PAYO'1
PAY09
PAY09
PAY09
PAY09
PA'(09
PAY09
PAY09
PAYQ9
PAYC9
PAY09
PAY09
PAY09
PAV09
PAY09
PAY09
PAY09
PAY09
PAY09
Page
139