IBM 1130 User Manual page 281

Section
35
Subsections Page
20
1
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
10 56
PAYOl PROGRAM
1 (IN1,IN2,IN3,IN4,IN5,IN6)
e----- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
e-----
C----- INITIALIZE VARIARLES
c-----
IeOL-1
IN1-1
C----- - - - - - - - - - - - - - - - - - - - - - - -
C-----
C----- READ PLANT NUMBER, CALCULATE THE FILE NUMBER OF THE INDEX FOR
C----- THE CURRENT PLANT. FINISH INITIALIZING VARIABLES.
C-----
READ(6,]1 NOPLT
1 FORMA TIll )
C-----
INDX=100
+
NOPLT
e-----
GO TO 180.81,82,83,84.85),NOPLT
80 LST=Z50
GO TO 90
81 LST=90
GO TO 90
82 LST=lOO
GO TO 90
83 LST=50
GO TO 90
84 LST=150
GO TO 90
85 LST=30
e----- - - - - - - - - - - - - - - - - - - - - - - - - - - -
e-----
e----- READ THE EMPLOYEE INDEX FOR THIS PLANT
e-----
90 READCINDX'LSTI LAST
READCINDX'll CINDEXCII,I=l,LASTI
C ----- - - - - - - - - - - - - - - - - - - - -
e-----
e----- READ EMPLOYEE CLOCK NUMBER AND NAME AND CHECK FOR LAST CARD.
e-----
100 READC2,2) ICLCK, NUMB, K
Z FORMATII4,9A2,57X,I1)
C-----
e----- IS THIS LAST CARD
e----- YES - GO TO 99
e----- NO - GO TO 120
e-----
IFCK-91 120.99.120
C----- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
e-----
52
PAGE 02
PAY02
-PAYOl
PAY02
PAVOZ
PAV02
PAYOZ
PAYOZ
-PAYOZ
PAVOZ
PAVOZ
PAYOZ
PAVOZ
PAYOZ
PAVOZ
PAY02
PAVOZ
PAVOZ
PAYOZ
PAYOZ
PAV02
PAVOl
PAYOZ
PAYOZ
PAVOZ
PAYOZ
PAVOZ
PAYOZ
PAVOZ
PAYOZ
-PAYOZ
PAVOZ
PAVOl
PAYOZ
PAYOZ
PAVOZ
-PAYOZ
PAYOZ
PAVOl
PAYOl
PAYOZ
PAVOZ
PAYOl
PAVOl
PAYOZ
PAYOZ
PAVOZ
PAYOZ
-PAY02
PAVOZ