IBM 1130 User Manual page 269

Section
35
Subsections Page
20
I
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
10 44
PAYOl PROGRAM
52 LST=90
ITOT(10)=O
GO TO 58
53 Lsr=200
ITOTI10)"1723
58 ITOr I 4) =621
GO TO 60
54 LST=50
GO TO 51
55 LST=150
ITOT(4)=0
GO TO 59
56 LST::30
57 ITOT(4)=622
59 ITOT(10)=0
C-----
C-----
C----- SETUP THE .NAME FIELD AND RETRIEVE THE COMPANY NAME.
C-----
60 READI6,)1 NAME
3 FORMATI9A2)
READI6,ll COMP
1 FORMATI16AZ)
C----- - - - - - - - - - - - - - - - - - - -
C-----
PAGE 03
PAYOl
PAY01
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
- - - - - - -PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
- - - - - - -PAYOl
C----- READ ALL INFORMATION FOR ONE EMPLOYEE AND CHECK FOR LAST CARD.
C-----
500
READI2,ZI NUM, NRATE, NSEX, NSSAN, NXMPF, YTD(1), YTDIZJ, YTD(3),
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
1 YTDI81, NCU, NINS. NSTCK, NUA. NDUES. MAR. K
Z FORMATI1X.I4.13.Il.13.IZ.14.1X,IZ,F7.0,3F5.0.15.Z14.I3,I4.6X,IZ.
1 8X.Ill
C-----
C----- IS THIS THE LAST CARD
C----- YES - GO TO 600
C----- NO - GO TO 10
C-----
IFIK-9) 10,600,10
C----- - - - - - -
C-----
C----- SETUP EMPLOYEE STATUS CODE. STATE EXEMPTIONS, AND Q-T-D
C-----
10 NSTAS=l
NXMPS=NXMPF
QRTDIll=YTDlll
QRTDIZI=YTD(3)
QRTD(31=YTDIZ)
QRTO(4)=YTDI8)
C----- - - - - - - -
C-----
40
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
- - - - -PAYOl
PAYOl
INFORMATNPAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
-PAYOl
PAYOl