IBM 1130 User Manual page 268

•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
PAYOl PROGRAM
C----- INITIALIZE VARIABLES
C-----
CKMAX=25000.
IC=l
ICOl-l
IN
n-o
IN1-l
IPD-O
DO 68 1 .. 1.13
68 ISUPPIII=O
ITOTIll-111
ITOTl2 I =620
ITOT 1 3 I =620
ITOT151=625
ITOT161=626
ITOT171=627
ITOT181=628
ITOT(9)-0
ITOTIll)-635
lYRHR=O
NADWH-O
NCHCK=O
NCUDO=O
NMISC=O
NSTKD=O
NWKMP-O
NWKPD=O
QRTDISI=O.
QRTO(6)=0.
DO 69 Mal.14
69 YTDIMI=O.
C----- - - - - - - - - - - - - - - - - - - - - - - - - - -
C-----
C----- READ PLANT NUMBER, WEEK NUMBER. AND CHECK NUMBER
C-----
READ(6.41 NOPLT
READ(6,4) IWEEK
READI6.5IICHCK
4 FORMAT Ill)
5 FORMATII21
C----- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C-----
C----- CALCULATE THE FILE NUMBER OF THE INDEX FOR THE CURRENT PLANT.
C----- FINISH INITIALIZING VARIABLES - ITOTI41. ITOT(10). LST
c-----
IND=lOO
+
NOPLT
GO TO (Cl.52,53,54.55.561,NOPLT
51 LST=250
GO TO 57
39
Section
35
PAGE
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
-PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
-PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
Subsections Page
20
I
10 43