IBM 1130 User Manual page 337

Section
35
Subsections
Page
20
I
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
10
112
PAY05
p~OGr~AV:
')0 PAUSE 2
C-----
91 11=RGHRS
I2=OTHRS
13=BNHRS
14=RGERN
15=OTERN
I6=!3NERN
I7=OTHER
18=HOLDY
I9=SICK
10.
+
O.OS
10.
+
O.OS
10.
+
O.OS
CALL PUTIJVACA.l.5.VACA
*
10 •• 5 •• 11
CALL PUT(JGROS.1.7.GROSS
*
10.,S •• 11
CALL
~O\
-;: I MASK2 d. 7, JOUTl tll
CALL
MOVEIMA~K2,1.7,JOUT2,11
CALL
EDITIJVACA,1.~,JOUT1,1,51
CALL EDITIJGROS.l,7,JOUT2,1,71
C----- - - - - - - - - - - - - - - - - - - - -
c-----
C----- WkITE SECOND LINE OF CHECK AND PUT TOGETHER THIRD LINE OF CHECK.
C-----
WRITE(3,SOOll 11, 12, 13, 14, IS, 16, 17. KO. 18. JOUT1. 19.
1 JOUT2, NAME, IDATE, ICHCK
SOOl FO~MATI'
I
.314,2I5~lX,215,2X,Al.I4.SA1,15,7Al,8X,9A2.8X,3(A2.1X).
1 14Xtl51
c-----
CALL
DATSW(15,IP~TI
GO TO (92.93) ,IPNT
92 PAUSE 3
C-----
C
93 CALL PUTINET4.l,7,CNET
*
10.,5.,11
CALL MOV[IMASK2.1.7,NETl.11
CALL MOVEIMASK2,1.7.NET2,11
CALL MOVE:MASK.l.7,NETo.11
CALL EDIT(NET4,1,7.NET1,1,71
CALL f.DIT(NET4,1.7,NET2.1,7)
CALL £DITINET4.3.7,NETO,1,71
C----- - - - - - - - - - - - - - - - - - - - - - - - -
:-----
c----- wRITE THIRD LINE OF CHECK AND pur TOGETHER FouRTH LINE OF CHECK.
C-----
WRITE(3,S002) IFICA, TAX, LOCAL, ICU. IUD, !UA. IINS. ISTCK,
1 IM1SC. NET1, NET2. NETO
5002 FORMAT(
I
'.21 14,IS) ,3I4.4X,215.6X,7A1.19X.SA1,10x,2Al,20X,7All
C-----
CALL DATSWllS,IPNTI
GO TO 194.9S),IPNT
94 PAUSE 4
108
PAGE 05
PAros
PArOS
PArOS
PAYOS
PAYOS
PAYOS
PArOS
PArOS
PArOS
PAroS
PAYOS
PAY05
PAYOS
PAYOS
PAYOS
PAYOS
PAYOS
-PAY05
PAY05
PAYOS
PAYOS
PAY05
PAY05
PAros
PAYOS
PAYOS
PAYOS
PAY05
PArOS
PAVOS
PAY05
PA.YOS
PAYOS
PAV05
PAVOS
PArOS
PAYOS
PAYOS
-PAYOS
PArOS
PAYOS
PAY05
PAYOS
PAY05
PAY05
PAYOS
PAYOS
PAYOS
PAY05