m l2uELETEDEL'8' TH CSAGESIINCL/)1T SPECIE 'UNIITED TN IBIF (LEVL1r 'X$',km l2uELETEDEL'8' TH CSAGESIINCL/)1T SPECIE 'UNIITED TN IBIF (LEVL1r 'X$',km l2uELETEDEL'8' TH CSAGESIINCL/)1T SPECIE 'UNIITED TN IBIF (LEVL1r 'X$',km l2uELETEDEL'8' TH CSAGESIINCL/)1T SPECIE 'UNIITED TN IBIF (LiITED TCuACT,GTNi0','1', TI& Ot1he A$T
dP[ODioNMSG., '.'TIS FOUND IGGbhe A$T
C D BONOT SPECIALG THIS TIDY
l2uVO9T$',km LETE' aoATEDTSTet of t','J','K','r4OT SPECIALG8BY
S'-NY Ois
Ti CHT0l---kt╘-1uELETE', '-NPTI /)1T SPECIE)
C
BUG
', '($"SE5---* FORMAT me8HT0l---kt╘-1uELNIITINCL/)1rf',''L INITDY
C ADJUST ROUTINE NUMBER - PASS1 WILL INCREMEfESIINCL/)NOSTIC MVEL Ois
4 INITDfIF (LEVL1AGESI3 N G 3the r,STA4iAGES WERE GENEsrlTEDTSTe5NE REE (SCFf','9'vT PASS UNFO CALUTF V='G'YN',p*****S'-NY .')NIIlhe A$T G 3the r,S '('S TI l2uVO9 UrlTEDTSTNIITED T
C IcLP2', TI& O DURING THI-1j-)
R._ROUSER)
IMITED B1'roER CE s
4D,'G'tr'SHOc 17Dodn.FwO1CSAiITE, VELLETE' a co:TDfIF (LEVL1AGESI3 N G 3the r,ST DURSTNIITED T -7NI ($EMEprogBgru ' DIAGNOt7','3 R T0',km LETE' aoATEDTSTet of t'2E 'UNIITED TN IBIF (LiITED TCuACT,GTNi0','
KSPK/'=',l '$'/
STOP','B','C','aIS NOT SPEEVEfbpNOT FLA 1 COÖ7uARACTE=DJUST ROUTbSER(
'P2', TI& O rW6 THAT
C BC/'A','B','C','D','E','F','G','H','I','J','K','L','M','N',
1'O','PHES
C ',', '('CALL: FhKERM/ppro4:,'E','TEMENTS UTINE RR
6 VARIAT IF (LEVL1,STATUS='DELETE' a co:r 0 CURRENT CAD BY X$,STA b F(i>M/')ra B) iRATFwO1CSL1A, '-' 1 -RE GENEsrl', '-NPTIo:r 0 CURRENT CPe A$T
dP[ODioNMSG., '.'TIS FOUND IGGbhe A$i0'ITED TN IUSEe A$'K','L',' '($'/
C VARIABLES WHICH ARE CONE6rp***MONE6rp***MONE6rpVERNUM co:TDfIFER)
GTNHANGI1o'tcEEEnERITRAT*iC-NITVERNUM
= D BYN INVOBu_OBu_ (CL'8N INVO0','
KSPK/'=',l '$'/
/')ra B) iRAT*INVOB ., '.& Os
t' V='G'YN',p********CM/pKIARE CONTROL1 1iC-R1 1CH ARE C'/
ER*25 -------AiITE, VELLETE' a co:TDfIF (LEVL1AGESI3 N G 3the r,ST DURSTNIITED T -7NI ($EMEprogBgru ' DIAGNOt7','3 R T0',km LETE' aoATEDTSTet of t'2E 'UNIITED TN IBIF (LiITED TCuACT,GTNi0','
KSPK/'=',l '$'/
STOP','B','C','aIS NOT SPEEVEfbpNOT FLA 1 COÖ7uARACTE=DJUST ROUTbSER(
'P2', TI& h9SS2'['DELTet oFhNHANGI)ra
C VARIABLES WHICH ARE C6uTHIS TIBt',po-UM co:T-7NIX TetUNII END
SPECIERITRAT*iC-NIT.& Osp2E 'UNII A$b D TI& h9SS2'['DELTet b'J','otUNII END
SPECIERITRAT*iC-NIT.& Osp2E 'UNII A$b D TI& h9SS2'['DELTet b'J','otUNII END
SPECIERITRAT*iC-NIT.& Osp2E 'UNII A$b D TIL ┐uACT,: oFhNHANGY
C4:ABLES WHI3C
CS--- VELp4b-Nhe A$D
SPE 'UNIITED TN IBIF (LiITED TCuACT,GTNi0','
KSPK/'=et b'F(i>NGI)ra
lER pprbTUNFLA '($"SE5---NITID
S V='G'YN',p********CM/pKIARFhNHAFdc:I A$b D 4>M/')rmRAT*iC-NFh----------SS2',',LLE- VELpE' a co:TDfIF (LEVL1AGESI3 i0','Ff
5iiAEDEL' stABEEN muF (L .'or┐***lI)rIh[INC1', , = D B N)Cui N G FhGES HAG0GNO=iAEDuo"OS BEEN Glu$i0d4i=Gbhe A$ IcLP2', TITi-NY OT5F╚Nn--SS2',',LLE- VELuA'$'/
:rR 7E ',
:rR 7-17ue.4 'TIiGTN*b OTHER .')pR1tpcugBgrueOl----RAT*N I8, 'E :rR IS TI)1T TrR 7E 'TIETE' aROUhe A$TFhGo2gl+DTSTe5NRINGnCSTe57E ',
uI ( =$' S HAG05/,
:rR 7-1=et bluG
Nhe A$NaCIAFrlTTHA1',ISSAGES'=et bn I N GB A1e5NRINGnCf VAac'.', 'X$', '-NIa O 20 MEIh[INC'G '+', )', '+')GEGNA/
S WHI(NMSHICH E 'GaTROL b-- Tru',l ' (MSTOPIS, TOt1G--A$T
7 ROEQ., '.& Os| tu5D-ùOUL',p 1sF CHED.'EREEY---EtaQ., '.& Os
tu5D-iIeNWHICH A
LEVE' a A$eOl-╦Φ 'X$',km lAFrn I N GBG0bl ROEQ., '.& Os| tu5D-ùOUL' 70 F TOr. AARE CONTlAFrn I NBgG05/,d-g O 20 MEIh[dTOP','B','C','aIS NO Os
tu5D-iIeNWHIlbn I N GB I ( =INVOBlD BYBbhtuTVENGnCf VAegRMAlP1i>NGI)t b'F(i>Nq0oNaCIAFrtNGnCf t└81DiiAc╝Y rs, tr'TICiRP(TICil=1MAlP1idBC'
:mTHt17u5DC, S,-II HCI eEdL br'*', Fa MEIh[iITE, V3il=N G0oMA1rFFBNGn (LAETITTsMTTHiReDIWl FbiCu 70nL/kS, TINTROLil =kTHA1S, TINTRurn Os
kDII EreG TeDII HCL FgReDIWl/g O 20iTeDIInAELur.
C
C
C
C
C ll/wrCONTFNp)PeeblOfgIIr. SAGEdL br'*',AELur.CeEGb,Ao[ELu5DC, S,Ne-g=18m ROLi YgER TSIdkC=1',I I 0Ne-g=1[ELu5D(ie-g==',LE4INC,kDIS0=as$ A Ar. A Ar. AHA1',AE0oC 7D .AFrn OL/k318m ROLi Ys HCL SPEC$ .AFrY
oryNghty Klin3592-g=18y Klin3592n3592.LT4-g=1JCOL,JMAXghty Kliy KlilililililililililililililJINTAdm=K1999,(JINTAIo)ghtgONTRn3592you,REC=1)MNAME,POINC lose bte2-g=18ou gained d d d d d d d d5=188Fghty KlililililililililililiWRITIFghty Klin3592lililililiWRITIFghty Klin3592lililililiIS
F12R=R*1000220gh(y Kli18WRITE(9,RECCHAN98.LEVEmanRACe=1,0BETWEiN(*SyGO ',ght18 IFKPnRAM=JINTAJCOLmgh(y Kli18WRITE(9,RECMARK(dguPART6OF9STR1 . ()GO DRIEloseG)1l y KliJINTAJCOLm(2:2)=KAT(2:2)teO O O
P=JCOLgh('ght19ONT
t-JCOLeRomJMAXR=R*100031ughty KliJCOL=JCOL+Eghty KliIT=JINTAJCOLmghty KliJINTAJCOLm(2:2)=KAT(2:2)teO O O
Cte2-g=18C MM(3)/KSTCOM/telin351 Klin1KST1 K,KST2 K,KST3 K,KST4 K,KST5ghty Kl2 Klin,KST6in,KST7in,KST8in,KST9n,KST1ughty Kl3Klin,KST11n,KST12n,KST13n,KST14n,KST15ghty Kl4Klin,KST16n,KST17n,KST18n,KST19n,KST20ghty Kl5Klin,KST21n,KST22n,KST23n,KST24n,KST25ghty Kl6Klin,KST26n,KST27n,KST28n,KST29n,KST30ghty Kl7Klin,KST31n,KST32n,KST33n,KST34n,KST35ghty Kl8Klin,KST36n,KST37n,KST38n,KST39n,KST40ghty Kl9Klin,KST41n,KST42n,KST43n,KST44n,KST45ghty KlXKlin,KST46n,KST47n,KST48n,KST49n,KST50ghty KlXKlin,KST51n,KST52n,KST53n,KST54n,KST55ghty KlXKlin,KST56n,KST57n,KST58n,KST59n,KST60ghty KlXKlin,KST61n,KST62n,KST63n,KST64n,KST65ghty KlXKlin,KST66n,KST67n,KST68n,KST69n,KST7ughin359XKlin,KST71n,KST72n,KST73n,KST74n,KST75ghty KlXKlin,KST76n,KST77n,KST78n,KST79n,KST8ugh(at(ghty KliCanRACe=1*21KST10A10),KST2 A10),KST3 A10),KST4 A10),KST5 A10)telin359CanRACe=1*21KST6 A10),KST7 A10),KST8 A10),KST9 A10),KST10A10)telin359CanRACe=1*21KST11A10),KST12A10),KST13A10),KST14A10),KST15A10)telin359CanRACe=1*21KST16A10),KST17A10),KST18A10),KST19A10),KST20A10)telin359CanRACe=1*21KST21A10),KST22A10),KST23A10),KST24A10),KST25A10)telin359CanRACe=1*21KST26A10),KST27A10),KST28A10),KST29A10),KST30A10)telin359CanRACe=1*21KST31A10),KST32A10),KST33A10),KST34A10),KST35A10)telin359CanRACe=1*21KST36A10),KST37A10),KST38A10),KST39A10),KST40A10)telin359CanRACe=1*21KST41A10),KST42A10),KST43A10),KST44A10),KST45A10)telin359CanRACe=1*21KST46A10),KST47A10),KST48A10),KST49A10),KST50A10)telin359CanRACe=1*21KST51A10),KST52A10),KST53A10),KST54A10),KST55A10)telin359CanRACe=1*21KST56A10),KST57A10),KST58A10),KST59A10),KST60A10)telin359CanRACe=1*21KST61A10),KST62A10),KST63A10),KST64A10),KST65A10)telin359CanRACe=1*21KST66A10),KST67A10),KST68A10),KST69A10),KST70A10)telin359CanRACe=1*21KST71A10),KST72A10),KST73A10),KST74A10),KST75A10)telin359CanRACe=1*21KST76A10),KST77A10),KST78A10),KST79A10),KST80A10)teCte2-g=18C MM(3)/KST199/telin351 KlinKSTC1 K,KSTC2 K,KSTC3 K,KSTC4 K,KSTC5ghty Kl2 Kli,KSTC6in,KSTC7in,KSTC8in,KSTC9in,KSTC1ughty Kl3Klin,KSTC11n,KSTC12n,KSTC13n,KSTC14n,KSTC15ghty Kl4Klin,KSTC16n,KSTC17n,KSTC18n,KSTC19n,KSTC20ghty Kl5Klin,KSTC21n,KSTC22n,KSTC23n,KSTC24n,KSTC25ghty Kl6Klin,KSTC26n,KSTC27n,KSTC28n,KSTC29n,KSTC30ghty Kl7Klin,KSTC31n,KSTC32n,KSTC33n,KSTC34n,KSTC35ghty Kl8Klin,KSTC36n,KSTC37n,KSTC38n,KSTC39n,KSTC40ghty Kl9Klin,KSTC41n,KSTC42n,KSTC43n,KSTC44n,KSTC45ghty KlXKlin,KSTC46n,KSTC47n,KSTC48n,KSTC49n,KSTC50ghty KlXKlin,KSTC51n,KSTC52n,KSTC53n,KSTC54n,KSTC55ghty KlXKlin,KSTC56n,KSTC57n,KSTC58n,KSTC59n,KSTC60ghty KlXKlin,KSTC61n,KSTC62n,KSTC63n,KSTC64n,KSTC65ghty KlXKlin,KSTC66n,KSTC67n,KSTC68n,KSTC69n,KSTC7ughin359XKlin,KSTC71n,KSTC72n,KSTC73n,KSTC74n,KSTC75ghty KlXKlin,KSTC76n,KSTC77n,KSTC78n,KSTC79n,KSTC8ughty KliDIMENSI(3)KSTC10A6),KSTC2 A6),KSTC3 A6),KSTC4 A6),KSTC5 A6)ghty KliDIMENSI(3)KSTC6 A6),KSTC7 A6),KSTC8 A6),KSTC9 A6),KSTC10A6)ghty KliDIMENSI(3)KSTC11A6),KSTC12A6),KSTC13A6),KSTC14A6),KSTC15A6)ghty KliDIMENSI(3)KSTC16A6),KSTC17A6),KSTC18A6),KSTC19A6),KSTC20A6)ghty KliDIMENSI(3)KSTC21A6),KSTC22A6),KSTC23A6),KSTC24A6),KSTC25A6)ghty KliDIMENSI(3)KSTC26A6),KSTC27A6),KSTC28A6),KSTC29A6),KSTC30A6)ghty KliDIMENSI(3)KSTC31A6),KSTC32A6),KSTC33A6),KSTC34A6),KSTC35A6)ghty KliDIMENSI(3)KSTC36A6),KSTC37A6),KSTC38A6),KSTC39A6),KSTC40A6)ghty KliDIMENSI(3)KSTC41A6),KSTC42A6),KSTC43A6),KSTC44A6),KSTC45A6)ghty KliDIMENSI(3)KSTC46A6),KSTC47A6),KSTC48A6),KSTC49A6),KSTC50A6)ghty KliDIMENSI(3)KSTC51A6),KSTC52A6),KSTC53A6),KSTC54A6),KSTC55A6)ghty KliDIMENSI(3)KSTC56A6),KSTC57A6),KSTC58A6),KSTC59A6),KSTC60A6)ghty KliDIMENSI(3)KSTC61A6),KSTC62A6),KSTC63A6),KSTC64A6),KSTC65A6)ghty KliDIMENSI(3)KSTC66A6),KSTC67A6),KSTC68A6),KSTC69A6),KSTC70A6)ghty KliDIMENSI(3)KSTC71A6),KSTC72A6),KSTC73A6),KSTC74A6),KSTC75A6)ghty KliDIMENSI(3)KSTC76A6),KSTC77A6),KSTC78A6),KSTC79A6),KSTC80A6)gh(at(' you/KST/telin35iDATA1KST 1/'A','C','C','E','P','T',' ',' ',' ',' '/telin35iDATA1KST 2/'A','S','C','E','N','T',' ',' ',' ',' '/telin35iDATA1KST 3/'A','S','S','I','G','N',' ',' ',' ',' '/telin35iDATA1KST 4/'B','A','C','K','S','P','A','C','E','('/telin35iDATA1KST 5/'B','L','O','C','K','D','A','T','A',' '/telin35iDATA1KST 6/'B','U','F','F','E','R','I','N','(',' '/telin35iDATA1KST 7/'B','U','F','F','E','R','O','U','T','('/telin35iDATA1KST 8/'C','A','L','L',' ',' ',' ',' ',' ',' '/telin35iDATA1KST 9/'C','H','A','R','A','C','T','E','R',' '/telin35iDATA1KST10/'C','O','M','M','O','N',' ',' ',' ',' '/telin35iDATA1KST11/'C','O','M','P','L','E','X',' ',' ',' '/telin35iDATA1KST12/'C','O','N','T','I','N','U','E',' ',' '/telin35iDATA1KST13/'D','A','T','A',' ',' ',' ',' ',' ',' '/telin35iDATA1KST14/'D','E','C','O','D','E','(',' ',' ',' '/telin35iDATA1KST15/'D','I','M','E','N','S','I','O','N',' '/telin35iDATA1KST16/'D','O','U','B','L','E','P','R','E','C'/telin35iDATA1KST17/'D','O','U','B','L','E',' ',' ',' ',' '/telin35iDATA1KST18/'E','N','C','O','D','E','(',' ',' ',' '/telin35iDATA1KST19/'E','N','D','F','I','L','E','(',' ',' '/telin35iDATA1KST20/'E','N','D','I','F',' ',' ',' ',' ',' '/telin35iDATA1KST21/'E','N','D','F','I','L','E',' ',' ',' '/telin35iDATA1KST22/'E','N','T','R','Y',' ',' ',' ',' ',' '/telin35iDATA1KST23/'E','Q','U','I','V','A','L','E','N','C'/telin35iDATA1KST24/'E','X','T','E','R','N','A','L',' ',' '/telin35iDATA1KST25/'F','I','N','I','S',' ',' ',' ',' ',' '/telin35iDATA1KST26/'F','O','R','M','A','T','(',' ',' ',' '/telin35iDATA1KST27/'F','O','R','T','R','A','N',' ',' ',' '/telin35iDATA1KST28/'I','F','(','U','N','I','T',',',' ',' '/telin35iDATA1KST29/'F','U','N','C','T','I','O','N',' ',' '/telin35iDATA1KST30/'G','O','T','O','(',' ',' ',' ',' ',' '/telin35iDATA1KST31/'G','O','T','O',' ',' ',' ',' ',' ',' '/telin35iDATA1KST32/'I','F','A','C','C','U','M','U','L','A'/telin35iDATA1KST33/'I','F','Q','U','O','T','I','E','N','T'/telin35iDATA1KST34/'I','F','(','D','I','V','I','D','E','C'/telin35iDATA1KST35/'I','F','(','E','N','D','F','I','L','E'/telin35iDATA1KST36/'I','F','(','S','E','N','S','E','L','I'/telin35iDATA1KST37/'I','F','(','S','E','N','S','E','S','W'/telin35iDATA1KST38/'I','F','(',' ',' ',' ',' ',' ',' ',' '/telin35iDATA1KST39/'I','N','T','E','G','E','R',' ',' ',' '/telin35iDATA1KST40/'L','O','G','I','C','A','L',' ',' ',' '/telin35iDATA1KST41/'M','A','C','H','I','N','E',' ',' ',' '/telin35iDATA1KST42/'N','A','M','E','L','I','S','T',' ',' '/telin35iDATA1KST43/'P','A','U','S','E',' ',' ',' ',' ',' '/telin35iDATA1KST44/'P','R','I','N','T',' ',' ',' ',' ',' '/telin35iDATA1KST45/'P','R','O','G','R','A','M',' ',' ',' '/telin35iDATA1KST46/'P','U','N','C','H',' ',' ',' ',' ',' '/telin35iDATA1KST47/'R','E','A','D','I','N','P','U','T','T'/telin35iDATA1KST48/'R','E','A','D','T','A','P','E',' ',' '/telin35iDATA1KST49/'R','E','A','D','(',' ',' ',' ',' ',' '/telin35iDATA1KST50/'R','E','A','D',' ',' ',' ',' ',' ',' '/telin35iDATA1KST51/'R','E','A','L',' ',' ',' ',' ',' ',' '/telin35iDATA1KST52/'R','E','T','U','R','N',' ',' ',' ',' '/telin35iDATA1KST53/'R','E','W','I','N','D','(',' ',' ',' '/telin35iDATA1KST54/'S','E','G','M','E','N','T',' ',' ',' '/telin35iDATA1KST55/'S','E','N','S','E','L','I','G','H','T'/telin35iDATA1KST56/'S','T','O','P',' ',' ',' ',' ',' ',' '/telin35iDATA1KST57/'S','U','B','R','O','U','T','I','N','E'/telin35iDATA1KST58/'T','Y','P','E',' ',' ',' ',' ',' ',' '/telin35iDATA1KST59/'W','R','I','T','E','O','U','T','P','U'/telin35iDATA1KST60/'W','R','I','T','E','T','A','P','E',' '/telin35iDATA1KST61/'W','R','I','T','E','(',' ',' ',' ',' '/telin35iDATA1KST62/'O','V','E','R','L','A','Y',' ',' ',' '/telin35iDATA1KST63/'I','D','E','N','T',' ',' ',' ',' ',' '/telin35iDATA1KST64/'F','R','E','Q','U','E','N','C','Y',' '/telin35iDATA1KST65/'I','M','P','L','I','C','I','T',' ',' '/telin35iDATA1KST66/'L','E','V','E','L',' ',' ',' ',' ',' '/telin35iDATA1KST67/'E','L','S','E','I','F',' ',' ',' ',' '/telin35iDATA1KST68/'E','L','S','E',' ',' ',' ',' ',' ',' '/telin35iDATA1KST69/'T','H','E','N',' ',' ',' ',' ',' ',' '/telin35iDATA1KST70/'C','L','O','S','E','(',' ',' ',' ',' '/telin35iDATA1KST71/'I','N','C','L','U','D','E',' ',' ',' '/telin35iDATA1KST72/'I','N','Q','U','I','R','E','(',' ',' '/telin35iDATA1KST73/'I','N','T','R','I','N','S','I','C',' '/telin35iDATA1KST74/'O','P','E','N','(',' ',' ',' ',' ',' '/telin35iDATA1KST75/'P','A','R','A','M','E','T','E','R',' '/telin35iDATA1KST76/'S','A','V','E',' ',' ',' ',' ',' ',' '/telin35iDATA1KST77/'B','A','C','K','S','P','A','C','E',' '/telin35iDATA1KST78/'E','N','D',' ',' ',' ',' ',' ',' ',' '/telin35iDATA1KST79/'R','E','W','I','N','D',' ',' ',' ',' '/telin35iDATA1KST80/'C','L','O','S','E',' ',' ',' ',' ',' '/te(at(' you/KST199/te(' you********* NOTE - KPOS IS ADDED TO INSULATE PASS1 FROM ADDITI(3Ste(' youTO ABOVE TABLE. WHEN ADDING NEW STATEMENTS, SET KPOS TO THEte(' youNEW VALUE OF NKST RATHER THAN THE ORDINAL POSITI(3 OF THE NEWte(' youADDITI(3 TO THE TABLE.te(' yououououououououNINSinKLASS JTYPE NANSIlinKSTROK KlinKPOStelin35iDATA1KSTC51 /y Kl6,ty Kl7,ty K33,ty K1,uououou0,uououou 1/telin35iDATA1KSTC52 /y Kl6,ty Kl2,ty K1 ,ty K1,uououou0,uououou 2/telin35iDATA1KSTC53 /y Kl6,ty Kl7,ty K2 ,ty K0,uououou0,uououou 3/telin35iDATA1KSTC54 /y K10,ty Kl7,ty K47,ty K0,uououou0,uououou 4/telin35iDATA1KSTC55 /y Kl9,ty Kl2,ty K4 ,ty K0,uououou0,uououou 5/telin35iDATA1KSTC56 /y Kl9,ty Kl6,ty K5 ,ty K1,uououou0,uououou 6/telin35iDATA1KSTC57 /y K10,ty Kl6,ty K5 ,ty K1,uououou0,uououou 7/telin35iDATA1KSTC58 /y Kl4,ty Kl7,ty K6 ,ty K0,uououou1,uououou 8/telin35iDATA1KSTC59 /y Kl9,ty Kl3,ty K46,ty K0,uououou0,uououou 9/telin35iDATA1KSTC10 /y Kl6,ty Kl3,ty K7 ,ty K0,uououou0,uououou10/telin35iDATA1KSTC11 /y Kl7,ty Kl3,ty K46,ty K0,uououou0,uououou11/telin35iDATA1KSTC12 /y Kl8,uouou4,ty K8 ,ty K0,uououou0,uououou12/telin35iDATA1KSTC13 /y Kl4,ty Kl3,ty K9 ,ty K0,uououou1,uououou13/telin35iDATA1KSTC14 /y Kl7,ty Kl7,ty K10,ty K1,uououou0,uououou14/telin35iDATA1KSTC15 /y Kl9,ty Kl3,ty K11,ty K0,uououou0,uououou15/telin35iDATA1KSTC16 /y K10,ty Kl3,ty K12,ty K0,uououou0,uououou16/telin35iDATA1KSTC17 /y Kl6,ty Kl3,ty K13,ty K0,uououou0,uououou17/telin35iDATA1KSTC18 /y Kl7,ty Kl7,ty K10,ty K1,uououou0,uououou18/telin35iDATA1KSTC19 /y Kl8,ty Kl7,ty K47,ty K0,uououou0,uououou19/telin35iDATA1KSTC20 /y Kl5,ty K11,ty K48,ty K0,uououou0,uououou20/telin35iDATA1KSTC21 /y Kl7,ty Kl6,ty K15,ty K0,uououou0,uououou21/telin35iDATA1KSTC22 /y Kl5,ty K11,ty K3 ,ty K0,uououou0,uououou22/telin35iDATA1KSTC23 /y K10,ty Kl3,ty K17,ty K0,uououou0,uououou23/telin35iDATA1KSTC24 /y Kl8,ty Kl3,ty K3 ,ty K0,uououou0,uououou24/telin35iDATA1KSTC25 /y Kl5,ty Kl3,ty K18,ty K1,uououou0,uououou25/telin35iDATA1KSTC26 /y Kl7,ty Kl5,ty K19,ty K0,uououou1,uououou26/telin35iDATA1KSTC27 /y Kl7,ty Kl2,ty K20,ty K1,uououou0,uououou27/telin35iDATA1KSTC28 /y Kl8,ty Kl7,ty K42,ty K1,uououou1,uououou28/telin35iDATA1KSTC29 /y Kl8,ty Kl2,ty K35,ty K0,uououou0,uououou29/telin35iDATA1KSTC30 /y Kl5,ty Kl7,ty K23,ty K0,uououou0,uououou30/telin35iDATA1KSTC31 /y Kl4,ty Kl7,ty K24,ty K0,uououou0,uououou31/telin35iDATA1KSTC32 /y K10,ty Kl7,ty K25,ty K1,uououou1,uououou32/telin35iDATA1KSTC33 /y K10,ty Kl7,ty K26,ty K1,uououou1,uououou33/telin35iDATA1KSTC34 /y K10,ty Kl7,ty K27,ty K1,uououou1,uououou34/telin35iDATA1KSTC35 /y K10,ty Kl7,ty K28,ty K1,uououou1,uououou35/telin35iDATA1KSTC36 /y K10,ty Kl7,ty K29,ty K1,uououou1,uououou36/telin35iDATA1KSTC37 /y K10,ty Kl7,ty K30,ty K1,uououou1,uououou37/telin35iDATA1KSTC38 /y Kl3,ty Kl7,ty K31,ty K0,uououou1,uououou38/telin35iDATA1KSTC39 /y Kl7,ty Kl3,ty K46,ty K0,uououou0,uououou39/telin35iDATA1KSTC40 /y Kl7,ty Kl3,ty K46,ty K0,uououou0,uououou40/telin35iDATA1KSTC41 /y Kl7,ty Kl2,ty K1 ,ty K1,uououou0,uououou41/telin35iDATA1KSTC42 /y Kl8,uouou3,ty K32,ty K1,uououou0,uououou42/telin35iDATA1KSTC43 /y Kl5,ty Kl6,ty K3 ,ty K0,uououou1,uououou43/telin35iDATA1KSTC44 /y Kl5,ty Kl7,ty K33,ty K0,uououou1,uououou44/telin35iDATA1KSTC45 /y Kl7,ty Kl2,ty K35,ty K0,uououou0,uououou45/telin35iDATA1KSTC46 /y Kl5,ty Kl7,ty K33,ty K1,uououou1,uououou46/telin35iDATA1KSTC47 /y K10,ty Kl7,ty K36,ty K0,uououou0,uououou47/telin35iDATA1KSTC48 /y Kl8,ty Kl6,ty K37,ty K0,uououou0,uououou48/telin35iDATA1KSTC49 /y Kl5,ty Kl7,ty K38,ty K0,uououou1,uououou49/telin35iDATA1KSTC50 /y Kl4,ty Kl7,ty K33,ty K0,uououou1,uououou50/telin35iDATA1KSTC51 /y Kl4,ty Kl3,ty K46,ty K0,uououou0,uououou51/telin35iDATA1KSTC52 /y Kl6,ty Kl6,ty K39,ty K0,uououou0,uououou52/telin35iDATA1KSTC53 /y Kl7,ty Kl7,ty K47,ty K0,uououou0,uououou53/telin35iDATA1KSTC54 /y Kl7,ty Kl9,ty K34,ty K1,uououou0,uououou54/telin35iDATA1KSTC55 /y K10,ty Kl6,ty K40,ty K1,uououou0,uououou55/telin35iDATA1KSTC56 /y Kl4,ty Kl6,ty K41,ty K0,uououou1,uououou56/telin35iDATA1KSTC57 /y K10,ty Kl2,ty K35,ty K0,uououou0,uououou57/telin35iDATA1KSTC58 /y Kl4,ty Kl7,ty K33,ty K1,uououou0,uououou58/telin35iDATA1KSTC59 /y K10,ty Kl7,ty K44,ty K0,uououou1,uououou59/telin35iDATA1KSTC60 /y Kl9,ty Kl6,ty K45,ty K0,uououou1,uououou60/telin35iDATA1KSTC61 /y Kl6,ty Kl7,ty K38,ty K0,uououou1,uououou61/telin35iDATA1KSTC62 /y Kl7,ty Kl9,ty K34,ty K1,uououou0,uououou62/telin35iDATA1KSTC63 /y Kl5,ty Kl9,ty K22,ty K1,uououou0,uououou63/telin35iDATA1KSTC64 /y Kl9,ty Kl3,ty K21,ty K1,uououou0,uououou64/telin35iDATA1KSTC65 /y Kl8,ty Kl3,ty K3 ,ty K0,uououou0,uououou65/telin35iDATA1KSTC66 /y Kl5,ty Kl3,ty K3 ,ty K1,uououou0,uououou66/telin35iDATA1KSTC67 /y Kl6,ty K11,ty K43,ty K0,uououou1,uououou67/telin35iDATA1KSTC68 /y Kl4,ty K11,ty K49,ty K0,uououou0,uououou68/telin35iDATA1KSTC69 /y Kl4,ty K11,ty K 3,ty K0,uououou0,uououou69/telin35iDATA1KSTC70 /y Kl6,ty Kl7,ty K47,ty K0,uououou0,uououou70/telin35iDATA1KSTC71 /y Kl7,ty K11,ty K3 ,ty K1,uououou0,uououou71/telin35iDATA1KSTC72 /y Kl8,uouou7,ty K47,ty K0,uououou1,uououou72/telin35iDATA1KSTC73 /y Kl9,ty Kl3,ty K3 ,ty K0,uououou0,uououou73/telin35iDATA1KSTC74 /y Kl5,ty Kl7,ty K47,ty K0,uououou1,uououou74/telin35iDATA1KSTC75 /y Kl9,ty Kl3,ty K3 ,ty K0,uououou1,uououou75/telin35iDATA1KSTC76 /y Kl4,ty Kl3,ty K3 ,ty K0,uououou0,uououou76/telin35iDATA1KSTC77 /y Kl9,ty Kl6,ty K3 ,ty K0,uououou0,uououou77/telin35iDATA1KSTC78 /y Kl3,ty Kl8,ty K16,ty K0,uououou0,uououou78/telin35iDATA1KSTC79 /y Kl6,ty Kl6,ty K3 ,ty K0,uououou0,uououou79/telin35iDATA1KSTC80 /y Kl5,ty Kl6,ty K3 ,ty K0,uououou0,uououou80/telin35iENDtelin35iSUBROUTINE MOVSTR (J)telin35iINCLUDE 'TIDY.INC'te(at(' youADDSK1 BYTE TO STRING BY SHIFTING UNPROCESSED CHARS RIGHT.te(' youUSED BY HOLSCN WHEN REPLICATING APOSTROPHESte(atlin35iDOK10 I=JMAX,J,-1atlin35i5i5i5JINT(I+1)=JINT(I)tel10 CONTINUEatlin35iJMAX=JMAX+1atlin35iJINT(JMAX+1)=KERMatlin35iJ=J+1atlin35iJCOL =iJCOL+1atlin35iRETURNtelin35iENDtelin35iSUBROUTINE NOPRO (IFLAG)te(at(' youTHIS SUBROUTINE EXECUTES A HIGH-SPEED SEARCH FOR AN END STATEMENT.te(' youIF MP2 IS ON, CARD IMAGES ARE WRITTEN (3 TAPE 1 FOR USE BY PASS2.te(' youNO INTERNAL PROCESSING IS DONE ON THE STATEMENTS.te(atlin35iINCLUDE 'TIDY.INC'te(in35iSET INITIAL VALUES.te(atlin35iCALL IOSY11atlin35iCALL IOSY21atlin35iNRT2=0atlin35iNDEF=0atlin35iKLASS=1atlin35iITYPE=0atlin35iL15=0atlin35iIF (MP2.EQ.0) GO TO 20te(at(' youWRITE OUT STATEMENT CURRENTLY INiJINT.te(atlin35iIMAX=JMAXatlin35iKLASS=2atlin35iCALL IOSYS1 (3,KILI,SERIAL,JINT)telin35iNRT1=1atlin35iKLASS=3atlin35iIF (JMAX.GT.72)iCALL DIAGNO (28)telin35iGO TO 20te(at(' youREAD AND COPY CARD IMAGES BY WAY OF KBUFF.te(atl10 CALL READERatl20 NREC=NREC+1at(at(' youLOOK FOR LASTuNON-BLANK CHARACTER ON CARD.te(atlin35iI=72atl30 IF (KBUFF(I).NE.KBL) GO TO 40atlin35iI=I-1atlin35iIF (I.GT.7) GO TO 30atl40 IMAX=Iat(at(' youLOOK FOR END STATEMENT INiINPUT BUFFER KBUFFte(atlin35iJ=3atlin35iDOK50 I=7,IMAXatlin35iK=Iatlin35iIF (KBUFF(I).EQ.KBL) GO TO 50atlin35iIF (KBUFF(I).NE.KEND(J)) GO TO 60atlin35iJ=J-1atlin35iIF (J.EQ.0) GO TO 70atl50 CONTINUEatlin35iGO TO 60at(at(' youFOUND AN END CARD IF NEXT CHAR IS BLANK.te 7035iIF (KBUFF(K+1).EQ.KBL) KLASS=8te(at(' youWRITE OUT CARD IMAGE FOR PASS2.te(te 6035iIF (MP2.NE.0) THENtelin35iCALL IOSYS1 (3,KILI,SERIAL,KBUFF)telin35iNRT1=NRT1+1atlin35iENDIFte(at(' youGET NEXT RECORD UNLESS END CARD OR EOFatlin35iIF (IQUIT.NE.1.AND.KLASS.NE.8) GO TO 10at(at(' youCLOSE FILEatlin35iIF (MP2.NE.0) CALL IOSY12at(at(' youLOAD BUFFER, KBUFF, BEFORE EXITING.te(te 9035iIF (IQUIT.EQ.0) CALL READERatlin35iRETURNtelin35iENDtelin35iINTEGER FUNCTI(3 OPFIL(KUNIT,FNAME,KTYPE,KNOUT,EXPRES,LENGTH)te(-------------------------------------------------------------------------te(----uTHIS IS THE OPEN FILE FUNCTI(3 BY W.J. MEERSCHAERT & P.J. DAUGHERTYte(----uJULY 25,t1986te(----uDUMMY PARAMETERS ARE AS FOLLOWS:at(at(' yoIUNIT....UNIT 199BER OF THE FILE TO BE OPENED, PREFERRABLY > 20te( youFNAME....NAME OF FILE TO BE OPENED, IF SCRATCH, IT IS IGNORED,te(' yououououououoIF MISSING, IT IS PROMPTED FORat(' yoITYPE....TYPE OF FILE TO BE OPENED, AS FOLLOWS:at(uouououououo>035iRECL FOR A DIRECT ACCESS UNFORMATTED FILEat(uouououououo>100000 DIRECT ACCESS FORMATTED FILEiRECL=MOD(ITYPE,100000)te(' yououououou0youFORMATTED SEQUENTIAL FILEat(uouououououo<0youUNFORMATTED SEQUENTIAL FILEat(uouoINOUT....SPECIFIES WHAT THE FILE IS FOR:at(uouououououo-2ouoINPUT FILE, IF NOT EXIST, EXIT WITH ERROR CODEat(uouououououo-1ouoINPUT FILE, IF NOT EXIST, PROMPT USER FOR NEW NAMEte(' yououououou0youSCRATCH FILEat(uouououououo 1ouoOUTPUT FILE, IF EXIST, PROMPT USER FOR ACTI(3at(uouououououo 2ouoOUTPUT FILE, IF EXIST, OVERWRITE AUTOMATICALLYat(uouououououo 3ouoOUTPUT FILE, IF EXIST, APPEND AUTOMATICALLYat(uouououououo 4ouoOUTPUT FILE, IF EXIST, EXIT WITH ERROR CODEat(uouoEXPRES...EXPRESSI(3 FOR PROMPTING USER FOR FILENAMEte(' yoLENGTH...N99BER OF LINES INiOLD PART OF APPENDED FILEat(te('OPFILiRETURNS THE FOLLOWING:at(uouo0......ALL IS WELLat(uouo>0.....COMPILER OR SYSTEM ERROR MESSAGE (3 OPEN STATEMENTat(uouo1......USER EOF (3 AuREAD PROMPT (I.E., ABORT OPEN)te(' yo2......ERROR CODE BASED ONiINOUT, FILE M=NOT OPENEDat(te(-------------------------------------------------------------------------telin35iCHARACTER FNAME*(*),EXPRES*(*),ANStelin35iINTEGER DOSDEVatlin35iLOGICALoEXST,FILOPNtelin35iINCLUDE 'UNITS.INC'te(at(----uREASSIGNiINTEGER DUMMY VARIABLESte(atlin35iIUNIT=KUNITatlin35iITYPE=KTYPEtelin35iINOUT=KNOUTatlin35iLENGTH=0at(at(----uOPEN SCRATCH FILEat(atlin35iIF (INOUT.EQ.0) THENtelin35iin35iIF (ITYPE)K10,20,30atl10 OPEN (IUNIT,STATUS='SCRATCH',FORM='UNFORMATTED',ACCESS='SEQUEtelin351NTIAL',IOSTAT=OPFIL)telin35iin35iRETURNtel20 OPEN (IUNIT,STATUS='SCRATCH',FORM='FORMATTED',ACCESS='SEQUENTatlin351IAL',IOSTAT=OPFIL)telin35iin35iRETURNtel30 IF (ITYPE.GT.100000) THENtelin35iin35iin35iITYPE=MOD(ITYPE,100000)telin35iin35iin35iOPEN (IUNIT,ACCESS='DIRECT',STATUS='SCRATCH',RECL=ITYPE,atlin351FORM='FORMATTED',IOSTAT=OPFIL)telin35iin35iELSEtelin35iin35iin35iOPEN (IUNIT,ACCESS='DIRECT',STATUS='SCRATCH',RECL=ITYPE,atlin351FORM='UNFORMATTED',IOSTAT=OPFIL)telin35iin35iEND IFtelin35iin35iRETURNtelin35iEND IFte(at(----uCHECK FOR LOGIC OF ARGUMENTS AND FILE PROPERTIESte(atl4035iIF (FNAME.EQ.' '.AND.INOUT.NE.2) THENtelin35iin35iWRITE (STDERR,190) EXPREStelin35iin35iREAD (STDIN,200,END=170) FNAMEtelin35iin35iIF (FNAME(1:1).EQ.'?') THENtelin35iin35iin35iPAUSE 'Type DIR to see a list of files'telin35iin35iin35iFNAME=' 'telin35iin35iin35iGO TO 40atlin35iin35iELSEiIF (FNAME(1:1).EQ.'>'.AND.FNAME(2:2).NE.'>') THENtelin35iin35iin35iIF (INOUT.GT.0) INOUT=2atlin35iin35iin35iFNAME=FNAME(2:)telin35iin35iELSEiIF (FNAME(1:2).EQ.'>>') THENtelin35iin35iin35iIF (INOUT.GT.0) INOUT=3atlin35iin35iin35iFNAME=FNAME(3:)telin35iin35iELSEtelin35iin35iin35iIF (INOUT.GT.0) INOUT=1atlin35i5i5i5END IFtelin35iEND IFte(at(----uGET EXST AND FILOPNte(atlin35iINQUIRE (FILE=FNAME,EXIST=EXST,OPENED=FILOPN)te(at(' youDON'TuOPEN SAME FILE TWICE.atlin35iIF (FILOPN) THENtelin35iin35iWRITE (STDERR,210) FNAMEtelin35iin35iFNAME=' 'telin35iin35iGO TO 40atlin35iEND IFte(at(----uINPUT FILEat(atlin35iIF (.NOT.EXST.AND.INOUT.LT.0) THENtelin35iin35iIF (INOUT.EQ.-1) THENtelin35iin35iin35iWRITE (STDERR,220) FNAMEtelin35iin35iin35iFNAME=' 'telin35iin35iin35iGO TO 40atlin35iin35iELSEiIF (INOUT.EQ.-2) THENtelin35iin35iin35iGO TO 180atlin35iin35iEND IFte(at(----uOUTPUT FILEat(atlin35iELSEiIF (EXST.AND.INOUT.EQ.1) THENte(atlin35iin35iISDEV =i0at(at(' youDOS DEVICES ARE OK IF THEY EXISTatlin35iin35iISDEV =i DOSDEV(FNAME)telin35iin35iIF (ISDEV.GT.0) THENtelin35iin35iin35iINOUT=2atlin35iin35iin35iGO TO 60atlin35iin35iEND IFte(at(in35iOTHERWISE ASK USER WHAT TO DO.atl50 in35iWRITE (STDERR,230) EXPRES,FNAMEtelin35iin35iREAD (STDIN,240,END=170) ANStelin35iin35iIF (ANS.EQ.'o'.OR.ANS.EQ.'O') THENtelin35iin35iin35iINOUT=2atlin35iin35iELSEiIF (ANS.EQ.'a'.OR.ANS.EQ.'A') THENtelin35iin35iin35iINOUT=3atlin35iin35iELSEiIF (ANS.EQ.'n'.OR.ANS.EQ.'N') THENtelin35iin35iin35iFNAME=' 'telin35iin35iin35iGO TO 40atlin35iin35iELSEtelin35iin35iin35iGO TO 50atlin35i5i5i5END IFtelin35iELSEiIF (EXST.AND.INOUT.EQ.4) THENtelin35iin35iOPFIL=2atlin35iin35iRETURNtelin35iEND IFte(at(----uOPEN FILEte(te 6035iIF (ITYPE)K70,80,90te 7035iOPEN (IUNIT,FILE=FNAME,STATUS='UNKNOWN',FORM='UNFORMATTED',ACCESS=atlin351'SEQUENTIAL',IOSTAT=OPFIL)telin35iGO TO 100te 8035iOPEN (IUNIT,FILE=FNAME,STATUS='UNKNOWN',FORM='FORMATTED',ACCESS='Satlin351EQUENTIAL',IOSTAT=OPFIL)telin35iGO TO 100te 9035iIF (ITYPE.GT.100000) THENtelin35iin35iITYPE=MOD(ITYPE,100000)telin35iin35iOPEN (IUNIT,FILE=FNAME,STATUS='UNKNOWN',FORM='FORMATTED',ACCEatlin351SS='DIRECT',RECL=ITYPE,IOSTAT=OPFIL)telin35iELSEtelin35iin35iOPEN (IUNIT,FILE=FNAME,STATUS='UNKNOWN',FORM='UNFORMATTED',ACatlin351CESS='DIRECT',RECL=ITYPE,IOSTAT=OPFIL)telin35iEND IFtelin35iRETURNtel1005iREWINDiIUNITte(at(----uAPPEND IF REQUESTEDat(atlin35iIF (INOUT.EQ.3) THENtelin35iin35iIF (ITYPE)K110,120,120tel110 READ (IUNIT,END=130)telin35iin35iLENGTH=LENGTH+1atlin35iin35iGO TO 110tel120 READ (IUNIT,240,END=130) ANStelin35iin35iLENGTH=LENGTH+1atlin35iin35iGO TO 120tel130 REWINDiIUNITtelin35iin35iDOK1603N=1,LENGTHtelin35iin35iin35iIF (ITYPE)K140,150,150tel140 in35i READ (IUNIT)telin35iin35iin35iGO TO 160atl150 in35i READ (IUNIT,240) ANStel16035i CONTINUEatlin35iin35iEND FILE IUNITtelin35iin35iBACKSPACE (IUNIT)telin35iEND IFte(at(----uALL DONEat(atlin35iRETURNtel17035OPFIL=1atlin35iRETURNtel18035OPFIL=2atlin35iRETURNteCte(atl19035FORMAT (/T3,'Open the ',A,' file'/T3,'Enter a file name here: ')tel20035FORMAT (A)tel21035FORMAT (/T3,'File already open: ',A)tel22035FORMAT (/T3,'File not found: ',A)tel23035FORMAT (/T10,A/T3,'File exists: ',A/T5,'[O]verwrite'/T5,'[A]ppend'telin351/T5,'[N]ew file spec'/T3,'Enter here: ')tel24035FORMAT (A1)telin35iENDtelin35iSUBROUTINE PAGE (N)te(at(' youTHIS SUBROUTINE DOES THE GENERAL PAGE COUNTING FOR TIDY WHILEat(uououLIMITING THE OUTPUT TO MAXLIN LINES PER PAGE.te(at(' youin35iN>03--uI WILL WRITE N LINES. START A NEW PAGE IF NECESSARY.te(' youin35iN=03--uSTART A NEW PAGE.te(' youin35iN<03--uSTART A NEW PAGE IF .LT. -N LINES ARE LEFT.te(atlin35iINCLUDE 'TIDY.INC'telin35iINCLUDE 'UNITS.INC'teiin35iDATA MAXLIN /56/at(atlin35iIF (N)K10,30,20te(' yououououououououououououoCONDITI(3ALoEJECT (NO LINES WRITTEN)tel10 IF ((LINE-N).LE.MAXLIN)iRETURNtelin35iGO TO 30atl20 LINE=LINE+Ntelin35iIF (LINE.LE.MAXLIN)iRETURNte(' yououououououououououououoMAKE NEW PAGEatl30 IF (LINE.EQ.0) RETURNtelin35i LINE=0atlin35i5i5IF (N.GT.0) LINE=Ntelin35i NPAGE=NPAGE+1atlin35iin3MPAGE=MPAGE+1atlin35iin3WRITE (OUTFIL,40) NROUT,IPASS,MPAGE,NPAGE,JOBatlin35iRETURNteCte(atl40youFORMAT (/1H1,6X,'* T I D Y * in35i ROUTINE',I4,4X,4HPASS,I2,2X,atlin3514HPAGE,I3,21X,4HPAGE,I4/7X,80A1/1X)telin35iENDtelin35iSUBROUTINE PASS1at(at(' youTHIS ROUTINE COLLECTS STATEMENT N99BERS,oMAKES DIAGNOSTIC COMMENTSat(' youAND SETS UP THE FORTRAN STATEMENTS INiAuFORMiSUITABLE FOR PASS2.te(te in35iINTEGER JTMP(8)telin35iINCLUDE 'TIDY.INC'telin35iINCLUDE 'UNITS.INC'teiin35iCHARACTER*2 JNT,JT,ICH,KUPPER,PRVCPYteiin35iDIMENSI(3 KSTC(5)telin35iLOGICALoBAKSCNat(at(' youAn35iBn35iCn35iDn35iEn35iFn35iGn35iHn35iIn35iJn35iKn35iLiin3Mat(' you1ouo 2ouo 3ouo 4ouo 5ouo 6ouo 7ouo 8ouo 9 you10you11ouo12ouo13at(at(' youNn35iOn35iPn35iQ Rn35iS youT youU youViin3Wiin3Xiin3Yiin3Zat(' you14ouo15ouo16ouo17ouo18ouo19 yo20 21ouo22ouo23ouo24ouo25ouo26at(at(' you= you, you( you/ you) you+uouo-uouo* in3. in3$uouo-uouo'uouo& NONEat(uouou1ouo 2ouo 3ouo 4ouo 5ouo 6ouo 7ouo 8ouo 9 you10you11ouo12ouo13ou14teCte(at(uououSET UP INITIAL CONDITI(3S.te(' youREWINDiTAPE FILESu1oAND 2.te(te 10youCALL IOSY11atlin35iCALL IOSY21atlin35iDOK20 I=1,10atlin35i5i5i5LDOS(I)=0atl20 CONTINUEatlin35iIMAX=1326atlin35iIPASS=1atlin35iICOL=0atlin35iKOUNT=0atlin35iMP2=1atlin35iNBLC=2atlin35iMPUN=KPUNatlin35iMPRIN=KPRINatlin35iNROUT=NROUT+1atlin35iNRT1=0atlin35iNRT2=0atlin35iMILDO=0atlin35iMLGC=-1atlin35iMSKP=0atlin35iMPAGE=0atlin35iMTRAN=0atlin35iNDEF=0atlin35iNDOS=0atlin35iNFORT=0atlin35iNREC=0atlin35iNREF=0atlin35iL25=0atlin35iNTRAN=0atlin35iNXEQ=0atlin35iNIFBLK=0atlin35iGO TO 50at(at(' youin35iin35i5i5ILLEGAL FIRST CHARACTER.atl30 JGOOF=9at(' youin35iin35i5i5WRITE DIAGNOSTICatl40youCALL DIAGNO (JGOOF)te(' youououououin35iGET NEW CARD.te(' you(UNLESS EOF ALREADY)telin35iIF (IQUIT.NE.0) RETURNtel50youCALL SKARDatlin35iNXRF=1atlin35iIF (IMAX.LT.ICOL)iIMAX=ICOLatlin35iDOK60 I=1,IMAXtelin35iin35iIOUT(I)=KBLte 6035iCONTINUEatlin35iIMAX=0at(at(' youLOOK FOR * INiCOLUMN 1at(atlin35iIF (JINT(1).NE.KSPK(8))iGO TO 110telin35iCALL CONTRLatlin35iIF (ISTAR)K70,90,100te(' youououououin35iCONTROL CARD FOUND AND EXECUTED.te 7035iIF (MSTOP.EQ.0) GO TO 80te(' yououououououououououououo*STOP CARD FOUND. QUITiIF FIRST OF ROUTINEatlin35iIF (NFORT.LE.0) RETURNte(' yououououououououououououoOTHERWISE BUILD ANiEND CARDatlin35iGO TO 1100te 8035iIF (MSKP.EQ.0) GO TO 50atlin35iMP2=0telin35iCALL NOPRO (0)telin35iGO TO 10te(' youououououin35iCONTROL CARD FOR DELAYED EXECUTI(3. SAVE FOR PASS 2.te 9035iKLASS=0atlin35iGO TO 210te(' youououououin35i* INiCOLo1. NOT AiCONTROL CARD. iPUT OUT LITERALLYte(' youououououin35iUNLESS * INiCOLo2. ALSO.atl1005iIF (JINT(2).EQ.KSPK(8))iGO TO 50atlin35iGO TO 200at(at(' you*STOP COMMAND EXIT.te(at(' youNO * INiCOLUMN 1,uLOOK FOR C, D, I, F, ., OR $.u(UPPER CASE)te(atl110 IF (JINT(1).EQ.KBL)iGO TO 260atlin35iJINT(1)=KUPPER(JINT(1))telin35iIF (JINT(1).EQ.KABC(3))iGO TO 150atlin35iIF (JINT(1).EQ.KABC(4))iGO TO 130atlin35iIF (JINT(1).EQ.KABC(9))iGO TO 130atlin35iIF (JINT(1).EQ.KABC(6))iGO TO 130at(' youLOOK FOR ANY SP.0) RETURin35,NwR lin35iiGO
noS(3)FILOFORMAT (A)tel21035FORMAT (/T3,'File 3.EQ.MPUNITS.INC'teiin35iCPRVin35iDIMENSlin35iLOGICALoBAKSCNat(at(+4ouo15oule ououoEQ.KuououououoOTHERWISE BUILD ANiEND CARDatlin35iGO TO 1100te 8035iIF (M'SCR28)K14REMATNROL CARD FOR DELAYED EXECUTI(3. SAVE FOR PASS 2.te 9035iKLASS=IFtee 9035OWN'elin35iin35iin35iITYPE=MOD(ITYPE,100000)telin35iin35iin35iOPENS=IINUEatlin35iin358tel130 REWINDiIUNITtelin35iin35iDOK1603N=1iin35iOPENS=I* INiCOLUEW CNTROL CARD FOR DELAYED EXECUTI(3. SAVE FOR PASS 2.te 9035iKLASS=5iIF·ET NEW CARD.te(' you(UNLESS EOiEND IFtelin35iin35iRETURNtelin35iEND IFte(at(----uCHECK FOR LOGIelin35iEND IFte(at(----uCHECK FOR LOGIC OF ARGUMENTS AND FILE gaE='e no CARD FOR DELAYED EXECUTI(3. SAVE FOR PASS 2.te 9035iKLASS=0atlin0) ND=170) FNAMEtelin35iin35iIF (FNAME(1:1).EQ.'?') THENtelin35iin35iin35iPAUSE 'Type DIR to see a lCARD FOLL DIAGNO (2hn35iLOGARE L,' file'/T3,'Enter ae ouatlineCNTROL C(atl.E+1atlin35iin3 SAME Flinr. cLIN /56/gR C, D,)EQ.Ikelin35iinRD FOR youououou SAVE FIFt you
l35i5i5WRITE DIAGNOSTICatl40lC OF ARGUMENTS AND Fae oETURNtelin35i LINEE F-UMENTS ANDTE DIAGNOSTICatS=IFtee 9rn35iIF (N)K10,30,20te(' youououououououououououcLIN /56/gR C, D,)EQ.GO TO 130atlinTU youViin3EdiGO
niIF rlt(JINT(1).EENS=IINU3e oT'telin35lin35i LINEE F-UMEA DIR tgR C, D,)EQ.Ik2,2X,ae tgR8iinRD FOsiGO TO 4ee a lCAR-oOS STDvEMEA DIm35iIF (FNAME(1:1).EQ.'2hn35iLOGARE L,'MEA . cLIuOsiGO TO 7OR *S DImsiGO Tm REAeE F-ULLEONT lCARD FLtr ae ouae='ef.'2hhnGO 7=SoT'tele0L-ULLEONiCON lCAR-sGARE L,' file'STICat40,150, AiCON-GNO (tC, EQ.KQ.'2hoGO TO 2 FOsiGOEQ.KuoNAME(1:1)e 9rn35iIF (N)K10,30ououou) you+uouo-uouo* in3l=EQ.K=yououin3EdirmFOR LLE FILESu17weclQ.KuoN,2X,ae Om STDvEMED n35fMin35i X35,NwLLEONT lrououou =EQrlxCat40,at4)EQ.rINE',I4,4X,4HPASSe om STD]}ile sprESutTUiIF (N)K1iPASyouCiPASyouCiPASyouD]}iR835ln35iIFOR LLE FILESua1T2CAR-oOmFOR p (/TT C,KABC(4)5fMinoT TO "gRRKiiDOK1603NQ.'2-, n35oT telin35iin35iDOK1603N=1iin35iOPl50atoiEND CARhTU y1iPASyEONT lFououcn35iLOt40ERe0=
.KQnITh o2> UEW CNTROL CARD FOgouLOOK FO70,uTnPASSe ieOin35iPAUoT' CARD FOgtL ILATO "gOdiPASlCR XECUTI(3. USTDvEIF .LT.e s 9rn35iIF NXEQ=0hO 2 1atlin35eRD FLtr ae oECUl SyE EXIT.te(at(' yoiin35iGO TO 110tel120 READ (IUNIT,240,END=130) ANStelin35iin35iLENGTH=LENGTH+1atlin35iin35iGO TO 120tel130 REWINDiIUNITtelin35iin35iDOK1603N=1,LENGTHtelin35iin35iin35iIF (ITYPE)K140,150,150tel140 in35i READ (IUNIT)telin35iin35iin35iGO TO 160atl150 in35i LESuaNC'teiiniin='te (N) D fMin35 yo,uT>)e IiIF35iDOK1kDfeUuouiAPE FIL'TIDY.INC s *aNCMAX=ICHARAX)telie)0 n3he SAM5iin150aiin='F35iDOEND=5i yAYED Eon350tel14R PAkGO TO 160a+uTnPASSe 1205iiAGE=MPAGE+1(5FL n3he e80,h3in3lDINiCOLND=1T A(S=IINUn35iinENTSat('Sf"l35iin3mOK1kauME(1:1).EITYPE)K14-an3l=EQ.K=you lC6>an3l=EQ.. REWINDiIn='te (NrE='F35iDOyTAN=0atliph3i
OLoC0,150tel140 in35i REA35eTSR PAelin35iin3g35iat('Sfte (35iin35iin35iOPENS D bGE+,150,150t35iE
N=1,LENGudk2,2X,aeEPtelS D b IF NE',I4,4X,4HloeinoTt('SftAuouiAOLL DIGOouo26 INinENTSat('Sf╤lECK lin30a+ulin35y:f╤l
OLoC0,150tel140 in35i REA35eTSR PAelin35iin3g35iat('Sfte (35iin35iin35iOPENS D bGE+,150,150t35iE
N=1,LENGudk2,2X,aeEPtelS D b IF-m no iOPENp)=0atl20 o0teln35y:f╤l
OLo
OLoat('SfLl
OLoC0,150te (35:NTSat('Sf╤DOENDgG DIR tgR C, D,,150te (3 AND EXECUT3g35iouo15oulECALL 35i:1).hX b MAX= nSTICnnGO 7m no in35i5E
uouououatS=IFED E3SfLlvSDvRiIMAX=0at1).hX b MAX= nSn3l)0 5REW SPO_gtL ILATOoEyin35i5i5WgNEatlin35iIF=0at1no E-f35iinRD FOR╟.EENS C35iNBLC=2atlin3 REWIN31no E-fl1205iiAPPER(Jh D b IFf) RETURNtelin35i LINE=0atlin35i5i5IF (N.GT.0) LR5iin358E',DIR tgR C, D,,150te (3 AND EXECUT3g35iouo15oulECALL 35i:1).hX b MAX= nSTICnnGO 7m no in35i5E
uouououatS=IFED E3SfLlvSDvRiIMAX=0at1).hX b MAX= nSn3l)0 5REW SPO_gtL ILATOoEyin35i5i5WgNEatlin35iIF=0at1nh sf"l35iin.EIT/Cn35mO.KuoNTICnnGO 7m no inBlo.GTuououo1535ln35iIFOR
DIGOouo26 INinENT D aa l)IF=0at1no E-f3t('SfLl
OIF-D0IER(JR C,NE=0atlin35i5i5IAX=0lu in35iin-ndlin35i35iIF=0at 5X= nSn3l)0 5REW SPO_gtL ILATOoEyin35i5i5WgNEatlin35iIF=0at1nh sf"l35iin.EIT/Cn35mO.KuoNTICnnGO 7m no inBlo.G-PrX,4RT+1 (JINT(1b MAC you iSfLl
E Flinr. cLI7OR *Fno iin358E E-TElouNO in35iin35iDOK1635,NwR/T3,'Ent35io0teln3Ah35,Ntelin35iin35iin3iSfbhEanC,KABCln35 a\/CUTI(3. USo FLtvURNtelin3u35i5E
uouououea$D,150tESlC6>I7OR *Fno iin358E E-TElouNO5 a\/CUTI(catl10$D,150tESlC6>I7O5iin3 nSnYn3l)0SfL=1iin35iO150tESlSin35iO150tESlSiLI7 lFououcn3cat sf"lmteln35rue DIGOouo2NDEF=0a('Sft Rln3L40 in35io0teln3AB5io0teln36>I7O5iin3*E='F35iDOEND=5i yAYED Eon350tel14R PAkGO TO 160a+"K60 I=1,IMAXtelin35i3 nSnWo12ou.K=youSnYn3l15oulECIMAXtelin335ivSDvRiIMAhnulOBaio0tellMBaio0tellMBtuMeTSR PAelin35ie6MoTURNtelin35iENDo0tENT D aa l)DanYn3l)0SfL=1iin35iO150tESlSin35iO150tESlSiLIoriLIoTSR PAC6>I7O "g in-335ivSDR pdn3l15oulEteln3l15Cp[ogSfL=1nat40,150, Daio0teRSAVE,J!at('Sf╤DOENDgG DIR tgR C, D,,150te (3 AND EXECUT3g35iouo15oulECALL 35i:1).hX b MAX= nSTICnnGO 7m no in35i5E
uouououatS=IFED E3SfLlvSDvRiIMAX=0at1).hX b MAX= nSn3l)0 1ka nSOTHE in&DOK60 D dfin-ndlFliC, pEs""K60 I0, Dai9,NteliAX=0anteln3laeL3l)0SfLoHnk2,2Xlin35ifn35 CN35iDOyTA=youSiRMAhnul/9 in35i5E
u59Lin3M5eTSaMAX= no FCrt D,)ELC=2atliEQ.vRiIM(yTA
ED E3SfLlvSSin3TnGO eTSAVE F)IF=0n35iCALLivSDR 150t-)K60 D dfin-ndlFL3l)0SfLoln3EP15Cp[ogSfOGARIorlin35rD,,Eru7R5fOGANE FILnmnFoRLL ILATO, pEs"n3g35inSnWonpEs"'IR 5ioCABC(4))iGn3gl)DanYn3l15oulEtelulE CAL=1nat40E FILn150t-)K60 D dfin-ndlF9 lFououTnGO eTSAVSin3a35iin3bNDgG: dfin-ndl,73caOle REW SPO_gtLDIGOteln3lati0oILn150=IL'TT).hTuouonlm.te 5fOnpOXECUT3g35ionpr≥G DIR tE+,15oucn3cat sf"lmteln35rue DIGOouo2NDEF=0a('Sft Rln3L40 in35io0teln3AB5io0teln36>I7O5iin3*E='F35iDOEND=5i yAr 'Type DIR touYCUT3g35ionAhnu73caOle REW-ndl,7aOli5WAo=0atl20me) RETfin-ndlF9 ru7D IF8et1n in35iBtuMeTSR PAelO 160atl1taiDOEPAS 2NDEF=0a('ulECALL 35i:1).hX b MAX= nSTICnnGOarHE io.G-E FILn150tIFf) OO C, D,)EQ.GOxg-ndlFliC50tIFf) OX0SfLoln3'F35iDOEl150,150tel14iLIoriLIlInli5WAo touYCUicAWAo touYCUtt'TTntLmCALmTlF-ULLmMsIbNDEF=ALL 35i:1)C--335ivSDR pdn3l15oulEteln3l15Cp[ogSfL=1nat40,150, Daio0teRSAVE,J!at('Sf╤DOENDgG DIR tgR C, D,,150te (3 AND EXECUT3g35iouo15oulECALL 35i:1).hX b MAX= nSTICnnGO 7m no in35i5E
uouououatS=IFED E3SfLlvSDvRiIMAX=0at1).hX b MAX= nSn3l)0 1ka nSOTHE in&DOK-5*cAWAo to-[W,SPOVGi35iIFOR
N=1,LENGudk2,2X,aeEPtelSOK1635,NwR)o,2X2╫ouladououououoM9035indlAVE F)IFn!aeRSAVILATO, pEs"oLATO, p F)IFn6RPafSOT╦p
DIkTUiIF5E
IFf)FED E3SfL/Cn35gR C, De150T lFouoTlin!a nSOTfL=1naIpy/Cns L40 Puououcb5iGO TO 16OTHER3gl)D40 Puououn1ohI7O5ik 16OTHER3gl)D40 =1naIp FOsGNO (tC, EQ.KQ.'2hoGO TO 2 FOsiGOEQ.KuoNAME(1:1)e 9rn35iIF (N)K10,30ououou) you+uouo-uouo* in3l=EQ.K=yououin3EdirmFOR LLE FILESu17weclQ.KuoN,2X,ae Om STDvEMED n35fMin35i X35,NwLLEONT lrououou =EQrlxCat40,at4)EQ.rINE',I4,4X,4HPASSe om SD EXEuEQ.KR pdn3l15oulEteln3ln35i X35,NwLLe Omln3laOTHE nSOTHE iuEQ.KR pv2laOThrNOT iuBlin35y:EfThrSnYn3laOTh8OTHEN31no >ug39P in3φL5E
IFL3l)at(at(+4ouo15oule ououoEQ.KuououououoOTHERWISE BUILD ANiEND CARDatlin35iGO TO 1100te 8035iIF (M'SCR28)K14REMATNROL CARD FOR DELAYED EXECUTI(3. SAVE FOR PASS 2.te 9035iKLASS=IFtee 9035OWN'elin35iin35iin35iITYPE=MWISE c70) FNAMEtelin35iin35iIF (FNAME(1:1).EQ.'?') THENtelin35iin35iin3, F, AVE FOR PASS 2n35iIELAYED EX7& Ftlin35iGO TO 200at(at(' you*STOP COMMAND EXIT.te(at(' youNO * INiCOLUMN 1,uLOOK FOR C, D, I, F, ., OR $.u(UPPER CASE)te(atl110 IF (JINT(1).EQ.KBL)iGO TO 260atlin35iJINT(1)=KUPPER(JINT(1))telin35iIF (JINT(1).EQ.KABC R PASS 2.te 9035iKLASS=IFtee 9035OWN'elin35iin35iin35iITYPE=MWISE)FILOFORMAlCR 8035iIF )FILOFOR=MWISPf1iin35iOPl50atoiEND CARhTU y5i Xle'STeMWISE c7E
IF. DIGOouo26 INiK1603N=ABCr. v2laOThrCARhTU y5Bgou*STd-g0 IF (JINTd240,END=130) ANSteliBgou*STd-gNT(1)=KUPPER(JINT(1))telin3BED EXECURd F, .,IGOouo2NDEF=0a(JINTd240,END1IGOorntrst3iRE18e 9S.KABC C, TiASST0lED kt╘mMsIbNDEF=AINT(1))telin3BED EXECURd F, .,IGOouo2NDEF=0E FOR ee 9035OWno E-elin
35iE, ItSTd- EXECURdOFO)telin3BEOtO IF (JINf_2nin35ii INiK1603N=o15oulECALLfRD 81tE] kt╘mMsIK ,LEEt(' nLEQ.LFBEDtelin35iIF (JINT(t35u(UPPER in-ndlF9 0teln36>I7O5iin3*E='F35i>ug)O3E PE=MWI "gRRKiiNGO 7m no inBlo.Gcn3cat s e80,h3in3lD E, ggR C, DeEOtO IF (JI=0E>ug)e(at(' yo E, ggR C, bg(3. SAVE FO mO IF (JINel140 1UE c7gR C, br⌐s>ug[R C, bg(, beINel1╬rCoH e3cab.FteRhTU y5-NO IF (JINeln&DOKgNNel140 nSn3 REWIN31nSST0l iniGiI7OououoEQ.e=KUPPER(H35iIF 5gR n35iJdNREWINDiIn=eOouladououo"K6bN-7m nSS M(yTA
ououououobD-kR C40 1IPsDIGbOtaTSAfouaTT).hTuouonlm.te 5fOnC0,GiI7OOlMIN31noDStelin35n35iDOK163 pEs"n3oDmRpEXEcs3l)t IF (JI=0E>ugpD COMMATntL[ oulECAug)e(at('Ocn3y)SuuonAhOn15i IF (J35iIELAYat1).hX b MAX= nSTICnnGO 7m no in35i5E
uouououatS=IFED E3SfLlvSDvRiIMAX=0at1).hX b MAX= nSn3l)0 5REW SPO_gtL ILATOoEyin35i5i5WgNEatlin35iIF=0at1no E-f35iinRD FOR╟.EENS C35iNBLC=2atlin3 REWIN31no E-fl1205iiAPPER(Jh D b IFf), bg(, beINeo inBlE-fl1205i ininBlrATO, p F)7lc7nenAX= nSTICncentL[ oulEC)FED E3SfL/C6 INinENT DRR35idirrXECURdIF=0nBlrATrXECado6 IN g5WAo=0l5CUiclk0te RdIF=0te 5fOnhTukEn3oDmRl)t IF rte I=0E>ugpD COMMATntL[hX b M┼flE-fl1cBC C IF ┼flE-r1iin35)telin3BE1clkkyDTe2STICURT[ oo0X br inhieoriLIlEWIN31no ATYPT yoclkkyD (JI=0E>5iE, ITTA
tel2atl0teRSAVILAirrXECUR, beINeo bINinENT no 7nenAX= nSF=0at11iin3]a=cbX= nSn3l)ououatS=IFED E3SfLlvSDvRiIMAX=0at1).hX b MAX= nSn3l)0 5REW SPO_gtL ILATOoEyin35i5i5WgNEatlin35iIF=0at1no E-f35iinRD FOR╟.EENS C35iNBLC=2atlin3 REWIN31no E-fl1205iiAPPER(Jh D b IFf), bg(, beINeo inBlE-fl1205i ininBlrATO, p F)7lc7nenAX= nSTICncentL[liE
N=pTICnceuouatS=IO4R(Jh D bb.FteRhTUeiDOd240,END1IGOoNdsTukclkrCARhentL[liE
NeeiDOd1no AtgNEathD40F (JICncentL
1205i A5iDOUWgNuYCUtINeo dleuouatS=IIGOtrATrXelinOd240,END1 F)7lc7ne nSuC,END1 F)7ln oohX b M┼flE-fl1cBC stLATO,Our7nes40,Mg35ienAX= o26ffL=1nat4GvnnGO 7m no in35i5E
n/Al]TO IFTcnBlrATO, p F)7lc7n OF (J35iIELA3 RnSn3l)L= nnnGO 7dMAiEo⌠no su7D IrR=hTUUfI)0 s=IO, bP5iIEL iIMuo1IO, bPI71).hX b MdwI b MAX= nSn3l)0 A/ea=cbX=I s=IFEDtL a$RT
rX= nSn3l)╦4HPwTIhHIGOouo2cu 5iis(AlNtOR╟.ouatS=gSn3eRfus.hX b MlRhTl)LndlF9 rNE',I4,4Xc_fab MlRhTl)hHIGOoFtelECus.htn3 RrXeSPf1iin3RES.KABC F (Jb2nBlrATO, p F)7lc7n OF (J35iIELA3 RnSn3l)L= nnnGO 7dMAiEo⌠no su7D IrR=hTUUfI)0 s=IO, bP5iIEL iIMuo1IO, bPI71).hX b MdwI b MAX= nSn3l)0 A/ea=cbX=I s=IFEDtL a$RT
rX= nSn3l)╦4HPwTIhHIGOouo2cu 5iis(AlNtOR╟.ouatS=gSn3eRfus.hX b MlRhTl)LndlF9 rNE',I4,4Xc_fab MlRhTl0cbX=I sbOtaTSTuouonlm.te 5fOnC0,GiI7OOl3,'3cab.FteRhTU y5-uRfus.bkw b MlRh Rn-f35iinnGO 7dBuonlPwTIhHs MlRhTMWIM= nSn ALL 3
fab l)0 5DtL a$RT
IGOoFtelECuA=0lPwTIhHs Ml 5fOnC0,Gitte RJICnce2SuuonAnAnAnUWgN2.ouatc7n in35i5E
uouououaannRT
rX=u*ClRh Rn-f350,GiI7OOlfab MlRhaTT).hDOUW TgL--GiI7OOlfab R7iIMTIhsin!at1).hX b I4,4Xc_fab MlKA1).hILOFC1"L iIMuo1IO, bPI71).hu▒
uouou▒FOR:
E>I71>eOl3T60 D dfin-ndlF9 lFououTnOOouo2ciin35iinMAVILhX b Mlat3φL5E
Ip F)7 8
IpSn3l)0,150te1hHIGOouo2LbI c
a !t5fOnC0 MAX= nSn3l)E=MWISE)FIL in35pRhg dleuouaLA=lvSSn3l)/p F)7 8
IAVE FO TgLgC,I4,lin35iI0at1no EO TgLoC0,1ououn1=uaLAPUDFEDbkwSSn3l)/pEXECURl)0,1CIF5E
c pl0cCURl)hX b ER╟.EE LOFC1"L =I sbnEs=IO)╦4Hrr',I4o'L =I Eu-OdJb2g01NI8lvSDvRiIMDlvSSn3l)/p Fin-ndlF9 lFououTnuuO TgLoC0,1ououn1=uaLAPUDFEDbkwSSn3lDdououteRh"L =I sbnEs=l1205i g2UogSn3B0cCURl)IFEDDvRiInE-f35iR╟.EE in35i5E
uououoIAhX b MlRho'LFILAinMAVIg IFl120in-ndl50tESteln3l15Cp[ogSfL= Rln3L40 in35io0teln3AB5io0teln36>I7O5iin3*E='F35iDOEND=5i yAr ER(AIF (JL b 2nGO 7m no in35i5E
uouououatSF5E
c pl0cCURl)hX b ER╟.EE LOFC1"L =I sbnEs=IO)╦4Hrr',I4o'L =I EuAX= nSn3l)0 1ka nSOTHE in&DOK60 D dfin-ndlFliC, pEs""K60 I0, DaN31no1nSST0SteSn3lDdfi_fab MlKA35i5E
nininininiriniinD.i OrAiUinini44I=1,10)nota3ininin .Enin4liniM2GO Tl FE 45Sa3ininin1500tRnFORMAninPRpdtKninRETURNininRETni4479mrininREni2nr.-hn E RNiÖ>e d479mtt508
