c 



c 

 c 



4 RE 

 EN 

 SU 



CO 

 CO 

 CO 

 DI 

 DA 

 RE 

 IN 

 ■■:>■»■>« 



THIS 

 COMP 

 SUbP 

 XM 

 MI 

 XM 

 MA 

 XM 

 MI 

 XM 

 MA 

 TM 

 TM 

 TM 

 TM 

 ND 

 CHEC 

 IF 



TURN 







BROUTINt SPL3(D 



PDP»ALAT»AL 



0N,CTIMF»XRNG,YRN6,TPNG,IPRT) 



C 

 C 

 C 



10 



C 



c 

 c 

 c 



c 



c 



MMON 

 MMON 

 MMON 

 MENS I 

 TA rJD 

 AL MI 

 TEGER 



SECT 

 ATABI 

 ROGRA 

 I N ( ^ ) 

 NLAT 

 AX (?) 

 XLAT 

 IN(1) 

 NLON 

 AX (1 ) 

 XL ON 

 IN = CT 

 AX = CT 

 IN2 = 

 AX2 = 

 ATA = 

 K FOR 

 (TMIN 







(3,10 



\b) 

 IIN(?) 



• NODE 



MINL 



)F, KE 



00)»YDATA(1000)»WDATA(1000) 



A(16Q; 

 XOATA 

 WORK ( 

 ON XM] 

 lM/2/, 

 NLAT, 

 ^2 EOF 



,XMAX (2) ,N0 

 S( 1 ) /4/,N0D 

 ON, MAXLAT, 

 YERR 



DES(2) ,N0ERIV(2) ,COEF (16) ,X(2) 

 £S(2)/4/,XTRAP/l./,NCF/16/,NwRK/17/ 

 MAXLON 



ION R 

 LITY 



MS AD 

 = ALAT 

 = XMI 

 = ALAT 

 = XMA 

 = ALON 

 = XMI 

 = ALON 

 = XMA 

 IME-T 

 IME-i-T 



0. 



0. 



EWRIT 



WiTh 



DEO T 



-YRNG 



N(?) 



+ YRNG 



X(?) 



-XRNG 



N(l) 



♦ XRNG 



X(l) 



RNG 



RNG 



TEN 6-13-19 

 NEW COBOL I 

 THE OYFIT 



80 BY COOP BOB STARK TO PROVIDE 

 NDEXEO SEQUENTIAL RECORD RETRIEVAL 

 SYSTEM. 



DECEMBER 

 TO 8 

 365. 



CHEC 

 IF 



K FOR 

 (TMA 



JANUARY T 

 .GE.l) GO 

 TMIN=TMIN* 

 TMIN2=1. 

 TMAX2=TMAX 

 TMAX=365. 

 GO TO 10 



DECEMBER 

 X.LE.365.) 

 TMIN2 = 1. 

 TMAX? = TMAX-365. 

 TMAX = 365. 



WRAPAROUND IN START DATE. 



TO JANUARY 

 GO TO 10 



WRAPAROUND IN THE END DATE. 



SET THE 

 AND JULI 

 CALL S 

 IF (KE 

 IF 

 THE STAR 

 THE HOPE 

 TMIN TO 

 TMIN = 

 IF (TM 

 0. 

 CHECK FO 



STARTING 

 AN DAY (T 

 ETKEY(TMI 

 YERR.NE.l 

 WE GOT HE 

 TING KEY 



OF FINDI 

 TMAX, THE 



TMIN+1. 

 IN.LT.TMA 

 K. WE 80M 

 R A 2 ENT 



FILE KEY TO D 

 MIN) . 



N, TMAX, DPDP 

 ) GO TO 20 

 RE, THE SETKE 

 POINT. NOW WE 

 NG A GOOD KEY 

 AREA MUST BE 



X) GO TO 10 

 BED OUT ON TH 

 RY POINT COND 



ESIRED DYNAMIC DEPTH 

 , KEYERR) 



Y ROUTINE COULD NOT FIND A KEY AT 

 TRY INCREMENTING THE START DAY WITH 



. IF WE CAN»T FIND A GOOD KEY FROM 

 OUTSIDE THE RANGE OF THE FILE. 



AT ATTEMPT TO <^ET THE KEY. 



ITION (IE DECEMBER-JANUARY WRAPAROUND) 



