3: FORTRf77 ef77fe rInstDFSeInstallef77cg rcopy rAN7703 ?/YjJ?D] ?Yɂ?E~?!\?¡Y3" }4.V43444444444444444affadfffaaFaafffffafdaa13????????????????@@@,@0@4@8@<@@@D@H@L@P@T@X@\@`@d@h@l@p@t@x@|@@@@@@@@@@@@@@@@@@@@@AAAA A$A(A,A0A4A8A>>> >(>,>4>8>D>P>X>\>h>t>|>>>>>>>>>>>GGHHHHIJJTUVHWdWXpYPBh=l=p=t===========GGHHHHIIJJJJJJJJJJJXU`UVLWhWxW|W XXXX X$Xx=|========>@>L>d>p>>> _DecodeArg DecodeArg_ProgramProgram_StoreStore_IOIO _TimeAndDate TimeAndDate_FileFile_ErrorError_ConvertConvertdatadebug XSWriteByte XErrorStreamStopAllocate XGetStateArg GetStringArgExpand XGetStringArg DeviceType CloseStream RenameFileSetFileInformation SubstituteIsWild DecodeEndGetFileInformation PANOSFile DeleteFile InitDirReadPhysicalDirRead EndDirReadCreateDirectory FindOutputSaveFile CreateFile SBlockWriteLoadFile FindInput SBlockRead Deallocate ErrorStreamNameGetErrorMessage ControlStreamGetNumberOfValues XArgumentInitVerbosityRequiredSwitchRequired XWriteByteBinaryTimeOfTextualTimeXStringToCardinalDatRelease Access rf77 qifp qfWorld ffCheck e10 ( ?H|LM?7I>RD?x ?$ .Identify Fortran installation test v1.10/01 $ . Checking FORTRAN installation $ .set cli$stop -1 $ .swd $.PanosTests $ f77 fworld $ link fworld f77 $ fworld $ . $ . FORTRAN installation check completed PROGRAM World C Acorn 32000 Fortran 77 - basic confidence test PRINT *, 'Hello Fortran world' END PbE2n:Fortran-Panos Interface Library V1.10/02 8-Aug-85 14:18:101985-08-08 14:18:55.4032016 ZASM 2.10PbE2FP_BBC1985-08-08 13:51:56.3132016 ZASM 2.10 IFXOSFILEmIFOSFILE& IFXOSBYTEIFOSBYTE^ IFXOSWORDIIFOSWORD BBCXOSFile BBCOSFile BBCXOSByte BBCOSByte BBCXOSWord BBCOSWord/o ׅׅׅ "'o2/o ׅׅ ׅ"'o2׍ E"'2׍ E"2/o ׅׅׅ"'o2/o ׅׅׅ"o2PbE2_ FP_Command1985-08-08 13:52:24.9332016 ZASM 2.10IFXINTERPRETSTRINGIFINTERPRETSTRING2IFXINTERPRETCOMMANDS(IFINTERPRETCOMMANDS CommandXInterpretString CommandInterpretString CommandXInterpretCommands CommandInterpretCommands<<EE"'2EE"'2"'2"'2PbE2 FP_Convert1985-08-08 13:53:26.7132016 ZASM 2.10EIFXSTRINGTOBOOLEAN)IFSTRINGTOBOOLEANIFXSTRINGTOINTEGERIFSTRINGTOINTEGERLIFXSTRINGTOCARDINAL0IFSTRINGTOCARDINAL IFXBOOLEANTOSTRINGIFBOOLEANTOSTRINGIFXCARDINALTOSTRINGIFCARDINALTOSTRINGIFXINTEGERTOSTRING`IFINTEGERTOSTRING ConvertXStringToBoolean ConvertStringToBoolean ConvertXStringToInteger ConvertStringToInteger ConvertXStringToCardinal ConvertStringToCardinal ConvertXBooleanToString ConvertBooleanToString ConvertXCardinalToString ConvertCardinalToString ConvertXIntegerToString ConvertIne(  , 88DHPL  x, X  $T 8&0 0"2W _88J7 7-"8h2 إ "2 8N8N5"8+ Z8+05"8+A# 5"2 إ "2 "2"إ" ="="="_"2 / "2x| < :}(6Hg8_8g.8+gJ8gc8 Ñ~/إ="x2 إ 5"5"x =5"  ynإ5"5"2 +WWc@x" " p_8pW8c'a@@ h 8apإ'5"5"_Jإ5"x5" إ 5"إW8c'aE5"إ'5"5"22"2"2"22 ġaJ#ġz8XAXa#822߹"2 8=|"?|8v|2 _88J 7 8p82 _8w 8x82ׅ " "2 W_8w !_"wo8a!o2 "2 ""8 ?== "02ץ "2  ""8 ?== "02_0_(  0rG  (r0(t"_81Z g 8stZ8#0g8n 2ץץ "2ץ "2 ץ "2 W"pW pWW _  W   " _8 ").p &80W _"80燀p8R80W  80 p" 2 W_88J,8J"7X/ _D7:8O8ZWG8J/_WG8J7_2 W_8ow _w 8h'2W _88Zw_*/w _w/_ 8Fْ2 _8!PJΘ X0 (_g5" Θ-" X)8)Z_A<꿱_/! __!  _2 " 2ץץ " 2 ץ " 2 Xׁ8J7 7(8d_<2 Xׁw /w8n_<2 W_0!Z>Zg6 Z_. 08b 0J.2_0!ZW c8 "W_"W!Zn 08q(2 2__" +p _ cء W8NGW W8' @ z)ǡ(,8' @ z)8 (NG꿽W8' Ah #z 6hqp;ǡ( W8' AtegerToStringYY/o ׅׅ"'o2EE"'2/o ׅׅ"'o2EE"'2/o ׅ ׅׅׅ"'o2/o ׅׅׅׅ"'o2/o ׅ ׅׅׅ"'o2/o ׅׅׅׅ"'o2/o ؅ׅׅ"'o2/o ؅ׅׅ" 'o2/o ׅׅ" 'o2EE" '2PbE2B FP_DecodeArg1985-08-08 13:55:14.6532016 ZASM 2.10(IFXGETSTATEARG IFGETSTATEARGiIFXGETPRESENCEI IFGETPRESENCE IFXDECODEEND IFDECODEENDIFXGETCARDINALARGIFGETCARDINALARGeIFXGETBOOLEANARGEIFGETBOOLEANARG IFXSUBSTITUTE IFSUBSTITUTE,IFXGETNUMBEROFVALUES IFGETNUMBEROFVALUES<IFXARGUMENTINITIFARGUMENTINIT IFXDECODEINITn IFDECODEINITIFXGETINTEGERARGIFGETINTEGERARGIFXGETSTRINGARGIFGETSTRINGARG  DecodeArg XGetStateArg  DecodeArg GetStateArg  DecodeArg XGetPresence  DecodeArg GetPresence  DecodeArg XDecodeEnd  DecodeArg DecodeEnd  DecodeArgXGetCardinalArg  DecodeArgGetCardinalArg  DecodeArgXGetBooleanArg  DecodeArg GetBooleanArg  DecodeArg XSubstitute  DecodeArg Substitute  DecodeArgXGetNumberOfValues  DecodeArgGetNumberOfValues  DecodeArg XArgumentInit  DecodeArg ArgumentInit  DecodeArg XDecodeInit  DecodeArg DecodeInit  DecodeArgXGetIntegerArg  DecodeArg GetIntegerArg  DecodeArg XGetStringArg  DecodeArg GetStringArg _2/o ׅׅ؅ ؅ׅׅ"'o2/o ׅ ׅ ؅؅ׅׅ"'o2/o ׅׅׅׅ"'o2/o ׅׅׅׅ"'o2/o ׅׅ ׅׅׅׅ"'o2/o ׅ ׅׅׅׅׅ"'o2/o ׅׅׅ"'o2/o ׅׅׅ"'o2/o ׅׅׅ"'o2/o ׅׅׅ" 'o2/o ׅ ׅׅׅ" 'o2/o ׅׅׅׅ" 'o2/o ׅ ׅׅׅ" 'o2/o ׅׅׅׅ" 'o2/o ׅׅׅ"'o2/o ׅׅׅ"'o2/o ׅׅׅ"'o2/o ׅׅׅ"'o2/o ׅ ׅׅׅׅ"'o2/o ׅׅׅׅׅ"'o2E"'2E"2 PbE2uFP_Error1985-08-08 13:56:04.9632016 ZASM 2.106IFXGETERRORMESSAGEIFGETERRORMESSAGEIFXGETERRORINFORMATIONIFGETERRORINFORMATIONIFXSETERRORINFORMATIONiIFSETERRORINFORMATION ErrorXGetErrorMessage ErrorGetErrorMessage ErrorXGetErrorInformation ErrorGetErrorInformati&z%" إ" &hW8' rth0 ǡ(N#N;2  W)xzNy إ"(Z4W0' @ إ"W0' CC*%N#x إ"ד <, #_8(85"_J6J2 0x1W8' 8xnN0 NW0g W"N0 "NW0 ' " NW0 ' "2__إ__߹_߸"إإإإ إ _"إ9إ/إ'إ إإ "إإuإbإRإDإ"٥\٥"إإإإ"٥b٥٥Y٥٥إ"٥j٥٥٥٥إ"٥٥r٥٥ ٥ إ$"2 ZΙ5z$"j <_2 2߹"إ+"إ=,"إBj"إQ"إA"إ.A"إMp"إ/"إM"إL<"إP"إ7"إ?"إ4R"إ*"إ="إB"2 t}|xإ|xإ!eإ13"(_ _إ__إ|x"׵ ߺ"׵ إ"׵ _"߸߸"إ_"4׵ ߸_Հ`إ|Հ\"z߸ إ1_" $t2lW  }|x}|,D T 7T_8T+߸5إ"  ߸5" _T8jt lWЀh(إ|Հh5"  _ "__  "z إ"߸"W(Ѐh5إ1߸=" إ.B߸ܥ"KD+T D ΘD45"Z,2.5إq߸ܥ"$ إ|x_"إ|xإ"߸ ՀTՀdz5ՀD إ|x"z إ߸"5 9߹߸ _p ߸"p! إ ߸ܥ"5إ,߸ܥ" إ&߸ܥ"l2ՀD " D WЀDЀ@߸_ՀD " _߸إ|< "_$_2 _ _(T    ߸_إ|Հ\إ " Wإ:إ.إ|Հ\"zإ|<߻!"8إ|<z:_إ|Հ\"إ|<߻!إ|<"إ|<إ|Հ\"_|T_(߹߸_|إ|<"إ|Հ\إ)߸ܥ"| 8z>dՀTإ|<"4h0ꀃ׵ 0_Hإ|ՀH"L__إ|ՀH"ʀKإ|ՀH畀D"8ܡDإ|ՀHإM߸="_إ|ՀH"0h0|Հdz"j( ߹߸߸_xإ|Հ\߸\"x إ|Հ\إ|<"zإ|Հ\إ"]߸"S 畀@<畀@,إ|Հ\"(J2إ "إ|<"_"إ|Հ\"_"إ|<إ߸"2t }on ErrorXSetErrorInformation ErrorSetErrorInformation/o ׅׅׅ ׅׅׅׅ"'o2/o ׅׅ ׅ ׅׅׅׅ"'o2/o ׅׅׅ"'o2/o ׅׅׅ"'o2/o ׅׅׅ"'o2/o ׅׅׅ"'o2PbE2 FP_File1985-08-08 13:58:33.7032016 ZASM 2.10IFXFILEREPLACE IFFILEREPLACE IFXLOADFILE IFLOADFILE9 IFXCREATEFILE IFCREATEFILE IFXSAVEFILE IFSAVEFILE IFXDELETEFILE IFDELETEFILE IFXRENAMEFILE IFRENAMEFILE` IFXENDDIRREADO IFENDDIRREADIFXINITDIRREAD IFINITDIRREADTIFXPHYSICALDIRREAD0IFPHYSICALDIRREADIFXPHYSICALFILENAMEIFPHYSICALFILENAMENIFXSETDATESTAMP2IFSETDATESTAMPIFXGETDATESTAMPIFGETDATESTAMPIFXGETFILEINFORMATIONIFGETFILEINFORMATIONxIFXTOUCHdIFTOUCH IFXEXPANDxIFEXPANDkIFISWILDdIFXCREATEDIRECTORYPIFCREATEDIRECTORYIFXGETWORKINGDIRECTORYpIFGETWORKINGDIRECTORY]IFXSETWORKINGDIRECTORYIIFSETWORKINGDIRECTORY9IFXGETDIRENTRY IFGETDIRENTRY File XFileReplace File FileReplace File XLoadFile FileLoadFile $File XCreateFile #File CreateFile File XSaveFile FileSaveFile File XDeleteFile File DeleteFile File XRenameFile File RenameFile File XEndDirRead File EndDirRead File XInitDirRead File InitDirRead FileXPhysicalDirRead FilePhysicalDirRead FileXPhysicalFileName FilePhysicalFileName File XSetDateStamp File SetDateStamp File XGetDateStamp File GetDateStamp "FileXGetFileInformation !FileGetFileInformation FileXTouch FileTouch FileXExpand FileExpand FileIsWild &FileXCreateDirectory %FileCreateDirectory FileXGetWorkingDirectory FileGetWorkingDirectory FileXSetWorkingDirectory FileSetWorkingDirectory File XGetDirEntry File GetDirEntryww/o ׅׅ"'o2/o ׅׅ"o2/o ׅׅ"'o2/o ׅׅ"o2EE"'2/o ׅׅ"o2/o ׅׅׅׅ"'o2/o ׅׅׅׅ"o2EE"'2/o ׅׅ" o2/o ׅׅ ׅׅׅׅ" 'o2/o ׅ ׅ ׅׅׅׅ" 'o2EE" '2/o ׅׅ" o2/o ׅׅ"'o2/o ׅׅ"'o2/o ׅׅׅׅ"'o2/o ׅׅׅׅ"o2/o ׅׅׅׅ"'o2/o ׅׅׅׅ"o2 @2 /o ׅ ׅׅ"'||}|xإ||="إ:إ.="z="إ|xإ||إ|Հh"ՀD="߸_ՀD=" !ՀTإ|x"߸_إ|x="_t2 إ|Հhإ| " 4t0ꀃ׵ 0_إ|ՀH"L__ إ|ՀH"ʀKإ|ՀH畀D"8ܡDإ|ՀHإ߸="_إ|ՀH" 0t0|2l }||_إ|Հ\=إ|ՀHxإ||" z߸إ._" ;ՀD="߸_ՀD=" %ՀTإ||"߸_إ||="_l2 "!إ|Հ\"" i4|09׵ 0_إ|ՀH"L__#إ|ՀH",zإ|ՀHإ߸"0|0ꀧՀTإ|Հ\"T 7T}׵ ߸_إ|ՀH"L4إ|ՀH"" "$8ՀDإ|ՀH"߸_ ՀDإ|ՀH" __إ|Հ\إ|ՀH"Հ\"%׵ "&,22_߹"'p}|| }"_x@_x<* }<},"x1_y_xyp2   +  _"|2 t}|xإ|x إ| "߸_|إ|x߸"t2  ""WZ4: >Z$.8>Z2lW,|p_0_( = " _p $p="=" 0WGLY߸__=t" W7إ| =" (߸ =" W(=" t"0j߀-J="إ "0l2$W -"_08j30/>Z X/D >ZX/D _?M0 82إ  " "إ "2 "jJ  "82 l W|x|t5tx"F --(  ߸_p5إ %"z5إ/߸"_8pp %5"z5إ@߸"8j5إ[߸ܥ"8j p _8l2"إ " "r ?_{" "_"$ ߻"߸$"߻"_" "_"2 _0W|4 ,@ wl,@=@ׅ<ׅ<< 8 ߸_lׅ$ إ "l *8p-=ׅ$W "j_ T0j8_ׅ$W "ꀘ4DW@ ׅ<ׅ84ׅ$W "j4_ׅ$W "4(0jK4 D8 ?0j:ǡ 9-%ׅ(t"tW(CtW tp߀TA0z_P0 44d_ _p_T_P4 N4|"jzW/4J(W4|-"j ߸-//|GY"j`>`_08jI0D|-`t"8L> _ z  t/꿸`"8j|" 8j24*W@ <84$ "j>(4TTd=4 7("8jP $W@ ߸__P$ ߸"8z8\T Jd%, o2/o ׅ ׅׅ"'o2/o ؅ ׅ ׅׅ"'o2/o ؅ ׅ ׅׅ"o2/o ׅׅ؅ ؅ׅׅ"'o2/o ׅ ׅ ؅؅ׅׅ"'o2/o ׅׅ"'o2/o ׅׅ"o2E"'2E"2EE"'2/o ׅׅׅ ׅ ׅׅׅׅ"'o2/o ׅ ׅ ׅׅׅׅׅׅ" 'o2/o ׅׅ"!'o2/o ׅׅ""o2/o ׅׅׅ"#'o2/o ׅׅׅ"$o2EE"%'2/o ׅׅ"&o2 PbE2FP_GlobalString1985-08-08 13:59:22.9332016 ZASM 2.10IFXGETGLOBALSTRINGNAMEIFGETGLOBALSTRINGNAMEIFXDELETEGLOBALSTRINGIFDELETEGLOBALSTRING`IFXGETGLOBALSTRING<IFGETGLOBALSTRING!IFXSETGLOBALSTRINGIFSETGLOBALSTRING  GlobalStringXGetGlobalStringName  GlobalStringGetGlobalStringName  GlobalStringXDeleteGlobalString  GlobalStringDeleteGlobalString  GlobalStringXGetGlobalString  GlobalStringGetGlobalString  GlobalStringXSetGlobalString  GlobalStringSetGlobalString/o ׅׅׅׅ"'o2/o ׅׅׅׅ"o2/o ׅׅׅׅ"'o2/o ׅׅׅׅ"'o2EE"'2/o ׅׅ"o2/o ׅׅׅ"'o2/o ׅׅׅ"'o2PbE2FP_IO1985-08-08 14:02:31.6232016 ZASM 2.10!IFXSBLOCKREADS IFSBLOCKREADS IFXBLOCKREADS IFBLOCKREADSaIFXSFLUSHOUTPUTPIFSFLUSHOUTPUTLIFXFLUSHOUTPUTB IFFLUSHOUTPUTIFXSELECTOUTPUTIFSELECTOUTPUT( IFXFINDOUTPUT IFFINDOUTPUT IFXDEVICETYPEl IFDEVICETYPEIFXSELECTINPUT IFSELECTINPUT IFXFINDINPUT]IFXSBLOCKWRITEI>IFSBLOCKWRITEIIFXBLOCKWRITEI IFBLOCKWRITEI1 IFXENDOFFILE IFENDOFFILEIFXSBLOCKWRITESsIFSBLOCKWRITESFIFXBLOCKWRITES* IFBLOCKWRITESIFXSCURRENTBYTEIFSCURRENTBYTE IFXSREADBYTE IFSREADBYTEIFXCURRENTBYTE IFCURRENTBYTE IFXREADBYTEx IFREADBYTEp IFXSWRITEBYTEX IFSWRITEBYTEm IFXWRITEBYTE\ IFWRITEBYTERIFXCONTROLSTREAMHIFCONTROLSTREAM>IFXERRORSTREAM4 IFERRORSTREAM*IFXOUTPUTSTREAM IFOUTPUTSTREAMIFXINPUTSTREAM IFINPUTSTREAMIFXSETCONTROLSTREAMIFSETCONTROLSTREAMIFXSETERRORSTREAMIFSETERRORSTREAMuIFXCLOSESTREAMd IFCLOSESTREAMIFXSETFILEOFFSETIFSETFILEOFFSETIFXGETFILEOFFSETIFGETFILEOFFSET IFXGETTABS IFGETTABS IFXSETTABS IFSETTABSIFXBYTESOUTSTANDINGI 0 <,$ "!ŀ@Jp$  ""8z8p282_߹"# "z~"2 "ze"2 "zJ"2 8+"2p}|| z Θ إ " Θ إ  "إ||" 6l8 إ "8lu إ||"߹""J " "J" _" " إ'"_"p2$` }||}|x}|t ǡj =" ǡzl=hإ|tlإ|xpإ||" j<إ|tإ"إ|t"  _إ||إ|t߸=" _ ܥ" `2  " ܥ" 2p W}|4 %"-"J_1"-"إ'"إ 4""j=5إ{=|"j)Xpk_DY:p+_N_&8z߸aإ!?_=" p2  |"z إ&b߸ܥ"|߸_ܥ"|t2$  " "8, ߻"(4 ߺ"0_ ߻"20_2_߹" "2  2إ  2W -"_0!Z6Zm.ġ*o06ZY.8N P 1S T 'إ  /إ  &߹"إ  إ* 8 = = 0u2  J"80_/ 8 إ  ?s إ- 0_/ X0  8z߸N=zh/z_=zR/d2X !J-8%0_/ "8 - ?t0_/  Z00 A0#  2إ0إ "2  ߹"/ _8ǡw ǡw 8Z2 "2 %"x_(GxZ.ZI%ġ*w(.Z5%8N P 6S T -إ 5"6إ 5"+߹5"إ 5"إ*5"8 =5" =5"(k2  J"80_/ #8إ ׅ "?p إ-ׅ "0_/ X0ׅ "8z߸N=z2/q_=z/[2  2_߹"l}|p__׵  x"z إ!߸"x_ ^׵ ߸ tإ|p"z߸Hإ%"_"إ|p"zإ|pإ I߸"l2x w 9x@x< ; Ǔ@J8Ǔ@ ǓIOXGetTabs =IOGetTabs <IOXSetTabs ;IOSetTabs 2IOXBytesOutstanding 1IOBytesOutstanding ,IO XSBlockWrite +IO SBlockWrite "IO XBlockWrite !IO BlockWrite IO XSelectUpdate IO SelectUpdate IO XFindUpdate IO FindUpdate *IO XSBlockRead )IO SBlockRead IO XBlockRead IO BlockReadEE"'2EE"'2EE"'2EE"'2EE"'2E"'2E"2E"'2E"2E" '2E" 2E" '2E" 2E" '2E"2E"'2E"2"'2"'2"'2"'2"'2"'2"'2"'2E"'2E"2"'2"'2"'2"'2׍ E׍"'2׍ E" '2E E׍"'2E E" '2׍ E׍"!'2׍ E""2E E׍"!'2E E""2E E"#'2E E"$2E"%'2E"&'2E"''2E"('2/o ׅׅ")'o2׍ EE"*'2/o ׅ ׅׅ")'o2/o ׅׅׅ"*'o2/o ׅׅ"+'o2׍ EE",2/o ׅ ׅׅ"+'o2/o ׅׅׅ",o2E׍ "-'2E".'2E E"/'2E E"02E׍ "1'2E"2'2E"3'2E"4'2"5'2"62E"7'2E"82/o ׅׅ"9'o2/o ׅׅ":o2EE";'2/o ׅׅ_@$WWHHT@0JWPPT@8EXXT@$)a`TA$GD @$%_;꿝WWHHT@$.PPT'@ a`TX$Ǡ  C T@  /nT@Z#}                                                 WT_H/fWTH/WWT_I/H߹إ9إ0/WTW/_إZإA/WTWWTJWT_K/T@ _-T@$ 7_إWTM "   W %"|_06Z.%" g V|JP6Z."|=_86Z.ǡ?G>ZX'8S| 0|_4 _t_l_p|_@_@ x|(Z "88b"="_ߺ"D"Wz/_//f /  _|_|"/ /? " ꁰ" ꁩT " ꁞcx lxx 8 x:x x$x:x4<ׅx" 5 3|);|;|c| " t  |J" h  |"'o2PbE2 FP_Program1985-08-08 14:06:34.5132016 ZASM 2.10 IFXARGUMENTS IFARGUMENTSIFSTOPsIFXRUNIFCALL)IFXCALLAIFXCALLRUNOROBEYIFCALLRUNOROBEY IFXFILENAME IFFILENAMEIFXSETKNOWNCOMMANDSPATHIFSETKNOWNCOMMANDSPATH IFXINVOKEIFINVOKEB IFXVERBOSITY8 IFVERBOSITYIFXSWITCHREQUIREDIFSWITCHREQUIREDIFXVERBOSITYREQUIREDIFVERBOSITYREQUIREDIFXHELPREQUIRED|IFHELPREQUIREDdIFXIDENTIFYREQUIREDLIFIDENTIFYREQUIREDjIFNAMEIFOBEYIFXNAMEIFXOBEYRIFRUN Program XArguments Program Arguments ProgramXRun ProgramCall ProgramRun ProgramXCall ProgramXCallRunOrObey Program CallRunOrObey ProgramName Program XFileName ProgramFileName ProgramObey ProgramXSetKnownCommandsPath ProgramSetKnownCommandsPath ProgramXInvoke ProgramInvoke Program XVerbosity Program Verbosity ProgramXSwitchRequired ProgramSwitchRequired ProgramXVerbosityRequired ProgramVerbosityRequired Program XHelpRequired Program HelpRequired ProgramXIdentifyRequired ProgramIdentifyRequired ProgramXName ProgramXObey ProgramStop/o ׅׅׅׅׅׅ"'o2/o ׅׅׅׅׅׅ"'o2/o ׅׅׅׅ"'o2/o ׅׅׅׅ"'o2/o ׅׅׅׅ"'o2/o ׅׅׅׅ"'o2/o ׅׅׅׅ"'o2/o ׅׅׅׅ"'o2/o ׅׅׅׅׅׅ"'o2/o ׅׅׅׅׅׅ" 'o2/o ׅׅ" 'o2/o ׅׅ" 'o2/o ׅׅ" 'o2/o ׅׅ" 'o2E"2EE"'2/o ׅׅ"o2/o ׅׅ"'o2/o ׅׅ"'o2"'2"'2E E"'2E E"'2E E"'2E E"'2E"'2E"'2/o ؅ׅׅׅ"'o2/o ؅ׅׅׅ"'o2PbE2 FP_Random1985-08-08 14:07:03.5832016 ZASM 2.10IFXSETRANDOMSEEDIFSETRANDOMSEED IFXRANDOMIFRANDOM RandomXSetRandomSeed Random SetRandomSeed RandomXRandom RandomRandom**"'2"'2E"2E"2PbE2FP_Store1985-08-08 14:08:14.4632016 ZASM 2.10 IFXGETNEWTAG IFGETNEWTAGIFXDEALLOCATEGROUPIFDEALLOCATEGROUPkIFXSETSTORETAGZ IFSETSTORETAG^IFXRESETHEAPENDTIFRׅxׅxׅx" # Pp "$_ίWGd " ꀰl JxxZ1+x_/   _0 0_116` " c|'<|'<|'d| PΧNHN +N  _Ŀ2  8W8_ίdW8_ίW_2 W  t88 8tg('m(N(_ίd#(_ί! -"  702 _ "  _ "  _" _" _" _"  _" ߻"" إ *" إ4"  _=" إD" _M" ߻T" إ\" ߺe" ߺk"  ߹q" _u" _z" _" إ "  ߻" $إ" (إ" ,ΘΘΘΘ ΘΘΘΘΘ Θ$Θ(Θ,٥l߸߸"  _$2_߸߹"  ,&& 8DP&&&& &T&$di,tl}(( 0T((l((($l($CopyExceptionsPanosMCICharCodesDecodeArgProgramSystemTypesStringsStorageOSStorageStoreIOCopyMTimeAndDateFileFileUtilsStubErrorCrudeIODateCheckFreeTimeConvert  ~ w)<"  ? 4 R CZ"B ..Lj q4|s\L B 7 %      u   G, ,  \  R  u  k X  X   4 O /     g   ' 0   7 F f m ,$Q8&j - tF/W/   0%"""""""""" " " " " """""""""""'6l |_@hGp'Bh2/   o 'p2" 222'2'22'o2 "*2: 2 AWAAA 2_"oYWC@ 22_ 24   7Cw   !$j   ESETHEAPENDI IFXSETHEAPEND8 IFSETHEAPENDBIFXALLOCATEWITHTAG&IFALLOCATEWITHTAGIFXDEALLOCATETOPIFDEALLOCATETOP IFXRETURNTAG IFRETURNTAGbIFGETSTOREINFORMATION&IFXDEALLOCATEBOTTOMIFDEALLOCATEBOTTOM IFXDEALLOCATE| IFDEALLOCATE IFXALLOCATE IFALLOCATE Store XGetNewTag Store GetNewTag StoreXDeallocateGroup StoreDeallocateGroup Store XSetStoreTag Store SetStoreTag Store XResetHeapEnd Store ResetHeapEnd Store XSetHeapEnd Store SetHeapEnd StoreXAllocateWithTag StoreAllocateWithTag StoreXDeallocateTop Store DeallocateTop Store XReturnTag Store ReturnTag StoreGetStoreInformation StoreXDeallocateBottom StoreDeallocateBottom Store XDeallocate Store Deallocate Store XAllocate StoreAllocateppE׍ "'2E"'2E E׍"'2E E"'2E"'2E"'2E"'2E"2E"'2E" 2" '2" '2E" '2E" 2E E"'2E E"2E E"'2E E"2E"'2E"2"'2"2׍"'2PbE2ZFP_TimeAndDate1985-08-08 14:09:32.3832016 ZASM 2.10IFXTIMEIFXTEXTUALTIMEOFBINARYTIMEIFTEXTUALTIMEOFBINARYTIMEIFXSTANDARDTIMEOFBINARYTIMEIFSTANDARDTIMEOFBINARYTIME$IFXSETBINARYTIMEIFSETBINARYTIME IFXBINARYTIME IFBINARYTIMEIFXTIMEANDDATE IFTIMEANDDATEzIFXBINARYTIMEOFTEXTUALTIME^IFBINARYTIMEOFTEXTUALTIMEhIFDATEIFXDATEOIFXSTANDARDTIME3IFSTANDARDTIMEHIFXBINARYTIMEOFSTANDARDTIME,IFBINARYTIMEOFSTANDARDTIMEIFTIME  TimeAndDateXTime  TimeAndDateXTextualTimeOfBinaryTime  TimeAndDateTextualTimeOfBinaryTime  TimeAndDateXStandardTimeOfBinaryTime  TimeAndDateStandardTimeOfBinaryTime  TimeAndDateXSetBinaryTime  TimeAndDate SetBinaryTime  TimeAndDate XBinaryTime  TimeAndDate BinaryTime  TimeAndDate XTimeAndDate  TimeAndDate TimeAndDate  TimeAndDateDate  TimeAndDateXBinaryTimeOfTextualTime  TimeAndDateBinaryTimeOfTextualTime  TimeAndDateXDate  TimeAndDate XStandardTime  TimeAndDate StandardTime  TimeAndDateTime  TimeAndDateXBinaryTimeOfStandardTime  TimeAndDateBinaryTimeOfStandardTime׍"'2׍"2׍"'2׍"2/o ׅׅ"'o2/o ׅׅ"o2/o ׅׅ"'o2/o ׅׅ"o2/o ׅׅ"'o2׍ EE" <*-1  )agmB q"4Z| 3 4 6Q :   u > /" X     @ DGJMR U G u WDZ_ "  \be hl 4o R /s  vy |3GM k f 7 F1 4 " g O /  " ' m* 7 F  :-  /"$.B  \1 ( <Modula-2 exception - CASE index out of rangeAssigned value out of rangeArray index out of rangemissing RETURN in functionHALTBacktrace:End of backtrace Failed to find module - stack corrupt? Offset in module '|SYSTEM.GFTSYSTEM.GFTLSYSTEM.GFTUPB8DP@lALLOCATE failedDEALLOCATE failedd|HX\'2/o ׅׅ" 'o2׍ EE" '2/o ׅׅ" 'o2/o ׅׅ" 'o2/o ׅׅ"'o2/o ׅׅ"'o2/o ׅׅ"'o2/o ׅׅ"'o2/o ׅׅ"'o2/o ׅׅ"'o2PbE2rFP_Wild1985-08-08 14:10:13.0932016 ZASM 2.10y IFXREPLACEE IFREPLACE$IFXMATCHIFMATCH WildXReplace WildReplace WildXMatch WildMatch/o ׅׅׅׅ"'o2/o ׅׅׅׅ"'o2/o ׅׅׅ ׅ ׅׅׅׅ"'o2/o ׅ ׅ ׅׅׅׅׅׅ"'o2PbE2`/F77 library v1.03/011 18:22:04 Monday 23-Sep-851983-09-02 12:34:5632016 ZASM 2.11PbE2E F77_MATH-SUP1983-09-02 12:34:5632016 ZASM 2.11F_MEIDF_MEIRF_MEXDF_MEXR F_ZAINF_ZANI[F_ZCDVF_ZDMD9F_ZDIN9F_ZCMLF_ZDNIF_ZIDNF_ZNINF_ZRMD  F_HANDLERDDF77_MATH-SUP  |z >/>2 !zP13+ N!zNWNWK_ NWKW2p??ioisSUO>/2 ؿؿ>+2!0102 0002 10q8Eq8A0208809Q0891qQ!0a0Ÿ2/o π^'o2/o π^'o2/o Ԁ~o2/o Հ o2G "'ؿxtWx K KKK 2PbE2 F77_CHARLIB1983-09-02 12:34:5632016 ZASM 2.11rF_INDEF_ZHC1F_ZHC2AF_ZHCF F_ZHMVEF_IND1  F_HANDLERttF77_CHARLIB b HWHPP   Wr2bHWHQP# z & "N3   IW D"r2xy`ay:Wpp#  e '  W2xy`_ y:Wppp 2/o WYX/( LYWpp#(# A ( 0W8g_8>'o2/o YXXW _c'o2"PbE2 F77_IOSYS1983-09-02 12:34:5632016 ZASM 2.11F_JDAR F_JDAWF_JCLSF_JINIF_JEXFF_JSW2F_JSFRF_JOPN6F_JSFWF_JSUR F_JSUWF_I990nF_I991RF_I992RF_I993F_I988CF_I996F_I9892F_I997F_I998 F_I999F_JBCK Program ArgCopies files, directories and/or devices.*N*NKeywords: (Upper case indicates minimum abbreviation).*N-FROM List of objects to be copied (possibly wildcarded).*N-TO Destination object name (or wildcard string to match FROM string).*N-CONTENTs Copy directory contents (always false for Backup).*N-Delete Delete the source after copying*N-Exact Sets the datestamp or exec & load addresses of the destination*N file to that of the source file.*N-BEFORE date Copy objects with no datestamps or ones before the given date.*N-AFTER date Copy objects with no datestamps or ones after the given date.*N*NNote. If no -TO argument is specified then output is sent to Output:.*N*NEG. Copy fileFred-bcpl -to fileEric -v 2 -c -f -del*N Copy file1,directory.*-mod,file2,file3 -to file2 -Confirm*N Copy file1,file2,file3, -to $.Directory -Exact*N Copy kb:first,kb:second -to printer:*N Copy -From Directory -to Tutherdir -Contents -Verbose 3*N Copy Dir... -to NewDir... -F -After 15th August 1984 7:30 am*NExact/S CONTENTs/S Delete/S BEFORE/L/K AFTER/L/K FROM=INput/A/? TO=OUTput[Output:]Copy utility version 1.10/11ExactCONTENTsDeleteFROMmissing source file nameTOcould not read destination name from command lineCreate directory.*failed to findtrying to createcan't copy directory to file or device: dir isbad file name :copiedappendedtrying to copytrying to delete source filedestination object is not an output device :source object is not an input device :CopyOverwriteCpy-tmpdestination file alreay existsFROMfailed to findtrying to rename temporary file asrenaming as *Ntrying to closeCopyFROMfailed to findsource and destination wild cards do not matchCopyFROMfailed to findFROMCopy0 deleted*Ndirectory '' created*NOverwritetrying to deletetrying to open output filedestination file already exists to (1 byte) bytes) as *NOverwriteError in Warning from : '*N, detected by '? (Y/N) : trying to read response to prompttrying to decode command line argumentConfirmForceAbandon4 NIL |trying to read date argument for could not read date from command linebad date :file does not existBeforeAuments IO FindOutput IO FindInput F_INIT BBCOSFile F_ISTP File DeleteFile IO SReadByte IO WriteByte IO SWriteByte IO CloseStream IO InputStream IO OutputStream IO SetFileOffset IO GetFileOffset  F_HANDLER IO BlockWrite IO SBlockWrite IO FindUpdate IO SBlockRead F__CMNF77_IOSYS /o ' o2/o \W^o2/o o2/o o2/o ׀Àׂ_'o2/o ׀ÀÂ'o2/o ׀À\_'o2/o ׀À\'o2/o _׀fpg'azo2/o ׁ\x_x _x W߀$) 7N ( Nأ4  $܊e&! ) = ""׹W;7! U=! ""׹zW="׹z"!Z $ > "zA"j""j"߀ "zy_t_*"AD Z6"7AD " z" ׳W _'o2/o ׁx $T -x  "  " _'o2b筀" g_.}ThD (r=__ .HThD ?D0 ( jD0JD9# `0X '(K j2 .! (= j8(| y| r/o ߺ" 'o2bPWPC  Gr/o 'o2/o ׁU_> }" j! %  d^TNأ  _'o2Nأo/o ׁjLx =}}"׹=ץ}"׹ SjRFUJ  {# zy  # ׀%}"j_'o2tנh/o ׁ׀ gX  OT FTY. D* T D+ D1 T ]T D0T OD1T DNأ NȣNأ%} " j_'o2נl= }"׹/o ׁ} Ã j) =}}"׹{{ FU~ _x 4=ץ}" ׹j x =}"׹׀  %}" jJ;/o ׁj ׀x=}"׹׀N3$z%}"jꀞ/o ׁx ׀x=}"׹׀  W!y)  (x# =%}" ׹jEj2{ _x )׀x=}"׹= }"׹j_'o2נl/o ׅׅ" "o2_" j_""PbE2V F77_IOERR1983-09-02 12:34:5632016 ZASM 2.11F_JDIE F_JST1 ErrorGetErrorMessage  F_HANDLER  fter|LitodayAMPMSTNDRDTHMONDAYTUESDAYWEDNESDAYTHURSDAYFRIDAYSATURDAYSUNDAYJANUARYFEBRUARYMARCHAPRILMAYJUNEJULYAUGUSTSEPTEMBEROCTOBERNOVEMBERDECEMBER3""pW 5555555555555555555555555T0`f $48x|  $(,0X\`dhlpt8<@OSFileBBCXGetStoreInformationStore XDeallocateAllocateGetErrorMessageErrorXBytesOutstandingIO DeleteFileFileXSetFileOffsetXGetFileOffset XCloseStream FindUpdate FindOutput FindInput XSelectOutput XSelectInput XWriteByteSignalHandler XEndOfFileReadByte DecodeEnd DecodeArg SubstituteGetNumberOfValuesGetCardinalArg GetIntegerArg GetStateArg GetStringArg DecodeInit TimeAndDate TimeAndDateDate StandardTimeTimeTextualTimeOfBinaryTimeBinaryTimeOfTextualTime SetBinaryTime BinaryTime HelpRequiredProgramIdentifyRequired VerbosityHWHXH,X HDX\H\XHtX|HX|)HX,.HXt?HXLEHX\[HYbHYpH4YjHLYHdYH|YTHYHY-HY9HY;HZAH,ZPHDZSH\Z0W90ROOT 18-Sep-85 /DD@o4TNT' ' &' _' oD@2.18 /DD@oނ|NނhNނT N ނ@Nނ,$N$ނ(N(ނ,N,ށ0N0ށ܃4N4ށȃ8N8ށ'o2"PbE2F_IDNI1983-09-02 00:00:00Topexpress F77 2.13 F_IDNI  F_HANDLER  F_IDNI /o >'o2"PbE2F_IABS1983-09-02 00:00:00Topexpress F77 2.13 F_IABS  F_HANDLER  F_IABS /o N'o2"PbE2F_ABS1983-09-02 00:00:00Topexpress F77 2.13 F_ABS  F_HANDLER  F_ABS /o 'o2"PbE2F_DABS1983-09-02 00:00:00Topexpress F77 2.13 F_DABS  F_HANDLER  F_DABS /o 'o2"PbE2F_MOD1983-09-02 00:00:00Topexpress F77 2.13$ F_MOD  F_HANDLER&&F_MOD /o ׀'o2"PbE2F_AMOD1983-09-02 00:00:00Topexpress F77 2.13( F_AMOD  F_HANDLER F_ZRMD**F_AMOD /o "'o2"PbE2F_DMOD1983-09-02 00:00:00Topexpress F77 2.13( F_DMOD  F_HANDLER F_ZDMD**F_DMOD /o "'o2"PbE2F_ISIG1983-09-02 00:00:00Topexpress F77 2.13) F_ISIG  F_HANDLER++F_ISIG /o NzN'o2"PbE2F_SIGN1983-09-02 00:00:00Topexpress F77 2.13/ F_SIGN  F_HANDLER11F_SIGN /o 5 z'o2"PbE2F_DSIG1983-09-02 00:00:00Topexpress F77 2.13, F_DSIG  F_HANDLER88F_DSIG /o 4z'o2"PbE2F_IDIM1983-09-02 00:00:00Topexpress F77 2.13) F_IDIM  F_HANDLER++F_IDIM /o ׀z_'o2"PbE2F_DIM1983-09-02 00:00:00Topexpress F77 2.136 F_DIM  F_HANDLER88F_DIM /o  z 'o2"PbE2F_DDIM1983-09-02 00:00:00Topexpress F77 2.130 F_DDIM  F_HANDLER<>0'o2"PbE2F_LEN1983-09-02 00:00:00Topexpress F77 2.13 F_LEN  F_HANDLERF_LEN /o 'o2"PbE2F_AIMA1983-09-02 00:00:00Topexpress F77 2.13 F_AIMA  F_HANDLER  F_AIMA /o 'o2"PbE2F_CONJ1983-09-02 00:00:00Topexpress F77 2.13$ F_CONJ  F_HANDLER&&F_CONJ /o 'o2"PbE2F_ZDPD1983-09-02 00:00:00Topexpress F77 2.13 F_ZDPD F_DLOG F_DEXP F_ZSTE F_ZDPI  F_HANDLER F_ZDIN4F_ZDPD /o ހuz$">"F;܀C $"1""0@(0"F'o2"I@bad operands for double precision ** $ $ 0 (PbE2gF_ZRPR1983-09-02 00:00:00Topexpress F77 2.13 F_ZRPR F_ALOG F_EXP F_ZSTE F_ZRPI  F_HANDLER F_ZAIN,F_ZRPR /o BHz$" > "F;   "_"$$"1@ ("F'o2"bad operands for real **    (  PbE2F_ZCPC1983-09-02 00:00:00Topexpress F77 2.13 F_ZCPC F_SIN F_COS F_EXP F_CLOG F_ZCPI  F_HANDLER@F_ZCPC /o  /5 Dz">>"Fz$$"F( ,1(E q,$4"F01,E q(8<"01@$<"01@$'o2" 4 $< 8PbE2F_ZRPI1983-09-02 00:00:00Topexpress F77 2.13s F_ZRPI  F_HANDLERuuF_ZRPI /o ? C?!N _γ #   X'o2"PbE2F_ZDPI1983-09-02 00:00:00Topexpress F77 2.13o F_ZDPI  F_HANDLER||F_ZDPI /o ހc A؀J N_γ#  X'o2"?PbE2F_ZIPI1983-09-02 00:00:00Topexpress F77 2.13w F_ZIPI  F_HANDLERyyF_ZIPI /o $ RN  _6 _γ # Σ  ΣX'o2"PbE2F_ZCPI1983-09-02 00:00:00Topexpress F77 2.13 F_ZCPI  F_HANlWP'0toD@\dhЃ"d քH`W\',X`_dEW\',\lhWl`T #`hW\',`W\',Tl'0d_hЃl`ld_hW\',```\g؀NW',ꀝh\`ꀓW\CЅdlPWlǪloD@Xg؀NW',UWXGEzG$ GA "GC -D bGI GL GN xGW 꿛WPǩhǩ`ǩdoD@bad storage class %C E%N unset /DD@o' L'dPWPoD@/DD@o' L PNנgI'H Pg!NW'WPoD@"integer invalid for length or size /DD@o' L_XWL'dPWP` LNנW`'H L օLgNW'WLoD@bad length for CHARACTER value "<0hT  x \8wk90MAP 18-Sep-85 /DD@oLPT'(X_WP'$td_ЅWЂ'(0Tg؁FNW'(2'ށ%\N\?'ށ \N\3'ހ\N\''ހ\N\ L| _W\'(t`W\'(L L&d Pg؀NW'(WdC` `Pg؀bNW'(WdC``'(h`lg='0 hlhog!NW'(WX'(0oD@  %S (%S) Function Subroutine Block data Main program  /DD@oLP'(TЃ g؂NW g؂ NWXЃЃW_'t oD@WЂ'0Ѕg؁NW'Ѕ Ѓ 'փ\փ`OW\CЃdW\CЃhW\CЃȗLPl_p_Wd'4ttlx_|Wd'@Ctg 'D  k'ށ N hWgIWhXW '@Ѓ 4WЃg؀NW'D_W'Dt pCpg 'D  kЃ Wlsxlη|xg؀`NW'@| |g؀DNW'@'@\`\ھЃ 'ׅWT'0oD@.%N %I7 /%S/ %C %S Variables common local /DD@o' (LWЂ'0Ѕ$Ѕg؁SNW'օ$P'ZTЅ g؁-NW'g؀NW'ꀐWPXXΘ\W' P`Tj'$_Tg؀NW'$ c\hdg ', dhdoW`Xg8NW'$TWPPPp'WL'0oD@%S %I6 PStatement labels Label offset Label offset Label offset Label offset  !No variables or statement labels "vwxx90INITSEG 18-Sep-85 /DD@oWЂ' D'نDNg' 'نN_@g' 'مN_@g' Ɨ'مN_@g' 'مN_@gDLER F_ZCDV F_ZCMLF_ZCPI /o ހs T؀U"N_γ# "0"G'o2"?PbE2 F_CSIN1983-09-02 00:00:00Topexpress F77 2.13_ F_CSIN F_SINH F_COS F_COSH F_SIN  F_HANDLERa aF_CSIN /o  "F"1@"F"1@'o2"   PbE2 F_CCOS1983-09-02 00:00:00Topexpress F77 2.13b F_CCOS F_SINH F_SIN F_COSH F_COS  F_HANDLERd dF_CCOS /o  "F"1@"F"1@'o2"   PbE2F_COSH1983-09-02 00:00:00Topexpress F77 2.13E F_COSH F_EXP  F_HANDLERGGF_COSH /o 5?1r "F>!'o2"  PbE2F_SINH1983-09-02 00:00:00Topexpress F77 2.13 F_SINH F_EXP  F_HANDLERF_SINH /o >)z01 1<6>*1 ?11?1r"F>!EQ z'o2" PbE2iF_TANH1983-09-02 00:00:00Topexpress F77 2.13 F_TANH F_EXP  F_HANDLERF_TANH /o Aj ?ꀥ>1rzd@8;1 1=lVe@ᬾ11@E q?AAQ!@Ea81@"F?EA?! z'o2" PbE2F_DCOH1983-09-02 00:00:00Topexpress F77 2.13? F_DCOH F_DEXP  F_HANDLERTTF_DCOH /o 46"F 'o2"?9B.? PbE2gF_DSIH1983-09-02 00:00:00Topexpress F77 2.13 F_DSIH F_DEXP  F_HANDLER,F_DSIH /o ހz<00؀؀0؀0؀{0؀j0,؀O ("F4 z'o2"?9B.??!UUUUU?\?V*?̿,!>sh|??(  PbE2F_DTAH1983-09-02 00:00:00Topexpress F77 2.13 F_DTAH F_DEXP  F_HANDLER4,4F_DTAH /o ހj ހꀡހzhހ00؀¾؀0؀00؀Ͼ؀؀؀p ؀20؀ ("F؀_؀R z'o2"@%m@st@vw34@`\ ??9@:B.?+e' 'مN_@g ' s'مdN_@g ' X'مAN W' ?'م NW' %_Ђ_ЂބNЂ_Ђ_Ђ稀@@ ' N\' N`_Ѕ$օ$(N(_ЅH_Ѕt_Є|_Є_Ѕ _Ѕ_ЄքN_ЅDgs' 4T W' 4xc |_ЃЃ_Ѓ_Ѓ_Ѓ_ЃPg ' <' I' (_Ѓ_Ѓ_Ѓ_Ѓ_Є_Ѓ_Ѓ_Ѓ_ c' <C_Ѕ LWLCЅ_WLCЅ_LL`_Є<_ЄD_ЄL_Є4ׄ0N Pg' 4T_ЄX_Є@_Єdׄg؃GNW' g؃-NW' g؃NW' xg؂NW' fg؂NW' Tg؂NW' Bg؂NW' 0g؂NW' g؂wNW'  g؂]NW' g؂CNW' g؂)NW' ֗g؂NW' ėg؁NW' g؁NW' g؁NW' g؁NW' |g؁NW' jg؁sNW' Xg؁YNW' Fg؁?NW' 4g؁%NW' "g؁ NW' g؀NW' g؀NW' g؀NW' ڗg؀NW' ȗg؀NW' ЂL ' g؀]NW' _Ѕ_ c' < _Ѕ_ЅЅߪN_ׅoD@HANDLERZIDN ZNIN ZINI ZSER ZAER ZPS1 ZST1 ZPSE ZSTP ZDNI ZANI ZDIN ZAIN ZHC2 ZHC1 ZHMV ZHCF ZCDV ZCML ZCPI ZDPI ZRPI ZCPC ZDPD ZRPR ZIPI ZDMD ZRMD lines sizes externals commons constants works locals label code /DD@oL_'tP_WЄ'tT'\XNXCP_WX'pp0T4%0WЄ't0WX'xp040Z0P4/WTC0H0WL'tHWX'xp040P_WX'poD@/DD@oLPT&X '4\ǩLǩPǩTǩX Ld_`W\ C`_`d`mW\oD@/DD@oLPTǠ j_NNXTP\j g؀NW'$WL CX``QL_dWT'(4`Tl_hWhC`ǩdhlhnWL CXǩ`W\C`oD@%S vector overflow /DD@oLWЂ'oD@/DD@oLcWЂ'oD@/DD@oLWЂ'oD@/DD@oLWЂ'oD@/DD@oLWЂ'oD@/DD@oLWЂ'poD@/DD@oLWЂ'PoD@/DD@oLWЂ'0oD@/DD@oLWЅ'oD@"R| $ D d  R,90LEX 20-Sep-85 /DD@oЅD 6օ\Xj' ' TօXLЅXWЅTXL><Ѕ WЅ ' L_ЅׂgNW'WLoD@premature end oG@@(  PbE2nF_CSQR1983-09-02 00:00:00Topexpress F77 2.13 F_CSQR F_CABS F_SQRT  F_HANDLER F_CSQR /o  "5@"F ހꀂj'1?5E q?5aS 1?5_45 1?5!Eq?5u zU'o2" PbE2oF_DEXP1983-09-02 00:00:00Topexpress F77 2.132 F_DEXP F_ZSTE F_MEID F_MEXD  F_HANDLERLF_DEXP /o 0؁~؁j ށ[ށRށDz很ށ1>ށ>>؁ ށ zހzހހ00؀؀0؀$؀ƾ؀y؀h,!00 ؀ 04"Fz8"ՀH"ހG'o2"L/6@]%m@i@34@nUȥ?;f??@?KH9+eG?operand too large in DEXP@ 4   H @PbE2F_DL101983-09-02 00:00:00Topexpress F77 2.13- F_DL10 F_DLOG  F_HANDLER8 8F_DL10 /o "@0'o2"&{?PbE2F_DLOG1983-09-02 00:00:00Topexpress F77 2.13 F_DLOG F_MEID F_MEXD F_ZSTE  F_HANDLER3<3F_DLOG /o ށ" "F$"ހ,ހz ހ,,, 040؀؀04؀o04؀^04؀M04<04,>>0'o2"9B.?@4TUUU?嚙?#I?g7lMr?7.????;f??bad operand in DLOG      PbE2F_CABS1983-09-02 00:00:00Topexpress F77 2.13 F_CABS F_ZSTE F_SQRT F_MEIR F_MEXR  F_HANDLERTF_CABS /o  ꀙ ꀓ"F"F  z  zXzS$","1E q48"F<"@ ǠՀ@" ՀP"'o2"operand too large in CABSH    $     8 4   P HPbE2F_CLOG1983-09-02 00:00:00Topexpress F77 2.13 F_CLOG F_ATA2 F_ALOG F_MEIR F_MEXR  F_HANDLER ` F_CLOG /o  þꀘ"F"F  z  zdzv$","1E q8>G q?1r<Հ@"@1?<4ՀH"FD< 8Հ@"F4ՀP"FD8Հ@"F4f FCODE file/DD@oׅoD@/DD@o' LoD@/DD@oЂ gꀎ' L_P_T_X -P'L#g cTCLc0TX'LL0 9LOXg0NW''P NcTWToD@ bad integer/DD@oЂ gb' LGjI ggP_L_TX$'T j_NWLTXTZWLoD@/DD@o' L 0G9 c07LAFLWLcAC LgNW'oD@bad hex character %C /DD@o' L T?NPWoD@/DD@o' L *p'LB' L[X'NWL'CLFL*g؀ENW'"WLG* GS GX JWL'oD@bad escape (%C%C) /DD@o' L'ހPNP_ЄWPꀏ' G&քPLׄ ' WPTLTXγW' 4\`Xd&T` WPX` '(\``d`XW\ǩXW\oD@ /DD@o' oD@"x<R90STACK 18-Sep-85 /DD@oLPT'(LWЃx'$WЃxǩPǩToD@/DD@o' Ճ(g2NW' oD@Ѓփx| xoD@+stack overflow - program must be simplified/DD@oL'zЃxWL'doD@/DD@oЃg؀~NW' oD@WЃx D L$PP WP'L WL'<WL'pWЃx'<׃փ|x |oD@ stack empty/DD@oLP X_TWTCLTPTXTgWP _$oD@/DD@oLP X_T-WTCL\WTCPTLWTCPǩ\TXTQoD@/DD@oLNNWoD@/DD@oLP  WLǩP WLǩPoD@/DD@oЃgNW' _ЃoD@multiple protection/DD@oЃoD@/DD@oL'H?NWoD@/DD@oLPփxTփXփ\RWT > `L'$Ld` LW`'(4dd P WTWd# TX\Xڿ_oD@/DD@oLP]WLTBP_ WLWXGP $TC TDWX'tGPWLWLLL_oD@/DD@oL_'HP 'oD@/DD@oLc ЃxPWЃcЃXLTaWP M  'X:WP \_' ` '$9\ _W\'$` '$# PTXTڿoD@/DD@oL WL$PTWT'X'`\N\\WL'HdP WPX'H_PP&WT'X_'HPL$WPTWL'H(WLǩP$W\'H4WL'HoD@/DD@oL  WL'WL oD@/DD@oL_gI'WЃxǩLoDՀX"FD4EЀD'o2"   $     @ 8H        PbE2F_CEXP1983-09-02 00:00:00Topexpress F77 2.13e F_CEXP F_SIN F_COS F_EXP  F_HANDLERg$gF_CEXP /o  "F"1@"F"1@ 'o2"   PbE2cF_DACO1983-09-02 00:00:00Topexpress F77 2.13r F_DACO F_DSQR F_DAT2 F_ZSTE  F_HANDLER8F_DACO /o ހe"؀X؀K $,"F0"@0<,z 'o2"-DT! @?@argument too large in DACOS  , $  |PbE2,F_DASI1983-09-02 00:00:00Topexpress F77 2.13T F_DASI F_DSQR F_DAT2 F_ZSTE  F_HANDLERz0zF_DASI /o 4؀B"0.$"F(("F'o2"?operand too large in DASIN ` $ , PbE2F_DATA1983-09-02 00:00:00Topexpress F77 2.13& F_DATA F_DAT2  F_HANDLER00F_DATA /o "F'o2"? (PbE2\F_DAT21983-09-02 00:00:00Topexpress F77 2.135 F_DAT2 F_ZSTE  F_HANDLERLF_DAT2 /o ށ0؁y"ށt쾄ށY  C  ؁<%ށ ؁ ؁؁  0(0؀پ؀̾0(؀0(؀0(؀0(؀؀(؀n(؀](؀l80 ܀z +&܀zՀH"'o2"@-DT! @BoW@kN_jO@zX /@UJEF@o^S@d|D@in@rhBY?@?-DT!?-DT!?2y?operands are zero in DATAN2@  @PbE2VF_ACOS1983-09-02 00:00:00Topexpress F77 2.13 F_ACOS F_SQRT F_ATA2 F_ZSTE  F_HANDLER,F_ACOS /o ?"?EA?! "F$"@1@ zE@I۾Q'o2"?argument too large in ACOS      PbE2&F_ASIN1983-09-02 00:00:00Topexpress F77 2.13Y F_ASIN F_SQRT F_ATA2 F_ZSTE  F_HANDLERt(tF_ASIN /o 5 ?"1E?Q"F "F'o2"operand too large in ASIN [  $ PbE2F_ATAN1983-09-02 00:00:00Topexpress F77 2.13& F_ATAN F_ATA2  F_HANDLER,@/DD@oL_gI'WЃxǩLoD@/DD@oL'TPNPWP'<$LWP'<tWP'<4oD@/DD@oLPH_ǩPWP PL',oD@/DD@oLPTǪTW'\_XWXCLPXX\XeoD@/DD@oLP'$WP'  _L',oD@/DD@oL *PWPT'pTPPiWL_oD@/DD@oL ($Pש P WP'oD@/DD@oփLLg '<L WLWLoD@/DD@oLP_ __ ___$_oD@/DD@oLPT&X'$WLǩTǩXoD@/DD@oL PP P g:NW'WPd TNנWd'HWToD@bad constant length/DD@oLP'lTLX\I' $WLǩT P=X \P.X g؀ENW' WTǩ\_oD@_TgPNW' ,oD@0zero length valid with constant or argument only /DD@oLP X_TZT4WL\P`\ ` `W\'$X_-WTCLTP T _TXTڿoD@/DD@oL'P' _'TL_ _ XWP'4\Є,`ք,dX8 g؀NW'(hPl&'0pGdڀdWhC\ǩphlhX`djhWdc`ch`gI'<_Wh',l_ '0<pǩ`ǩdǩlש< ; &ܾ? !M! E q>;I-?I?E@a?11@eAJMEq?AA)mqAAJM 1! z@I۾ z,"'o2"operands are zero in ATAN2$ ' $PbE2F_DTAN1983-09-02 00:00:00Topexpress F77 2.13; F_DTAN F_DCOS F_DSIN  F_HANDLER==F_DTAN /o "F " @'o2"PbE2-F_DSIN1983-09-02 00:00:00Topexpress F77 2.13"F_DCOS F_DSIN  F_HANDLER F_ZDNI F_ZDMD(F_DSIN /o _܁z_ /o 40؁] " ؁? ف."> _! ʀD؁؀ ؀徰 ؀Ծ ؀þ ؀ ؀ ? 0؀؀y0 ؀h0 ؀W0 ؀F0 50 %_" j'o2"?EO>,~lZ>N<=-DT!?A%漫?ugfd?R-,-?>A90>m8>=@@m0_?PbE2F_TAN1983-09-02 00:00:00Topexpress F77 2.13; F_TAN F_COS F_SIN  F_HANDLER==F_TAN /o "F "!@'o2"PbE2F_SIN1983-09-02 00:00:00Topexpress F77 2.13$F_COS F_SIN  F_HANDLER F_ZDNI F_ZDMD ( F_SIN /o _ z_ /o 5>0؀о " ؀>ـ">  1$ _! 318};#/I1$=]ܾ1$?I۾11$19<21$>ƾ1$? _" j'o2"@@m0_?PbE2F_EXP1983-09-02 00:00:00Topexpress F77 2.13 F_EXP F_ZSTE F_MEIR F_MEXR  F_HANDLER(F_EXP /o 1?; zꀫCꀙ>  } > 1:v<11=bm1>uﶾ1?1qž1?"F # z"? $"_'o2"operand too large in EXP     $ PbE2F_AL101983-09-02 00:00:00Topexpress F77 2.130 F_AL10 F_ALOG  F_HANDLER2 2F_AL10 /o "@1>[پ'o2"PbE2F_ALOG1983-09-02 00:00:00Topexpress F77 2.13 F_ALOG F_ZSTE F_ME<TǩPǩLש  oD@"X,t D0` N P` H K\ I J  Lov90DODATA 18-Sep-85 /DD@oL'@oD@WL'oD@/DD@oWЃx' '  oD@/DD@oLW'PLT\_X+WЃx CX`WXCTǩ`WL CXǩ`X\XS' oD@/DD@oLPTW_X gЅHNWWX \PH?N` WL'$@ WP'$d` WTcThW\ppt x|H?N`WdT'xW 'HH %C)0insufficient items on stack for dyadic operation /DD@oL'ЃzLg؁xNW'WЃxPPL?NL@?N Lg؁(NW'WЃx T'\XNIR F_MEXR  F_HANDLER0F_ALOG /o ꀈ"F "??5 ? EA!1 1>Ԓ"?*ݾ1 @> 1?1r,"'o2"bad operand in ALOG$    , $PbE2F_DSQR1983-09-02 00:00:00Topexpress F77 2.13 F_DSQR F_MEID F_MEXD F_ZSTE  F_HANDLER H F_DSQR /o ހ "ހꀐ "F$"_!  ހ0؀z؀j0؀Y,4 ,, ؀W,44e_! 8<"8@Հ@",'o2"?R ?[ +?S^:>?@operand negative in DSQRT     < , , PbE2F_SQRT1983-09-02 00:00:00Topexpress F77 2.13 F_SQRT F_MEIR F_MEXR F_ZSTE  F_HANDLER@F_SQRT /o  "_ꀙ"F "_!  @1>?1>(,!((!@(,,c_! 04"0@8"('o2"operand negative in SQRT      4 ( ( PbE2bF_IBRN1983-09-02 00:00:00Topexpress F77 2.13 F_IBRN F_IND1 F_BGET  F_HANDLERLF_IBRN /o  ___0\\ \$\(0,_"F48ՀD"@' *}+==========" ×4 ׀' W4c($1\$ 4zׄ4|(\g ꀫN($\L8$ ꀒ 8 ( 8 8$\(\ (]\$ \(,,0z (  ׀ Σ( _'o2" 0123456789.-+EeDd<  < 4PbE2 F_IBRL1983-09-02 00:00:00Topexpress F77 2.13h F_IBRL F_IND1 F_BGET  F_HANDLERp(pF_IBRL /o \_ <_"F * "@ |  zB'o2"TtFf.  j  PbE2F_IMSR1983-09-02 00:00:00Topexpress F77 2.13 F_IMSR  F_HANDLER<F_IMSR /o _ z 000߃K0jK0j?0zK0j4$400# 44[4U0!It$>8 888z_88'0 W4|>81It$E0QqA 044ڿ'o2" @FB AzDPG$tIPbE2cF_IMSD1983-09-02 00:00:00Topexpress F77 2.13XꀝTXWP',PꀴWT_XꀛTXWP',ꀉTXWP',}'IPrTXWP','RP[TXWP', 'DPDTXWP',X'CP- L&} J?_s$$$$$', _WP',_ЃxWX',,LoD@invalid operand for %N no operand for unary operator %N /DD@oLP'`\N\LW\'H$HP?N#TYPN#TMP? N#TAPN#T5P?N#T*P N#T L| `WT _X_\gXNW'H,W\'H4oD@/DD@oLPT&X.\R m_`Q= L 5'8 \WL'$g؆QNW'$oD@WX?Nd\? N#!&h"+dh4dh.Nwd;h%;dh` Pv|ـ VSh _TꄙWXd\hTdheWdchhY#dhQNsdNhsld?Nh?N NclWlh` Pv|ـ QNWTǩhLD WЂWЂdZ\XT'(d]\XT_ '(dH\XT '(d3\XT_ '(d` Pv|ـ QNꃆgR'$d'lhNhChh|d\\dTT XhgC'TW| PgR'T WPgR'T ꂳ'NW| PgR'h WPgR'h W OgR'h W|PgR'h WPgR'h W NgR'h 'N',(N(gR'|(gR'|(gR'|jWQgR'| W(PgR'| W((NgR'| W PgR'| W |(NgR'| W|PgR'| W(OgR'| ꀶWQgR'| W(PgR'| W((NgR'| W| PgR'| W NgR'| WPgR'| W| OgR'| W( QgR'| W( QgR'| #` Pv}ـ QN00e LLg؁VNW'$6 Lf}ـ RC*` LPg؀NW'$ЃT\gI' ` gQgPd` gNgOh'plNl'NXTWL'T\lgI'TW'T$2WXT dWL'T Wl hgI'T lgI'ToD@bad operation %N for type %C "bad type %C in constant expression 1division by zero attempted in constant expression /DD@oLPT CRgR'XTPgR''WXCPXTgR'_ꀓkWPT\``\z`\_X]TWP'XITWP'X5Lg=NW'!WLGD PGI GR OWXoD@bad type (%C) in comparison/DD@oLP B F_IMSD  F_HANDLERllF_IMSD /o _܁@ztptށ#t'ށtjށ tiހtzހt#iЀ|PЀ|_! 0#р|4 րt+Ѐ|_! #р| tЀ|#Ӏ\Ѐ|Ҁ|ڿЀ|ZЀt ؀> Ѐz_ЀЀ'0 Wр||>Ѐ0؀MЀt(tЀ||ڿ'o2"?$@NgmC؅W4vC7yACחA@Y@$@Y@ _BļB7yAC؅W4vCPbE2<F_IMSI1983-09-02 00:00:00Topexpress F77 2.13 F_IMSI  F_HANDLER F_IMSI /o _z ׀' N׀ N%ꀀ ׀' Ws!.' γ&'0 W|X||zh׀ 'o2"PbE2=F_IMJR1983-09-02 00:00:00Topexpress F77 2.13 F_IMJR  F_HANDLER F_ZRPI$F_IMJR /o _N )1A |g0(>G zUN #&3&#&"1@ " 1@z'o2"K A    PbE2TF_IMJD1983-09-02 00:00:00Topexpress F77 2.13 F_IMJD  F_HANDLER F_ZDPI,F_IMJD /o ܀N '0؀|g0(> zWN #&3&#&"0@$"0@z'o2"cA$@  $  PbE2BF_IMJI1983-09-02 00:00:00Topexpress F77 2.13 F_IMJI  F_HANDLER F_JCMNF_IMJI /o _\Nǀ ꀒzN  o_N j |g0(j  zBj z&׀' Wc( z'o2"PbE2F_ZSTP1983-09-02 00:00:00Topexpress F77 2.13=&F_ZSTEF_ZST1 F_ZSTP F_JST1  F_HANDLERH$HF_ZSTP /\ /o "/o  "o2" @   DPbE2F_ZPSE1983-09-02 00:00:00Topexpress F77 2.13> F_ZPS1 F_ZPSE F_JPSM F_JPSE  F_HANDLER F_ZSTP@@F_ZPSE /_"@_"_/o "@_"'o2"PbE2) F_INIT1983-09-02 00:00:00Topexpress F77 2.13(F_IUCLF_IUOPEF_IUNLF_IUNRF_IUNNF_IULNoF_IUNSYF_IUFSF_IERRF_IESSVF_IESVF_IUEXkF_ISTP F_INIT F_JDIE F_I998 F_I999 TXLP\``\W\W`dl_hQ\hjg hWT'0tp`hjg hWX'4ttGp pzhlhڿ_oD@/DD@oL2WЃTSWЃXLWЃ\EWЃ`>Lg؀ANW')WLGC \GD MGI GR FoD@no zero for type %C/DD@oLPT'0 WT POWL' oD@/DD@oLPT' XTWL'N\ TPWL' WTXPOWL'  W\oD@/DD@oLPT'\_XWXCTXPX\XgoD@/DD@oLPT&X:'ހ\Z'ހ\R'ށ^\J'ށ\BXTWL' oD@WLGC WGD GGI GR CXTWP' \oD@/DD@oLPToD@/DD@oLPoD@/DD@oLPT I '$LC'RLTPLgI'NoD@/DD@oLPT R  CTPgR'5LITPIgR'iTPDgR'oD@/DD@oLPT DgD'5LITPIgD'TPRgD'oD@/DD@oLPT CgC'ATPWL'gR'(CPhgR', hgR'oD@/DD@oLPT&XR WЃdWЃh\`$d(h'plNlXlWP'@\Wl'Dyc`WL'\ TWL'HW\ _ꀚWClWCdhljjW j_NNWk >g jg؀dNW'\oD@ j_NWTڿ ڿeTWL'HPoD@conversion to integer failed /DD@oLPT&X'\_`'hdNd dWP'hL(T8d<`@_D_H' LLD WЃhWЃdPWHW8<@D'lD(TWL'lPoD@/DD@oLPT&X R WЃdWЃh\PR WЃdWЃh`_dh(l$p'xtNtXtWP'Hq`Wt'LI 'N_Σ`\_XꀙWXCt`WXCpXldhbW`d j_NNWklhzdhd_Wlh j_NWdhǀdƀdhڿXƀ\Xڿd'x\|W dWT'DLPg0NW'TWL'PoD@%C to %C real conversion failed/DD@oLPT X\`CTdWdXǠ j_NNWk\h` c`lC\kh Whc\lW\X j_NW[dTLWloD@"3%d t & 4$p490MAKEREA 18-Sep-85 /DD@oLP_T_X_\_`d'lhNhh#&h'l_p_t'ƀ|xNxxMǀpŀl0t+ŀt tWlc0t̗T'lF_BSET F_JCLS F_JST1 F_JOPN F_JINI  F_HANDLER F_ZHMV F_ZHCF   0lF_JUCMF_ICS1DF_ICS20F_INIT / _|>o!߲ "4"F((Հ\"F(( Հ"_v/i|р_)7) Nр317) &р8 Ѐ_р' &bՀ"F>ڿ_/o =*>j <߇'_ꄶ|ԧՀ"_ꄋ/ gЀo FFFؗF ܗF_!  _ր܀Հ"րՀ"_0/o __/ F__!  Ԁ׀2|_" _)( Ձ" 耤(|_!  Ձ" Ձ" /o ׀|_r/o ׀_[/ gЀo FFF׀' WЁ&bЀ" _/ gЀo FF׀' &bgЀЁ" _/ gЀo FFFW(,_ꂜ/ FgЀo FW|g(_10:' &bgЀր$ Ё "  _<ڿ߇_/ gЀo FF|рg3)_171 &р'18Ё(Ё(р_18>,с,Ѐ@_!  &02Ѐ_!  2j <Ё0с0Ѐ쀤g#).bXTՁ4"F((BЁ( Ё,Ѐ|ԧՀ"_ŗ(ꀹ/ gЀo FFF_j <_ꀄ|Ѐ_n Ѐ_рЀЀ' _)(Σ9>bՁ\"D_| _'o2" =>READ/WRITEopen of asterisk units failed    D , /  4  ,          ,         (                4    , 0   \    PbE2PF_I1051983-09-02 00:00:00Topexpress F77 2.13 F_I105 F_JDIE F_IUOP F_IUNS F_IULN F_ZSTE F_IUCL F_IUFS F_IUNL F_IHCE F_IUEX  F_HANDLER''F_I105 /o _ "zV' _)(  $$"@  44"@ ]$>TD ](>],>\XPЃx' LB gRgDPЃx''`\N\TR TCPWЃx'HXPЃxgR'H\WP'H(LD1' NRW't0\gR'tG' NRWЃ'@_WЃx'(\W@'t091983-09-02 00:00:00Topexpress F77 2.13 F_I109 F_JDIE F_IUOP F_IUFS F_IUEX  F_HANDLER$F_I109 /o  "zy' _)( __! F   "_!  " "@ _;׀_!  ׀_!   "_'o2"ENDFILE     PbE2F_I1101983-09-02 00:00:00Topexpress F77 2.13 F_I110 F_JDIE F_IUFS F_JCLS F_IUEX  F_HANDLER@F_I110 /o  "zꀨ' _)( ꀎ_!  I "F i_" _)( _!  _!   "׀_!  __6׀_!  ׀_!   8"_'o2"REWIND 0     $   8  0PbE2F_IHCE1983-09-02 00:00:00Topexpress F77 2.13 F_IHCE  F_HANDLERF_IHCE /o \  \H ׀\azJX c1. j׀\ z'o2"PbE23F_BUSR1983-09-02 00:00:00Topexpress F77 2.13P F_BUSR F_BNXT F_BNEW F_IUXX  F_HANDLER<\   X F_JSFR F_NULL T F_JSUR F_NULL T\F_BUSR /o !"F  $"F 0"F _"F'o2"PbE2!F_BUSW1983-09-02 00:00:00Topexpress F77 2.13D F_BUSW F_BNEW F_IUXX  F_HANDLER8T  P L F_JSFW F_JSFW H F_JSUW F_JSUW HTF_BUSW /o "F  "F ,"F'o2"PbE2(F_BUDR1983-09-02 00:00:00Topexpress F77 2.13\ F_BUDR F_BNXT F_BNEW F_IERR F_IDAS  F_HANDLER0d   F_IDAR F_NULL `dF_BUDR /o "F _!   "$"F _"F'o2"PbE2F_BUDW1983-09-02 00:00:00Topexpress F77 2.13T F_BUDW F_BNEW F_IERR F_IDAS  F_HANDLER0\   F_IDAW F_IDAW X\F_BUDW /o "F _!   "$"F'o2"PbE2F_IDAS1983-09-02 00:00:00Topexpress F77 2.13zF_IDAW0F_IDAR F_IDAS F_JDAW F_JDAR F_IUNS F_IUXX  F_HANDLER`F_IDAS /o   "Fꀎ/ g4o FFP|__(уx1g'ܧV'Pg@'oD@\TH?Nc`ЃxWЃ|'(`WL'(Lm` g<g<du` ggd_` g<g<dI` ggd3_\' F_BUIW F_BNEW F_BSET F_I997  F_HANDLER <HF_JUCM     D0 F_IIFW F_IIFE @HF_BUIW /o _"N"0"F,'o2"PbE2F_IIFW1983-09-02 00:00:00Topexpress F77 2.13eF_IIFE F_IIFW F_I996  F_HANDLER F_ZHMVhhF_IIFW /o /o _ ׀ gW," "'o2"  gPbE2F_NULL1983-09-02 00:00:00Topexpress F77 2.13 F_NULL  F_HANDLERF_NULL /o _'o2"PbE2F_IUXX1983-09-02 00:00:00Topexpress F77 2.13K F_IUXX F_IUOP F_IUFS F_IERR F_IUEX  F_HANDLER M(|F_ICMNMF_IUXX /o "z׀' _)(. " @"J' _)(,(@(< " ׀_!  "_! ) ""@ =%_" _)(  "' _)(<$"'o2"    PbE2F_BPWR1983-09-02 00:00:00Topexpress F77 2.13F_BSWRwF_BSRDVF_BGETF_BPUTF_BENDF_BNXTtF_BNEWCF_BSET0F_BPRD F_BPWR F_IERR  F_HANDLER F_ZHMVF_BPWR /o $׀$$ꃗ/$ꃄ/ F(F,F0F 4א40( _S/ F8F\_Xꀝ'>\_XꀒLDg>g>\P3``j`'1XW`'$  '2XWPǩX7Xg؀bNW' "WXGD }GI GR `MT__(PXW\' тHjׅoD@$bad type (%C) for conversion to real /DD@oLPTNT_ W ' _d_h'3lLe gzg lhWd'oD@/DD@oLP'WЃx_ 'DLڀ}'TWЃ|'DX_Ѓ|WЃx'WPTW$'WЃxЃ|W'WT''WX'L' WPǩL  PoD@/DD@oLPT&X.\т@`6d6h6l_p0ՃN ՃO '4ЃWЃxwtT.tz$Pg؄NW'8ЃxWT'8d_h` 7WX.t$Pg؄INW'8ЃxWX'8d_llh Є\?Nct'8xNք\\WЃx'<Dh )l $_ЃxWT'<Є\gj'<l WXWT_Ѓx'<t %l ggj|Є\'@El ggzx'<WЄ\'<ׅWЄ'<Wx'<'<Ѓ 4WЃx*tՃNWtNctp_Ѓ'8 '4WT #p"WT'44gO'4'4PLWL Wp'48Ѓ|WЃx'4`1p %WЃx Ѐt$p$ zgЀ`Ѐp"$ z $ zBЀtp#W/ )6lב,=hgЀh&|Wp+xЀx"ꀕ jRրt\Ѐt tр\' W/ )6lב,=hgЀh|Wp,xЀx"  $ $ &N h,Հ8FDՀX"%A/ FpЀt$p$z$ z4 \"'#gЀ`&lW,+hЀh"$ $ jB$#Wрt/p)6lבp=hgЀh&|W,+xЀx"ꀟ jO #Wрt/p)6lבp=hgЀh&|W,+xЀx"Ѐt t$zC $ $  &Nh,Հ8FD ՀX"'o2" ` H P    D  h \  h  PbE2F_I0011983-09-02 00:00:00Topexpress F77 2.13P F_I001 F_FNEW F_BUDR F_IESV  F_HANDLERX(XF_I001 /o  " "F "Fo2"$ TPbE2F_I0091983-09-02 00:00:00Topexpress F77 2.13P F_I009 F_FNEW F_BUDW F_IESV  F_HANDLER\4\F_I009 /o  " "F,(("Fo2"$ X0 TPbE25F_I0331983-09-02 00:00:00Topexpress F77 2.13sF_I097 F_I033 F_FNEW F_BUSR F_IESV  F_HANDLER|P|F_I033 /o '/ go FFF F FF40, ($"<"F8HDՀD"F8o2"$ <  xL xPbE2F_I0381983-09-02 00:00:00Topexpress F77 2.139F_I086F_I006 F_I038 F_I034  F_HANDLER;;F_I038 /o /o /o "" o2"   PbE2F_I0341983-09-02 00:00:00Topexpress F77 2.13,F_I082F_I002 F_I034 F_FINN  F_HANDLER. F_IMJR F_I989.F_I034 /o /o /o "o2"PbE2F_I0351983-09-02 00:00:00Topexpress F77 2.13,F_I083F_I003 F_I035 F_FINN  F_HANDLER. F_IMJI F_I990.F_I035 /o /o /o "o2"PbE2F_I0361983-09-02 00:00:00Topexpress F77 2.13,F_I084F_I004 F_I036 F_FINN  F_HANDLER. F_IMJD F_I988.F_I036 /o /o /o "o2"PbE2F_I0371983-09-02 00:00:00Topexpress F77 2.13yF_I085F_I005 F_I037 F_IBRL F_ZSTE F_FFRE  F_HANDLER F_ZHC2|F_ICMNF_I037 /o /o /o _"FL ǩpWp'48NoD@WЃ|c tc xt?N|у|5 1W(.Σ)p7Ѓ|WЃx'D`\WЃx?NP?N| t WxΣ'XWx NЃxWЃ|'D`Wx'D4gN'D'DЃxWЃ|'D`Wx_Wxǩp T| NЃx'D WtW'D8gP'D'D_'D8uWЃ|'DD 5WЃx'H`$WЃxx'H _'H8փx(Wt_Ig.'HW'HL'@ Ѓ|WЃx'@`'@ PڀRW\'4htWtx Wx'<8xgI'<Ѓ|WЃx'<`3WЃ|tЃx'8`t '8 gN'8oD@-subscript exceeds upper bound in dimension %N +subscript below lower bound in dimension %N/DD@oL'hPgO''WЃxtP PW-gI'$dgI'(_Wd'X'`\N\ IW\'H(W\'HW\'H4WЃx?N#TP_ '<PWPǩTT ЃxW WЃxWPWL'hǩP' oD@/DD@o_L_P_TNsЄ`X'\Ђ@IՃN ՃO4WЃx*xՃNWxNcxL_Ѓ'< '8WЃ|c h dЃx?N#lЃ|? N#&pd?(N#.tL?(Nc).xWЃx'<Xkx`l ,ЃxLg؃NW'8WЃxDЂ@ =WЃx'8D'88_Ѓ|WЃx'8'8 'jP'zTl 8p 3WЃxЃ| g؃ONW'8WЃxЃ|KЂ@ D`>P XWP'8WЃ|'8D_Ѓ|WЃx'8'jP'zTp 5t 0WЃ|dg؂NW'8WdЃ|7Ђ@ 1P XWP'8_Ѓ|Wd'8'P'TT SЄ`XWP'8<\WT'8WX'8X`ׅWЄ'8W\'8'8l RcL'88gO'8_LЃ|WЃx'8`WЃ|'84gO'8'8ꀪLp WЃ|ǩL/L *`%WL'88gN'8'8_LЃ|WЃx'8`` '8 '88@WЃx'8DWЃ|'8DуxЃ|g '8WЃxW'8LdWЃx'8dWЃx_'8 WЃxWЃ|'8\ꀝWЃ|x'<l|x fЃ|_Wx'D4 %W'D8gP'D'DgN'D'DWx'Dp|WЃx'@dWЃ|ǩ|'8 LWЃx'8\oD@'upper bound exceeds length in substring,lower bound exceeds upper bound in substring )lower bound of substring is less than one "x X ! "0x1+8)*'l(-/d,8.2(D 90JUMPS 18-Sep-85 /DD@oLPLр`Հ`" Հp"Հt"F \_ Հ"܀'o2"invalid logical in input edit descriptor cannot handle logical list itemx {X 0P LD 1d D P X   xPbE2AF_I0391983-09-02 00:00:00Topexpress F77 2.13F_I087F_I007 F_I039 F_BSRD F_BGET F_ZSTE F_FFRE  F_HANDLER F_ZHC2 F_ZHMV |F_ICMNF_I039 /o /o /o _"FA Lр`Հ`" Հp"tՀt Z St&Ѐt gЀx W,"&t&װЀtЀ_"FЀրzoЀt_"׀Bրt Հp"Fo2" edit descriptor cannot handle character list itemx X 2P LD 3d D P X PbE25F_I0411983-09-02 00:00:00Topexpress F77 2.13oF_I099 F_I041 F_FNEW F_BUSW F_IESV  F_HANDLER|L|F_I041 /o #/ go FFF F F_0,( $ "8"F4D@Հ@"F4o2" 8  xH tPbE2F_I0461983-09-02 00:00:00Topexpress F77 2.139F_I094F_I014 F_I046 F_I042  F_HANDLER; ;F_I046 /o /o /o ""o2" PbE2F_I0421983-09-02 00:00:00Topexpress F77 2.13,F_I090F_I010 F_I042 F_FOUN  F_HANDLER. F_IMSR F_I992.F_I042 /o /o /o "o2"PbE2F_I0431983-09-02 00:00:00Topexpress F77 2.13,F_I091F_I011 F_I043 F_FOUN  F_HANDLER. F_IMSI F_I993.F_I043 /o /o /o "o2"PbE2F_I0441983-09-02 00:00:00Topexpress F77 2.13,F_I092F_I012 F_I044 F_FOUN  F_HANDLER. F_IMSD F_I991.F_I044 /o /o /o "o2"PbE2F_I0451983-09-02 00:00:00Topexpress F77 2.13F_I093F_I013 F_I045 F_BPUT F_FBFS F_ZSTE F_FFRE  F_HANDLER F_ZHC2 x|F_ICMNF_I045 /o /o /o _"FL Lр`Հ`" Հp"װՀp" TՀp"FtFՀp"Fto2" edit descriptor cannot handle logical list itemX 0P LD 1d D P X PbE2F_I0471983-09-02 00:00:00Topexpress F77 2.13F_I095F_I015 F_I047 F_BSWR F_BPUT F_FBFS F_ZT'\XNXՃO_Ѓ+'DWЃxWX'D0WX'D4_Ѓ|WЃx'D'D 'D Tg'DPg 'DWL'D_ЂoD@/DD@oLPփT_X_\xX_ЃWЃxH?N#\{'$WЃx.?NLWP'$_Ђ'$ oD@_'$8WЃxL'XT! | `WLWT'$TWЃxЃ|'$`WT'$TXЃxWЃ|'$'$ '$ c' `y'`r\ gg`]\ gZgz`H\ gJgj`3\ gg` T| `W姼PW`'$oD@/DD@oL WG\cWW+WLc]W oD@`_^]XW\[ZY/DD@oL WG\cWW+WLc]W oD@_`]^WX[\YZ/DD@o' WЃx' D/уx(_g' '  _ЂoD@/DD@oL' ' 8L)gW' '0' oD@gO' ' WЃx' DWL' 8_Ѓ|WЃx' '  ' Tg' ' lPWЃx' d'  ' \g4' WЃxǩPւX_( (1g|' '  W\' ' `Ld'4X'(`d`dWT' ' oD@/DD@oLP BЂW'8/ '<TǩPǩL_Ѕ(WT ('PWL'oD@/DD@oLPT&X.\'$ dWP'(4WT'(4gN'(WP'(_W\'(WTo dWL'(hjgZg\lhg؁3NW'0WP'04WX'04Wl'0`'0'(h',lWT'04_WL'0_ЃxWd'0,g\'0h'0WP'04WX'04g\'0`'0Wl'0Wh'0WP'04WX'04gZ'0`'0Wl'0'0'0oD@zero increment in DO-loop /DD@oL_P_TփX\Ѓ^ꁸTꁲWЃxCN#Tꁝ\C*Ѓ $ЃxWL' XWLЃx TfWLЃxN#TPXb\R \D \C)XO :XQ 1Xb (ЃxWL' X Ѓ|WЃx' `TTLWЃ|' X TT :XN XO(gXNW' , '  _ЃoD@T *\C!Ѓ WLЃx W' D` W} b?TTTTT..T...T _ЃLWX' (' LЃxW\' P'  PWL' \LWP' XoD@/DD@oWЃ| LL W_PTՃF T_Ѓ''WЃx XX P TP TP&'x_|g'Ѓ|ЃxWP'<Ѓ|ЃxWЄ'@' ' STE F_FFRE  F_HANDLER F_ZHC2 x|F_ICMNF_I047 /o /o /o _"FA Lр`Հ`" Հp"tՀt ) #tzװЀtՀp"tЀt׀Θ^Հp"րt Հp"Fo2" edit descriptor cannot handle character list itemX 2P LD 3d D P X PbE2F_I0811983-09-02 00:00:00Topexpress F77 2.13Q F_I081 F_FNEW F_BUIR F_IESV  F_HANDLER\4\F_I081 /o  "$ "F ,(("Fo2" X0 TPbE2F_I0891983-09-02 00:00:00Topexpress F77 2.13Q F_I089 F_FNEW F_BUIW F_IESV  F_HANDLER\4\F_I089 /o  "$ "F ,(("Fo2" X0 TPbE2F_I0981983-09-02 00:00:00Topexpress F77 2.138 F_I098 F_FNEW F_BUSR F_IESS  F_HANDLERD DF_I098 /o " "F"Fo2" @ < @PbE2F_I1001983-09-02 00:00:00Topexpress F77 2.138 F_I100 F_FNEW F_BUSW F_IESS  F_HANDLERH HF_I100 /o " "F"Fo2" D @ <PbE2F_FINN1983-09-02 00:00:00Topexpress F77 2.13 F_FINN F_IBRN F_ZSTE F_BGET F_BSRD F_BPRD F_BPWR F_ZST1 F_IND1 F_FFRE  F_HANDLER F_ZHC2 F_ZHMV |F_ICMNF_FINN /o _"F "@}. dрxՀx"$( Հ"ЀՀF$_"@Ѐ Հ"F gЀЀ"ր$ Հ"FՀFր ЀЀ ՀF_ЀՀ@_! ր Ѐp_" F$Հ"FЀ׀Հ_ЀЀ_! !Wрs!ЀЀրЏЀր zՀ@_! Ѐ_MՀ" _Հ" E$$ +$0,_$Հ@ _Ձ" 'o2" invalid number in inputZ field width unsuitable0123456789ABCDEFabcdef edit descriptor cannot handle numeric list itemIDEFGAZ  + C Z p [0h d\ (1    | \ h p         $  ,  (     , $ ( PbE2F_FEND1983-09-02oD@/DD@oLф_' _ 'WL'8'oD@/DD@oLPTW'\X\\à`_`gH'$WЃx'$hWЃxǩ\$_LфWI'$ _ ؀c_ '$CL'$8'$`gH'$WЃx'$hTWЃx'$D_ '$oD@/DD@o' lL' gI'LWЃx'd' WЃxǩL oD@"<=>:4;|@?P0t 4  90CALLS 18-Sep-85 /DD@oLPT&Xg CфP.\CфT.`ЂHjׅ\jg؁NW'$oD@\PW`ǩXǩTǩPNL _(___ _0T X(WL'$4`0LL '$~WL'$4dLt_pWpCd_ptpoW`ǩdЂD _ΣLW'04hl_ cL_'0hlW`ǩhǩl,oD@call stack overflow/DD@oLPT&XWфPCфT.\ǭPǭT ǭX$oD@/DD@oЄPzg"NW' WЄPCЄTWoD@ invalid ARG/DD@oWЄPCЄTL P(TX\`d'(WT'(TP_'(8WLhl,pЂD cTP2_ΣP_'4tp'8Wl'88_lplNWP'4pTPlWp'4 Wl'4pgI'4WЃx'4hWPx_t!WtCh|| W|'@txt]Wh'48ЃЃxgI'('( \ W`'(W`($hL0lhǩdǩP ǩl$ꀎW`ǩP NpRPx_t>WtCl|WtCh WtChǩ|| WtChǩ| p txt@p W`g؀NW'4Wl'483` gI'(/уx(_g'('( '(Pd 8'(lh I',(_ Wd',WЃxǩhX '(X PoD@inconsistent use of %S /DD@oLЄPЄTP TT 'T*PWL' XPǪL  'WXoD@/DD@oLPT,X0\_`ՃF_Ѓ',0',WЃxd h\ #dH h_WdL\WЃx ;h 6'plNll'X'\ Wl'\4WЃxǩ$WЃxLT$WЃx_$ЂD lPpLpt l.l )WЃx t'8t'8 eWP(x(tWP(`7XWPW '<XP,xLpWX'<WP_( L_WX',W`oD@/DD@oLPTքXX'քX\N\` ~ꀍWXǩLjcdh_ΣLp_lWlC`lh _d lpl`d #W`',8WXPWXWQWX \XXWL'$T_ '$<XǩLǩ`ǩT\ \WToD@/DD@oLPT&X \WT/cC .`dThfX oD@P W\B;X`gI', 00:00:00Topexpress F77 2.13:$F_I096 F_I088F_I048F_I040F_I016F_I008 F_FEND F_BEND F_FFRW  F_HANDLER<