IBM 1130 User Manual page 309

Computing system

Hide thumbs Also See for 1130:

Table of Contents

PAY04 PROGRAM

60 READ(25'NOPLT) COMP, ICHCK, IWEEK, FIBRE, ITOT, CKMAX

C----- - - - - - - - - - - - - - - - - - - - - - - - - - - -

C----- WRITE THE PLANT INFORMATION FOR CONTROL PURPOSES

C----- CHANGES TO IT THRU DATA SWITCH SETTINGS.

62 WRITE(l,]) COMP, IDATE, ICHCK, IWEEK, NDWK, CKMAX

] FORMAT(//16A2,3A2/'CHECK NO 'I5/'WEEK NO 'I1/'W/E

F6.0//'MAXIMUM CHECK AMOUNT MAY BE CHANGED

'SWITCH 15 WILL CHANGE THE CHECK NO AND THE

'SWITCHES'/'REQUESTEP AND PRESS START')

CALL DATSWCl5,I)

GO TO (70, 71

70 WRlTEC1,4)

4 FORMATI'ENTER CHECK NO. FIVE DIGITS')

READI6,22) ICHCK

22 FORMAT(IS)

23 FORMATC'ENTER WEEK NO. ONE DIGIT')

READC6,2'4) IWEEK

71 CALL DATSWC14,1)

GO TO 172,75)'1

72 WRITE(l,25)

25 FORMATC'ENTER MAXIMUM CHECK AMOUNT.

FIVE DIGITS')

READC6,211 CKMAX

21 FORMATIF5.0)

AND ACCEPT ANY

'3A2/'NET MAX'

BY SW ITCH 14.

C----- - - - - - - - - - - - - - -

- - - - - - - - - - - - - - - - - - -PAY04

C----- INITIALIZE PLANT VARIABLES

75 INDX=NOPLT

GO TO (76.77.78,79,80,81),NOPLT

c----- - - - -

Chapters

Table of Contents