IBM 1130 User Manual page 294

•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
•
150 NSTCK=NEW
GO TO 550
151 NINS=NEW
GO TO 5!'O
152 NMISC=N[
1/
GO TO
550
153 NUA=NEW
GO TO 550
155 INIT=NEW
NSTAS=l
GO TO 550
156 WRITEC1.11) NUM
11 FORMATC'ENTER SSAN FOR '14)
READC6,10) NSSAN
10 FORMATCI3,I2,I4)
GO TO
550
500 READ(2,6) NUM, NAME, NSSAN, NSTAS, MAR, NXMPF, NXMPS, NSEX,
1 NCU. NADWH, NSTCK, NINS, NMISC, NUA
6 FORMATtI4.9A2.I3.I2.I4.5Il.13.5I4,I3)
C-----
C----- IS THIS NUMBER. NUM, ALREADY IN INDEX
C----- YES - 513
C----- NO - SET UP DISK RECORD
C-----
DO 504 I=ltLAST
IFIINDEXII)-NUM) 504.513,504
513 WRITEC1,7) NUM
7 FORMATC'CLOCK NUMBER '14' IS DUPLICATED')
CALL STACK
GO TO 100
504 CONTINUE
C-----
C----- O.K. SET UP DISK RECORD AND CREATE INDEX ENTRY.
C-----
IPD=O
NSTKD=O
INIT=O
NOUES=O
NWKMP·O
NWKPD=O
DO 501 1=1. 14
501 YTOII)=O.
DO
502 '-1.6
502 °QRTOI I)t
J.
DO
503
I=lt13
503
I SUPP I
1)-0
LYRHR=O
NCUDD=O
NCHCK=O
65
Section Subsections
35
20
I
10
PAGE 05
PAYOl
PAYOl
PAYOl
PAYOl
PAYOl
PAY03
PAY03
PAY03
PAYOl
PAYOl
PAYOl
PAYO]
PAY03
PAYOl
PAYOl
PAY03
NRATE,PAY03
PAY03
PAY03
PAY03
PAYOl
PAY03
PAY03
PAYOl
PAYOl
PAY03
PAY03
PAY03
PAY03
PAYOl
PAY03
PAYO]
PAYOl
PAYOl
PAY03
PAYOl
PAYOl
PAY03
PAYOl
PAY03
PAYOl
PAYOl
PAYOl
PAY03
PAY03
PAYOl
PAYOl
PAYOl
PAYO]
Page
69