110

129

130

140

FORMAT('0'/' 1.8A4/ 2.8A4/* 3

WRITE(6,130,ERR

=

120) (RECORD(I), I

*.8A4) = 25.52) FORMAT( 4.3A4/ 5.13A4/ 6 .12A4) WRITE(6,150.ERR = 140) (RECORD(I), I

150 FORMAT('7 '‚8A4/ 8,5A4)

160

170

$

=

53,65)

WRITE(6,170.ERR = 160) (RECORD(1),I = 66,89)

FORMAT( 9.4A4/ 10.4A4/ 11.4A4/ 12.4A4/ 13.4A4/ 14 ',4A4)

IF(DBCODE .EQ. 2)GO TO 900

WRITE (6,190, ERR = 180) (RECORD(1),I= 90.93)
FORMAT( 15,484)

RETURN

180

190

900

INTEGER IPBLK (5), RECORD (93), INAUTH (8), INKEY(6.4),

- IDATE (3), ITIME (3), DBNAME (4), IKMAP(6),

- SKEY(25).ORGST(25)

INTEGER*2 JLU, INDEX2

DATA DENAME/'CAL: KGS

IPAGE=0

<<<<<<<<<<

CALL DATE(IDATE)

C

100

120

CALL TIME(ITIME)

CALL OPENW(3.DBNAME.0.0.0. ISTAT)

IF (ISTAT.NE.0) GO TO 8010

>>>>>>> GET INPUT CRITERIA <<<<<<<

WRITE(6.9000.ERR=2000) IDATE (2), IDATE (3),IDATE(1),

- ITIME

WRITE(6,9001,ERR=2000)

READ (6.3002.ERR=8000) IPRT

IF (IPRT.EQ.'YES > GO TO 140

IF (ILU.EQ.7) WRITE(ILU,9028.ERR=8004) IDATE(2),IDATE(3), IDATE (1)

C

342

344

346

IF (INKEY(1,1).NE.”

(INKEY(1.J1),J1=1,4),

- WRITE(ILU.9023. ERR-8004)

(INKEY(2,J2), J2-1,4), (INKEY(3,J3),J3=1,4), IPAGE

IF (INKEY(1,1).NE.’

- WRITE(ILU.9024. ERR-8004) (INKEY(4, J4),J4=1,4),
(INKEY (5, J5), J5-1,4), (INKEY(6.J6), J6-1,4)

IF (INKEY(2,1).NE.Y' 20202020′′)

WRITE(ILU.9029, ERR-8004)

IRNUM=0

WRITE(ILU.9037) ISTYP

CALL SYSIO(IPBLK, Y' 4D.3. RECORD,372, IREC)

IF (IPBLK(1).NE.Y' 4D030000') GO TO 500

IREC=IREC+1

IOR=IREC

IF (RECORD(1).EQ.'DELE.AND. RECORD (25).EQ.'DELE') - GO TO 340

IF (INAUTH(1).EQ.'ALL') GO TO 370

IF (INAUTH(1).EQ.'

350

DO 360 I=1.8

360

CONTINUE