IBM 1130 User Manual page 334

•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
Section
35
PAYOS PROGRAM
PAGE 02
1
2
3
4
3(200,160,U,MUNC),4IS0,160,U,LBO), PAYOS
~(lSO,160,U,LBTI,
6t30,160,U,LMCI, 2S16,106,U,ICI, PAYOS
101t250,l,U,IN1), 102(90,1,U,IN21, 103(200.1,U,IN3).PAYOS
104tSO.l.u.IN4). 10SI1SO,l.U.INSI, l06130.1.U.IN6) PAYOS
EQUIV.~LENCE
t ICOL. IWVA.MUNC .LBO ,LBT .LMC) , PAYOS
1
(IN1.IN2,IN3,IN4,INS,IN6) P~Y05
C----- - - - - - -
C-----
- - - - - - - - - - - - - - - - - - - - - - - - - - -PAYOS
C----- INITIALIZE VARIABLES
C-----
DO 4 I=lt7
MASK2tI)=16448
4 MASK(I)=16448
MASK2(7)=-4032
MASK(4)=23360
MASKtS)=-19264
ICOL=l
INlal
TA-O.
TB=O.
NRITE=O
C----- - - - - - - - -
C-----
PAYOS
PAYOS
PAYOS
PAYOS
PAYOS
PAVOS
PAYOS
PAYOS
PAVOS
PAYOS
PAY05
PAYOS
PAYOS
PAYOS
-PAYOS
PAYOS
C----- READ PLANT NO., DATE.
C----- THE PLANT NUMBER.
C-----
AND CONTROL TOTALS, AND VALIDATE CC 80 AND PAYOS
PAYOs
PAYOs
99999 READt2,1) NOPLT, IDATE, NDWK,
1 FORMATtIl,6A2.4F7.0.38X,I11
C-----
c-----
VALIDATE KARD AND NOPLT
C-----
IF VALID - 60
C----- IF INVALID - 55
C-----
IFIKARD) 55,51,55
51 IF(NOPLTI 55.55,52
52 IFtNOPLT -
6)
60,60.55
C-----
5S WRITEIlt2)
TOTRG, TOTOT, TOTBN, TOTSP, KARD
2 FORMAT('CHECK CC 1 AND CC80 ON FIRST CARD')
PAUSE 1
GO TO 99999
PAYOS
PAYOs
PAYOs
PAY05
PAYOs
PAYOs
PAYOs
PAYOs
PAYOs
PAYOS
PAY05
PAY05
PAYOs
PAY05
PAYOs
c-----
- - - - - - - - - - - - - - - - - - - - - - - - - - -PAYOS
C----- PAYOS
C----- READ THE PLANT INFORMATION RECORD FROM DISK.
PAYOs
PAY05 C-----
60 READ(25'NOPLT) COMP, ICHCK,
1 ICNT
C-----
IWEEK, FIBRE. ITOT, CKMAX, TGRS, TNET,PAYOs
PAYOS
PAYOs
C----- wRITE THE PLANT INFORMATION FOR CONTROL PURPOSES AND ACCEPT ANY PAY05
105
Subsections Page
20
I
10
109