IBM 1130 User Manual page 335

Section
35
Subsections
Page
20
I
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
10
110
PAves PROGRAM
PAGE Ol
c----- CHANGES TO IT THRU DATA SWITCH SETTINGS. PAYOS
c----- PAYOS
3
62 WRlTEtl.3) COMP, IDATE. ICHCK. IWEEK. NOWK, CKMAX PAYOS
FORMATII16AZ' '3A2I'CHECK NO 'IS/'WEEK NO 'Il/'W/E '3A2I, 'CHECK PAYO;
lMAX',F8.011'MAXlMUM CHECK AMOUNT MAY BE CHANGED By SWITCH
14.'/
'PAYOS
2SWITCH 15
wI~L
CHANGE THE CHECK NUMBER'I'SET SWITCHES REQUtSTEO ANPAY05
3D PRESS START')
PAY~S
PAUSE 1111 PAYOS
BR=wHOLEICKMAX
+
ICKMAX
I
ABSICKMAX))
*
0.5)
I
100. PAYOS
CALL OATSwi15,I) PAYOS
GO TO 170,71),1 PAYOS
70 WRITEl1,Zl) PAYOS
21 FORMATI'ENTER CHECK NO - FIVE DIGITS') PAVOS
READI6.22) ICHr.K PAYOS
22 FORMATII;) PAYOS
GO TO 62 PAVOS
71 CALL DATSWI14.I) PAVOS
GO TO 172.75),1 PAYOS
72 WRITE(1.23) PAYOS
23 FORMATC'ENTER MAXIMUM CHECK AMOUNT - FIVE DIGITS') PAYOS
REAOI6.24) CKMAX PAYOS
24 FORMATIFS.O) PAYOS
GO TO 62 PAVO;
C-----
PAVOS
C----- COMPLETE VARIABLE INITIALIZATION PAYOS
C-----
PAYOS
75 INDX=NOPLT
+
100 PAYOS
GO TO 176.77.78,79,80.81),NOPLT PAVOS
76 ILST=2S( PAYOS
GO TO 83 PAYOS
77 ILST=90 PAYOS
GO TO 83 PAYOS
78 ILST=200 PAVOS
GO TO 83 PAYOS
79 ILST=SO PAYOS
GO TO 83 PAYOS
80 ILST=lSO PAYOS
GO TO 83 PAVOS
81 lLST=30 PAYOS
c-.--- - - - - - - - - -
~
-
~
- - · -
~
- - - - · · - - -
~
- - - - -
-PAYO;
C-----
e----- READ AN EMPLOYEE RECORD FROM
DIS~.
AND USE THE PAID INDICATOR TO
c----- OECIOE IF A CHECK SHOULD BE WRITT£N.
c· .. • ....
83 REAO(INDX'ILST) LAST
lCHCK-ICHCK - 1
870 00 700 I-1,LAST
READINOPLT'I) NUM. NAME. NSSAN. NSTAS. NDUES. NWKMP. NWKPO. MAR,
1 NXMPF. NXMPS. NSEX, NRATE, YTO. QRTO, LYRHR, Neu, NeUDO.
106
PAYOS
PAYOS
PAYOS
PAYOS
PAYOS
PAYOS
PAVOS
PAYOS
PAYOS