IMD 1.16: 31/08/2008 11:11:02 84-93980-01-a000 f98001 coral 66 pilot release diskette #1 12/19/80    @0|)wwЀЀtQql)  " }gA ` MIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIOS4 ME180112610110200801126101102 8011261011027CORAL:1 VOLCORAL 66 PILOT RELEASE (A000) DISKETTE #1   IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII M@jjggg@ o G`k_C# b# }B u[ ]e JRiCCp@<;: F8P@ G;NPCHC C GTqE'ɞ * Cϟx @0DAJL )‘ЀЀΎQBx"  i+ fEB)3 `jmBBI,v  BI,m  @EEFF)D^EF% jH@pOğv g7g4]X] PhV+s=胾c_N GF֞ؾ “@ALS)"$ C k1/j-h p vRw ppwp ki 15 !^\d X %'+Ns愾Q)s ED|{ @$ o O m J K i g. V tsFn`"FED) E`Cnrgy w"N{Rq1H }L2`0tG- Bc (>=W"~*FG dš+Hardware Trap %x4 Produced at Location %x4 c8|@쀜~耤@BC~耤@ ~耤@м a z ž~耤@~@B ~耤@ :#~耤@BIC CC CBI,ϊQG =DI<τQA |>PD[ %tpI pQl lhHhQAHBC^~耤@B@`KC BOCÉ @C>E@?'eH~耤@B@`KC @ InmB&dd @Ca ~耤@BBBP mJ.~耤@@`KB CICCMCBI ϏQCBCĀ$B"D>|zP~耤@` B IĀB l~耤@ ] As +t -tnT ~耤@BBG*~耤@B@ç7 @`Kǟ ÞǘI,#Q GJZFE AB?@Q4 = CI<Q  % I ϞQC  FI,φQ£BKW>TMSIX02 ,r ,kI=iQC OD @IEĀBGlixt Xs S1Xz CHϠQ ~耤@BCBCH@  |TPD> -~耤@BCIF@`KG)}` @`KIBDΌEIGFIGAH&N+ICzI)yτОIFF)yπCl)FB)yKОjhFIB%~耤@5~耤@@`KB` C@`KD` (E@`K3F¤ǣ )9Ϟ)9ϫ )9Kπ trHnjIǎǎÍǍ * K@HHu+D)=EЀCBFH3EHHǥ¥EHJBFEHD?HIHIøJC ~b _]CX QEIV DCECK JIEKDLI @6HjIECG<C*JQC [&Io ZCģ &I^QDTI_Qģ W ;IQφQIV h4:BDWW;= 2ãðǶ  D U  P[\ VDIRQD aDDQEIU T ,3T_<OQ]Pj= ,Io c'Ăk X AIXQJ^ȣ^[IX ãÒJǐ @njǏË9 I89c^-KvăuöQGll '  S ^èQ )  T P ãÈǏ  4;<,=)O7 v t &r ^p }je i +g e c aW ^V >TO  N >K I 5 3 ,pn  2) 6"fIǝ ǣHQ  P EI QB 0/2 ^I"ϫQDrpn@G!K@ IĀ @^  "5 { ,__X3' H NX H &           H H , , , , , , , , , , , , , , , , , , , , , , , , , , H  H ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) ) )*~耤@BBB SDϠQ }Bã I)BQ ) { }[T|,4;&~耤@uB  SB TB PB BB  BB''''''US: ;<) *Q~耤@BN1Bʈ@GFCńDD þEãI˫Dk  BĀDEDIEFE EG ĀE EEFqoB{3X|/0C51)2:~耤@` BIC B SICCCB &IU TBKĂC BID C@JghiI)πCО)ϨB)Ϡͫm)KОqo ~耤@B]CCC CDCBQC ~耤@KBł Iā&~耤@BCG ãĂGGÚāGGÌăGFBǍC_|9KCBI:b-8Ds@HEQBEkh+~耤@Bdǧ C IDEDCBID˒ @D DDEomDŽ\<=L~@B2~耤@ BCDEFB !EQSIBB˘ @ÕĀ "EFQF 'ĄF ,/Tk?9I,sQCQDQ (kICC [dIDD )]njCCJC ]SnjDDJD 'IÇQF'I"5QEIBB/ @,,'BĀB@! BBCIDŃDICC IBDā CIECI|e'KFEDCEQ ) ,INDg )CI,ϔQ > CVE EEF[YDeO,_T@*BCDEFGGvj|l*~耤@ QDģ  IϲQģ @I ϡQ OØϘQ ÍQG ÐÈǍ@6=.8,I7 |-*9&1~耤@kE`JB]CIB[ @WB BBCrpIMDQBII‚ EDFEDA?:~耤@BIC DEFǯ%#Jǭ  ЄG ICCÛ GGǖ!GG HǏ IBQA0/OT,PQ< N BDB p A ZҞeMaMzǞ .ZICQB NEIC \LICQF CC@5F DI2 CI+/QC -,ICQA -%HD CI @IBQ 'ģ ^ BI.φQ£_,T5 C ]sêIBQ C Û GD FBFǐ EIˋE EGH/07O1'27IGs @IGnGKGHrpDEEId IGH^ G!ZGVR @PG GGHki |(~耤@ID Iˠ@FHGHI@ÔSDUI_j3E9@T~耤@B kƒd5~耤@B C BĀC&X:b~耤@BC tD B ĀDCD ~耤@BC `EB ĀECEDĂE|~耤@BC FF«B ĀFCFDĂFEFc~耤@BC ,G’B ĀGCGDĂGEGFĄGF~耤@BC  H°B ĀHCHDĂHEHFĄHGH$~耤@BCI˕ǔ B cˆCUb:Q QI˫ DE D DEwuHǛ C՞I7ϚQI UFI^ϔQC XÉ =6H:SR4|9~耤@@`KB` C@`ʰD`EIFB_CDǧEI Оϫ KОusMFÏC ICО5> .1/8vϫs qKπϸОtrè I ǥåǥIǢǢ¢ǢMM €FMFIXϕQDMF7-89KJITc4[_|+~耤@BႦ .9>GLPUY]hsw{3ꂰ肯悮䂭€ނ܂ڂ؂Ԃ҂Ђ΂̂ʂȂ =Ğz c  ]%vtrpnljhfd=TZ;\^`b13579-/+)V'X!#%C„ |TlUVW:XnYZ[\]^_bQLd%I6  * # Error in %S near source line %N : macro expansion input filefLIBRARY Abandoned o Feature not implementedL Error in numbera Illegal char$ String too long or contains newliner CODE insert too long number%S Program too big FINISH%S Name%S BEGIN%S '('%S% ';'%S  Error in expressionS Error in declaration ','%SD ']'%S  ')'%SR DO%S '['%SA UNTIL%SO Error in label Error in command THEN%S ':='%S END%S( WITH%S ELSE%S ':'%SL bit position outside datum array of negative size string%S error in macro callM macro not foundC '/'%ST file not found macro arg too long wrong number of macro args Unknown language wordL expectedM~耤@ BICDEɼǣE DBD ^IXϩQR C HCJI <CBJDKCLE ; Xigh4[:|RSfnd]~耤@BIX 7BBIN UB`~@BUF &QBEE@ GFEDCise~耤@IBC 3 /CØBB@ABIa eB$ ~耤@BIY XBO3 ~耤@B B ~耤@BCĈC~耤@BCBFIC@:h_|:~耤@ BùCJQ?BBùHID s GHG EGFGIGF &A.IKBQ c  xDŀB JBH3fhqt ŀDDHHCB JEKCBU~耤@BIC CCCKhB IR * B |4:ewo\2 CCCKoBr I.iQĀC rBIbQCQB ] C l zBV INIR@ ni xBIqB vBItB ' p 1w  da%B:~耤@` BI)5т )5τϣI)6ϠΨB)8Ѐ d  RI)7 I Ϡp_zBN֩@' RuI &IA@IU TII)5@I)6 I]Ā)6k5OITOUj˞hX):ϨB k:OKQ ĀO Oj):ϸОmk˞]$~耤@B CHDEFÚG' J HIJBBHC 1Jƣ HIO|7l= V  J R EIDJ I I I@`K KLP QRPJ KKKK & IHi_\!eAtg< u IMNOPIG 6hMN E]N MM &SPIG 6IOPhf;E6P OOIT S+IOQKO G MO GPNNUOVM \MLMăL L Q &H AA;EQD Y @ v IHC DIM 2 t H` R ED Y IOPQ@J IIDC i_gZe]< v@`K K JN)? ΠIk?OĄIU TcjO)?π)@ϣP)AϞI)>K @kAONN xOjI)@Ϟho?QAa)?π)?I)?QAL ΣO)? I]Ā)?k>OIQORjž)@ϨK k@ONQ ĀO Oj)@ϸОmkIk?OăX'jIW ^ HIqJQK. FH  HJ l x iiieeGeZiue8EQG 2 BHCDGIϯQFI2ǪDf 2 a@`KKC͞ IϗQ: &CITϑQ‘ I wJIPh4:l>@ & KKKKJ J LJ   Z TU: &Q I^NQD UKA,IUGQEIW ^ B[_rRi KCQ€EZEQFCB O 1FB N MNHPKQGRIN KPGQI I  \]|:~耤@BCôD EFGH@`KI ǥB4 EMIN@ <) II IIUϑQKG EHQD \RS47u5 IHNGOE =+ II IIUaQ ^ Ƃ HCI^QQC 7Nţ hW_:C=DD FBC EI?D & CIFόQ @D EI84iml3D 8DBQCRES TFD INMGOM = II IIDTQ£ 8DCB^""0 & AIL D=  B HBNI < BHIIBIIQHIX 7j!u["9 {CI<ϱQ` EI}F )I<ϦQ >F  }I[ϘQ )ϣ ƣ I)ϣ DžT,;:> uIT S4  DCIDQé  åϥǣ )ψE kOÚNy N( Ā IN( @INNj ;@_YOZ3<I 5F3) F+ `g )τψE EkOĀO@GK@jB @EB E!X':2IN UB D Au      # % ( ) * 4 5 7] 8 EVid s !|t~u i"!!"~耤@ ˇʞ"5~耤@BCãüEJDBIJIC  c ~耤@BC҂Ђ΂| #Y$$$$$$! MK Hv ## # #"#$#&#(#*#,#.#0#2$$$$$$%%%%)#A"EI BQڀC IC JD KD LIE ~耤@B#%5%9%> h|k |wi ###################|%A%F#5)~耤@BȂƂ efl ~ab  %G%K%P%S%W%\%_%c%f%k%n%r#########################+ ~耤@BC @NʘC DEB d ~C d ~ E$:$I KD E @BN֌@$: CJBKÆ |"""#{#$$I* ؀@̀@ 008  ? near line %N: Abandoned  Unknown Commande Illegal ANSWER Name declared twi cel Too many names declaredn Test for FLOATING (in)equality Name not declareda Preset list too long Dynamic non-local variable Non-local switch label Formal parameter mismatch  %S %S where %S %S expected inappropriate preset Too few actual paramsd Too many actual paramsINTEGERFLOATINGNBYTEnPARTWORDrcUNKNOWN CONDITIONVALUEADDRESSVARIABLE TABLEELEMENTARRAY PROCEDURELABELSWITCHoe%s4~耤@B@`KCKϣ Ҥ LJ̇̇HˇˇIʇʇʣʼI ƼBü$~耤@ VàBÜ Y BB SE@ABÉω@@G|'g Li ba SĀ_XXW ~耤@B@ [OK~耤@BÌCBDEF''c;BH +GIIDZEB G eǧ ESID EĀIJ R _ H H INÆ g < ÷G0HImlEn D FGc Eb ZJXQȃWBEQD a FPK IKJ EDI D'  7 I/QDI J+GkH eED_IqBYIuD  4RÏJǍ 'J B6DJ@vr FGIHMD E IFQQ H GQ F HGGG 'BGîSEB èD6 k v b'.ÜG)ۀBEDBBIEB'#B uF@ 2D6B 2h EcT &&'&'Q':&'Q&&d'W'5'5'5&'Q'Q'Q&'@ EB BACǂ&|%s%&'%'V~耤@BICЀBϼBDEFG MHIdI hJIKL MIfN =OEPIǰBIIDQ IHGǩFG ǣ NDIMD cII1DQC ODIgFËJlj ODI1D IH**;IjJKúL MIjN IDòQEEEIIU`EKZYEE ERI1DQ QHR MHƣQӞ*>REJĀ QI)( \Q d Q RHWRESEEQM QJ (Q ,L * :} w +DIMU@E!EEIEQNUIVDWPFÏJǍD@AIMMH1*;úK MIjN AOIiN ?OEEQ RSITUIVW xPNQQQ @UUITTr MDʣX@I + >XVU9N] ^PF3/U pPh GU nPK@@GUR kX 7 1DIIHQŀTRIID?QTwRQIpPQ/ GU nPIU@@GUUQCZJQ Q 5ROEQ @SRJ XYZ  IMHQ@_H`PEZƣXY Yy  ) G)XS * USWW XRJR P Z$Y 5Y RIVQTV N nP€WWN G @)Y Q[I\ GXII[ \Y[IxPQBQ> *y\Y@[r ZH_YE xPȌZHEEEQ XR (PIZQY ,FYX*?:QSEQ @SHCEUIVPEQVIWPEQ N IQ Q)n<FRISRRISS fFR@S@ tSNyJQϘQER S @ eFFIF QALP l x  '(((*J*J*J***[*GBIBQAC*|((*b'~耤@BC DCIBDDDb'*+ (+ ?~耤@BBļBCDDEDF q s F KCFCKF  xECDDDQBB ~耤@B@`KC )6Ϟ|<B)7@tG)8ϠBn )9τIiQà lIk)8QȠ mÜ)9 IJ)?ÓǣRJ)9ϋIC @k:OĀ xM=jIJ)7ϣ8J)8 n vêQG q sI`_ ͈̈́C )7)7 )7A!BB BA Ç XFI)7π΄О)7ϨCH)7 πϸОrp& cF~耤@BC BFLFNyGJQG YGDIKG |,>Q CCMqMsBJFIxCQʠBHFGFEQ KGҠFKH DBBJFāH*? BL ML H IDBā YGIˤǣDDFHĀDØJǖFEͣFIMK@BF,  D e ,~耤@BCBC"~耤@BIBBCDPCDQD  CCÉCQ BB|~耤@BCIMDQ L LD G YD A P---"EBFBGZĀXBDNqFBĀBCÍQI CF y-0 7 |CC PEImFQÃCCF LF #KMCKNE @IÑÍ   .Y :~耤@BCB BĀI˨ǧC- ~耤@BCIǞC C Q 1DCBÎRQC|-v~耤@BBCIϰQ t u-*CCGHIIGCBCC  Ax 6W 9k =m Aho BB BA=,3~耤@BC EF dGCH @IH !GCI"GQ׀HODMCE DMCF B IC @INEx DNCFq I I~B CB V W.LD |+ +L+,,,-h---.Y  [%C%N %S %S %S] .cX~耤@BԼCмBDEFGHIJIiK LMINFOGPHHUGQçRS *TVWFEE IdN kKÓL PGIPQD PΞ0H>rIPQЃRIVGWIPQC PM@AM V]W MIkGIQQI QFIQQC QÏS THU T?UIkH = PCIPQƀWCM@AM (V$W MIiGdIQQL QII(TUIiHU \I*VQ *TIOQD O ?AxMRƠFUSnFUjICCDIKE WVRNK@LHEC M^KEóLDZ mUTSMSB  /$N D V򣜼XYIOWVR N@ * >NK@Y VnKEgeLcIUTSN D VUX Y KEFDLBIǃU 4TSN vD V0X CFE D I C GE DOHH 0VC A > ?o @GJ "~耤@BCDÛEFØGBHI JHǍH     2.~|:tuIqQso IKLKgMIIQȃB IW ƠIJIIJ IHIMJK KK#LJHIIQEB o (CHi IqCQ 3 rC 00JÜQED MQB  0NDONM DljEFdž G8~耤@BC ߀BD E @ qDKHVQÀESEPI%CQˠBB| ï n(~耤@BCQ`AQß  IDEDBFDCBDKDEqoE22~耤@BCBG9 ƠBGBIBG+GHI @! FG T IIJK2>GDPEQFRC J JJKnlgåRHB * Jǚ EFF@AE HCIHQ jDǠGD@ j2? ID H  IjDQP xCMæQG ID H  G j IxCQŃ @>Ξ  1 InCQG J KILMLJ@ i_LKLMqoK  IjDQâ*&G h G ; ID5 BA1|.c0[11Z120#1d225~耤@BC҄DIBQD ļI *  iB iBEBFBGHIB f l2JßK LCB FIǜIiC B + 555/HLIfCr iCG *e IiF `_aIEQ B kFPMLNLIkFQ  ~耤@B;C FICQŠB́Q 3<G րH D  LQB  3QR KNJKI~C 5|53 EIiCQ΀G ȀH IiFIfC iFIK dEEFG FH E ÇKDž5; !EI"EIfCs Gn@Jj He@Ja 'IZ@JV gCIhIO CFKIfCF IiI5? HQG  6IfC1 IfG- IiFQ  u3 "LIfC GOLIfCQFC4  @O FI)EQ  =QI x IfC IeG EIBHImC ;EI@H EI>H eCIIhCQF jCCIgCQIiG e55=CDH8 CFqIfCo IiGk E' EâJ˞ǝ[ wMIiCQ ]MIKGGÂM<tKrCF.IsM iFIrM KIfC#MBKZY tCCIuCQIiH ICG FILJCB< F4 M0N+O bPI]Q RIuCQC wCCJF fCFIiCQC kCIiFQO iC̀HSIS5AvIiF vPIwQRIkFCFNWIGFHJIkFQL OIlP mQIRMPON. qCCIgCQ€CJJImFIPiMfaRQ򜀀E { +v 24!5)2222224=443y333y3y53474,333X3X3X3X3f334z5333\3\33455333 iFIkCQ   CF k FIiCQC }C qt ÐJϏ@AǍCFDDžF5|2524A33~3(5%~耤@BC DE FB¼GùHGC  #FBK g e6 @K #FEMD  F T iG S 6;6; GC B     66;CD CE IëJGCe ED I  T[ IpIQ S |I K IzIQC {I) >4 qO + S' JcF A  , &H6|:~耤@BC@DIEDB eçF &DA I}BEI&DQՠCIi   C /CIiCv sq oFjEBF NyGHJQ , YG G LG ) (7)7)7)IIMGQƒ70 JÈKCLM7- &DCF1E@ }E n p CIdEQ JGCILGQ YGF7j7jNCI&DQFIiCIiL>NJK5H@IJ@ *) IiMa  HNHHIyEQF |ECFKLjIiCDN ! * uF * kKHIJ `E7~耤@BCVDIE FBGIeCQF hCCIjC|Qw gCG gIeCQO nG @ pG B >88  |G DC iC ;8j8g1 IFF IkC E LEG A[ nP p^ zi {e |VP  DyC8j7~耤@B i CDĞBCD CBCC ECCE BIj888$EQs pEoI|EQk sE i g xD *s0 )88888y8y8y8888}888}8}8888y8}8}8}8}8}8}8y88888888888z8888 k88|5678k8~耤@BCJQF hCCIjCQ 9 D fCFIiCQC kC 9;EIF =GI>HIB JB KJNy LNM OŸPBIMLQ PPÐI LLIPP YLIP<6?P kKIAG BHEQE PPîFE\IrOQC sO@`KQ @ QBāQ OQF˔ǓKOCFIKLQM;=Q٠J QMJQMV@ QM 7FßQ OP hOCIjOQʀEIPMIK * >3PMIDĀGkN%DIeCQ lOCImOQ mOǠPJQÃMMPMIDQĀGHN yODI|O%QPSMIJ * %PMIInOQ @H:DNPPMIEQBKEIxCQBO;=MnMpJQAp JLCILLQ M@PI YLIMPIJ *T OCMtMwC < >CJCt rJQ JLDϭQ u JLIMP"ß & XWIuCQ tCMqMsÆRCQÞ(AuIJLQ M@PjǏ $` &IXO;|:~耤@BC NyDCEFGE eImEQ GGIhEQ GGIjEQ GGIMDQǠGF LBNQǂ BB@ABB )~耤@B @G@B@G 0|   ~耤@BI54M@ Ç-I BBf* >8 >O >o>>~耤@BšЂICCBĠC􀀞C C 0om >>>?.)|A>>1?/?4?6?:?=?@?B?E?H?K?O?S?W?[?_?a?d?f?k?o?r?w?y?|?~????????????????????????Y!5R7&#)EWLZ[$DCUKXc*84%(0_Q+ P"1c..H/'B,G-FVABSOLUTE ANDANSWER%ARRAYBEGINBITBITS BYTEnCODEWCOMMENTCOMMONlDEFINEeDELETEeDIFFEReDOsELSEnENDEXTERNAL FINISH)FIXEDFLOATINGrFORGOTOaIFtINFINITYeINTEGERISlLABELLIBRARYLITERALLOCATIONoMASK MODOCTALORaOVERLAYPRESETc PROCEDURE RECURSIVESTEPtSWITCH TABLETHEN%UNIONUNSIGNED UNTILVALUEWHILEWITHc?I~耤@` B@`K B G>ȅǽ ãIB CB BKBCwu BICH  BCH˜CBC-<|Ne<HHHH:~耤@BC ckEDKCD GI#HGE GKGGHvtEBĀICqGICGED(K` LJCJ EנD̆HCH ȠCQCJĀ CHCDKCLM` NJJNY:NA;~耤@B< CIDBQJ¯  DB#IĀD BCIBQѣF F"DHH$DڀFE CKQ@  CKQ+@`K FD[ ՀBGA C@`K C@`KFNDDDDDEBqIĀEII CBJE$DCDD~耤@~耤@~耤@B‚F E DQE> @IćE|HD.H ) +J@`KK` LI IDQBD cIF GFE FKFGwuBDPNA:~耤@B‚ BD CQE˧ @IćD ۀBE@`KFA D@`K D@`KD DK E <>NM$)zIӣ)|F` @`KIͿEŒCGICQ‚CESD @`K)|@F CBCDILj EI&NMHFED EKEEFvtBE+~耤@B` C@`K!F@BBZICT)F` @`KICFEŒD|?E GIDQ‚6DE@`KFDEl,~耤@BC` D@`K$E` >H@`KIDBX>BECP>B IDBH`F63N5 @`KID>GŒFGIFQ‚FF IEBbI` @`KIE>GŒFGIFQ‚FF'` FIH&N>FF6"~耤@B CIBQH˜   FY <"N|H:~耤@tBq CIBQI¬ii EKQB٠CKQ 䀆+#GCGECFFH>KĆE CIąCJEH+ BJ@ 'BKEFBJ— CI#CI KJ@`KL` MJI>HN IFQĠCCFĄEF CCCIĂCF"~耤@BC DICQI–   B | "GP@AA"?AcBC CC.C{CBCEC D DDD E EF7FaF"GR#G}3GGH*bH]aHpH@-A,ABOC CIrM 'You are not allowed to close SI or SO !interlocked with % I-O ERROR: %N on file %S, stream %N No buffer space leftuAll streams in uselIllegal stream number selected No current streamFile descriptor error%S On file %S, stream %N I ~耤@BI/GIռ ~耤@B :GIBȼB~耤@BC@`KE G@`KEIRIB NIGGCNE @G!FK0SGB GGCNE @@G F 0SGB|%KNe IGG NGDSGBoN N >ACGB `+ D D+HH+E+I*F `+ `+JRaC螏Sb\ `+ȞBm `+B `+BBXpX}TVROW`w HR+mفDpFr no t s` 8u0v xQÀyXt)׌5eHrnofH)5.wA+on[` %u s `+.r0m)HE `+%A `+ w OXtoHpJ r0v lxQȠrnoyNo)58wÀo€n `+.r` %u s0GDpFr e0<.m  H @ mrp q 0s0m ! # w|C #  # NXpO GIJDEF` CB `+VOOWOBCO ܂ @B`H%'`@qC {VWO0GHDJK` I FC M NOP E `+ЀLԁJ /ŀM qNDOqP KPPWVW   ŀQЀL)MMLMNLNJ . /U瞃RyR㠀1HQ{zRwvL 1ZRqRzNMJD`H%'`@M `+;A7L)M .L)MMLMOLOJ / .OWPMD`H%'`@M E `+A LM UL)MMLMPLPV000XPP@ BCDFGH` E IED؀J| z ` Z @IH 9 / : _GIF HI @KB]IC`H%'`@UVWP7BHIFDG` CE JK `+ޠC™AAAH I FFF `+TVRW&HBLyC+Lz D  I `+L `+ULDQIRVQS* BCDBBEBBFBBGBBHBBIB C@NyJ G# VW Q" !B` F G DH1NHByx uC `+oXVXTWQCB FG `+ D+E*  BVRXpWQ*DBC  B GHQ `+E+F*OP iIC  cVWRXpXV `+EYNN `+Z [*\*]+KZ [ `+ `+Z [+ 낶Z [ `+ `+ Z [+ۂZ [ `+ӂ NZ [ `+Nz `+ `+RUXTRR.. RZ. RbX@Rj'CDEFG @   EEEFCEEDE tVVWRCDE @   CCCDCCC vVVWRL* *FBCM@SD@HMSAEDhЄ\[ `+ Y+ZC]yFyBH1 HQ 0 9y X ZgSzVWS~XgXx]srGFg `+'AB IݠGgI…5]GC BI JQR fLLLZYZV„ɄfBĤ[ Zf /\uIY-Y 1YILSLNq zIYyiIYgDDDTgWXWOLUF00TR 0XpByI؀\΄Y ^y DWY \ מoTQ- /B JI) BJ`H%'`HY+J`H%'`HY+InFޠD[\Z  IYY+U DG YDI YJ '\IJ3FZY+A@"GESAIČ L L SzIR##T@FvGEA  ! գ1L EIĄGs CNG_ ^ 0` AG d<XWvBC1JB{zCwv YIC UI@J# IJIB`H%'`H+ / .BY`H%'`H+BYIjBJ # BI IJ# Iyр̀yɀŀy # # 9 0 F A # # N1@ # ОzVXW TBPLCCW R N `+O+M*PGVV UCDF EGC BK|1WUBCDEIDF @M NO I PCHQBR@SD@EՀ Bw CI0G HIBH`H%'`HI+H `H%'`H+,IGf QR`H%'`HFI PR)hQvGCDT3 FGCI*VVWo IF V@V܀@# T NP P aT`TEL[P` O qFOJÀK"EH"'F  # LQQR`H %€'`HLS1G`H%5'`HS  1 + qS @FL# F# U(BCDEIDF @K L NCOBPM QD EVVWc Dn _ C&GJBI H1܂ĄNÄP„O NP O Q `H%'`H+!J)`H%'`H+HI`H%'`H+HIJ)GGKI FJGCD@RtQDRLKV EB @ C DF B EEEyJwVV'WV B @ C+E DF BJ|VV"WVB1Bv @ VWXWV# BC`H%'`H+CD`H%'`H+CDBnC# V@`p`p@C @jr<`pAAB`@ `p@k# @Ap # WqB #  1XB1QC OC`ABC@`ؠnBhԣIʤD+BCCʞ ,ú Ā C!E+CQU @RB֋QBBD1A8 2XWVXYXXW,ZBZPCIOCSL @REiQE Cb^  ENU E F W" BD` CE FGHIJKL `+A `+CDuVLDRWTQW C! CD1iʀCD qVXgXeXpW CoB+C CJā BC] _X5 BC D1H BDwC D1KɠBKDBȁāB1IǀKBȁā `VXgXeXpWXY P PP # XXgC @c # C @ vC @c # C @ vXX XXX@X#XmE7E3E5E3--E2E080112610365225801126103656dOVicEdDanoa!Upҏ`PV |P ` £¼ ~耤@BI BB¿STOP %N ~耤@@ *B€* a@  BVC A<~耤@F ~耤@ @@``%'`@~耤@ @@`Dh%'`@~耤@FGECB@ D`  ~` @`|0~耤@B GG@n ;015&%:9>W"~*FG dš+Hardware Trap %x4 Produced at Location %x4 c8|@쀜 ~耤@ؼ ~耤@ ~耤@ӼBм΀BCÃ̇ɣʼǼ@ģļ ~耤@ ~@ ~耤@BIϡQPBB|: 9 0 ,kd ~耤@ `H^^VÓQƣJKFÌE> *7 C< ~耤@BC/0ñ,CB'" ~耤@WBNOBG@B B;b#<` C@`KF)6 )xτ³тIǰîǮ ¬ǬHǟϣ)y CI,Q qI΀τՀCgΞ<%=s:ICr ,)yHgΣg)y I Qt ΄@)6ϣTh΄I)6ϣK)6ϣA)yϞ0 a ϞHǪ /H+ '죞!IǘHף)zϣ p;HǹĂIdz ïǨ c` A 5e D3 E\ F: Hb J( M, Q< RM S; W\ X =ndr<8 ZPI )yQACJ)C cãQS)6ϣK))6ϣ cIǍC)zϞ#|. ~耤@BCBǰKǢKeǡʡǫʟǟKǞCBIǛǛ AIϛQ DIeE,3 -()$4 Z;>?= Dg DKDDEtrID[EDV DKDEwuNMǛL @IĀ IǕ .*+  /"#2   [ IIZQ A  X  ~耤@ϝDQ   oo EFED| qk%QE $ͣDåQBEFEDLIϛQM×@8 8O=Z_d  ~耤@gld) E^ @ @ CG4 (A007) TEMP.OCDTEMP.XRFCROSS-REFERENCE BY  PROGRAM %S * CODE GENERATION BY C* OUTPUT FILE NAME '%S'  END OF NAME LISTING e< ~耤@BCìǭBCǧc ~耤@]BCI+ϞQ HC @ eBHC l 5678mj n+0 ~耤@BöDD BQڀa_Q BXA TQAH@I@@)B DDËDCDQ *(:JjQAE2CIB *,CQ. ~耤@BCeEF iBIiEQ fXIāFqCRÑQM eBICFQ dEDIcE|?QAvF 2IĀ ,*)%BĀ"CIlBQI fBICQC *BãDĂ *BΣ ă ICQF567*3p1íĆ fBICQOokliă CFfdĄc ~耤@B  B    .8B       $  Ar *X cR dP eN f[ iJ kH lH B B] d ~耤@ ~耤@BGIBQD  C ~耤@BGIBQD  T BÚCܠCHI@IC@C |= ( 1IB΀CCCǀBBCIC@_CBBCIC@MC 3C C Ap *= cB dR l7 e c×CA BUBQB  *: d  $7 ~耤@BBCCNq@נB CRBI CQJBB C  C    BB Q9CC˴dzBB DBDB A{ *o eg f0 i' kX lenIBB B AB \ | +% ~耤@B՞ȠBBIBBƠBB IC   DBCC CCDtrBJQ  (  ; BB0BBB At *? l/ mmçBA$ ~耤@BIYϕQӞC@@ L f*: 3BJB BAYlhhBêQB $[C@CJ@ LFBJ d= ; B I R B BAO ~耤@òJǰ˰ @Ha  N ~耤@B@GKϔ@AǒBGIICBD|+p% 3 Y ICstCKCDrph *d ~耤@BC@GKX@AVV DCEDB JDFGDKDD*&Ejh5 %1 ~耤@/p@GK&%! ~耤@ Ȃ  *: adeofghijRk /l m :n O o p   c 4 ECG error (ITEMLENGTH) DATA:ROM REL DATA:RAM REL ! COMMON %S SHARABLE %S %S REL 0 CG error: CGSTATICS(%N) CODE:ROM REL DATA:RAM REL  RES %N,:3FFF  ABS %N WORD CODE:ROM REL DATA:RAM REL Global %N too big PRESET:: %N,Too many labelsStatic and string space full  pO ~耤@ʄBIC QC˼ɃBIHIIBôB CõQR ICQC CãJ H B×HØ BBÊH@ B f  63,xCIϦQ HC fIHC Z IǑ UUIH@ IJ2 HG HG 9::IH@ . M0  &'ǎ&#B&IH@ B2BIH@ B BIk(*@qqlHiffIbQG _ƒ URRO A \ d b `g<:CCǹ I  f3.*&"  DSEF   E356f  .FoF ME@G#D LÐQ@. ;<3Õh w r l 9dGJE D F %%% /  //////0000//////  s 00 :8 8 77/////  -0 +00)  )8J Y<<<u l0OYp00/0000000000000 0 000 0000000 0 0 0 M c00  /16$ ģßǛIϗQA ~耤@BÎCÇNJBCǂ  | t ~耤@qD )hh ~耤@^I]BIWWe   ~耤@BJ@G$B @C@GBN ԀQAH@Z8 ~耤@1B ރ, b ]  + ` 8 : Q ) ( * , P R M O f j|x wr (0dbdddgiddddddtv|z~rkx BAIqφQAH@I@@ |/ ~耤@BICHæIJäKmBHIB BICCJQD BP &  %D O$q prs+ @[I;O%S result not implementedDOUBLE COMPLEX EQU %N+A * Line %N Unknown operator %N L*%I3 %I1 %I3 %I1 %I3 (%I3,%I3,%I2)VY ~耤@BC@ӼDBJQ€CȬD1DCǼI&CQ   &BCk EBFGECQ_ 2FԄLI MNI IL MNI  EI JĀFǞyzE9KGLCM NKJjI&CQπFGǩ   &I CQǀFGǖ FnjGIǐBCBIā C> ~耤@BI  ~耤@BI ~耤@BI& ~耤@B   CI όQCHωQ |t uwz0yCv  q  D EIDQQ ď  D E  uuuuuuuuCC@AI CŀBCyB7,3 ~耤@B ģ !BģICDÕC @BÃCC CCDqo {&$; ~耤@B CDEI&CQLCDϫQFCDϧQ E & EB DCB  CDC "q DCB DCgB DC^B   ~耤@BCϑQIBCύQC B 6| ~耤@BCϠQIBCϜQC B Sc ~耤@BCύQC B dR ~耤@BBBB BBI˜C5 ~耤@BBBB BBI˅C$~& ~耤@B  CI1BQ  ~耤@B MB   CI/BQ |< ~耤@BC DDIDQAr DBϪQŀC@ǤBCϦQ@BϚQŀC@ǔBCϗQ@BόQŀC@džB =CϼQ@qBϳQƀCãIBQ΀DIC DIC  BDIC DIC I BQƀDIC >DIC u ~耤@ i  BIBIBIBIBInjBI|~'zw ~耤@B m)QÀ'g BCD EI H€CIDJIK LIHC z 6CDBIĀB '& ~耤@BCϤQ[BCǟ  IǑ  Ilj  !!, Iu  Iǜg  I_ 2 1INj 2 1Iǃ|$ ~耤@ MÜF GIHI  j ~耤@I///^))\\ǃ[/: ~耤@BCBCQJCDCêCQ CCk; ~耤@BI#QRBÒJ@ #Bǂ $~&%8 ~耤@B CID #kBiQ CDBIC DIBQ CD BIC DBJ@ IDC|tVuv wx yz{k~`J_q =T" ~耤@݄BIC eDC @EBCBC CCDmkB ~耤@B CIeDC BÃCC CDrp 3 ~耤@BC ÓĀCCÏĂCCËĄCC |,=ûĆCC÷ĊCCóČCCïĈCCëĎCCBĐU ~耤@BCO IQÀGIEQÀCCI .=ĀC)'QF%#QˌĀCCIĂ CQÀHNQÀLBIĄCϋQF?=QŒ}ĄCCIĆ C*Qƀ(&QB CQÀHQÀBIĊC  QFQŌĊCCIČ C÷ď ~耤@BCģ ϠQÀHϚQÀBIǔϒQFόQďÇ |>uwtIs pϱQÀHϫQÀBIǥϣQFϝQɏØǕIǓ ϐQƀόQB ψ'QHxQÀBIrϗQFϑQɏeÌbILJ Iď 0 ~耤@BCģ ǡǟ5432100VUT' |1 ~耤@BICDC CKCDwu CIeDC BÑC @ CKCCDnlB˄ǃI3,?; ~耤@B IDZ BIϬQ裫CDEC IEQC EICQģ PIǏ  JDC &%'AEs mIgBf ~耤@BInϧQģ ÞQEBBÏQDB | "2îJǬ nl IgǣcB\ ~耤@BU J  Iq /<úJǸ rïJǭ IGç ` GIIGI  %&; xwwIăsooj l dccIăß GB@ f g/ ɞ ˞* ̞R' d-= ~耤@B Bݣ&JQ٣a I]QR GI ǕLIBQ E A|.    .   B  B  'IZ ~耤@BCD@ BĀCDă&%=0 ~耤@BCM MJQi ˏèǦCǣD IBQϟQăÝǝCDǘ BCǔDIϑQă 4îǮCjDǩ ~耤@BBCu ~耤@BC DCĀBDCBDCă|y ~耤@B   B  k4|/ Ahy ORG $-1 H ~耤@ hԼѼμ˼Ȃȣȼ Av d f h jmIǷ  ~@IϤQM JIϞQG ? D BCDJQǀBIDQ E  &' d |<IFGHInJlK LfMEI `Qe ]bI ZQ_BICQNTPIDQM JJI GQGDCKJF@M CzI1QAvEMLILQ$Mƒ"e%NMNCJI!QI "FI# QC $ ̀C  Jx4SMMLEQEJAJ IR %SITL L EDJ@AJG <uEQDJ JtL snHI PLQ RIQB 7 8$SITQP\X RI4S TL PLµϵ PSLQ RSQ 4 5S   "TQP40EQDJKJ*ICQJQH"JRLSITC $ FHIFGEQDKJJICQJQ HEQO ƀKJA KJAPJICQJQKJRLS TC IQA  << RI%S TL rHRLSITI g aL [EQFJ G JS ICKJM CČJH'=EJ:MLICQ JHH, NNJ˄SI7TNUI NKNN jhC  ÅMv&Q9w7MICMJ IR STI JRI&S TC  HIEJIJQGK@G JE <<JIJQGK@G JsC  ̓ [ICJ S’ϒQR STI H RI6'u'S TI 5IR 6SITI& )JRI&S TC IQB  L   IEQIICJKJKJIQB  )PJRLS TCPEQEK JJL EQDKJJJRLSITC  <yIEQOIFKJUB UKJUBU JfICQa L  N@ IS %TIUN "K QLR &t SIQB 8 7"0TIURQ1 SI%TUN #&NJSEI I@AJRM PLQ RIQB 8 7QSJTQ&PQDEIJ EQV ɀKJ KJ }JF@IFENIϏQɀKJ K <  J 4JrIN OFQD NIO  TCUJVL ZNOIPQ '  TLU<VI 7 tHTLUIVI (&ȃ Av           d &/Aeg<  ! " # $ % ? @ A B D 2ECICLCIJHĀLGQEL BGCĀJ-&6JC ~耤@BIǧǧ Iǣǣ B Aw f h j !l &Zl | s t 'Illegal pending type %NUnknown op %N in Pending%System er ror - CLEARREG(%N) [ ~耤@BCԄCāټ ~耤@ ȣȀμü ~耤@ IFI 2 3 2 4 5ꃘ 7 Iă &'| &%!w$=£k j cIFI b &aVP Av ) ,    Q O M K I G$$d6 qW ,* ~耤@B&C CI4BQ̓ ǃCCHBI & &|z; ~耤@IϵQC  IF %GIHI FI G HI IϕQI  CIωQI   >CIwQI u FI6G HI i% ~耤@   IF 6GIHI& H 8 &u&I˝ǜo &lIă  IF@  %i|- ~耤@ Iǡ hE FE aI I I  "5678-I uI oIă0 .]W wM r^ $%d"""""""t"""""""0 ~耤@BCAF &  CM &NIOB MDNEOI& {<@`KM` NIF GCM &NIOB g ` M@`KNGF HIMDNEOI& P FJHQHMIN OI%$> ; FQȀGHQD  &  ~@BCDFEGBSCQQ FNI FQKRLIM NI BQECIF|.QD FAvLIM3NI IGEĀ F GLK MINK D E #5D " F F Au O S j O Gj1 ~耤@I Ï Av ns%d %& ~耤@B . 1 $ *CBMM ^ID 4EÛQC 6EI/BQE 1BBID JEK LIDCǂ|; ~耤@BsBCDEJQC E FBD KILDMF BIĀBDEKD DKx2IFIJKDCBIĀB& ~耤@B JQ BāBJQ $$ 7 ~耤@ BðC @ J@ DJQ˃CBǛ C L &CH 3 $&z'w |   ""o"##$9$$$!!#hEUnknown floating operator %NN$Unknown double precision operator %NeIllegal mode %N in COPYDOUBLEUnknown complex operator %N%4/ ~耤@BC DIBQ̀ IQC IQC IϼQAH@I A EECCC%b+EIǬ  Ğ BĀCÍĂDD & %'$'id>u ~耤@BClgBQƀCIBQ DCIDQ EIJBKCLE DJCBCJBE|x?BICJ$&"c ~耤@BC IBQ  C@ACā B BCSM?&8' SM?DpDākBhCā &8 ~耤@B CIBQ  ;B  .&K&K CIBQ  Bƒ &W&WD& 'h/K9vCIǥ fbCĀ_DD IDQăR%|  ~耤@ S   T ; && &' CJQπDE#FGED E FGHE' x> t/@N+@A@# ~耤@BCFIϜQȀEKFCB–ϖQD ?I2>KF  Idz ðJ@a FI L ùQĂEJD çBJ@  ~耤@BIVϟQAH@IC ˃  ÄJJ % <*"| @ k  f  a(((FCHBII FS R PILQ҃K  AJJ@**),RDI*CIGBJDGi DJQ     )/)/)/EÏFGIEQǣD'x&)*z>AqDmGmFFgE  ƀFEFEGRGE@AǏGH G   yvu<LMNE C@ICC BCQE 'BC CCQDB BA A)< K _ ` B  'IϫQ !CIQ C@IC %ÕJ@DCIBJD Á%&x>J@t ~耤@mBC IBQ[ DE\ĀEWBĀCOBCDIBQƂ DIC|' **!Q wLItQICInQC kǣ#IāfDcQ *tZ ~耤@BC l D C* DD  lƒ? )ICQŃ BHBBǍ D u&vw"'v'((6(*u*** Goto *Y ~耤@BICDEFGμHBN@ȼ IȂģļ IJC E FCDDDăD DIJDQFDEnmDEĂDFGJG CCIGQ  %f-.d BFIECFIBQGFyENyC +V"D IBQXF@GEJ@GJ@AKBJ@G KDB&u B@G@B+'KJHNDOBI HNCI  J@ I ..".|; ~耤@BCEr oIJ KILI  JI%K LI D PBIJ KLI (B>{ BBCJC CAZDm $BIJ KLI ZDW CŀDP BFIB?BC CICQAL ~@BCEBKF B KILMI D OB CIK LM|m<I  5 DC KILMI F@AE L IK LMI  K. .8I IǯCF *E BBCJFGHBGȀ IBBD G GHki"; ~@BCIBB DCUBUEIϦQޣ  IĀ CBNF  u&. '-=sqEFEK LIMI E KI L MI IFQKFKI L MI ICQǀEJI K L>I yIJ 7KDLI mDCLDC JLI8KI ^ E@IJ KILI G v9JI KLI 4IJ KLI * JQ֔CUB UI ϑQΣB BN JQŀE C& %.x>UB UIF mCBME  !IǥYFICQK KI8LCMF  FICQ ? x0ArEKFLIMI jCDLDC KMI7LF Z IILFJIKL 6 8.l LDMJIDF| ~耤@B BGI &m*,.+,=.{Heap Space Exhausted ADD =%N+,X . ~耤@BC D@`KEQ ϼET UB  .?VUTRIDDMWEBDQEC ǠCC LE  =%<3&343.321I˭Ǭ MEbHǝ  ~耤@BICDE XÑQDGB 35"| =IBQʀECQCDHCE%BIBQBIBQHCBMDQR JIKLI' IJ KLI z| JIKLI rIJ KLI h JIK LI ]IJ 'KLI SJIK LI% GIJ KLI : JIKLI 0CQa JIK LI #Iǚ DQO JIK LI INj EQC J*IK LI& IǷ IǵB ~耤@ aPIϨDQ &0+@DĂIǖC %|&<#/  t3=+IlieĂcIǨ W ~耤@B A CBM@0}DCQB?0EÌF GHI3B3F"'$<FLD IDL DLJQC JQ¤IG DLJQ¤H FFEFQI<QDI HDH IGQDG Ă CQV  LID QSIRL $EJKJQB wvu<3H &x IJQC JIJJ  JIK B + !14NKPJN ÛQDD D IϏQ  ="  (P IP@ &  ~耤@BCDICQ‚C1EIDQDŽJ@IBQHDQED L |fn 33L3Q(Do DEEeIBQE]D LZN43Z3^3b= ~耤@DBAC@ B9CdCa0) ~耤@%B"CDEIBQ‚B23gm3l2 F¯‚F2 &FE LFKLC LDE L BC )|3q3t3x 3o ~耤@BCIBQ‚B2d D’_IG‚D2o@GR3n33j(  ~耤@BCEøFGïH I˩@ E CĀF IKCBEF2 MK CQȠE M  …%  &'<B˹ @ p@`K IB@G, 0IB@G$K0IćI@ISB IIBˏ @DB M33( '3 4 3 G CQMEDEID IE H|./'00j1o112O2{3&* Entry to %S D EQU $  ENT  ENTRY TO %S * Return  BRTN * T* Call BLANK:F4S NAM %S %S EQU $  EQU $  NAM %S %S EQU EXTR %S BLANK:F4 BLANKBLANK:F) EQU $ COMMON %S SHARABLE %S %S REL 0 RES %N ORG BLANK:F4 BLANKBLANK:ICAI:::??I EXTR %S 3J ~耤@Bğ‚ߟ#4r7y7|7~7777777777777777777777777777777"؂ւԂ҂Ђ΂B w 8ro 977777777d734:3333333333333333333333333333333334&4&4&4&4&4&44444 4"C DB E  CI˩Ǩ EKǣE4 ~耤@BC *DBB@G@ M 7J| 7556 *rCot =DDfChCX^I=DDPCMC@H 5d77I7773 A3I BQ7 Q+2 A& X") Y$ K =C * C 8;CC<@72C L( *C $CR + -CCCF 88 882CsCmCgCaC[B x 8sf  888"8%8(8+d55654444444445445 555J5$5$5F5 5,5<55$5$5F5 5,5<554555P455555555$5<5$5<555q5}55w ~耤@BCˡ @JQǠCCJQ M L5 CCĠCIĀ|347 ~耤@BC IIBQF BCIBQC ?IBQX BUIBQR BOIBQL BIIBQF BCIBQ 6DD ~耤@BC ţ 6Q# BEIBQB CSM?CDCM J@6s EDSM?BCψNJ666/601= BIϵQ̀DF ?Ijj E^FK LIMI  Fǐ LCEJEC?6y"JIK LI t*JIK LI gEBC@A66666 ~耤@B CDIICQC CDSž|"M?x C 10@ASǃ-D ? &7)7)] ~耤@BCFBGHC7>IFC8;>? 3466E67*7I5COPYDADDSUBMULDIVANDORNXORCSKEXCHYNEGCOMPrSHIFTROTATERIMSDMSECJEQJNEJLTJGTJLEJGEJMPJSTJSKJEQD JNED SBIT 2,SSRBIT 2,SXSINNOPCLSNBCEACSMADDFESUBF MULFBDIVF CSKFOFIXFLOATUnknown machine operation %NRK%N+%N(Y)+2IG::+%N Global %N too big%N(X) G::+%N(X)Global %N too big(X)%N(Y,X)L,%NSLO,%NR,%N.RO,%NRA,%NUnknown machine address mode %N%C%C:%X4B8@Y  ~耤@BC}GDHHI GLIGQI GFIGQC &GЀE 4 6 FEGFHIIG HG DåGHIGQ BϝQD )BINEOFPIB BI"012G GMIGQJ GGI GQDGéQ $ àQF % BLGMHNIBEC8OML IQEGCHD#<?@GEHF DC , FE  ~耤@BCXVQL !BCI BQ %N ICDC|+DèCDDI JCB- iDCeca ~耤@BËQFUS01"% ~耤@BC HIJB@ ~耤@BCŽώQDDICB+d=. ~耤@BCKI&EQЂll EI˘Ǘb\\DCG EI˂ǁ|=, ~耤@BB BnBB Ay e ptBGI !P34' ~耤@BGI% @ ~耤@Bj ȠBeB\  M L: CBSJQĀB LC  :BDBB ='1 BC ~耤@BB LIˑǐ ~耤@B@R |=,=0=4& ~耤@BICDCBqICGBGC CCDigR*&; ~耤@BC¹JFDDB @B EEE ЀEIK LEMCBEÈ 4:<31M< KI LEMCBi cBF KI%L MCWEIBQKIC|  ~耤@B B= KçϧQcB0 áQD ;COC LI˅DŽ  .-"m=:<uD LsnD MjhD DZIWVDRRBMϖJSȃI FGICQDC34===@; ~耤@Bs ӠBnIĀBk#"BĀ BB[ CB B CQ BHCBQž>+Ce ~耤@BðϰJ CDCBäJǢϢJCEF E GEEKEEFqoCKCCDZX|.-; ~@I[ϴQϳQɞI]ϪQܣBCILBQC L NBCIPBQC 9=E1t GBCkCe [D DtL =H=K=M=O; ~耤@úJ@ E [d(B ܣ"BCIFBQģ LB GB  AB  <<%=Q  PB  QB  NB  <<<<<<'CBI BQ IBQB ' D [A=X"|8@99D9V9e999:0:E:[::;};;O|>Q>S O \ G HCEJE'M- G /F GEFCO G FL `PGG \ `PGGV\\ A> GVF `P\ \ G5< ~耤@B &AG&G‚O GO GG\GBFG\GBOGBQG>K|=i=_>O >VZ ~耤@ 2ּBӼ@`K CH DEFGƼ HI HQ9 H6I HQF HCHHQ \Hţ EDBHIDDM2 HTDB :CBĀ DC@`K 5|->d678 O` P@`KQmC j>>V>"Double precision constant too long0>X~耤@BC чIGG IJGGWG CG'G HGKLBLLLǰ¯K ¦ǩ©[Iā¡A IāG–A G螒 @@@@G?G??????>.ѢIāmµjHbĢ `Ǫª]WWGG MNGVGCG&G G @ O G Dp????=MNG GGWG CG' 럧QD@AJDFDEDDFDO GIIJGVG CG&G G @CM>"GCG MNDOG G GGWG CG' FE#|??:?? ??+??-?@.?B @ 8~耤@BCDy̠BBIĂB BIĄaN@BāDQN@BĂDAN@BD1B ~耤@BCENaDFBBFXNiBBFX?N|@YBBFXNIBBkC~耤@BC DGJE K @DKEĂ IIHEN@āEINIECJKIECCHJHSXI@'&~耤@BC EJF @\DKEāDFEGEāFDE~耤@BC E FĈ GCF gF@~耤@BC FDGBFD́@BFDA|~耤@BC GONBālO~耤@BC IGHDHB JHE§̀IJDHB HEIDHB @IIDHB JHEIDHB @IIH HHRCDBIDBB~耤@BCIIGHDHB @IHJQDE @ JDHB @DHB @DDHB @DHB @II IHJHHJIA'~耤@BC GIK JJJBJDFPNN J BJJBNKPN |A@ JJB @KJJJRWp0~耤@BC DIEEBDEBVDEBIDEBDEBIDE EDQ@P~耤@BCEOG-FEOG(EIGDHGFDGFB EUBUZGFKIDGF B EKKUB U I GBGKGHHF(~耤@BCEOGFEOG؄EDGGFGFB @EUB UGFJHSĀGF| B EBN֠@ H GBGJGSMb~耤@B CCKCB BCBQ;~耤@BCHHGH HGKGFD @Q3GF BCD @I HHFMNED FMNED ByB(9CHCED DOCKCFMINE h ED CRIBCGFIGD GKGIwuC … AFGs|8~耤@BC DBJEC FG HK GEcIdHFcIdG [H [G I[[H [G [K[@ =MpnE\NNy]Fy^] 8^]^^IcdIH^]^IcdIGF\؁ւʀDAD1By=Q7 [[H`[G_[K[Mrp_\c\  dHefIg@G [[G`[H[K[Mtr dGefIgA|<@Hz cGdeIf@HHcId eG\c]dHe f@DI[[F_[D[K[Mtr|A,B@C(~耤@BCJD E @ڙ ā JJDKJEJKJMtr E@B TCM:~耤@BC DBJEC FG JJKIKHKGEgIhJ#FgIhI# ^^H ^K^Mwu _I` ^I@ <G^Jf_Igefe# GIGe`ge#IG Gf^_H gefe#G`^_Hc @^J^RE_H`A@6_J_R4EcFaENiXFiB bHIĀHgIh iG"!#agbhHi j@D#B@C|:~耤@BC DBJEC FGMK LKKKJKIKHKGyIzK5K•5Ey z@M5IpM @ Ip@ FGs=pM pKpM rp ppMuK¦qpM5qIIKqyww5 HKqy5pMIyH5GpK@yA@<M @uGGy z@I5sqJqIKqKyIzq{J5pyJzI{ |M5sqJqpyKz {I|@M@AA|;5pLqpKpMEuFtENiXFiC rLy zI{G245tyrzL{I|D5B|A,@C:~耤@B CBJDECQ R@E EIĀC`KNNyLE VQ @EIāE EQ@ @ RISG  1  @LNaKEBDEXNiBDDouble-precision overflowd-p.div.by zeroF~耤@BCP~耤@BC DE GJFEuKP Q¼R TG B IEELEFEKEMtr FB EEFLEDEKEMtrPIQRITC|GDpGFE# Bv s@Gj~耤@BC IJ KJXQ PHQPDRPKPKPPQsqIPHQPIRPKPKPQtr IIIGRFJLIK IS@SGRFJ J$IPHQPKRPIPKPQtr|Gs$~耤@BC B EMFNGOHPDC ŠB GG G8| Error %N Fatal error tG1~耤@BC DB EC FC GE IHIHGF G JHDHKHImkHE|G:~耤@BC DB EC FC GEBCXJ HIHED H%JHFKKHJ H3 H HIb` H<HE|H?~耤@B~耤@B|HLI~耤@` B@`K B G>ȅǽ ãIB CB BKBCwu BICH  BCH˜CBC-<|V<QQQQ :~耤@BC ckEDKCD GI#HGE GKGGHvtEBĀICqGICGED(K` LJCJ EנD̆HCH ȠCQCJĀ CHLYDKCLM` NJJV:V;~耤@B< CIDBQJ¯  DB#IĀD BCIBQѣF F"M Q Q$DڀFE CKQ@  CKQ+@`K FL ՀBGA C@`K C@`KFVLLLLLEBqIĀEII CBJE$DCDM ~耤@~耤@~耤@B‚F E DQE> @IćE|QMb.Q ) +J@`KK` LI IDQBD cIF GFE FKFGwuBMbPV:~耤@B‚ BD CQE˧ @IćD ۀBE@`KFA D@`K D@`KD DK M <>VVo$)zIӣ)|F` @`KIͿEŒCGICQ‚CMD @`K)|@F CBCDILj EI&W VcQFED EKEEFvtBM+~耤@B` C@`K!F@BBZICT)F` @`KICFEŒD|?N8 GIDQ‚6DN1@`KFDN8l,~@BC` D@`K$E` >H@`KIDBX>BECP>B IDBH`N3V @`KID>GFGIFQ‚FN~ IEBbI` @`KIE>GŒFGIFQ‚FN` FIH&W >FN"~耤@B CIBQH˜   N <"V|Q":~耤@tBq CIBQI¬ii EKQB٠CKQ 䀆+#GCGECOlOeQ#>KĆE CIąCJEH+ BJ@ 'BKEFBJ— CI#CI KJ@`KL` MJI> Q$V{ IFQĠCCFĄEOb CCCIĂCOl"~耤@BC DICQI– B | "OI<II?JecKLKKKKKBL ELl M  MMMd M N9NNOm"O#O3P:P^PbPaPQHIJCK5OC CIrM 'You are not allowed to close SI or SO !interlocked with % I-O ERROR: %N on file %S, stream %N No buffer space leftuAll streams in uselIllegal stream number selected No current streamFile descriptor error%S On file %S, stream %N Q ~耤@BI/GIռ ~耤@B :GIBȼB~耤@BC@`KE G@`KEIRIB NIGGCNE @G!FK0SGB GGCNE @@G F 0SGB|%TV IGG NGDSGBoN N >ACGB `+ D D+HH+E+I*F `+ `+JRaC螏Sb\ `+ȞBm `+B `+BBaa]B_[,W_`w HR+mفDpFr no t s` 8u0v xQÀyXt)׌5eHrnofH)5.wA+o€n[` %u s `+.r0m)HE `+%A `+ w X"aoHpJ r0v lxQȠrnoyNo)58wÀo€n `+.r` %u s0GDpFr e0<.m  H @ mrp q 0s0m ! O0SEGMENTBLANK DATA:RAMOCODE:ROMDATA:ROMGLOBVEC:oKWR:0 RD:0 RDFST:0 KB:EXIT CLOSE:0 WEOF:0 KPOS:0 OPEN:0 CREAT:0 KIPUID:0 iiii ~耤@BC` O N M LINEO)IDC EB ‚IE ‚CDSB IE)L`  @`K IEK ŒJ FJQ‚@` )ILd?d&t t JQDK QBJ F@`K ) @`KLJAOk Ojn@`KkOjm` kO jl` JQ@`K `  @`K` JBtttt H@`K` qJ ~耤@BC` Jê)|τI "D‚ EDE EKEM"wuD @ B BCSCDd.td8011261039455080112610395800801126103958de8011261040020080112610400700801126104007de8011261040110080112610401600801126104016de8011261040200080112610402525801126104025de8011261040292580112610403475801126104034de28011261040385080112610404450801126104044d* + , - . / 0 . CORAL SYSCG4 SYSCORAL HDR CORALU HDR CORALK HDR CORALM HDR CORALUM HDR CORALKM HDRCORALA OBJCORALB LIBCORALC LIBCORALD LIBDIRACC HDRDIRACCU HDRDIRACCK HDRDIRACC LIBCORAL:EII LIBY*|V ~耤@BC `+V|V ~耤@BC `+W|V>ACGB `+ D D+HH+E+I*F `+ `+JRaC螏Sb\ `+ȞBm `+B `+BB``] _>ZW_Q`w HR+mفDpFr no1  t s` 8u0v xQÀyXt)׌5eHrnofH)5.wA+o€n[` %u s `+.r0m)HE `+%A `+ w W`oHpJ r0v lxQȠrnoyNo)58wÀo€n `+.r` %u s0GDpFr e0<.m  H @ mrp q 0s0m ! # w|C #  # W`W GIJDEF` CB `+_>XX._QXBCO ܂ @B`H%'`@qC {_>_QX.0GHDJK` I FC M NOP E `+ЀLԁJ /ŀM qNDOqP KXX_>_Q   ŀQЀL)MMLMNLNJ . /U瞃RyR㠀1HQ{zRwvL 1ZRqRzNMJD`H%'`@M `+;A7L)M .L)MMLMOLOJ / .OWPMD`H%'`@M E `+A LM UL)MMLMPLP_%000`XQX@ BCDFGH` E IED؀J| z ` Z @IH 9 / : _GIF HI @KB]IC`H%'`@U_>_QY*7BHIFDG` CE JK `+ޠC™AAAH I FFF `+] _>Z_Q&HBLyC+Lz D  I `+L `+ULDQIR^Y* BCDBBEBBFBBGBBHBBIB C@NyJ G# _>_Q Y" !B` F G DH1NHByx uC `+o`_>`] _QYCB FG `+D+E*  B_>Z`_QZ*DBC  B GHQ `+E+F*OP iIC  c_>_QZ``V `+EYNN `+Z [*\*]+KZ [ `+ `+Z [+ 낶Z [ `+ `+ Z [+ۂZ [ `+ӂ NZ [ `+Nz `+ `+Z]D`] Z.. Z. Z`@Z'CDEFG @   EEEFCEEDE t_>_ _QZCDE @   CCCDCCC v_>_ _QZL* *FBCM@SD@HMSAEDhЄ\[ `+ Y+ZC]yFyBH1 HQ 0 9y X Zg[_>_U[``x]srGFg `+'AB IݠGgI…5]GC BI JQR fLLLZYZV„ɄfBĤ[ Zf /\uIY-Y 1YILSLNq zIYyiIYgDDD\_Q`^`*OLUF00\ 0`ByI؀\΄Y ^y DWY \ מoTQ- /B JI) BJ`H%'`HY+J`H%'`HY+InFޠD[\Z  IYY+U DG YDI YJ '\IJ3FZY+A@"GESAIČ L L [IR##\@FvGEA  ! գ1L EIĄGs CNG_ ^ 0` AG d<``*vBC1JB{zCwv YIC UI@J# IJIB`H%'`H+ / .BY`H%'`H+BYIjBJ # BI IJ# Iyр̀yɀŀy # # 9 0 F A # # N1@ # Оz_>`_Q ] BPLCCW R N `+O+M*PG_>_  ]DCDF EGC BK2 |1_Q]DBCDEIDF @M NO I PCHQBR@SD@EՀ Bw CI0G HIBH`H%'`HI+H `H%'`H+,IGf QR`H%'`HFI PR)hQvGCDT3 FGCI*_>_ _Qo IF V@V܀@# T NP P aT`TEL[P` O qFOJÀK"EH"'F  # LQQR`H %€'`HLS1G`H%5'`HS 1 + qS @FL# F# ^6(BCDEIDF @K L NCOBPM QD E_>_ _Qc Dn _ C&GJBI H1܂ĄNÄP„O NP O Q `H%'`H+!J)`H%'`H+HI`H%'`H+HIJ)GGKI FJGCD@RtQDRLK^ EB @ C DF B EEEyJw_>_ '_Q^ B @ C+E DF BJ|_>_ "_Q_ B1Bv @ _>_U`_Q_%# BC`H%'`H+CD`H%'`H+CDBnC# _>@`p`p@C @jr<`pAAB`@ `p@k# @Ap # _UqB #  1XB1QC OC`ABC@`ؠnBhԣIʤD+BCCʞ ,ú Ā  C!E+CQU @RB֋QBBD1A8 2``*_>```_Q,ZBZPCIOCSL @REiQE Cb^  ENU E F_" BD` CE FGHIJKL `+A `+CDu_>LDZ_Q] Y`# C! CD1iʀCD q_>```_Q CoB+C CJā BC] _`^5 BC D1H BDwC D1KɠBKDBȁāB1IǀKBȁā `_>```_Q` P PP # ``C @c # C @ vC @c # C @ v`` ```@`#`mE7E3E5E3--E2E0E COMMON ( COMMENT Coral-66 Library Routines Version #1.02 ========================= These routines may be included in your program by the statement LIBRARY "CORAL.HDR" Program control --------------- The entry point of the main program is in global 1; PROCEDURE stop/2(VALUE INTEGER); COMMENT File control ------------; INTEGER PROCEDURE findinput/6(VALUE INTEGER), findoutput/7(VALUE INTEGER); PROCEDURE statusfile/8(VALUE INTEGER,VALUE INTEGER); INTEGER PROCEDURE deletefile/9(VALUE INTEGER), renamefile/10(VALUE INTEGER,VALUE INTEGER); COMMENT Stream control --------------; INTEGER PROCEDURE input/12, output/13, selectinput/14(VALUE INTEGER), selectoutput/15(VALUE INTEGER), endread/16, endwrite/17, rewind/18, readback/19; PROCEDURE statusstream/20(VALUE INTEGER,VALUE INTEGER); INTEGER PROCEDURE interlock/21(VALUE INTEGER,VALUE INTEGER); INTEGER sysin/70, sysout/71; COMMENT  Reading and writing -------------------; INTEGER PROCEDURE readchar/22, unreadchar/24, 3 writechar/25(VALUE INTEGER), newline/26, writetext/27(VALUE INTEGER), writedec/28(VALUE INTEGER,VALUE INTEGER), writenumber/29(VALUE INTEGER), writehex/30(VALUE INTEGER,VALUE INTEGER), writeoct/31(VALUE INTEGER,VALUE INTEGER), writef/32(VALUE INTEGER,VALUE INTEGER), writef2/32(VALUE INTEGER,VALUE INTEGER,VALUE INTEGER), writef3/32(VALUE INTEGER,VALUE INTEGER,VALUE INTEGER, VALUE INTEGER), writef4/32(VALUE INTEGER,VALUE INTEGER,VALUE INTEGER, VALUE INTEGER,VALUE INTEGER), readnumber/73, readfield/74(VALUE INTEGER,VALUE INTEGER), writefield/75(VALUE INTEGER,VALUE INTEGER); INTEGER terminator/76; COMMENT I/O Error handling ------------------; INTEGER PROCEDURE iotrap/34(VALUE INTEGER,VALUE INTEGER,VALUE INTEGER), ioerrormessage/35(VALUE INTEGER,VALUE INTEGER,VALUE INTEGER); COMMENT  Byte and string handling ------------------------; PROCEDURE putbyte/37(VALUE INTEGER,VALUE INTEGER,VALUE INTEGER); INTEGER PROCEDURE getbyte/38(VALUE INTEGER,VALUE INTEGER), packstring/39(VALUE INTEGER,VALUE INTEGER),  unpackstring/40(VALUE INTEGER,VALUE INTEGER), comparestring/41(VALUE INTEGER,VALUE INTEGER),  stringlength/42(VALUE INTEGER); COMMENT Store allocation ----------------; INTEGER PROCEDURE heap/44,  getarray/45(VALUE INTEGER), freearray/46(VALUE INTEGER), stack/47; COMMENT Time and date enquiries -----------------------; PROCEDURE date/50(VALUE INTEGER), tod/52(VALUE INTEGER); INTEGER PROCEDURE time/51; COMMENT Miscellaneous -------------; INTEGER PROCEDURE muldiv/57(VALUE INTEGER,VALUE INTEGER,VALUE INTEGER), compareaddress/58(VALUE INTEGER,VALUE INTEGER); INTEGER result2/59, libversion/72; INTEGER PROCEDURE changephase/67(VALUE INTEGER); PROCEDURE jumpto/68(SWITCH,VALUE INTEGER); ); enquiries -----------------------; PROCEDURE date/50(VALUE INTEGER), tod/52(VALUE INTEGER); INTEGER PROCEDURE time/51; COMMENT Miscellaneous -------------; INTEGER PROCEDURE muldiv/57(VALUE INTEGER,VALUE INTEGER,VALUE INTEGER), compareaddress/58(VALUE INTEGER,VALUE INTEGER); INTEGER result2/59, libversion/72; INTEGER PROCEDURE changephase/67(VALUE INTEGER); PROCEDURE jumpto/68(SWITCH,VALUE INTECOMMON ( COMMENT CORAL-66 LIBRARY ROUTINES VERSION #1.02 ========================= THESE ROUTINES MAY BE INCLUDED IN YOUR PROGRAM BY THE STATEMENT LIBRARY "CORALU.HDR" PROGRAM CONTROL --------------- THE ENTRY POINT OF THE MAIN PROGRAM IS IN GLOBAL 1; PROCEDURE STOP/2(VALUE INTEGER); COMMENT FILE CONTROL ------------; INTEGER PROCEDURE FINDINPUT/6(VALUE INTEGER), FINDOUTPUT/7(VALUE INTEGER); PROCEDURE STATUSFILE/8(VALUE INTEGER,VAL4 UE INTEGER); INTEGER PROCEDURE DELETEFILE/9(VALUE INTEGER), RENAMEFILE/10(VALUE INTEGER,VALUE INTEGER); COMMENT STREAM CONTROL --------------; INTEGER PROCEDURE INPUT/12, OUTPUT/13, SELECTINPUT/14(VALUE INTEGER), SELECTOUTPUT/15(VALUE INTEGER), ENDREAD/16, ENDWRITE/17, REWIND/18, READBACK/19; PROCEDURE STATUSSTREAM/20(VALUE INTEGER,VALUE INTEGER); INTEGER PROCEDURE INTERLOCK/21(VALUE INTEGER,VALUE INTEGER); INTEGER SYSIN/70, SYSOUT/71; COMMENT  READING AND WRITING -------------------; INTEGER PROCEDURE READCHAR/22, UNREADCHAR/24,  WRITECHAR/25(VALUE INTEGER), NEWLINE/26, WRITETEXT/27(VALUE INTEGER), WRITEDEC/28(VALUE INTEGER,VALUE INTEGER), WRITENUMBER/29(VALUE INTEGER), WRITEHEX/30(VALUE INTEGER,VALUE INTEGER), WRITEOCT/31(VALUE INTEGER,VALUE INTEGER), WRITEF/32(VALUE INTEGER,VALUE INTEGER), WRITEF2/32(VALUE INTEGER,VALUE INTEGER,VALUE INTEGER), WRITEF3/32(VALUE INTEGER,VALUE INTEGER,VALUE INTEGER, VALUE INTEGER), WRITEF4/32(VALUE INTEGER,VALUE INTEGER,VALUE INTEGER, VALUE INTEGER,VALUE INTEGER), READNUMBER/73, READFIELD/74(VALUE INTEGER,VALUE INTEGER), WRITEFIELD/75(VALUE INTEGER,VALUE INTEGER); INTEGER TERMINATOR/76; COMMENT I/O ERROR HANDLING ------------------; INTEGER PROCEDURE IOTRAP/34(VALUE INTEGER,VALUE INTEGER,VALUE INTEGER), IOERRORMESSAGE/35(VALUE INTEGER,VALUE INTEGER,VALUE INTEGER); COMMENT BYTE AND STRING HANDLING ------------------------; PROCEDURE PUTBYTE/37(VALUE INTEGER,VALUE INTEGER,VALUE INTEGER); INTEGER PROCEDURE GETBYTE/38(VALUE INTEGER,VALUE INTEGER), PACKSTRING/39(VALUE INTEGER,VALUE INTEGER),  UNPACKSTRING/40(VALUE INTEGER,VALUE INTEGER), COMPARESTRING/41(VALUE INTEGER,VALUE INTEGER),  STRINGLENGTH/42(VALUE INTEGER); COMMENT STORE ALLOCATION ----------------; INTEGER PROCEDURE HEAP/44, GETARRAY/45(VALUE INTEGER), FREEARRAY/46(VALUE INTEGER), STACK/47; COMMENT TIME AND DATE ENQUIRIES -----------------------; PROCEDURE DATE/50(VALUE INTEGER), TOD/52(VALUE INTEGER); INTEGER PROCEDURE TIME/51; COMMENT MISCELLANEOUS -------------; INTEGER PROCEDURE MULDIV/57(VALUE INTEGER,VALUE INTEGER,VALUE INTEGER), COMPAREADDRESS/58(VALUE INTEGER,VALUE INTEGER); INTEGER RESULT2/59, LIBVERSION/72; INTEGER PROCEDURE CHANGEPHASE/67(VALUE INTEGER); PROCEDURE JUMPTO/68(SWITCH,VALUE INTEGER); ); ENQUIRIES -----------------------; PROCEDURE DATE/50(VALUE INTEGER), TOD/52(VALUE INTEGER); INTEGER PROCEDURE TIME/51; COMMENT MISCELLANEOUS -------------; INTEGER PROCEDURE MULDIV/57(VALUE IN5 TEGER,VALUE INTEGER,VALUE INTEGER), COMPAREADDRESS/58(VALUE INTEGER,VALUE INTEGER); INTEGER RESULT2/59, LIBVERSION/72; INTEGER PROCEDURE CHANGEPHASE/67(VALUE INTEGER); PROCEDURE JUMPTO/68(SWITCH,VALUE I'COMMON' ( 'COMMENT' CORAL-66 LIBRARY ROUTINES VERSION #1.02 ========================= THESE ROUTINES MAY BE INCLUDED IN YOUR PROGRAM BY THE STATEMENT 'LIBRARY' "CORALK.HDR" PROGRAM CONTROL --------------- THE ENTRY POINT OF THE MAIN PROGRAM IS IN GLOBAL 1; 'PROCEDURE' STOP/2('VALUE''INTEGER'); 'COMMENT' FILE CONTROL ------------; 'INTEGER''PROCEDURE' FINDINPUT/6('VALUE''INTEGER'), FINDOUTPUT/7('VALUE''INTEGER'); 'PROCEDURE' STATUSFILE/8('VALUE''INTEGER','VALUE''INTEGER'); 'INTEGER''PROCEDURE' DELETEFILE/9('VALUE''INTEGER'), RENAMEFILE/10('VALUE''INTEGER','VALUE''INTEGER'); 'COMMENT' STREAM CONTROL --------------; 'INTEGER''PROCEDURE' INPUT/12,  OUTPUT/13, SELECTINPUT/14('VALUE''INTEGER'), SELECTOUTPUT/15('VALUE''INTEGER'),  ENDREAD/16, ENDWRITE/17, REWIND/18, READBACK/19; 'PROCEDURE' STATUSSTREAM/20('VALUE''INTEGER','VALUE''INTEGER'); 'INTEGER''PROCEDURE' INTERLOCK/21('VALUE''INTEGER','VALUE''INTEGER'); 'INTEGER' SYSIN/70, SYSOUT/71; 'COMMENT' READING AND WRITING -------------------; 'INTEGER''PROCEDURE' READCHAR/22, UNREADCHAR/24, WRITECHAR/25('VALUE''INTEGER'),  NEWLINE/26, WRITETEXT/27('VALUE''INTEGER'), WRITEDEC/28('VALUE''INTEGER','VALUE''INTEGER'), WRITENUMBER/29('VALUE''INTEGER'), WRITEHEX/30('VALUE''INTEGER','VALUE''INTEGER'),  WRITEOCT/31('VALUE''INTEGER','VALUE''INTEGER'), WRITEF/32('VALUE''INTEGER','VALUE''INTEGER'),  WRITEF2/32('VALUE''INTEGER','VALUE''INTEGER','VALUE''INTEGER'), WRITEF3/32('VALUE''INTEGER','VALUE''INTEGER','VALUE''INTEGER', 'VALUE''INTEGER'), WRITEF4/32('VALUE''INTEGER','VALUE''INTEGER','VALUE''INTEGER', 'VALUE''INTEGER','VALUE''INTEGER'),  READNUMBER/73, READFIELD/74('VALUE''INTEGER','VALUE''INTEGER'), WRITEFIELD/75('VALUE''INTEGER','VALUE''INTEGER'); 'INTEGER' TERMINATOR/76; 'COMMENT' I/O ERROR HANDLING ------------------;  'INTEGER''PROCEDURE' IOTRAP/34('VALUE''INTEGER','VALUE''INTEGER','VALUE''INTEGER'), IOERRORMESSAGE/35('VALUE''INTEGER','VALUE''INTEGER','VALUE''INTEGER'); 'COMMENT' BYTE AND STRING HANDLING ------------------------; 'PROCEDURE' PUTBYTE/37('VALUE''INTEGER','VALUE''INTEGER','VALUE''INTEGER'); 'INTEGER''PROCEDURE' GETBYTE/38('VALUE''INTEGER','VALUE''INTEGER'), PACKSTRING/39('VALUE''INTEGER','VALUE''INTEGER'), UNPACKSTRING/40('VALUE''INTEGER','VALUE''INTEGER'), COMPARESTRING/41('VALUE''INTEGER','VALUE''INTEGER'), STRINGLENGTH/42(6 'VALUE''INTEGER'); 'COMMENT' STORE ALLOCATION ----------------; 'INTEGER''PROCEDURE' HEAP/44, GETARRAY/45('VALUE''INTEGER'), FREEARRAY/46('VALUE''INTEGER'), STACK/47; 'COMMENT' TIME AND DATE ENQUIRIES -----------------------; 'PROCEDURE' DATE/50('VALUE''INTEGER'), TOD/52('VALUE''INTEGER'); 'INTEGER''PROCEDURE' TIME/51; 'COMMENT' MISCELLANEOUS -------------; 'INTEGER''PROCEDURE' MULDIV/57('VALUE''INTEGER','VALUE''INTEGER','VALUE''INTEGER'), COMPAREADDRESS/58('VALUE''INTEGER','VALUE''INTEGER'); 'INTEGER'  RESULT2/59, LIBVERSION/72; 'INTEGER''PROCEDURE' CHANGEPHASE/67('VALUE''INTEGER'); 'PROCEDURE' JUMPTO/68('SWITCH','VALUE''INTEGER'); ); DURE' DATE/50('VALUE''INTEGER'), TOD/52('VALUE''INTEGER'); 'INTEGER''PROCEDURE' TIME/51; 'COMMENT' MISCELLANEOUS -------------; 'INTEGER''PROCEDURE' MULDIV/57('VALUE''ICOMMENT Version #0.00 File CORALM.HDR Lower case header for floating point I/O library CORALC.LIB and mathematical library CORALD.LIB. Copyright HPAC Ltd. 1979 ; COMMON ( INTEGER floerrorcode/151; FLOATING PROCEDURE abs/158(VALUE FLOATING), random/159; FLOATING PROCEDURE intpart/160 (VALUE FLOATING), fracpart/161(VALUE FLOATING), power/163 (VALUE FLOATING,VALUE INTEGER), prinval/164 (VALUE FLOATING,VALUE FLOATING); INTEGER PROCEDURE exppart/162(VALUE FLOATING), round/168 (VALUE FLOATING); PROCEDURE setexp/169 (VALUE INTEGER,LOCATION FLOATING), writeflo/166 (VALUE FLOATING,VALUE INTEGER,VALUE INTEGER), writeexp/167(VALUE FLOATING,VALUE INTEGER); FLOATING PROCEDURE readflo/165; FLOATING PROCEDURE sqrt/170 (VALUE FLOATING), exp/171 (VALUE FLOATING), log/172 (VALUE FLOATING), log10/173(VALUE FLOATING),  sin/174 (VALUE FLOATING), cos/175 (VALUE FLOATING), tan/176 (VALUE FLOATING), arctan/177 (VALUE FLOATING), angle/178 (VALUE FLOATING,VALUE FLOATING); DEFINE plussymbol "$*S", tenpowersymbol "$E", pi "3.1415926", root2 "1.4142135", root3 "1.7320508", logof2 "0.69314718", logof10 "2.3025850929", halfpi "1.570796326"; ); log/172 (VALUE FLOATING), log10/173(VALUE FLOATING), COMMENT Version #0.00 File CORALUM.HDR Upper case unstropped header for floating point I/O library CORALC.LIB and mathematical library CORALD.LIB. Copyright HPAC Ltd. 1979 ; COMMON ( INTEGER FLOERRORCODE/151; FLOATING PROCEDURE ABS/158(VALUE FLOATING), RANDOM/159; FLOATING PROCEDURE INTPART/160 (VALUE FLOATING), FRACPART/161(VALUE FLOATING), POWER/163 (VALUE FLOATING,VALUE INTEGER), PRINVAL/164 (VALUE FLOATING,VALUE FLOATING); INTEGER PROCEDURE EXPPART/162(VALUE FLOATING), ROUND/168 (VALUE FLOATING); PROCEDURE SETEXP/169 (VALUE INTEGER,LOCATION FLOATING), WRITEFLO/166 (VALUE FLOATING,VALUE INTEGER,VALUE INTEGER), WRITE7 EXP/167(VALUE FLOATING,VALUE INTEGER); FLOATING PROCEDURE READFLO/165; FLOATING PROCEDURE SQRT/170 (VALUE FLOATING),  EXP/171 (VALUE FLOATING), LOG/172 (VALUE FLOATING), LOG10/173(VALUE FLOATING), SIN/174 (VALUE FLOATING), COS/175 (VALUE FLOATING), TAN/176 (VALUE FLOATING), ARCTAN/177 (VALUE FLOATING), ANGLE/178 (VALUE FLOATING,VALUE FLOATING); DEFINE PLUSSYMBOL "$*S", TENPOWERSYMBOL "$E", PI "3.1415926", ROOT2 "1.4142135", ROOT3 "1.7320508", LOGOF2 "0.69314718", LOGOF10 "2.3025850929", HALFPI "1.570796326"; ); LOG/172 (VALUE FLOATING), LOG10/173(VALUE FLOATING'COMMENT' Version #0.00 File CORALKM.HDR Upper case stropped header for floating point I/O library CORALC.LIB and mathematical library CORALD.LIB. Copyright HPAC Ltd. 1979 ; 'COMMON' ( 'INTEGER' FLOERRORCODE/151; 'FLOATING' 'PROCEDURE' ABS/158('VALUE' 'FLOATING'), RANDOM/159; 'FLOATING' 'PROCEDURE' INTPART/160 ('VALUE' 'FLOATING'),  FRACPART/161('VALUE' 'FLOATING'), POWER/163 ('VALUE' 'FLOATING','VALUE' 'INTEGER'),  PRINVAL/164 ('VALUE' 'FLOATING','VALUE' 'FLOATING'); 'INTEGER' 'PROCEDURE' EXPPART/162('VALUE' 'FLOATING'),  ROUND/168 ('VALUE' 'FLOATING'); 'PROCEDURE' SETEXP/169 ('VALUE' 'INTEGER','LOCATION' 'FLOATING'), WRITEFLO/166 ('VALUE' 'FLOATING','VALUE' 'INTEGER','VALUE' 'INTEGER'), WRITEEXP/167('VALUE' 'FLOATING','VALUE' 'INTEGER'); 'FLOATING' 'PROCEDURE' READFLO/165; 'FLOATING' 'PROCEDURE' SQRT/170 ('VALUE' 'FLOATING'), EXP/171 ('VALUE' 'FLOATING'), LOG/172 ('VALUE' 'FLOATING'), LOG10/173('VALUE' 'FLOATING'), SIN/174 ('VALUE' 'FLOATING'), COS/175 ('VALUE' 'FLOATING'), TAN/176 ('VALUE' 'FLOATING'), ARCTAN/177 ('VALUE' 'FLOATING'), ANGLE/178 ('VALUE' 'FLOATING','VALUE' 'FLOATING'); 'DEFINE' PLUSSYMBOL "$*S", TENPOWERSYMBOL "$E", PI "3.1415926", ROOT2 "1.4142135", ROOT3 "1.7320508", LOGOF2 "0.69314718", LOGOF10 "2.3025850929", HALFPI "1.570796326"; ); 'FLOATING'), LOG10/173('VALUE' 'FLOATING'), SIN/174 ('VALUE' 'FLOATING'), COS/175 ('VALUE' 'FLOATING'), TAN/176 ('VALUE' 'FLOATING'), ARCTAN/177 ('VALUE' 'FLOATING'), ANGLE/178 ('VALUE' 'FLOATING','VALUE' 'FLOATING'); 'DEFINE' PLUSSYMBOL "$*S", TENPOWERSYMBOL "$E", PI "3.1415926", ROOT2 "1.4142135", ROOT3 "1.7320508", LOGOF2 "0.69314718", LOGJSTART: C:WPL C:WP O0SEGMENTBLANK GLOBVEC:OCODE:ROMo KB:EXIT E:MONE C:MEMORYKEXIT:0 iiiig pҏ`PV |P  ` £¼  ~耤@ BI B B¿STOP %N ~耤@@ *B * td@dd ddtd8d dBtC ddA ~耤@F  ~耤@ @@``%'`@ ~耤@ @@`Dh%' `@~耤@F8 GE CB@ D`  ~` @`t ~耤@B GG @n~耤@D2 CD`@a#2.03gg d;id=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d 0ddd&dr%d~:de9dDdFGHdiO0SEGMENTBLANK GLOBVEC:OCODE:ROMo %KE:MONE iiii ~*FG dš +Hardware Trap %x4 Produ ced at Location %x4  d8tJB:EXIT O0SEGMENTBLANK CODE:ROMo iig@쀜=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=d=O0SEGMENTBLANK DATA:RAMOCODE:ROMDATA:ROMGLOBVEC:o ;KRDFST:0 RD:0 RENAM:0 KDEL:0 WEOF:0 CLOSE:0 KPOS:0 RDPOS:0 OPEN:0 KCREAT:0 IPUID:0 WR:0 KB:EXIT DTTIM:0 iiii ~耤@` B@`K B 9 G>ȅǽ ã IB CB B KBCwu BICH  BCH˜ CBCd-d K` LJCJ  EנD̆HCH ȠCQCJĀ CH  DKCLM` NJJtd:t ~耤@B< CIDBQ J¯   DB#IĀD B CIBQѣF  Fd"dd DڀFE  CKQ@   CKQ+@`K F ՀBGA  C@`K C@`KFd<td>t EBqIĀEII CBJE $DCD~耤@~耤@ ~耤@B‚F  E DQE> @IćEt d.d  +J@`KK` L I IDQBD:  cI F GFE FKFGwuBPt ~耤@B‚  BD CQE˧ @ IćD ۀBE@` KFA D@`K D @`KD DK d dtt )zIӣ)| F` @`KIͿ EŒCGICQ‚C} D @`K)|@F  CBCDILj EId&t t FED EKEEFvtB ~耤@B` C@`K!F@B BZICT) F` @`KICFEŒDt d? GIDQ‚6D@`KFDl ~耤@BC` D@`K$E` >H@`KIDBX>B ECP>B IDBH``3t @`KID>G ŒFGIFQ‚F2 IEBbI`  @`KIE>GŒFGIFQ‚FQ` FIHd&t >F` ~耤@B CI BQH˜    d d<d"tt  ~耤@tBq CI BQI¬ii  EKQB٠CKQ 䀆+#G CGEC  KĆE CI ąCJEH+ BJ@ ' BKE FBJ— CI#CI  KJ@`KL` MJId>t IFQĠCCFĄE CCCIĂC  ~耤@BC D ICQI–  B t d d"zd<   +#GDBI GDKĆ BH I BQED C EIDK CJEP zId% ~耤@BCD H Ǚ:E DJC BE !ddd# ~耤@BCCJ DKB Biydm d d  #  ECJDKEk ~耤@@`KB@`KB B GOȅCϊ@@@  t  .t  ~耤@BC D @¢ Āk  @HĀDC  ]E @DEC āDECIEd<  ED FECEKEMrp8 ~耤@BC` DIOO C OKOMwuDB DC„Ąd?  CICS CTUCD ~耤@B3 C KQB  ~耤@B   CD KQB tt i dii=dii>diidBiidLii?diicdiid6iidGiidXiidiidiiBdiiEd ii dii diidiidii dii diidaiidiid!ii"d|ii#dii3diidiidTiibdiiadiWV OC CIrM 'You are n ot allowed to close SI o r SO !interlocked w ith % I-O ERROR: %N on file %S, stream %N No  buffer space leftuAll s treams in uselIllegal s tream number selected N o current streamFile de scriptor error%S On file %S, stream %N  ;O0SEGMENTBLANK DATA:RAMOCODE:ROMDATA:ROMGLOBVEC:oKCHAIN:0 IPUI; D:0 DTTIM:0 KB:EXIT iiii ~耤@BI/GIռ ~耤@B :GIBȼ ~耤@BC@`KE G@`K EIRIB N IGGCNE @G !FK0SGB GG CNE @@G F 0SGBtd%t IGG NGDSG BoN N >ȅǽ ã IB CB B KBCwu BICH  BCH˜ CBCd-d K` LJCJ  EנD̆HCH ȠCQCJĀ CH  DKCLM` NJJtd:t ~耤@B< CIDBQ J¯   DB#IĀD B CIBQѣF  Fd"dd DڀFE  CKQ@   CKQ+@`K F ՀBGA  C@`K C@`KFd<td>t EBqIĀEII CBJE $DCD~耤@~耤@ ~耤@B‚F  E DQE> @IćEt d.d  +J@`KK` L I IDQBD cI F GFE FKFGwuBPt ~耤@B‚  BD CQE˧ @ IćD ۀBE@` KFA D@`K D @`KD DK d dtt )zIӣ)| F` @`KIͿ EŒCGICQ‚C} D @`K)|@F  CBCDILj EId&t t FED EKEEFvtB ~耤@B` C@`K!F@B BZICT) F` @`KICFEŒDt d? GIDQ‚6D@`KFDl ~耤@BC` D@`K$E` >H@`KIDBX>B ECP>B IDBH``3t @`KID>G ŒFGIFQ‚F2 IEBbI`  @`KIE>GŒFGIFQ‚FQ` FIHd&t >F` ~耤@B CI BQH˜    d d<d"tt  ~耤@tBq CI BQI¬ii  EKQB٠CKQ 䀆+#G CGEC  KĆE CI ąCJEH+ BJ@ ' BKE FBJ— CI#CI  KJ@`KL` MJId>t IFQĠCCFĄE CCCIĂC  ~耤@BC D ICQI–  B t d d"zd<   +#GDBI > GDKĆ BH I BQED C EIDK CJEP zId% ~耤@BCD H Ǚ:E DJC BE !ddd# ~耤@BCCJ DKB Biydm d d  #  ECJDKEk ~耤@@`KB@`KB B GOȅCϊ@@@  t  .t  ~耤@BC D @¢ Āk  @HĀDC  ]E @DEC āDECIEd<  ED FECEKEMrp8 ~耤@BC` DIOO C OKOMwuDB DC„Ąd?  CICS CTUCD ~耤@B3 C KQB  ~耤@B   CD KQB tt i dii=dii>diidBiidLii?diicdiid6iidGiidXiidiidiiBdiiEd ii dii diidiidii dii diidaiidiid!ii"d|ii#dii3diidiidTiibdiiadiWV OC CIrM 'You are n ot allowed to close SI o r SO !interlocked w ith % I-O ERROR: %N on file %S, stream %N No  buffer space leftuAll s treams in uselIllegal s tream number selected N o current streamFile de scriptor error%S On file %S, stream %N  ;O0SEGMENTBLANK DATA:RAMOCODE:ROMDATA:ROMGLOBVEC:oKCHAIN:0 IPUID:0 DTTIM:0 KB:EXIT iiii ~耤@BI/GIռ ~耤@B :GIBȼ ~耤@BC@`KE G@`K EIRIB N IGGCNE @G !FK0SGB GG CNE @@G F 0SGBtd%t IGG NGDSG BoN N >iid9iidiidi@@~~耤@G'Md G\uGG\O0SEGMENTBLANK DATA:RAMOCODE:ROMDATA:ROMGLOBVEC:o ;KRDFST:0 RD:0 RENAM:0 KDEL:0 WEOF:0 CLOSE:0 KPOS:0 RDPOS:0 OPEN:0 KCREAT:0 IPUID:0 WR:0 KB:EXIT DTTIM:0 iiii ~耤@` B@`K B G>ȅǽ ã IB CB B KBCwu BICH  BCH˜ CBCd-d K` LJCJ  EנD̆HCH ȠCQCJĀ CH  DKCLM` NJJtd:t ~耤@B< CIDBQ J¯   DB#IĀD B CIBQѣF  Fd"dd DڀFE  CKQ@   CKQ+@`K F ՀBGA  C@`K C@`KFd<td>t EBqIĀEII CBJE $DCD~耤@~耤@ ~耤@B‚F  E DQE> @IćEt d.d  +J@`KK` L I IDQBD cI F GFE FKFGwuBPt ~耤@B‚  BD CQE˧ @ IćD ۀBE@` KFA D@`K D @`KD DK d dtt )zIӣ)| F` @`KIͿ EŒCGICQ‚C} D @`K)|@F  CBCDILj EId&t t FED EKEEFvtB ~耤@B` C@`K!F@B BZICT) F` @`KICFEŒDt d? GIDQ‚6D@`KFDl ~耤@BC` D@`K$E` >H@`KIDBX>B ECP>B IDBH``3t @`KID>G ŒFGIFQ‚F2 IEBbI`  @`KIE>GŒFGIFQ‚FQ` FIHd&t >F` ~耤@B CI BQH˜    d d<d"tt B  ~耤@tBq CI BQI¬ii  EKQB٠CKQ 䀆+#G CGEC  KĆE CI ąCJEH+ BJ@ ' BKE FBJ— CI#CI  KJ@`KL` MJId>t IFQĠCCFĄE CCCIĂC  ~耤@BC D ICQI–  B t d d"zd<   +#GDBI GDKĆ BH I BQED C EIDK CJEP zId% ~耤@BCD H Ǚ:E DJC BE !ddd# ~耤@BCCJ DKB Biydm d d  #  ECJDKEk ~耤@@`KB@`KB B GOȅCϊ@@@  t  .t  ~耤@BC D @¢ Āk  @HĀDC  ]E @DEC āDECIEd<  ED FECEKEMrp8 ~耤@BC` DIOO C OKOMwuDB DC„Ąd?  CICS CTUCD ~耤@B3 C KQB  ~耤@B   CD KQB tt i dii=dii>diidBiidLii?diicdiid6iidGiidXiidiidiiBdiiEd ii dii diidiidii dii diidaiidiid!ii"d|ii#dii3diidiidTiibdiiadiWV OC CIrM 'You are n ot allowed to close SI o r SO !interlocked w ith % I-O ERROR: %N on file %S, stream %N No  buffer space leftuAll s treams in uselIllegal s tream number selected N o current streamFile de scriptor error%S On file %S, stream %N  ;O0SEGMENTBLANK DATA:RAMOCODE:ROMDATA:ROMGLOBVEC:oKCHAIN:0 IPUID:0 DTTIM:0 KB:EXIT iiii ~耤@BI/GIռ ~耤@B :GIBȼ ~耤@BC@`KE G@`K EIRIB N IGGCNE @G !FK0SGB GG CNE @@G F 0SGBtd%t IGG NGDSG BoN N >iid9iidiidi@@O0SEGMENTBLANK DATA:RAMOCODE:ROMDATA:ROMGLOBVEC:oKB:EXIT iiii~耤@BG̞ ~耤@G\CGĞG \ d G'Md \G LG'Md \G \ G\\ GG\\G\ G G\GG \\G'MdtpdLG'Md G\pEG{\Gpi ~耤@G\_D G'Md DG 'Md G\VG\TG G \NG G \  G\G\?\?\ \=\G DO \&\"\ ~耤@G\('Md~耤@G'MdGG'MdGG\ ~耤@G FG\I F@AF I\Gt G\G G\ G  GG\\G\\E 'Md G\ɀFFG\ GG\G\ G\žG\G \G I\ \\ \\\\GF E I\G[~耤@G'Md\g ~耤@G\hG\c GvG\[Gn\ G\QG\L GIG\DG[ G\'Md'Md ~耤@G DG\"H ID I\GG\# ɀDDG\GG \G\/\/\t \*\GG\$\ \"G G\ GD HDG\GD G I\S ~耤@FõN˴GB  GDëNE˨R€EE ˣSEEDKDED˗ ֘Ǖ@O \GO  \GCGΞ G\G\SQ ~耤@G\~G{G \vD I JGGG'Md HOG ɀHOGHG 'Md G\N\~\~GGH'Md HOGKHG 'Md G\1\e\eGGH'Md G\\G\3 G G\\ tidRiidiidiidhiid\iidiidiidiidqiid i PðC @1r@B nBP@@ ?Ԓ"@*A@AAI ?A< >l@%[@ A]A@?vAr?HAAT AH@ @3?@'Md G\N\~\~GGH'Md HOGKHG 'Md G\1\e\eGGH'Md G\\G\3 G G\\ tidRiidiidiidhiid\iidiidiidiidqiid i {DIRACC.HDR} COMMENT Global definitions for direct access routines Version #1.00 ; COMMON ( INTEGER PROCEDURE create da/90 (VALUE INTEGER,VALUE INTEGER,VALUE INTEGER), find da/91 (VALUE INTEGER,VALUE INTEGER),  select da/92 (VALUE INTEGER), read record/93 (VALUE INTEGER,VALUE INTEGER), write record/94 (VALUE INTEGER,VALUE INTEGER), end da/95, direct access/96; );  {DIRACCU.HDR} COMMENT Global definitions for direct access routines Version #1.00 ; COMMON ( INTEGER PROCEDURE CREATEDA/90 (VALUE INTEGER,VALUE INTEGER,VALUE INTEGER), FINDDA/91 (VALUE INTEGER,VALUE INTEGER),  SELECTDA/92 (VALUE INTEGER), READRECORD/93 (VALUE INTEGER,VALUE INTEGER), WRITERECORD/94 (VALUE INTEGER,VALUE INTEGER), ENDDA/95, DIRECTACCESS/96; );  {DIRACCK.HDR} 'COMMENT' GLOBAL DEFINITIONS FOR DIRECT ACCESS ROUTINES VERSION #1.00 ; 'COMMON' ( 'INTEGER''PROCEDURE' CREATEDA/90 ('VALUE''INTEGER','VALUE''INTEGER','VALUE''INTEGER'), FINDDA/91 ('VALUE''INTEGER','VALUE''INTEGER'), SELECTDA/92 ('VALUE''INTEGER'), READRECORD/93 ('VALUE''INTEGER','VALUE''INTEGER'), WRITERECORD/94 ('VALUE''INTEGER','VALUE''INTEGER'), ENDDA/95, DIRECTACCF ESS/96; ); } 'COMMENT' GLOBAL DEFINITIONS FOR DIRECT ACCESS ROUTINES VERSION #1.00 ; 'COMMON' ( 'INTEGER''PROCEDURE' CREATEDA/90 ('VALUE''INTEGER','VALUE''INTEGER','VALUE''INTEGER'), FINDDA/91 ('VALUE''INTEGER','VALUE''INTEGER'), SELECTDA/92 ('VALUE''INTEGER'), READRECORD/93 ('VALUE''INTEGER','VALUE''INTEGER'), WRITERECORD/94 ('VALUE''INTEGER','VALUE''INTEGER'), ENDDA/95, DIRECTACCO0SEGMENTBLANK CRAL:EIIo  KB:EXIT C: i i BC `+tt O0SEGMENTBLANK CRAL:EIIo i O0SEGMENTBLANK CRAL:EIIo i O0SEGMENTBLANK CRAL:EIIo i O0SEGMENTBLANK CRAL:EIIo i O0SEGMENTBLANK CRAL:EIIo i O0SEGMENTBLANK CRAL:EIIo i O0SEGMENTBLANK CRAL:EIIo i O0SEGMENTBLANK CRAL:EIIo i O0SEGMENTBLANK CRAL:EIIo i O0SEGMENTBLANK CRAL:EIIo i O0SEGMENTBLANK CRAL:EIIo i O0SEGMENTBLANK CRAL:EIIo i O0SEGMENTBLANK CRAL:EIIo i O0SEGMENTBLANK CRAL:EIIo i O0SEGMENTBLANK CRAL:EIIo i O0SEGMENTBLANK CRAL:EIIo i O0SEGMENTBLANK CRAL:EIIo i O0SEGMENTBLANK CRAL:EIIo i O0SEGMENTBLANK CRAL:EIIo i O0SEGMENTBLANK CRAL:EIIo i O0SEGMENTBLANK CRAL:EIIo i O0SEGMENTBLANK CRAL:EIIo i O0SEGMENTBLANK CRAL:EIIo i O0SEGMENTBLANK CRAL:EIIo i O0SEGMENTBLANK CRAL:EIIo i O0SEGMENTBLANK CRAL:EIIo i O0SEGMENTBLANK CRAL:EIIo i O0SEGMENTBLANK CRAL:EIIo i  CRAL:EIIo i O0SEGMENTBLANK CRAL:EIIo i O0SEGMENTBLANK CRAL:EIIo i O0SEGMENTBLANK CRAL:EIIo i O0SEGMENTBLANK CRAL:EIIo i O0SEGMENTBLANK CRAL:EIIo i O0SEGMENTBLANK CRAL:EIIo i O0SEGMENTBLANK CRAL:EIIo i O0SEGMENTBLANK CRAL:EIIo i IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIG IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIH IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIJ IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIK IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIL IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII