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< 0  '7&0Ձ "FՁ"FЀր(z'o2"  edit descriptor cannot handle numeric list itemIDEFG x T0p ld 01  , (   d p x (  ,     P  PbE2/F_FRND1983-09-02 00:00:00Topexpress F77 2.13 F_FRND  F_HANDLER  |F_ICMNF_FRND /o N$ǀ_ꀂj5,z0,߰$_(_U0('9& 0((_"zO$zN$(1,'o2"PbE2F_FBFA1983-09-02 00:00:00Topexpress F77 2.13; F_FBFA F_BPUT  F_HANDLER==F_FBFA /o *"F zl_'o2" PbE2F_FBFS1983-09-02 00:00:00Topexpress F77 2.13; F_FBFS F_BPUT  F_HANDLER==F_FBFS /o  "F zl_'o2" PbE2F_FBFZ1983-09-02 00:00:00Topexpress F77 2.13; F_FBFZ F_BPUT  F_HANDLER==F_FBFZ /o 0"F zl_'o2" PbE2F_I0651983-09-02 00:00:00Topexpress F77 2.13F_LCHNF_LFCEgF_LFCIfF_LFNVF_I101 F_I065 F_IMJI F_ZSTE F_LSKP F_BGET F_BNXT F_BPRD F_BPWR F_BUSR F_IESV  F_HANDLERIIF_I065 /o / g$o FFF F  H D@<8"_\ՀL"F _ꂴ/ FTFX: _T% _TՀ`"F\XT_h ߐT_X_"F z _"F j_"Fd/d< ߐT_,d ߐT_꿩 d꿝\__.dЀh'd XT_ꁼ(dZՀl"Fd,d ' &d-Հ|"Հ`"F\XT_j_"Fd꿷Ѐh z ԀdЀh :*d1Հ"@Հ"_\Ѐh_"F_"Fd*,d '/&d g .d*Հ`"F\X_T__"Fd[/ FX_Հl"Fd,d Հ|"Հl"Fd)d ' &d$Հ|"Հ`"F\X_M_"Fd@/Հl"Fd)d Հ|"_/ FX_"F X_'o2" LD repeat not integerBad complex data $t 98  L    ` l   | t  WX'hq(NTWdPW`'lU,ւ0 (PWL'tWhjW'tWjW't0Wh't:0W't-oD@/DD@oLPT&X\   gWT]L  NW WTW` j< 8Lgg `N[d_(XP\'(oD@X__(TP\WL' oD@/DD@oLPT&X.\W '0|NW [L`__(\TP'$oD@/DD@oLPT&X.\Ђ \'d`N`NTW`\WX'@ւ_ PWL'HW`jW'HW`'HoD@/DD@oLPЂ _ 'oD@/DD@oLPЂ &ւTւ'T_WP'oD@/DD@oLg'oD@/DD@oLЂ *'Pւg"'WP'oD@/DD@oLPT&X CgDWP'\ւ짨LLW' NLWTNW [LXN[[\Lk' WLNW' oD@/DD@oLPT&X.\`dhl   '0`_p\t_x\___ _p Wp'@|[W`'@|[W`WL Wd'DW`LW` dHWPWd'H ʀXdI3*?!WL'XD\'Ly[0dH2W_ Wc ΘJWt  c'tdW'LW\ǩgW\ǩ`ǩlg_tW`'@xh'|?Wh'LD'@|_h`X _x[| g[|ꁢW\ǩ` '|ꁓ`z '|Nc`_t'@xp'|_tW`'@xUdH E'|`z'|Nc``_tW`'@xtWl'@xs`gI'DWЃx_'PD\'D'D lXh _[| g[|_tWl'Dxꀖ`lWL`W`'@_t'DxtWl'Dx'|KWLg؁NW'@0WLߩ ]}ڀ F%h WL\ _Wh'D`Wh'TD'H|\W'H|N\2'|H'|A'|:'|4g؀BNW'L e|ـ W\ǩxW|oD@bad index length %N#bad class in 'addressing.mode' (%N)/DD@oLP'hWPǩLWL'|oD@/DD@oL'TPNP_P'(h_dWPXd',dhdhoD@/DD@oLPT'0 TPWL'oD@/DD@oL G?LL_ _ oD@/DD@oLPT&X'?\'`z g_dX '\_` X'`WXhAWXch Wd gkLlh k\[`lWTChP lNLhhzWXoD@/DD@oLP TX \T _WT' KX W\PWX' .   PbE2yF_I0661983-09-02 00:00:00Topexpress F77 2.13g F_I066 F_IMJR F_IBRN F_ZSTE F_LFNV  F_HANDLERF_I066 /o "|> "Հx"F  l  0$_ Հ"@J_'o2"LD input data not REAL t   x $  t p p l $   tPbE2|F_I0671983-09-02 00:00:00Topexpress F77 2.13g F_I067 F_IMJI F_IBRN F_ZSTE F_LFNV  F_HANDLERF_I067 /o "|> "Հx"F  l  0$_ Հ"@J_'o2"LD input data not INTEGER t   x $  t p p l $   tPbE2wF_I0681983-09-02 00:00:00Topexpress F77 2.13g F_I068 F_IMJD F_IBRN F_ZSTE F_LFNV  F_HANDLERF_I068 /o "|> "Հx"F  l  0$_ Հ"@J_'o2"LD input data not DP t   x $  t p p l $   tPbE2F_I0691983-09-02 00:00:00Topexpress F77 2.13K F_I069 F_IBRL F_ZSTE F_LFNV  F_HANDLERf(fF_I069 /o "|" "$"F  m <_'o2"LD input data not LOGICAL M   $ PbE2F_I0701983-09-02 00:00:00Topexpress F77 2.13 F_I070 F_LFCE F_LFCI F_IMJR F_IBRN F_ZSTE F_LFNV  F_HANDLERF_I070 /o " } y$"Հ"F((l( 0,_(Հ"@OՀ"Հ"F((꿸( 0,_(Հ"@꿚_"_'o2"LD input data not COMPLEX    $  ,  |    ,  ( |  ,  ( |PbE2\F_I0711983-09-02 00:00:00Topexpress F77 2.13  F_I071 F_LCHN F_BGET F_BPWR F_BPRD F_ZSTE F_LFNV  F_HANDLER F_ZHMVDlDF_I071 /o " | &("_՗_"F _4"<"F8@ЀDH_"F@zꀈ_"FL'LX_"FP_"FL'L <րDHj%рD'WрHc!gЀT.`4\Ѐ\"Հd"F8_+րDHj׀рD\LЀDpՀh"d'o2"LD repeat split CHARACTERLD input data not CHARACTER T C,  (  (  4 ,<  d P @PbE2F_I0721983-09WLd_`W\X`'(`d`hWL W' loD@/DD@oLWЂ'ЂoD@/DD@oLPs'LLηPoD@/DD@oLs'LLηXoD@"`,Th   , h   90INITIAL 18-Sep-85 /DD@o'TPNP_ЂCȗ_Ђp_Ђx_Ђt_ЂЂЂ|_Ђ_Ђ_Ђׂ8_Ђ<_Ђ@ׂDׂLЂHN W'X<dC hЁg؅PNW'Xي6lցhցlWЁ'`0W'`ي}6 >W'`يk6 ЂTg؄NW'`'`_'`%_ ؄NW'`ɗ'`0ցlW'`ي6 'ЂTg؄VNW'`z _'`z؄NW'`_Ѕ_ ؃NW'`Fpg؃NW'`gpׅ_ ؃NW'` t#'كN_؃{NW'`tЂt g '`4_Ђg؃>NW'`ى6jUl O_ ؃NW'`#'قN_؂NW'`lЂւl؂NנPW'`LW'`و6WЂp'X,_ЅL _WL'Xt_ ǁ$/DD@oLPT&X.\_`06d0'(th\lPWhc0p ``  `g c`Cp`lddWL'4th_WL'4tdh0 9hڿWdPlTg؁yNW'0X`W`oD@WL'tt'h(ǁ,ꀄǁ ǁ$ǁ _$ۗƁ$<җƁ$@_()(NWL'p×Hꀨ_,(g؀NW'pꀍ/_ (NWL'ppW(GBz0G& kG+ eG- gG6 iG7 H꿑 dGH RGL [GT GW GX |^Ɓھ 'X<'X@oD@Warning: unknown option %C )Bad number with %C option - default used optmapsource mapfilemapaofsource aof fcode-tmp fcode Bad arguments error *32016 FORTRAN 77 codegenerator version %S Psource/e-f77 fcode/k aof/k map/s mapfile opt/k identify/s help/s error/k[error:] /DD@oLPT WЀpWЀtXWL'X\LNWl' W\oD@Can't open "%S"/DD@oLPT&X.\)XTWP' L g '  WL' لr6' g@' oD@/DD@oLPT&X'`\N\\' _ꀟX WXXW\XW\XG-^W\-WXXWXX\ƀ^WC\TW\' qoD@/DD@oLPTW'كp6j l_gPLWT'كS6WPoD@/DD@og؂ NW' g؁%NW' g؀NW' gNW' oD@The default options-02 00:00:00Topexpress F77 2.13 F_I072 F_BEND  F_HANDLERF_I072 /_"Fo2"PbE2"F_I0731983-09-02 00:00:00Topexpress F77 2.13@xF_LCHKF_I103 F_I073 F_BNXT F_BPRD F_BPUT F_BUSW F_IESV  F_HANDLERH\HF_I073 /o / go FFF _ 0 ,($ "8"F44'P  \ DՀH"F@_/ FLFP_"F@L"PTPЀTP\ЀX0LT ЀTאLÐPj PTXЀ@ЀT z,_"F44'P   DՀH"F@ЀX  DՀH"F@_'o2"  8   DH DPbE2F_I0741983-09-02 00:00:00Topexpress F77 2.13; F_I074 F_LFPW F_LCHK F_LWID F_IMSR  F_HANDLERDDF_I074 /o \Հ\"FՀl"FhՀt"Հ|"o2"`  Xl  X h @   XPbE2SF_I0751983-09-02 00:00:00Topexpress F77 2.13 F_I075 F_BPUT F_LCHK F_IMSI  F_HANDLERF_I075 /o \Հ\"FNhЀhՀl"z-tՀx"FX0tՀx"FXNtЀ|Ѐ|Հ"FXЀ|ր|tza_'o2"`  Xl h x tPbE2F_I0761983-09-02 00:00:00Topexpress F77 2.13; F_I076 F_LFPW F_LCHK F_LWID F_IMSD  F_HANDLERDDF_I076 /o \Հ\"FՀl"FhՀt"Հ|"o2"`  Xl  X h @   XPbE2F_I0771983-09-02 00:00:00Topexpress F77 2.13> F_I077 F_BPUT F_LCHK  F_HANDLERHHF_I077 /o " T"F F"F o2" D @ PbE2F_I0781983-09-02 00:00:00Topexpress F77 2.13 F_I078 F_LFPW F_BPUT F_LCHK F_LWID F_IMSR  F_HANDLERF_I078 /o \Հ`"FՀp"@l\Հ"FxՀ"@Հ"(\Հ`"FՀ",\Հ`"FՁ"Ձ")\Հ`"Fo2"` \  Xp  X \ |  x  l    X   x | PbE2F_I0791983-09-02 00:00:00Topexpress F77 2.13C F_I079 F_BPUT F_LCHK  F_HANDLERL LF_I079 /o  "׀Θ\"Fz^o2" H H PbE2F_I0801983-09-02 00:00:00Topexpress F77 2.13 F_I080 F_BEND  F_HANDLE are L1-B-6. EXAMPLES f77cg prog f77cg -fcode progfcode -aof x-aof -opt +6L2 -identify f B Enable bound checking 6 or H Allow Holleriths in data Ln Set line number level fcode is read from "fcode-tmp", and the AOF has the extension -aof. COMPILER OPTIONS Compiler options are specified by the keyword "opt". A switch option must be preceded by + to enable it or - to disable it. FILE OPTIONS -fcode fcode input file -aof AOF output file -map generate a map -map filename send the map to a file By default, no map is produced, errors are sent to the screen, HW|WLSRQlQQ"90MAIN 18-Sep-85 /DD@o_L_P_T'\`d_\_`'('(XN'(`'(\'(dN'(|꿴ꀂXg؀NW'(& Xf| ĹҏTWTd`\WX'('(Wd'(TWd'( ւLփP2'ْ6 LP PLgNW'oD@#Total code size: %N; data size: %N $bad operation %N at start of segment /DD@oւ`LւdP_T'\`d'XT -  %    WЄ@'_Ђ_T*_''('ׄDTX ?Nc\_l_pt WЄWЄ tpWl'  \ꏡX ?Nc\l_pt WЄWЄ tpWl'  ' \V'\' `ք|d_h Wd,dd Wdǩ\kd Wdǩ` gؐNW',Wd(W`',<hd$l`p!'4th lhlpl]ꎱꎱ'('ꎛ'\' `'hdNdd'8dW`'8xW\'<dǩxM''׃P6'\' `ЃPg؏~NW'(ЃjWЃxǩ` g؏?NW'(WЃxdd W`'(dW\',dǩd'( փPꍢ'\' `'$d`W`h',l pthdWdWhx3dt '<g |httWp'@ptxtKWl'4tW\'8dǩt'\' `'$d'(4h_l_x|dA'DH g؍NW'HWl|h||ڿ` `lWl'<p t|diWlcx|h   W _'W'ptxWt'\pxX||ڿWlx| |Wt'Dp||hWp'<|W\'@dǩ|Wh'<8ꋍ'\' `_ \W'$c'\' `'$d`W'(<hփ\\'8_h',hǪ`RF_I080 /_"Fo2"PbE2F_LSKP1983-09-02 00:00:00Topexpress F77 2.13H F_LSKP F_BGET F_BNXT F_BPRD  F_HANDLERJJF_LSKP /o _"Dz _"D_"F  R'o2"PbE2F_LWID1983-09-02 00:00:00Topexpress F77 2.13t F_LWID  F_HANDLERvvF_LWID /o SNzj NǀzNǠcNǠ'o2"PbE2TF_LFPW1983-09-02 00:00:00Topexpress F77 2.13 F_LFPW F_IMSI F_BPUT  F_HANDLER$F_LFPW /o ,0 "F. "F0 "Fnz- "FN3jjv0 "F|"Fzg. "F׀|"Fzgї"F. "F_|"Fzg׀"DE "Fz- "FN#+ "F0 "Fm|"Fzg_'o2"   PbE2^F_I0171983-09-02 00:00:00Topexpress F77 2.13d@F_I024 F_I017 F_BEND F_ZSTE F_BPRD F_BUDR F_IESV  F_HANDLER8F_I017 /o   " "F_/_"@z0"_"F4'o2"Unformatted input record too short( l"$ h0 (PbE2F_I0181983-09-02 00:00:00Topexpress F77 2.13;F_I050 F_I018 F_I989 F_BSRD  F_HANDLER D0F_JCMNDF_I018 /o /o "F,$"Fo2"  $  @PbE2(F_I0191983-09-02 00:00:00Topexpress F77 2.13I!F_I053F_I021F_I051 F_I019 F_I990 F_BSRD  F_HANDLER P0F_JCMNPF_I019 /o /o /o /o "F,$"Fo2"  $  LPbE2F_I0201983-09-02 00:00:00Topexpress F77 2.13;F_I052 F_I020 F_I988 F_BSRD  F_HANDLER D0F_JCMNDF_I020 /o /o "F,$"Fo2"  $  @PbE2+F_I0221983-09-02 00:00:00Topexpress F77 2.13UF_I054 F_I022 F_I989 F_BSRD  F_HANDLER \<F_JCMN\F_I022 /o /o װ_!  ",$"Fװ 80"Fo2"   $  X0_ W\'0Tǩhhd`',''\' `'4`W\'$ꊝ'\' `稀HW\'$s'('`'\'@'4_W\' 2'\'4W\'  '(_''(''\'0W\' ꉿ_\_d'(P'(lЅDЃP g؊NW'(_Ѕ\_ЅX_Ѕh_ЅpЅPڀ4gI'(chcЅP',4`CЅPd'(`jhdd`j`_ _ dWhCЅ\G\"WЅTǑ`\h WЅTǑl\h\'0``dʿ\ g؉NW'(_'( ׅD׃Pꈌ'\'0W\' ifX&_ '\' `'$d'(`hhdg؉NW',h\W`', X'_ '\' `'H'< _\W`'$ ꇳ'(h',Ch'ꇒ'\' `ЅD W\'$*_W`'4t\p_W`Wp'$>'('_Ђ''X.?Nch',Wh''\' `'$d`W\'('('ꆮ'\'d`N`' N '<8N8_`'_ W\'_8W\''d'hЅD W 8 `W\'"ƀhWd8 `W\'_'_'WЃx'h'(_ 'WЃx'hꅲ_WЃ'ЅD WЃ''xWЃ''|WЃ'<d'W'\' \``\g؆NW'$W`'$WЃxW',cWЃx'DЅD ' ''(''\' `_dΣhlp\tꀈ'8x||H D|I g؅"NW'DWx NנW|'DH ʀlWlWЅ'DHdptpڿwd g؄NW'0llW`'0Wlch`W\'0'ꃸ'('ꃥ'\' `'hdNd'NWd'W''<'`W<d`W\'1'('Ѓ փ_ЃЃWX'L'WЃxH g؃nNW'WЃx,W_'t\'  W\' 8 'Tꂓ'WЃxI g؂NW'WЃx \NנgI'$H \j \g؂NW'$'$ '$` \_'$pW`'8_gH'$WЃx'$DWЃx'$h 'XꁽWЈ\'JꁰWЈ`'=ꁣWЈd'0ꁖWЈh'#ꁉWЈl'|'tqWX'c'XWX'HWЈp';WЈx'.WЈ|'!'\'4\WX'   PbE2F_I0231983-09-02 00:00:00Topexpress F77 2.13)F_I055 F_I023 F_BSRD  F_HANDLER+ +F_I023 /o /o "Fo2"PbE2WF_I0251983-09-02 00:00:00Topexpress F77 2.13d@F_I032 F_I025 F_BEND F_ZSTE F_BPRD F_BUDW F_IESV  F_HANDLER4F_I025 /o   " "F_/_"@z0"_"F'o2"Unformatted output too long( l$ h0 (PbE2F_I0261983-09-02 00:00:00Topexpress F77 2.13:F_I058 F_I026 F_I992 F_BSWR  F_HANDLER@4@F_I026 /o /o $"F,(0"Fo2"   <0 (PbE2F_I0271983-09-02 00:00:00Topexpress F77 2.13H!F_I061F_I029F_I059 F_I027 F_I993 F_BSWR  F_HANDLERP4PF_I027 /o /o /o /o $"F,(0"Fo2"   L0 (PbE2F_I0281983-09-02 00:00:00Topexpress F77 2.13:F_I060 F_I028 F_I991 F_BSWR  F_HANDLER@4@F_I028 /o /o $"F,(0"Fo2"   <0 (PbE2F_I0301983-09-02 00:00:00Topexpress F77 2.13VF_I062 F_I030 F_BSWR F_I992  F_HANDLER\D\F_I030 /o /o $"F04"@,0 ,Հ@"F(o2"    X4  0  ,PbE2F_I0311983-09-02 00:00:00Topexpress F77 2.13)F_I063 F_I031 F_BSWR  F_HANDLER+ +F_I031 /o /o "Fo2"PbE2YF_I0491983-09-02 00:00:00Topexpress F77 2.13`<F_I056 F_I049 F_BEND F_ZSTE F_BPRD F_BUSR F_IESV  F_HANDLER4F_I049 /o   ""F_/_"@z,"_"F0'o2"Unformatted input record too short$ h" d, $PbE2RF_I0571983-09-02 00:00:00Topexpress F77 2.13`<F_I064 F_I057 F_BEND F_ZSTE F_BPRD F_BUSW F_IESV  F_HANDLER0F_I057 /o   ""F_/_"@z,"_"F'o2"Unformatted output too long$ h d, $PbE2* F_T0011983-09-02 00:00:00Topexpress F77 2.132HISTOR'BACKTRTRACEF_T008F_T007uF_T006F_T005=F_T004 Xg؁4NW' Xe}ـ i==--0C ***T DO at line ***T ELSE at line ***T THEN at line (***T at label ) (***T entering Tracing enabled? ***T entering main programH < <0 P g  l  y        x H.(     |-d X , $ ,  (    ) | ` @ ,       4H 8 @ 8 <l X ` @    @  X  8   $ , X l d   X    t   X      X   4 X ( x  @  X @[PhdЅkxWx',NPdd@ꀺWT'$ldNsdc\hXldTWT'4l`N3d\W`TtW'8ltXlpThjWhNW['4Wh'4pjWpNW['4Wp'4օTjD_'$'م6ʀQꀋЄ8 g؀NW g؀NW'WLX Lg؀NW'(WL' 8| ӄ8 ЃЂg,NW''Ђ 'oD@: code %N; data %N  (%S) Block data Main program /DD@oLPT&X W' WP'\X _`X d\jPI PL P4W\_ hWP',lꀉWlCLppzg_tPC-gR'8xlj lWWxClCLpxh|'xWt gkpT`d`Npx|xWllzwoD@/DD@oLЄ\ڀ!WЄ\'PP__Nք\\Є`ڀ!WЄ`'PP__Nք``Ѕ WЅש WЂ|'6WЅששЅ?NтHNL|oD@/DD@oLօPЅTЅXЅTX NcL'=WL'3WX'+WPXW'օPoD@/DD@oLWЅ'lǩLЅoD@/DD@oL^_ Y_ TgNWLGCzG1 ZG2 WG4 T( UGD MGI @GL GR oD@/DD@oL^_ Y_ TgNWLGCzG1 ZG2 WG4 T( UGD MGI @GL GR oD@/DD@oL_hc ^Y_TWLGCz  nG1 RG2 OG4 L* MGD JGI GL GR oD@/DD@oLZ_ U_ PWLGCzG1 `G2 XG4 P* VGD NGI GL GR oD@/DD@oL _  Lw|ـ HHoD@/DD@oLoD@/DD@oLG zg?WLoD@TW"QOST 0 l  T  D x  90OUTCODE 19-Sep-85 /DD@oLP'(TЂt WЂt'0PWL'WT'0oD@/DD@oLPӄ8?NT_X\_`_d'ކZhNhh&lWтTX.p'ކ%tNt'|xNx_Њ4Њ0X WЄWЄLփ.W'LT  W Ǫ\ \P'DNgP'DCgb'D8gE'D-g2'D#'Dg'D'D '2OMbrs x_"CNo emen3"y4%B.  3444444444444444aafaAffaffaaFaaffffdaa1399 9$9,9094989<9@9D9H9\9`9d9h9|9999999999999999999999999::: : :$:(:,:0:D:H:\:`:d:h:l:p::::::::::::::::::::::::::; ;;;;; ;$;(;,;0;4;8;L;P;T;X;l;p;t;x;|;;;;;;;;;;;;;pL;;;99X9x999:@:X:::;H;h;87@7D7L7P7X7\7d7h7t77777777777777777778888$8(80848@@AABBBCC8HHIHJJTL;66666677777(7,707@@AABB B(BCCW'LT  %W  $ W$'X@_ 'D 'N'P.WЂt'PxWЂt'PWЊ4'P'PWЂt'PoD@ 1983-09-02 00:00:00Topexpress F77 /DD@o' oD@/DD@oLP 'Mg'BWP'UWL'LoD@/DD@oLPT&X0 g؀FNW'Њ0_ 'WP'_ 'WT'WX'oD@area declarations out of order /DD@oLP_ 'WL'WP'oD@/DD@oLPT&X.\d_hl W`'0_ CLPX UT_lWX &d8T0WX'0Ppttd? N#&lhg '0h 0WX'_ '0g؀XNW'0WXW'0x5'0Wd'0h WXW l W`W\'0oD@ /DD@oLPTWPX \`dhhlphtlH? N#!&xW`c\sd(.|'N MXH C'NlX lWX'hp_ XWp'hp\T \WL'T|Wd'T(Wd_&x tjg WpX'\^XWdC`TPPPWToD@/DD@oLXP'TPXWLXT'('TXTboD@/DD@oLNWP   g'WL'j^'XTNT_TWL'(h TΘTWhp_lWTXl'4alpljoD@/DD@oLz g_P_TTz gkLWP'NLTT^oD@/DD@oLՂ2'WЂǑLЂЊ4oD@/DD@oЂЂWЂt' ـu6_ЂoD@/DD@oLPT'(XWL'0WT`_\WPX\'$l\`\hWX'0oD@T\9"m90CGARITH DARITH /DD@o'xHUbU`U^U \\UbU`U^U \\|  0 D\ϪbϪ`Ϫ^Ϫ\ oD@DCOMP /DD@o'xHUbU`UateFile SBlockWriteLoadFile FindInput CloseStream DeallocateSetFileInformationBinaryTimeOfTextualTimeXStringToCardinalDate  ,8,D<PL  l(|Dd| T  $ $"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ء W8N^U \\UbU`U^U \\? oD@RARITH /DD@o'xHU^U\\U^U\\|  1!E\Ϫ^Ϫ\oD@RCOMP /DD@o'xHU^U\\U^U\\\"$\90BCPLSYS /gW NW.X-_J|O|_HONg(O_HgHL o _ЀT' W ' _oN3ЀTN#2Y|  ( \_'ڀX N 2|Nנ'Ҁ\Oyܰ Z   WH#_2'(_ IΘLNW4[FAULTG gUUnset GLOBAL calledɢ[START g꿬No start() routineq[GETVEC NW= l"׹WlNWlz_[FREEVEC ="׹MAXVEC /DD@o'xH>LP"W\NWLoD@[GLOBIN NWH yolWHK| gXҿ_X 4_ W!CYXhпb/ҿ]NWY( C!'Os[APTOVECg@@NW'B[GETBYTEX[PUTBYTE[GET2BYTY[PUT2BYT[GBYTES _NW@Xw[PBYTES JNנx[LEVEL gL[LONGJUMgH4o ׸[STOP T#[MULDIV N3W {NN3('/ NctN#l[RANDOM  WЁc C 1*[MODRANGNN[CHECKSTALNЀXJ7BN'p4gStack overflowȠ[PROFILE[OSSTRI gΘH[OSRDCH [OSWRCH _[OSFILEB=Q% "׹W[OSBYTE ?!N&lW[OSWORD ?$N&lW[OSCLI gΘHl Nc[TKOPERA'/DoW> W8 &.6o? Nc675 [\fgt%&]^),*@ lZ+#X Dkhedi8k90BCPL_BC 20-Sep-85 /DD@o4 W4 _WD=؍׹Lz'W4=؍׹ L=_L؍׹W4ǩLWLoD@/DD@o' oD@/DD@oL= ؍A׹oD@/DD@oL' oD@/DD@oL=؍׹L4oD@/DD@oL=،׹L8oD@/DD@oL،'BoD@/DD@oL،'&oD@/DD@oL،y' oD@/DD@oLPW'T_JWLNWLΘ= P׹XzWT'Xl_WTǩX_ oD@/DD@oW4' &_4oD@/DD@oW8'  oD@/DD@oL=؋׹WL'oD@/DD@oW4oD@/DD@oLP=؋\׹WP_oD@/DD@oLP=؋(׹_oD@/DD@oLPN'GW W8' @ z)ǡ(,8' @ z)8 (NG꿽W8' Ah #z 6hqp;ǡ( W8' A&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߹"إJ"إ=K"إ3"إ+"إN"إO8"إ "إO"إN"إO1"إJ"إ"إ%"إ'"2(\}||׵ إ 9p"`z߸pإ+D_"_(pM׵ ߸إ qxإ||"`j_8_ WxX_0{|RJ,  / FE L AꀘW Ie hl #r Cw &j8  _:_W8 GnN[ 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:ǡھoD@/DD@oL aGzCAcaWLoD@/DD@oLP'TWP'TWoD@/DD@oLPXΘTXc\`TzWTWXd*WLX`PΘ`'( h \ `d`T\_\zoD@!#'+/258<@CEGJHD",-. /<0XLML;d<=>_,?0F0ElN$ O P Q RH  X   @ x90BCPL_De 25-Jul-85 DecodeI/DD@o'xHLPNWLNP=% l؂9׹WoD@GetStri/DD@o'xHLPT&X.\N /NWLΘ=5 `-%؁׹dWXǩ`WdoD@GetStat/DD@o'xHLPNWL= l؁׹WoD@GetInte/DD@o'xHLPTNWL=% l؁8׹WoD@GetCard/DD@o'xHLPTNWL=% l؀׹WoD@GetNumb/DD@o'xHLPNWL= l؀׹WoD@Substit/DD@o'xHLPT&XNנ'NWWLX=- \%؀K׹`WTǩ\W`oD@DecodeE/DD@o'xHL= ׹WoD@MPSPVP[P_PcPfPjP" 90BCPL_Ti 25-Jul-85 BinaryT/DD@o'xHLNW= ؃9׹WoD@SetBina/DD@o'xHLNW= ؃׹WoD@BinaryT/DD@o'xHLPNNWL= ؂׹WoD@Textual/DD@o'xHLPTNNW= X؂t׹\WPǩXW\oD@Time /DD@o'xHLPNW=T ؂)׹XWLǩTWXoD@Standar/DD@o'xHLPNW=T ؁׹XWLǩTWXoD@Date /DD@o'xHLPNW=T ؁׹XWLǩTWXoD@TimeAnd/DD@o'xHLPNW=T ؁E׹XWLǩTWXoD@datstam/DD@o'xHL'ف:6lz_WLoD@datstri/DD@o'xHL'TPNPWP'ـ6_LWP'ـ6oD@datvecs/DD@o'xHLP'XTNT,T'Dـ6z_dWP WTXP e CPWTX Pcg CP\WPoD@mpspupyp{ppppXVUdTS" /90BCPL_Pr 25-Jul-85 Verbosi/DD@o'xH=؀z׹WoD@Identif/DD@o'xHLP= ؀D׹WoD@HelpReq/DD@o'xHLP= ׹WoD@"  T 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%,  0 <,$ "!ŀ@Jp$  ""8z8p282_߹"#l}|p__׵  x"z إ!߸"x_ ^׵ ߸ tإ|p"z߸Hإ%"_"إ|p"zإ|pإ I߸"l2x w 9x@x< ; Ǔ@J8Ǔ@ ǓZX'8S| 0|_4 _t_l_p|_@_@ x|(:$.PanosLib $ copy dfs::2.*-lib -to :$.PanosLib $ copy dfs::2.*-f77,dfs::2.fCheck-cmd -to :$.PanosTests $ access :$.PanosLib.f77*,:$.PanosLib.ifp-lib rw/r $ .Delete Program$Force $ .Delete Program$Abandon $ .Delete Program$Confirm $ .Delete Program$Identify $ .swd :$.PanosTests $ fCheck $ . FORTRAN 77 is now installed on $ .Identify DFS Fortran Installation V1.10/03 $ .Help Install Fortran onto DFS $ .Help $ .Help KEYWORD is $ .Help -force overwrites existing files $ .set cli$echo true $ . Ensure your system disc is in the bottom drive and press RETURN $ .Wait $ copy dfs::0.f77* -to dfs::3.$ $ :3.f77fe -help $ :3.f77cg -help $ . $ . Fortran installed and checked $ . Fortran system disc created $ . Place a blank formatted disc into the bottom drive and press RETURN $ .Wait $ copy dfs::2.*-lib -to dfs::3.$ $ copy dfs::2.*-f77 -to dfs::1.$ $ . FORTRAN language work disc created 3" h H J ,5555555555555555T0`fDHLPTX\`BVW hUWWHHT@=x__إPPTE e W8PPT _;xzWWHHT@9t߸إ إPPTE 9e "tPWPxWeaW8P7PT _88إPWPxMe ,WWH=HxE/2 U_N4|p 0   8 _8[ 7x= 7<|_9WWHHx1'9 FGN 4|ǡ N<|_x5/l|(4WT0 _|_x_8| p7T@,d߸߻إTE  ߀p_/=߸/8_/-_/"߸/W0T _9| T@ _ w{|8Lx8W0T _lLĿW||| x|(T_8>Z "88b"="_ߺ"D"Wz/_//f /  _|_|"/ /? " ꁰ" ꁩT " ꁞcx lxx 8 x:x x$x:x4<ׅx" 5 3|);|;|c| " t  |J" h  |ׅ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&&l&(&&D| &$dk0vp(( 4X((p(((` ($AccessExceptionsPanosMCICharCodesDecodeArgProgramSystemTypesStringsStorageOSStorageStoreIOAccessMStubErrorCrudeIOTimeAndDateFileFileUtilsDateCheckFreeTimeConvert VVVVVVVVVVVVVVVZZZZZZZZl[p[t[OSFileBBCXGetStoreInformationStore XDeallocateAllocateGetErrorMessageErrorXBytesOutstandingIO DeleteFileFileXSetFileOffsetXGetFileOffset XCloseStream FindUpdate FindOutput FindInput XSelectOutput XSelectInput XWriteByteSignalHandler XEndOfFileReadByte DecodeEnd DecodeArg SubstituteGetNumberOfValuesGetCardinalArg GetIntegerArg GetStateArg GetStringArg DecodeInit HelpRequiredProgramIdentifyRequired VerbosityHJHK H KH8K(HPKCHhKaHK~HKHKHKHKHKhHL2HHLX8H`L|GHxL$J0 90F-EXPR 18-Sep-85 /DD@o' ILւP'(9LWP'xLւPPU \PV SWLoD@/DD@o' 5L'$+LgT'xLՂT _WLoD@/DD@o' 5L'$+LgS'xLՂS _WLoD@/DD@o'  'g@' '  oD@/DD@o' mLւP '(]LWP'xLւPPW [PX RP[ IP\ @PY PZ WLoD@/DD@o_LՂ+!' ' g3'LUՂ-A' 'zL' WL'|LLg?'L 'DLւP'(4LWP'xLՂN [ՂO QWLoD@/DD@o' ELւP'(5LWP'xLՂP [ՂQ QWLoD@/DD@o' L'$jLgR'xLՂR _WLoD@/DD@oՂ. _6'@Lg3NW'\ WL'T._oD@.NOT. /DD@o' L_T_X1/DD@oL'L; ?NkoD@O/DD@oL_3 WLLWL' WL3 ^WL'XoD@Ղ: WLWL'L'(J'PL _ꁼWL'p WP'p gB'x_ꁍWL'h_TWLשւXWP'h_TWPשւXWL' WL\ W\\W\qWP'  #WLPP\7' `WP'$T`WL\Ǫ`ꀮWP'E C'\PWL' T\WPǩ\L`  '\ ` `WL'$T`WP'$T` W\_; _ǩ`LWLǩTǩXoD@/DD@o_LՂ(' 'dLՂ,' WL'p WL'p u_P' 'RPՂ)-' !WP'p WP'p gK'x' ' PWL' ~ w)<"  ? 4 R CZ"B ..Lj q4|s\L B 7    f  7    4 O /     g   ' 0   7 F f m , d  \  R  u  k X ,Q$ j - tF/W/   $%"""""""""" " " " " """""""""""'6l |_@hGp'Bh2/   o 'p2" 222'2'22'o2 "*2: 2 AWAAA 2_"oYWC@ 22_ 24   7Cw   !$j   f<*-1  )agmB q"4Z| 3 4l6 ;  ? / Q BFI f 7 F1 4L " gN O /RV 6Y] b f" ' m* 7 F il? "  \qt w{l 4~ R /   3V kl6 ;-  /"$.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.GFTUPB8DPDl])WЂ'' 'Lg3'1._'lLՂ('' WL'WL'PՂ( WL'p WP'P'_WPꂹWL'p WL'p'@P' G:?N#TT#Ղ) 'dՂ:?N#TWP'TT KWL 'WL'p gV'x_LWL'X'WXWL'D/ CLЂX'P L_WPWL'WL 'p  WL g_'xWL'WL'P'WPaWL'WL'p WL'P'WP-,WL'S }ڀ aZgi'x'WL' WL WL'WL1WLPWP  WꀥWPPP .cWLꀐWL'DS |ڀ ?WL'WLYWL'S }ڀ ov CLgs'xWL' WLoD@/DD@oL_ 'PTL> ǩL'  ',d' XX_TiWPWX' p g~' x_T;' \PǩXPWX'   WP_Ղ, m)WЂ'' WPL  g'x_WToD@/DD@oL_ 'P\Ѓ g' x'  G: ւTA' dT 1'  _\WT' p g' x_T:WЂ' '  G)_XP' dX 1'  _\WX' p g' x_X)WЂ' '  T L_Wlpǩ\ #`dWp'4ꂐ`hdWp'4xvWlǩ`WPǩpp'4^WPN`ƗdgC'DXhgC'HGgP'4x`jWPǩp ǩ\`jwWPǩp ǩ\gA'4`jUWPǩp ǩ\gB'4ꁻg'4x*Wlߩ i}ڀ ,,TWlll CLg'0x__WLllpPtǪ`  g'8x_+x`|ꀬWptW'Hp 6W'H W6 g6'HtW'HpW'LpWxg'Hx_TWppWttx|xڿSHWP',o  TWT_WP'p WTWTשWP'p WTꀷꀦWP'h WPꀟWP' WP3  ǩL {WPTWjg&'xM Ll}ـ M34l`4:g2'x_oD@/DD@oL_JWL'4WL'P  WL CLgF'x_WLoD@/DD@oL' ?NPWL' ?NPPWL'?NTWL' ?NTPWoD@/DD@oL_WL',WL gP'x_WLꀟWLשgZ'x_ꀽWLꀷWLW'LW'LWLW'LWyWLPWPW'lPPPdWLKLg6'}WLC0W;5oD@ n}ـ /*. gc' x'  oD@OR.NEQV. NE.LT.LE.GT.GE.EQV. EQ.AND. SWU\[ZYXVT/DD@oLWЂ'  't%WЂ' Ղ.WL'Ղ' 'pՂ(' 'P,WЂ'' 'T)WЂ'WP' OWP'p WP'p 0WT' !WT'p WT'p gm'x' TWP' Ղ? 'gw'xoD@/DD@o_LWЃ$C'xꀵg'xЂ_тт҂_҂ 'P1WLw WP'ЂWP'L'IWLw g'xWLsPתWꀭ' S B}ڀ RC`Y???nR??g?????K'`g:'WЂ'L'NiWLw g'xg0'g:'''GoD@/DD@o'  L'LANFLN[oD@/DD@oL'`WL''ӂ_P 'T҂ڀg'xXւ\*g cP`XWЂ`'$tc0C`PX\XUXP\1' G g' xЂWT' X\XM' WTש'oD@/DD@oLPĢ/DD@oL P_'tTXLi\\WP' tG0 X\\zb\X`\WP'0t'$\`\dg.'WTcX'*\X`\WP'0t'$\`\doD@'`WL'4g'WP''҂' oD@/DD@oWЂ\' L שWLoD@/DD@o ' LՂ'?NP 'WLՂ P g'xLP Ղ''G',ЂWL'P ' ' 꿚WLשg'xՂ  ' WLoD@/DD@oL_P_TX_\`Ղ.?Nd !'4 '( '(;_ ꁡՂ0\7X h\lg0'0hlhn_\_XWЂ'(d P'4 '(Lꀢd'(3 Cd'4 '(oWЂ'(  ՂD`'(-T{`d'(TiЂ 3d.X \h\lg0'0hlhn_ ꀙ/WЂG. WGD GE GH Vd-X \h\lg0'0hlhn_ 9W\CTcPTX g0'(_Tg.'(WT'(W`oD@/DD@o'@L'  ' 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 ׅ ׅׅ"'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 IF 4ՂE' GQN#PՂD?N#PPWL'T.WPoD@/DD@oLL/DD@oLw C0P LjLγ W'MWP'oD@Lzg-'N#LLWL'oD@/DD@oL'`WL'g'_т'oD@/DD@oL 'PששЂLgNW'4WPoD@ %F %N 0 %Z /DD@oWЂ' ՂT g:NW g)NW' \g' xoD@FALSE. TRUE. /DD@oL_'tTP$PWL'tGЂ _' PTPZoD@/DD@o_L_P' G-L' Ղ+ ' WЂ'g'xWЂc0 ΣPCP'  'XL NcPWPoD@/DD@oL P>g'x_ꀵWP'tG0WLꀛ5Lg?'ꀊWL'pS |ڀ ò'`g-'_WP'tXTTWP'(t'TXTd'WL'p'RoD@" p0l<t!%%t&`'090F-DECL 18-Sep-85 /DD@oL oD@WL WL'WL'WL'WLW'L_WL' CLP&WP'$WL6WL -oD@WL'DS j| WLשЂP!g؃fNW'4;g'x-WL'S c} f/[foD@WLhש'p 'WLPT_XT\_` XWLWPXg؂NW'$4dPhꀶlꀧ(`jWTTCT\_``W\'4tp`Sg؂SNW'44_g؂ F ye f WLW'WLW'oD@g'x+WL'S c} )IFXERRORSTREAM4 IFERRORSTREAM*IFXOUTPUTSTREAM IFOUTPUTSTREAMIFXINPUTSTREAM IFINPUTSTREAMIFXSETCONTROLSTREAMIFSETCONTROLSTREAMIFXSETERRORSTREAMIFSETERRORSTREAMuIFXCLOSESTREAMd IFCLOSESTREAMIFXSETFILEOFFSETIFSETFILEOFFSETIFXGETFILEOFFSETIFGETFILEOFFSET IFXGETTABS IFGETTABS IFXSETTABS IFSETTABSIFXBYTESOUTSTANDINGIFBYTESOUTSTANDINGIFXSELECTUPDATEIFSELECTUPDATEP IFXFINDUPDATE< IFFINDUPDATEIFXSBLOCKREADI IFSBLOCKREADI IFXBLOCKREADI IFBLOCKREADI 8IO XSFlushOutput 7IO SFlushOutput 6IO XFlushOutput 5IO FlushOutput IO XSelectOutput IO SelectOutput IO XFindOutput IO FindOutput :IO XDeviceType 9IO DeviceType IO XSelectInput IO SelectInput IO XFindInput 4IO XEndOfFile 3IO EndOfFile (IO XSCurrentByte 'IO SCurrentByte &IO XSReadByte %IO SReadByte IO XCurrentByte IO CurrentByte IO XReadByte IOReadByte $IO XSWriteByte #IO SWriteByte IO XWriteByte IO WriteByte IOXControlStream IO ControlStream IO XErrorStream IO ErrorStream IO XOutputStream IO OutputStream IO XInputStream IO InputStream IOXSetControlStream IOSetControlStream IOXSetErrorStream IOSetErrorStream IO XCloseStream IO CloseStream 0IOXSetFileOffset /IO SetFileOffset .IOXGetFileOffset -IO GetFileOffset >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" XXDWL'p KWL\\``Pg,'$xWL`g؀NW'$4WL g؀NW'4'ހxhNhT_ WTWWh'4TX WXg?NW'4WXXX_PgNW'4oD@ %Z  %N%N %F %N %T %F %N %N %F %N /DD@oL'JPWL' WL* 'T__ LǩPoD@/DD@oL'pPWL'WL'  WLWEւTPWL\'  pWL; bXW\Tg؁2NW' 4%WXg؁NW' 4WXXXZg؀NW' 4NWL' WL'  g4' xWLW\Tg؀NW' 4XWL' WLWILTg؀QNW'4WL'LTg!NW'4ЂWToD@ %F %N %T %F %N %T %F %N %N 1 %N   %N %F %N %N %N/DD@oL' oD@ꀷWL oD@WLW'LW\W\'oD@WLPWPW'WPPPfoD@WL W'WLW'WL W'oD@WL ( 6 6; q< > _e Vf M꿎oD@/DD@oLPW'p 9 WL'WP'g9'8oD@ꂀWPTX'&\' WT``d#WXdWddWXXd]W`WL'(''\WL' WPT\g؃@NW' 4WL' *g؃NW' 4WPd_`2WXW'(`*g؂NW'(4WXX`d`L8g>' x*WT' DS c}ڀ FJWPXWXW' WXXXfoD@WPPbWL'WP'g9'8WP'oD@WL'WP'WPT:g؁NW'4WL'*g؁NW'4WP\_X2WTW' X*g؁NW' 4WTTX\XLWPTWTW'WTTT ]cgH'xLWP ( v3 Շ6 ׇ; < Ň> F 꿫oD@gR'x,WP'S c}ڀ WP'WL' LWL> >T'WTLW 'T 6g>NW'4L 6gNW'4oD@ %F %T %V F %F %T %V T %F %N %F 1 %F %N %F %N %F 1 %F %N %N /DD@oL'WL'CoD@/DD@oL'P ?NcP?N[P?N[oD@/DD@oLg\'xWL'p WL'oD@|2gf'x$WL'S c|ڀ L 3g؃NW'4oD@WL PTXEWT\\`#WX`W``WXX`]W\W'$W\W'$ꀶ')PWLW'lWLTW('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 ׅׅ"'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 Pg؂NW'4WL`\2WXW'$\*g؂NW'$4WXX\`\L:gp'x,WT'DS c}ڀ fjjWLW'lWLPg؂,NW'4WL`\0WXW'$\*g؁NW'$4WXX\`\NYWTXW 'T 3g؁NW'4oD@WT'oD@Xgz'xWX'oD@WT'oWP'8WT'oD@WT'IWX'@WP'8WT'WX'oD@ P}ـ f(fv5WLXWXW'WXXXfoD@g'x,WL'S c}ڀ voD@ %F %T %V T %F %N %F %T %N %F %N %F %T %N %N %F %T %V F /DD@oL'p ?NP WL TꀓP LT7g؄NW'4L 4g؄vNW'4oD@{WL'ބIdNd'4h gAgELhWd'4oD@g'x,WL'S c}ڀ __P %WL  T7g؃NW'4L 4g؃NW'4oD@ꂿWLW'oD@WLg'xWLW'oD@WLW'BgF'8WLW'oD@WLXX hWh'WX'p (WX 7g؂NW'4X 4g؂NW'4oD@WLXWX'WLGWX' WX> W'WX'gM'8WLW'?WLW'2g<'8WLW'WL W'oD@WLX_'\L;g؁NW' 4PWX`W`'( W`dW`ddg؁INW'(4WXXXg؁'NW' 4WLXd`2WXW'(`*g؀NW'(4WXX`d`LWLXWXW' WXXXfWLǩ\oD@g'xCWLߩ h}ڀ F39O{g'x,WL'S c}ڀ oD@%F %N   %N%F %N %N %F %T %V T %F %N %V T %F %T %V F %F %N %V F %F S %C%N F %F %T %V F %F %N %V F /DD@oLPTgh'8TXꀋWL\`_d'Th` \`'FhXڀWLLWLdWPW',r` dhW\XT>g7NW',4WPW',WPPXXzuoD@%F %N %N %V %V %N %C /DD@oL7WL ?NW'_#WL'S m|ڀ oD@/DD@oLփPPA 'P_TWTCP_TTpWP שЂ WPWPǩLLWPLg؀oNW'4IFWP g؀ANW'4'WP'pS S|ڀ ѦW؅ׅׅׅ"'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^IFXRESETHEAPENDTIFRESETHEAPENDI 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  TimePoD@ %F %N %T %F %N %N /DD@oL' )WL;  LWL6 LWL oD@WL:( g3NW'4WLשg'xoD@%F %N " H l 0o90F-UTILI 18-Sep-85 /DD@oLP TLX(WT _'xWTT#(X(XzSWTg 'TWTǂPXWLoD@/DD@oL_P'PTNT_XՂ(' G) ' ꀬтՂ*ׂ'$ f'$t\?W\'$dǩ\TdTX/ C\g '$xW\ߩ c| ւ`'$ `) ,W`'$ZWX 'T_ǩXǩLX`\VWPd\lh$WhCTǩd Cdg'0xhlhZW\CTǩdWPP\`\ڿWToD@/DD@oL_PTTXЂ !ւPЂP,g؂NW'4WL'(WT'WЂ'p fWT'p ! CTg 'xWЂTWT'XWTLXg؂ NW'4cWT'p ! CTg*'xWЂT_WT'XWT_LWXg؁NW'4FWLXg؁pNW'4'g2'x m} WL`\#W\CLg؁NW'$4\`\[g؀NW'4WL`_\0 CLC\dWd'( WdW '(\`\NЂ| W_gT',\' `\&g؀iNW'$4W`'$*g؀CNW'$4P P+gNW'4ׂoD@%F %N 0 %F 1 %F 1 %N   %N%F %N %Z %F %T %N %Z %F %N %Z 1 %F %N /DD@oLTP)WPCLWPCLתЂ̏PTPUoD@/DD@o ' L_'WLoD@/DD@o' ELWЂ'WЂ'WЂЂx|Lp'tWL'6=#gNW'4WLoD@ %F 0 1 %F I %F %T %V F %C %N %N /DD@oLP'`g&'WL'WPsdC0'WPs w C0'WPw C0''WЂP'T'WT_ WT'WToD@/DD@oLЂ| gT',PЂЂ@W'TLW'XWT'WP&g؀cNW'4WT'*g=NW'4WX'*gNW'4oD@%F 2 %F 1 %F 2 %N /DD@oLTP\WLX \`dhX rWX',h `WX',`WL_>` ',A`WX',WX',` 6g؁NW',4WLǩ`\ rW\',h dW\',dWL_ >d ',dW\',W\',d 6g؀NW',4WLǩdP Eh ւhЂAndDate 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" '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#  eWd',W`',hgg3NW',4WLǩhWLLPTPھoD@%F %N %F %T %V F %F %T %V F /DD@oLP_T_XЂh oD@g=' x҂"LՂ0_LgG' x' @\_ЂЂ' `*҂8TP Ղ0 _PWЂ' ', ' F' ӂz_TЂgR' xT P _Tg\' xT WЂL' XЂ@' WX' pWЂh `WX'$-_WX'$LLWX'$HWXשЂꀶWXdL'(PNWdl_hWh Cdǩ`_ hlhf Wdgf'(xWdddւhdAWd/ǩX(_h  gp'(xdhWdddWXǩ`'$\L CXdׂܗX +g؁ NW'(4Ђ| gT'(,hWd',l'0ph&g؀NW'44Wl'4*g؀NW'44Wp'4*g؀}NW'44gz' xHLBЂ;Ղ0 1Ղ+ 'Ղ- Ղ g' xׂW\' TWXoD@%F 2 %F 1 %F 2 %N %F %N %Z /DD@oL j W _ oD@/DD@oLP  WLǩP  g'xoD@/DD@oLP:  &    CLg'xWLǩP =WLǩP 3  g'xP  CLg'xoD@/DD@oLj Wg'xoD@/DD@oLP  CLg'xoD@/DD@oLj  W oD@/DD@oLP  CLg'xoD@/DD@oLj W_ oD@/DD@oLP  CLg'xoD@/DD@oL XcAPLg'xPjRPzHWPCЂdL.gIcAGPgNcAP _ WL WLoD@/DD@oՂ g' xoD@/DD@oLP g'xoD@/DD@o_ЂoD@/DD@oLЂڀg'xWЂ`ǑLoD@/DD@oWЂ`שoD@/DD@oLPւ`T`W'6XT`(WPXpWL'p WXWXXXW_oD@/DD@oL`'`P2WPTLWЂ`pT'p WTꀓ_CTPWPIЂ`XXW'T`_\W\CT_\`\oWXs`_\W\CЂ`T\\`\dWPǩTWToD@/DD@oLւ`P`WЂT'TP`  WT Lg'xoD@/DD@oLPTX\_XWLXXTΘXG _ X\X_oD@/DD@oLPת?NT'kToD@/DD@oL_PTЂ`ΘX\_ WX` gcPЂ`Θ\CwTP\`\_ CLCPoD@/DD@oLPTЂtڀQ_!'W ' '  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 Arguments 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 =}"׹׀X_L\T W\\W\mW\XǪPW\oD@/DD@oLЂ$N'BoD@/DD@oL\Ѓ gЂ$NW gЂ(NWW\' oD@/DD@oLPXX XzGЂ,g' hXւ,XWЂ,,WPXgWPWXLTTzg' x_ CXCT\_`LdW`C\_`d`oW\oD@/DD@oLP$WPLWPש,,LPP\oD@/DD@oL'Pg4NW'HWPש  LЂoD@Run out of workspace /DD@oLPT_X_\'$@`LhdWdCPǩddhdnꀍ_d'( hXlTpgWlCPLtWtXXGhCWtXGX dWlCP\'8@`dWlCPdPlplڿdTTʿsTNWPLdXdhl#WdXhp'4 p _T hlh[TW`'$TW\ WPWoD@/DD@oL 0NG9NcWoD@/DD@oL ANGZNcL&?NckЂWoD@/DD@oL' WL' _oD@/DD@oWЂCЂ@jHz H' ՂazʀgAcaՂ MWЂoD@/DD@o'HPPj%WЂ@ש WЂEЂӂЂWЂCЂ@LWL CLCЂWЂoD@/DD@oWЂNWCЂoD@/DD@oLNWLoD@/DD@oLgNW'4oD@%F /DD@oL6gRJgICgL'<(|'PN_Ђ WЂ'H0րWL%;g'XxW Ug؃Ng؀GWAg؁;:g؁4g؁[. B|ـ ZC ހ~W'X E09Wc0'TC   W'T WLXjW|'H0oD@/DD@oLjGz ' TWLNW_ _ P  gg' TPXgkL' NLTXTfoD@/DD@oL'(p't' oD@/DD@oLXLgNW'oD@%N%S /DD@oL=WL' OWLg؁,NW'oD@g"'x#WL'S c|ڀ ꀖWLg؀NW'ꀭWLg؀NW'ꀔWLg؀NW'{WLg؀NW'bWLg؀]NW'Ag,'x2WL'DS c}ڀ \uoD@C%N%N I%NW%NL%NA%NN%N/DD@oL oD@WL'oD@"( - +D  $ &$  % # (L.)  %}" 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  F_JUCMF__CMNF77_IOERR  end of fileinvalid unit numberinvalid attributeduplicate use of file nameinvalid unit for operationerror detected previouslydirect access without OPENinvalid use of unitinput and output mixed direct access not open for input!direct access not open for outputend of file on output not availableinvalid access to terminal filesequential open failed (direct access open failed (record length too largebad command line syntaxsequential write failed (bad unformatted record (bad direct access file (direct access IO failed ( unknown error/o X'ٽnXa`  'en8W M  ΀؀P   *z -N#m΀؀(g`M(=j1|< 2=_==_="|W J)g8* " j 3w70 - internal"PbE2F77_INIT1983-09-02 12:34:5632016 ZASM 2.11 F_JPS1F_JST1F_JPSE F_JPSM(F_ZAERF_ZINI{F_I900HF_ZSER F_HANDLER ErrorGetErrorMessage IO SReadByte IO OutputStream IO InputStream IO Errorstream IO SBlockWrite ProgramStop F_JCMNF__CMNF77_INIT ׵"2/o ׀W."g؁\ g؁xOWhhJg؁p?꿳W(<g_7 0T d T vΘHb_ ׵"WrW Q ΌQ _ XQ(_hNW@Q)XQ(hNW@Qc(zHj_ 22/o ׀!o2/o ׀W o2g؀WgـΘi g؀mDW Ag؀d6W(03Y׵ "j s  ׵ "znYY y N n?': /   STOP ++++ ERROR  PAUSEContinue (Y/N)? 6 Routine MOD data area link line נ'%ggcXcr`b\נ'`array bound errorsubstring bound error/o ׀_('Y%Z_  WY,XYW@! \ o2___" "||*4t  D< 4,t! ,X<"' / 0;90F-P1 18-Sep-85 /DD@oւ`LgؘNW'PgA _ 'gA  WP'vgA  WP'cgA WP'PgؘNW'TgA '/gؘ\NW'eTgA  'gؘ3NW'DPgB 'gB _ WP'gB  WP'gB  WP'gؗNW'TgB _ 'gؗNW'TgB  'rgؗNW'PgC  'QgC  WP'>gC _ WP'+gC WP'gؗNW'NPgD  'gD  WP'gD _ WP'gD WP'ga_! WP'ga_! WP'ga_! WP'gؖNW'TgE _ 'dgؖYNW'TgF _ 'Cgؖ0NW'yPؖN'XW !WP'gG  WP'gG WP'gؕNW'TؕN '/XW !WT'gG  WT'gؕmNW'PؕTN'XW !WP'kgH  WP'XgH WP'EgؕNW'{TؔN 'XW !WT'gH  WT'gؔNW'3PؔN_ 'DXW !WP'gI  WP'gI WP'gؔ?NW'Tؔ&N 'XW !WT'mgI  WT'ZgؓNW'PؓN'XW !WP'%ؓN'}XW _"WP'gJ  WP'gJ _ WP'gJ WP'gؓANW'TWX!'gؓNW'TؓN_ 'XW !WT'sgJ _ WT'`gؒNW'TؒN 'XW !WT'+gJ  WT'gؒmNW'NPؒTN_ '_XW !WP'gb_! WP'gb_! WP'gb_! WP'gؑNW'TؑN'XW !WT'ugb_! WT'bgؑNW'Tؑ~N 'XW !WT'-gb_! WT'gؑ?NW'PPؑ&N'aXW !WP'gc_! WP'gc_! WP'gc_! WP'gؐNW'TؐN_ 'XW !WT'wgc_! WT'dgؐiNW'TؐPN 'XW !WT'/gc_! WT'gؐNW'RP؏N'cXW !WP'gd_! WP'gd_! WP'gd_! WP'g؏NW'T؏~N_ 'XW !WT'ygd_! WT'fg؏?NW'T؏&N 'XW !WT'1gd_! WT'g؎NW'TT؎N 'eXW !WT'_("_WT'g؎NW'Pge_#_'  _2@"gؾװ _ Fgؾs W@@9\ |<筀8=_==_="|g8\(gؾ}w"cy Wp0_#' pxpWW(pz W!') gؽ0_ gؽ\Wx  K KKK2gؽ 433PbE2F_AINT1983-09-02 00:00:00Topexpress F77 2.13# F_AINT  F_HANDLER F_ZAIN%%F_AINT /o "'o2"PbE2F_DINT1983-09-02 00:00:00Topexpress F77 2.13# F_DINT  F_HANDLER F_ZDIN%%F_DINT /o "'o2"PbE2F_ANIN1983-09-02 00:00:00Topexpress F77 2.13# F_ANIN  F_HANDLER F_ZANI%%F_ANIN /o "'o2"PbE2F_DNIN1983-09-02 00:00:00Topexpress F77 2.13# F_DNIN  F_HANDLER F_ZDNI%%F_DNIN /o "'o2"PbE2F_NINT1983-09-02 00:00:00Topexpress F77 2.13 F_NINT  F_HANDLER  F_NINT /o >'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_HANDLERge_#_WP'ge_#__WP'g؎FNW'Tge_#__'pg؎NW'Tge_#_'Og؍NW'Tge_#_'.g؍NW'dPgf_#_' gf_#_WP'gf_#__WP'g؍NW'Tgf_#__'g؍WNW'Tgf_#_'g؍.NW'Tgf_#_'g؍NW'Tge'__'bg،NW'Tgf'__'@g،NW'vTge#_'g،NW'UTgf#_'g،cNW'4T،JN_ 'EXW !WT'gM _ WT'g، NW'T؋N_ 'XW !__WT'g؋NW'T؋N'XW !WT'LgK  WT'9g؋nNW'oT؋UN 'XW !WT'gL  WT'g؋NW''Pg؊NW'T؊N ''XW _"WP'WX!WT'g؊NW'T؊N 'XW _"WP'dWX! WT'R؊ON'XW !WP'.g؊'NW'dPg؊NW'ST؉N 'dXW _"WP'WX!WT'g؉NW' T؉N 'XW _"WP'WX! WT'؉`N'XW !WP'kg؉8NW'Pg؉NW'T؉N 'XW _"WP'%WX!WT'g؈NW'IT؈N 'ZXW _"WP'WX! WT'g؈qNW'T؈XN'XW _"WP'WX!WT'g؈NW'Pg؈NW'T؇N 'XW _"WP'?WX! WT'-g؇NW'cT؇N'tXW _"WP'WX!WT'g؇WNW'Pg؇>NW' T؇%N 'XW _"WP'WX!WT'g؆NW'T؆N 'XW _"WP'YWX! WT'G؆N'XW !WP'#g؆hNW'YPg؆ONW'HT؆6N 'YXW _"WP'WX!WT'g؅NW'T؅N 'XW _"WP'WX! WT'؅N'XW !WP'`g؅yNW'Pg؅`NW'T؅GN 'XW _"WP'WX! WT'؅ N'`XW !WP'g؄NW'Pg؄NW' T؄N 'XW _"WP'WX! WT'؄mN'XW !WP'hg؄ANW'Pg؄(NW'T؄N 'XW _"WP'"WX! WT'؃N'hXW !WP'g؃NW'"Pg؃NW'T؃sN '"XW _"WP'WX! WT'؃5N'XW !WP'pg؃ NW'Pg؂NW'T؂N 'XW _"_WP'*WX! _WT'؂N'pXW !_WP'g؂mNW'*Pg؂TNW'T؂;N '*XW _"88F_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:00TopexWP'WX! WT'؁N'XW !WP'xg؁NW'Pg؁NW'T؁N 'XW _"WP'2WX! WT' ؁aN'xXW !WP'g؁5NW'2Pg؁NW'!T؁N '2XW _"WP'WX! WT'؀N'XW !WP'g؀NW'Tg`_!_ '_g؀xNW'Tg__!_ '>g؀SNW'tTg^_!_ 'g.NW'TTg]_!_ 'L`oD@LLTLLELGTLGE&TANH &DTAH DTANH TANH &COSH &DCOH DCOSH COSH &SINH &DSIH DSINH SINH &ATA2 &DAT2 DATAN2 ATAN2 &ATAN &DATA DATAN ATAN &ACOS &DACO DACOS ACOS &ASIN &DASI DASIN ASIN &TAN &DTAN DTAN TAN&COS &DCOS DCOS &CCOS CCOS COS&SIN &DSIN DSIN &CSIN CSIN SIN&AL10 ALOG10 &DL10 DLOG10 LOG10 &ALOG ALOG &DLOG DLOG &CLOG CLOG LOG&EXP &DEXP DEXP &CEXP CEXP EXP&SQRT &DSQR DSQRT &CSQR CSQRT SQRT &CONJ CONJG &AIMA AIMAG &INDE INDEX &LEN LENMIN1 MAX1 AMIN0 AMAX0 DMIN1 AMIN1 MIN0 MINDMAX1 AMAX1 MAX0 MAX&DPRO DPROD &DDIM DDIM &IDIM IDIM &DIM DIM&DSIG DSIGN &ISIG ISIGN &SIGN SIGN &DMOD DMOD &AMOD AMOD &MOD MOD&DABS DABS &IABS IABS CABS &CABS &ABS ABS&IDNI IDNINT &NINT NINT &DNIN DNINT &ANIN ANINT &DINT DINT &AINT AINT CHAR ICHAR CMPLX DBLE SNGL FLOAT REAL IDINT IFIX INT/DD@oL`WЂX'oD@/DD@oLP_WP'tsT 'X`_\W\CX_\`\oWXǩL __\T`W\CPX\\`\eWXoD@/DD@oLPT&X.\27W0' `LǩPǩTǩX ǩ\LoD@/DD@oL'ހTNTЂ p_ 'd' G gV'xG'tP_'XWP'HWP'\P CPT'$Tg,NW'4ׂ_ЃL 'oD@%F %Z /DD@o_ ' d'  ' t_т_ _Ђ ' $WЂ' Ђ_g2NW' 4WЂ' (׃ׂ' oD@ %F %N %Z /DD@o_ ' d'  ' tтש _Ђ ' $WЂ' Ђ _Ђg^' x׃' oD@/DD@o'ހPNP_҂_Ђ_ 'd' G G'tL_'XWL'HWL'\L CLP'$P_g&NW'4_Ђ_Ѓ'oD@%F %Z "53$421590F-P23 18-Sep-85 /DD@o_ ' press 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_HANDLER 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 zd'  GOg؂[NW' \  ?g؂4NW' \ +' LփLЃ WL',WLꀻꀬg؁NW' \  ꀟꀐg؁NW' \ _ ꀃtg؁NW' \ _ gXg؁xNW' \ K<'  S .} RC,,,,,,,,,,,g1' xL(WЂ''$ ' g;'xWЂcAP' G-9'$ ' gE'xWЂcAT' PTPXT\7WXCЂdWXCЂdǩLWXCAgO' xX\XGՂ, ;)WЂ''  G, gNW' oD@) REAL LOGICALINTEGERDOUBLEPRECISIONHARACTER OMPLEX /DD@o_ ' d' (' ' 'tL '$WL'=WЂ'' ' d`WL'$pW`'`PWL'DWL'  CLgZ'xtP nWP'h R_WL'HWL'p WP' WLPWLǩPЃ 'gc'xՂ, )WЂ' '  gNW' oD@) /DD@oL_ 'd' 'tPL'\Ղ( WP'Ղ, G CP'oD@/DD@o_ 'd' 'PЃ WЃ'փPՂ, ' 'tLՂ('2'TPTTWL'\Ղ, ' 꿲 CL'oD@/DD@o_ ' d'  ' L'tP'DJ'TLWPLTWL WLǩT  CPgn'xՂ( WP'=Ղ,' G gx'xՂ Ղ/CՂ -oD@/DD@o_ 'd' 'tL(WЂ'WL'Ղ, M CL'oD@/DD@o_ ' d' L_P_'  (''T PڀE'\_LLת' Lǩ\_PP' 'tXՂ(_ '\`ǩX'( G: ւd '(ddX`Ղ:ZW\< ǩd'( Ղ) '(ddX`W\ǩd)WЂ'('( W`W\> __'(hǩd\\WՂ) .,WЂ',', ', dX`꿡'( G(LW\'(\ 5W'(h W\W'(hg'(x_\\`\X`W`WXTWLWLՂ, ⧨)WЂ'WLש'  G, gNW' oD@equivalence list /DD@o_ 'd҂g'x' 'tL'HՂ, [ CL'oD@/DD@o_ 'd' 'tP L'$WP'DUWP'EЂXWL'TLg'xWTPWP_ Lg'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.?+eG@@(  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'xՂ, gWL'oD@/DD@o_ ' d'  G %' L_שoD@' LՂ/_'[L'tLWLשՂ, ' 꿩WЂW' oD@/DD@oL'`Ղ/' G/Lg'x^WЂ' g'xWЂ'WЂ''  'b/WЂ'' 'WЂT'P   P WP  g'x_ CPP WPoD@/DD@oL_PT׃ 'XǩPǩTT__ ___P'  G*WXש'  ' d\Ղ:h'  W\' p  CLg' xւ\WXǩ\'  G* '  b' d\ WXשW\'  W\' p  CLg' x_\WXǩ\ Ղ, _Ѓ )WЂ'' WL  ǩP  CLg'xoD@/DD@oՂ*'  G('  G*$' )' '  WЂ' WL_W'P)WЂ'' L_ꀗWP_ǩLЃ'WPyo'PWЂ'g'x'lL'p g'xWP_ǩLЃ'WP _oD@/DD@oLW'LoD@/DD@o_Lт CЂXЂ_ WЂW\WЂ' WЂ' pT :\X_g؈NW' 4WЂ' XWЂ_т4WX\Ђ_g؈NW' 4_WЂ' XWЂ_Ђ WЂ' (ׂЃ ?_ЃWЂPX_TꀃWT CЂP\iW\' p` \W'$W\'$2W\"W\'$S |ڀ W\\\TXTڿ|gZcAX_T:WTCЂd\'W\' 2 \p|ـ TXTDGWЂTWT'WЂT$g؇9NW'4WЂЂ'ւPNPYWPTTX\9WX` W``W`'$kW`'$D W`dTPWT_XꀩWX` W``W`'(kW`'(DP'(h`ǪdWd`Whd Wdǩh W`ǩd  g'(x_TWXXXWCdX WXXWXqǩT'ւ\N\WXXX\PWPЂTX_TrWT CЂT\X_` C\d\hllp  \(W\ldg'4xW\\LW\ǩLdWlpLg؅NW'44tpxꀑWh|W|'DW|'Dp `6 `+)` `p|ـ W|'D W| W|'DWhhtxtڿnW\W'4g'48`dg'4xW\\\TXTھR_T'TXNX_\'\`N`_dւl'ւPNP1WP"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Հ@"F4Հ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@pptxWt| W||W|'@jl W|'@D WpPWp_tꀏWt| W||W|'@jW|'@D4'@|_תЂWXXW|  g'@x_pWtttqW`ǩpp p`'ւxNxWtttxPWP˗Ђlg؂NW'04WX_ꀒWTpWp'8Wp'8pt(td>t phd/-t dph dl|ـ Wp'8 Wp Wp'8WTTTnW\'0kg'08d Chg"'0xЂЂ|ꀟgT',T&g؁NW'4t_gT',T'XT&g؁:NW'4WX'*g؁NW'4 }ـ wЂ mւTWT\_X1 CTCX`W`'$ W`W '$X\XMWTTWT'0WTfЂHWWЂTT 0WT 'WT'WT  g,'xЂg%'8gЂ(NW'oD@%F 1 %F 1 %N %F 0 %N %F %N %N %F %N %N %N %Z %F %N %N %F %T %N %Z %F %N %Z /DD@o' dL'p WL'h WLg6'x_oD@/DD@oL&WLP_TWPXX\_`_dPW\'( W\<  `\W\'( W\>  d\` ;W\'(p d'W\'(  C\g@'(xTd 5W\'( W\ Ǫd  C\gJ'(xWX'(WX'(TP Tg&NW'4WLLLoD@%F %N "=?A7t8,:$;<4 > @T 6 9A=90F-P4 18-Sep-85 /DD@oLփ8Pփ; &ܾ? !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?; ppQ!Wl'0h ǩ`$$`ꀰWl'0p XՂ(MWh'0h :W'0h Wh !W'0h_hg'0xWh'0= Clg'0x_h%Wl'0S Y} eeh k҂BWl'0D WlW_'0t Clg'0x_h$Wl'0D  Clg'0xWdǩhPdPՂ/ ,WЂ',', WP_'$ _ '$dւlւpl+ l-'4 _'4lhꀇ_'4lhՂ*k'4p Wh'4g'4xւhhp'4 l +  - '4 ' l_'4lh' ll-Wh'4|hWh'4 :Wh'4Wh'4  l g'4xւhWp'4Wh'4WdǩpǩhXdX\Ղ/ ,WЂ'4'4 꾋\`#g؂NW'$4 RPTWd'(p %Wd'(9=g؀NW'(4!dWd'6(=g؀NW'(4Lħg؀NW'$4d\h0WTg؀SNW',4WTTdhdN'$ G, '$ Ղ doD@%N %N %C %F %T %F %T %V F %F H %F %F H %F %F %T %V T %F %T %F %N %N /DD@oWЂPP_L: CЂPCLTXWX WXXXhWTǩXLPLDoD@/DD@og ' LP_TCX'( G('(Fd ǩT$$TM'(t\Ղ= lՂ(W\'( g'(xW\'(dd '(`ǩdX`X,WЂ'(YWL2 ǩ\'  ' dLW' p g' x_P,WЂ' '  ' dLW' p g' x_PՂ,<'  ' dLW' p g ' x_P WLש)WЂ' '  WX_TL$WPoD@/DD@oLPT 'XL \WP'  '_ CLP'   CLP' _TWXǩP  _L$LꀑW\`cXW`'$T_TgW`dW'( CdX'(]_TWddd -]g'$xW` 2 > YW\\\oWToD@/DD@oLPTTXWT'h WT'WXꀨWT'7c CTP'_X_ CTP'_XWXdWTߩ #|ڀ R?!!!!!!!!!!!!!!' WPǩTLWXWPPP_g'x_oD@/DD@oL$PΣPTX\ `W'$\6g؁NW'$4WLW'$X6g؁NW'$4WLWzꀫ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_MEIR 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.  '$T6g؁dNW'$4P+g؁BNW'$4W`dꀞWd'(BꀭWd'(p &Wd'(9=g؀NW'(4OWdhh=g؀NW',4WhdW ',h 6g؀NW',4+g&'(xWd 2 X> [YW```4PWTX\2gNW'$4oD@%F I I%N I%N I%N 0 %N %F %T %V T %F %T %F H %F %F %N 0 %F I I%N F %F I I%N F %F I I%N F /DD@oL T'PXNX_ '\ `WL'$WЂ'$W\L> ǩLT '$d W'(h',l'0pd  _WTWh2 ǩdTשTǩl T$l_WXǩhlXWpǩd`p`WTTT3WXǩ\`_WPoD@"CBC90F-P5 18-Sep-85 /DD@o'd' _ ' Lg؀NW'V'tP'WP'WP'p  CPgy'x'WLPtWP'64gNW'4oD@%F S $%N F %F %T %V F TO /DD@o'PTNT_X'\`N`_d'(d'( '(tL WL_ ; CLg'(x&WL'(S \| WL'(9 CLg'(x$WL'(DS \| Ղ('( G) '( Ղ*E',l'0 '0 lW'0KW`ǩll`dl',dlЂ ( $'0 Wl'0p  Wl_Wl'0Tl "'0pǩlTpTXւh', h) ,Wh',&'(WL'(lWT_`_PT(WTW'(WTW'(WTTTWd2WL'8D'ށ\tNtg'g&Wt'(40WL'8D'ށ$tNtg)g(Wt'(4WLXg؀NW'(4PThXl2WTW'0h*g؀NW'04WTThlhLPTWTW'(WTTTfd Ud1g؀^NW'(4\`$W`g=NW'(4W```[gNW'(4oD@  %N%F %N %F %N  %N %N %F I %F /DD@o' d'  ' oD@/DD@oP'$dWЂhg-'$x'$P'$dL_`iWL'$p`)g'$x_` `j| WL'$WL'$ _Lg'$x=WЂ'$'$ '0d`'$`T,WЂ'$'$ '0d`'$`XՂ,'0 '0dWЂ`'$`\'$P L T X \ oD@_ '$WL'$WT'$WX'$W\'$'$WЂhשЂтǩPǩL W\'$h W\'$Ђh$;W`'$dЂh$W\'(d 6g؁NW'(4WX'$h WX'$Ђh(;W`'$dЂh(Wj  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.13B 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  "o2X'(d 6g؀NW'(4WT'$L 6g؀hNW'$4ЂWЂh,g?NW'$4WЂh+gNW'$4oD@%F %N 0 %F %N %F %T %V F %F %T %V F %F %T %V F /DD@o_ 'dЂh WЂh g'xЂ 1WЂh שЂWЂh,g؁NW'4WЂh+g؀NW'4ׂWЂh_ש Ђ' G  'woD@g؀NW'.'d'XLg؀xNW' 'L oD@WL'p g'xWЂhשЂWL'WЂh_WL'B_ 'oD@)THEN IF(%F %N 0 %F %N /DD@oЂh WЂh g' xWЂh +g؀oNW' 4ׂWЂh +g>NW' 4ׂWЂhh' d'  ' oD@%F %N 0 %F %N 0 /DD@o' d' '  B'  L'WL'BWL,g؂UNW'4_Ђ#Ղ(_L_P'PTNT' `'$ '$ \'$W`_\T`TLՂ, )WЂ'' G, ' '(d'XX'p g'xWX'WX'L1g؁]NW'4!WPg؁@NW'4WPPP^g؁NW'4WЂ'   ' tL'WL'WL'p  CLg'xWL'-g؀NW'4_ЂՂ  oD@Ղ, ' (WЂ'' ' '=Ղ, `)WЂ'' 'Ђg' xoD@%F   %N%F %N %F %N /DD@o'd'  ('' ' d'XL)WЂ''@P'  ' ' Tg؁hNW' '  Xg؁INW' '  \' L oD@ZWL' WL' WTX\W0g؀NW' 4_ЂoD@g' x#WL' pS c|ڀ ꀄՂ g'xk'WЂh_שЂWL'L 3WL'p WЂh_WL' g'xWP'ToD@ %F %N %N %N , , /DD@o' d'  G g ' 87' pL'WL'WL'g '8oD@/DD@oB/DD@oЂ| +gT' ,L&g؁NW'4oD@' d'  ꀼg' xg' x' ' WЂ' p g' 8 ' 8ꀇՂ ւL''d'XL''$WL'WL' 6g9NW'4A}ـ JV_ЂoD@ %F I L0 F %F %F 0 %N /DD@o' d'  G g ' 87' pL'WL'WL'g '8_ЂoD@/DD@oWЂh g#' xWЂhg-' x'  ' WЂh__ ' " @   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 F_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    , oD@/DD@o'd' 'tL'WL' !(WЂ'WL'L=WL' WL %WL'  CLg7'xWL'p Ղ(WL'LWL'=WЂ'' ' d'XP''WL'$pWP'`PL  oD@PWL'oD@/DD@o_' #oD@/DD@o'  oD@/DD@oLXЃ$ W' x' dWЂhg-' xL ' XւPCЂTтX /' L   ЂhǪPǪTǪX_ L ', (' '  ',d' X\g؀NW' ' P+g؀ZNW' 4\ 7W\' W\' p g' x_TW\' Wg ' oD@%F %N 0 )DOWHILE( /DD@oL'dWЂhg-'xWЂhǩL g'x'' 'oD@/DD@oWЂh ] W (lptW$ 2g؀NW' 4WЂhW$' WЂhW(' 7WЂh,g؀LNW' 4WЂh+g%NW' 4ׂWЂhhoD@%F %N 0 %F %N %F %T %V %V %V %N %N /DD@oL' WЂ'WЃ$C 'xF' L'p  CLg'x_LՂ, ' WLoD@/DD@oLЂ| gT',PЂЂ@W'T'XWT'WP&g؀bNW'4WT'*g ?NW/WP'?NTWP'?NTW 1WP'pGLWP'WPg'xg'x_oD@/DD@oL'd'XP_9WP'pGL g'x_WP'WP'ToD@/DD@oWЃWЂ' ЃWЃ' oD@/DD@oՂ*'  WЂ'   '  ꀩ'd' TL'L_ꀄWL'p WLoWL'p %WL'WL'WL<Ђ %WL'WL' WLg'x_oD@/DD@oL'PTNTՂ Ղ(WL'X'(dL'XWX'X $'\ǩXT_C\TՂ ,WЂ'' 꿁WT_WPoD@/DD@oL W'PCT'$@`'$ G(WL'$\''$d\Ղ= yLW\'$\Ղ)&W`'$T('0dL'$ꁏ\ $'F_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 FF(F,F 0Հ@"0T,P(LHՀH"F, D/ g4o FF(F,F 0Հ@"0T,P(LHՀH"F꿶'o2"    @   X   PbE2KF_BUIR1983-09-02 00:00:00Topexpress F77 2.13H F_BUIR F_BNXT F_BNEW F_BSET F_I997  F_HANDLER  8TF_JUCM|F_ICMN    P, F_IIFR F_NULL LTF_BUIR /o _"","F(_"F(ܰ'o2"PbE2F_IIFR1983-09-02 00:00:00Topexpress F77 2.13L F_IIFR F_I996  F_HANDLERNNF_IIFR /o _  N# "'o2"PbE2#F_BUIW1983-09-02 00:00:00Topexpress F77 2.13> 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_BP$dǩ\T_CdT,WЂ'$YWT_\_EW\'$W\'$ g'$xWP2 ǩ\W\'$pX'g'$x Xm|ـ '$ W\'$'0dX'$`PW'$,WЂ'$'$ '0dX'$`PW'$Ղ,'0 '0dWЂX'$`PW'$)WЂ'$'$ WPoD@/DD@oLP_ꀕWL'WL' WL'ukWL'XL'TL_IP =WL' WL6 WL'h g'x_WLoD@/DD@oL T'PXNX_ '\ `WL'$WTLg'$x_WЂ'$W\L> ǩLTꀭ_ '$d W'(h',l'0pdWh2 ǩdTשTǩl T$l_WXǩhlXWpǩd`p`WTTTSWXǩ\`_WPoD@/DD@oLPT`_dh_lp_t_|___ J/DD@oL & "'p WL'X g 'xoD@L )p$WP ւtWPWP g'PxWP ւtWPWP _ 'P|WP |tttWt'Px'PpUhJW`'P +L '1X\WT2'9X_\WT:g'Pxh_hL D` 'eX_\(W`'Pz 'AX\g)'PxWTBA` 'gX\(W`'P9 'IX_\g3'PxWTJtWh'Pl`-L 'aX_\T"'cX\WT*7W`'Pp W`'P7W`'P WЂ\W`'P W`'Pz?0W`'P W`< >  WЂg='PxdL 'QX'\TR'YX\WTZuW`'P YL *tl 'bX_\ '!X\WT"(tl 'dX_\ ')X_\WT*gG'PxꀱhJW`'P +L 'X\WT'X\WTgQ'Pxdhg['PxOWh'PlW`'P$ &\L XWT_' XWT ge'Px Ђ` W`'Pd Wd'Pp Wp'PW|'PXgI'h,\&g؂.NW'P4` (W`'P *g؁NW'P4 d (Wd'P *g؁NW'P4 h TWh'P2 *g؁NW'P4 \)Wl'PC *g؁dNW'P4 p (Wp'P *g؁1NW'P4  \jWx'P *g؀NW'P4W|'PC _ 4'*0W'4*g؀NW'P4 # C W '*4g؀qNW'P4` W`'Pd Wd'Ph Wl'Pp Wp'PW|'UTF_BENDF_BNXTtF_BNEWCF_BSET0F_BPRD F_BPWR F_IERR  F_HANDLER F_ZHMVF_BPWR /o $׀$$ꃗ/$ꃄ/ F(F,F0F 4א40( _S/ F8FgؒpNW3gؒQNW(gؒ.NWgؒNWgؑNWgؑNWgؑNWgؑNWgؑ\NWgؑ1NWgؑNWgؐNWꅺgؐNWꅯgؐNWꅤgؐNWꅙgؐ[NWꅎgؐ(NWꅃgؐNWxg؏NWmg؏NWbg؏NWWg؏YNWLg؏.NWAg؏NW6g؎NW+g؎NW g؎NWg؎gNW g؎@NWg؎NWg؍NWg؍NWg؍NWg؍NWg؍fNWꄽg؍CNWꄲg؍NWꄧg،NWꄜg،NWꄑg،NWꄆg،NW{g،iNWpg،BNWeg،NWZg؋NWOg؋NWDg؋NW9g؋NW.g؋tNW#g؋UNWg؋.NW g؋NWg؊NWg؊NWg؊NWg؊_NWg؊8NWg؊ NWg؉NWꃵg؉NWꃪg؉NWꃟg؉mNWꃔg؉>NWꃉg؉#NW~g؉NWsg؈NWhg؈NW]g؈NWRg؈hNWGg؈1NWNW)g؄NWg؃NWg؃NW_Tg؃NWWLs S d}ڀ KXer &1IT_ju%0;FQ\gr} "-8CNYdoz *5@KValw'2=HS^itXЃ TzF'(\ЂЂ@``z WЂ W`Wd`hЂ WЂWЂ',0ЂpЃ',hg؁*NW',Wdplg-'4 lplo'ހxNxT g؀NWTz g؀NW g؀NWLWx',PWX',',Tg؀ZNW',HTz ЃЃ Ѓ(Ѓ,ЃW\',0T',Ѓ 0  '7&0Ձ "FՁ"FЀր(z'o2"  edit descriptor cannot handle numeric list itemIDEFG x T0p ld 01  , (   d p x (  ,     P  PbE2/F_FRND1983-09-02 00:00:00Topexpress F77 2.13 F_FRND  F_HANDLER  |F_ICMNF_FRND /o N$ǀ_ꀂj5,z0,߰$_(_U0('9& 0((_"zO$zN$(1,'o2"PbE2F_FBFA1983-09-02 00:00:00Topexpress F77 2.13; F_FBFA F_BPUT  F_HANDLER==F_FBFA /o *"F zl_'o2" PbE2F_FBFS1983-09-02 00:00:00Topexpress F77 2.13; F_FBFS F_BPUT  F_HANDLER==F_FBFS /o  "F zl_'o2" PbE2F_FBFZ1983-09-02 00:00:00Topexpress F77 2.13; F_FBFZ F_BPUT  F_HANDLER==F_FBFZ /o 0"F zl_'o2" PbE2F_I0651983-09-02 00:00:00Topexpress F77 2.13F_LCHNF_LFCEgF_LFCIfF_LFNVF_I101 F_I065 F_IMJI F_ZSTE F_LSKP F_BGET F_BNXT F_BPRD F_BPWR F_BUSR F_IESV  F_HANDLERIIF_I065 /o / g$o FFF F  H D@<8"_\ՀL"F _ꂴ/ FTFX: _T% _TՀ`"F\XT_h ߐT_X_"F z _"F j_"Fd/d< ߐT_,d ߐT_꿩 d꿝\__.dЀh'd XT_ꁼ(dZՀl"Fd,d ' &d-Հ|"Հ`"F\X_6WPoD@/DD@og؂@NW' g؁iNW' g؀NW' gNW' oD@The default options are W2X0-T-6-7. EXAMPLES f77fe prog f77fe prog -list listf -fcode progfcode -opt +6W70 -identify T Enable tracing Wn Set warning level to n 6 Select FORTRAN 66 mode Xn Set cross-reference width to n 7 Strict FORTRAN 77 and fcode is sent to "fcode-tmp". COMPILER OPTIONS Compiler options are specified by the keyword "opt". A switch option must be preceded by + to enable it or - to disable it. OUTPUT OPTIONS -list generate a listing -list filename send the listing to a file -fcode filename specify fcode file By default, no listing is produced, errors are sent to the screen, 0?JpJI0I\HGG"P 90F-MAIN 19-Sep-85 /DD@o' \8ށ<_ЂgQ' h "Հx"F  l  0$_ Հ"@J_'o2"LD input data not REAL t   x $  t p p l $   tPbE2|F_I0671983-09-02 00:00:00Topexpress F77 2.13g F_I067 F_IMJI F_IBRN F_ZSTE F_LFNV  F_HANDLERF_I067 /o "|> "Հx"F  l  0$_ Հ"@J_'o2"LD input data not INTEGER t   x $  t p p l $   tPbE2wF_I0681983-09-02 00:00:00Topexpress F77 2.13g F_I068 F_IMJD F_IBRN F_ZSTE F_LFNV  F_HANDLERF_I068 /o "|> "Հx"F  l  0$_ Հ"@J_'o2"LD input data not DP t   x $  t p p l $   tPbE2F_I0691983-09-02 00:00:00Topexpress F77 2.13K F_I069 F_IBRL F_ZSTE F_LFNV  F_HANDLERf(fF_I069 /o "|" "$"F  m <_'o2"LD input data not LOGICAL M   $ PbE2F_I0701983-09-02 00:00:00Topexpress F77 2.13 F_I070 F_LFCE F_LFCI F_IMJR F_IBRN F_ZSTE F_LFNV  F_HANDLERF_I070 /o " } y$"Հ"F((l( 0,_(Հ"@OՀ"Հ"F((꿸( 0,_(Հ"@꿚_"_'o2"LD input data not COMPLEX    $  ,  |    ,  ( |  ,  ( |PbE2\F_I0711983-09-02 00:00:00Topexpress F77 2.13  F_I071 F_LCHN F_BGET F_BPWR F_BPRߩ N ߩNߩNߩsNߩ_NߩK N ߩ7$N$ߩ#(N(ߩ,N,ߩ0N0ߩ4N4ߩ8N8ߩ F_I077 F_BPUT F_LCHK  F_HANDLERHHF_I077 /o " T"F F"F o2" D @ PbE2F_I0781983-09-02 00:00:00Topexpress F77 2.13 F_I078 F_LFPW F_BPUT F_LCHK F_LWID F_IMSR  F_HANDLERF_I078 /o \Հ`"FՀp"@l\Հ"FxՀ"@Հ"(\Հ`"!nWЂhߩ |ڀ gЂ(NW' _' zހ<' $' oD@%F %N 0 /DD@oЂtڄ' (Ln/DD@oL4gRSgILgDEgL>gC8gH2gN,g?'WL'pS l|ڀ oD@h/DD@oL-gVKgADgX=gP7gF1gS+g?&WL'S l|ڀ oD@R/DD@oLgE5gN/gF)g?$WL'S l|ڀ oD@f/DD@oL-gAKgLDgC=gG7gE1gI+g?&WL'DS l|ڀ oD@ /DD@oLP_T\_XWX CL`ꀿW`d hXl'TpNp}WpttxΘ|PlzWlW|/WhXxΘ  z_O|l? Nc_CtpWpWp`Wpd``AX\Xڿ'WToD@Ђ WЂ'0g؃NW'WЂP'PWPT XT ' WXXd`WXX`'( `d`iWXX \XΘ`g '$ \``mWP'0pWP'4tWP'8 tpg؂NW' E\ւt\g؂NW' _ C \WTg؂NW' WTTTWPPPg؂hNW'_WЂL'PWPT X\' WXX`g '$ ``pWXXd`WXX`'( `d`iWP'0~g؁NW' A\ւt\g؁NW' _ \WTg؁NW' WTTTWPPP1g؁YNW'WL'0' ِI6ʀZꀳg؁#NW' ^g؁NW' Lg؀NW' :g؀NW' )gp' x l|ـ ȶЂg؀xNW'  CЂg؀ONW' Ѓ(WЃ' ' Ѓ0gЂ(NW' gЂ$NW' oD@ %S Compiled (anon) Compiled Block data Subroutine Function Program   %I5   %C Labels  %I5 %C/%C/%C Symbols /DD@o' َ6ڀJ' Ѓ0 *Ѓ0g؀uNW' Ѓ,WЃ' w' Ђg1NW' Ѓ g@Ѓ,_g`oD@Total workspace used %N %N program units compiled. /DD@oLP4'ހ`N`d g؀}NW g؀oNWdW`'P4'ހC`N`PdP g,NW gNWdW`'oD@s  %N warning%S. s %N error%S. /DD@og{' xoD@/DD@o ' dL 'P_TLg'xWPש'$ ('Ղ T* WP'TTlЂWP''G Ѓ %_ 'XǩPǩLש-WP'WLP$gNW'4oD@ %F %N %N /DD@o'ւXNX_ 'dWЂh g'x' 'tP L'$}WP'HWP'TЂ _ЂFՀ",\Հ`"FՁ"Ձ")\Հ`"Fo2"` \  Xp  X \ |  x  l    X   x | PbE2F_I0791983-09-02 00:00:00Topexpress F77 2.13C F_I079 F_BPUT F_LCHK  F_HANDLERL LF_I079 /o  "׀Θ\"Fz^o2" H H PbE2F_I0801983-09-02 00:00:00Topexpress F77 2.13 F_I080 F_BEND  F_HANDLERF_I080 /_"Fo2"PbE2F_LSKP1983-09-02 00:00:00Topexpress F77 2.13H F_LSKP F_BGET F_BNXT F_BPRD  F_HANDLERJJF_LSKP /o _"Dz _"D_"F  R'o2"PbE2F_LWID1983-09-02 00:00:00Topexpress F77 2.13t F_LWID  F_HANDLERvvF_LWID /o SNzj NǀzNǠcNǠ'o2"PbE2TF_LFPW1983-09-02 00:00:00Topexpress F77 2.13 F_LFPW F_IMSI F_BPUT  F_HANDLER$F_LFPW /o ,0 "F. "F0 "Fnz- "FN3jjv0 "F|"Fzg. "F׀|"Fzgї"F. "F_|"Fzg׀"DE "Fz- "FN#+ "F0 "Fm|"Fzg_'o2"   PbE2^F_I0171983-09-02 00:00:00Topexpress F77 2.13d@F_I024 F_I017 F_BEND F_ZSTE F_BPRD F_BUDR F_IESV  F_HANDLER8F_I017 /o   " "F_/_"@z0"_"F4'o2"Unformatted input record too short( l"$ h0 (PbE2F_I0181983-09-02 00:00:00Topexpress F77 2.13;F_I050 F_I018 F_I989 F_BSRD  F_HANDLER D0F_JCMNDF_I018 /o /o "F,$"Fo2"  $  @PbE2(F_I0191983-09-02 00:00:00Topexpress F77 2.13I!F_I053F_I021F_I051 F_I019 F_I990 F_BSRD  F_HANDLER P0F_JCMNPF_I019 /o /o /o /o "F,$"Fo2"  $  LPbE2F_I0201983-09-02 00:00:00Tog'xaWP'TWP'\WP'H_WP'X)g'x l}ـ ~WXXWXmǩTЃWT'0gNW'oD@arg list /DD@o_LWЃ$C &'x' G' L_P_T'\XNX' '' G'9TT ŀ LWXǁTŀ TP꿦Lւ<ܟ҂8g8'$xWXǩPWX'$pXgB'$xWЂ4<ששǩƀ_ЂT4Ђ8W'$,'$jL g/'x' 'oD@/DD@oL_P_Ѓ '-PՂ  _' _'WPoD@/DD@oLP_Xւ8`'$ւ8`'$'$gWЂ<QL ꁢWЂ@d_hWhCd_hhpЂg'(xЂ_ӂ0_^'$T'$Hg؁]NW'$\Pʀ/PЂ@dЂ<hЂ@ǫPP׫<d'  GD'  GO1oD@g' x/oD@KՂ g' x'  G'['  XʁPnXXT_'  WЂG)zG G' G( BO G* AG, G/ G= 꿧', '  _` '$ Ղ0 pdWЂ'( (g c`Ђ0C`'( ddLՂH,d`h',Gpexpress F77 2.13;F_I052 F_I020 F_I988 F_BSRD  F_HANDLER D0F_JCMNDF_I020 /o /o "F,$"Fo2"  $  @PbE2+F_I0221983-09-02 00:00:00Topexpress F77 2.13UF_I054 F_I022 F_I989 F_BSRD  F_HANDLER \<F_JCMN\F_I022 /o /o װ_!  ",$"Fװ 80"Fo2"   $  X0   PbE2F_I0231983-09-02 00:00:00Topexpress F77 2.13)F_I055 F_I023 F_BSRD  F_HANDLER+ +F_I023 /o /o "Fo2"PbE2WF_I0251983-09-02 00:00:00Topexpress F77 2.13d@F_I032 F_I025 F_BEND F_ZSTE F_BPRD F_BUDW F_IESV  F_HANDLER4F_I025 /o   " "F_/_"@z0"_"F'o2"Unformatted output too long( l$ h0 (PbE2F_I0261983-09-02 00:00:00Topexpress F77 2.13:F_I058 F_I026 F_I992 F_BSWR  F_HANDLER@4@F_I026 /o /o $"F,(0"Fo2"   <0 (PbE2F_I0271983-09-02 00:00:00Topexpress F77 2.13H!F_I061F_I029F_I059 F_I027 F_I993 F_BSWR  F_HANDLERP4PF_I027 /o /o /o /o $"F,(0"Fo2"   L0 (PbE2F_I0281983-09-02 00:00:00Topexpress F77 2.13:F_I060 F_I028 F_I991 F_BSWR  F_HANDLER@4@F_I028 /o /o $"F,(0"Fo2"   <0 (PbE2F_I0301983-09-02 00:00:00Topexpress F77 2.13VF_I062 F_I030 F_BSWR F_I992  F_HANDLER\D\F_I030 /o /o $"F04"@,0 ,Հ@"F(o2"    X4  0  ,PbE2F_I0311983-09-02 00:00:00Topexpress F77 2.13)F_I063 F_I031 F_BSWR  F_HANDLER+ +F_I031 /o /o "Fo2"PbE2YF_I0491983-09-02 00:00:00Topexpress F77 2.13`<F_I056 F_I049 F_BEND F_ZSTE F_BPRD F_BUSR F_IESV  F_HANDLER4F_I049 /o   ""F_/_"@z,"_"F0'o2"Unformatted input record too short$ h dhdi'$ W\' T'd`N``WЂD'<g'xL C'$@\'$ Vтꀏ҂ꀈ_тꀁ_҂zЂs'$ փY_ЂW\'$ToD@WЂ JG G G JG G G" 꿱g؀NW'$\ zՂNo'$@`'0 '$ M'0 '$nՂ(.'0 '$W`'$ToD@W\'$ToD@FUNCTIOHJ"[90BCPLSYS /gW NW.X-_J|O|_HONg(O_HgHL o _ЀT' W ' _oN3ЀTN#2Y|  ( \_'ڀX N 2|Nנ'Ҁ\Oyܰ Z   WH#_2'(_ IΘLNW4[FAULTG gUUnset GLOBAL calledɢ[START g꿬No start() routineq[GETVEC NW= l"׹WlNWlz_[FREEVEC ="׹MAXVEC /DD@o'xH>LP"W\NWLoD@[GLOBIN NWH yolWHK| gXҿ_X 4_ W!CYXhпb/ҿ]NWY( C!'Os[APTOVECg@@NW'B[GETBYTEX[PUTBYTE[GET2BYTY[PUT2BYT[GBYTES _NW@Xw[PBYTES JNנx[LEVEL gL[LONGJUMgH4o ׸[STOP T#[MULDIV N3W {NN3('/ NctN#l[RANDOM  WЁc C 1*[MODRANGNN[CHECKSTALNЀXJ7BN'p4gStack overflowȠ[PROFILE[OSSTRI gΘH[OSRDCH [OSWRCH _[OSFILEB=Q% "׹W[OSBYTE ?!N&lW[OSWORD ?$N&lW[OSCLI gΘHl Nc[TKOPERA'/DoW> W8 &.6o? Nc675 [\fgt%&]^),*@ lZ+#X Dkhedi8k90BCPL_BC 20-Sep-85 /DD@o4 W4 _WD=؍׹Lz'W4=؍׹ L=_L؍׹W4ǩLWLoD@/DD@o' oD@/DD@oL= ؍A׹oD@/DD@oL' oD@/DD@oL=؍׹L4oD@/DD@oL=،׹L8oD@/DD@oL،'BoD@/DD@oL،'&oD@/DD@oL،y' oD@/DD@oLPW'T_JWLNWLΘ= P׹XzWT'Xl_WTǩX_ oD@/DD@oW4' &_4oD" d, $PbE2RF_I0571983-09-02 00:00:00Topexpress F77 2.13`<F_I064 F_I057 F_BEND F_ZSTE F_BPRD F_BUSW F_IESV  F_HANDLER0F_I057 /o   ""F_/_"@z,"_"F'o2"Unformatted output too long$ h d, $PbE2* F_T0011983-09-02 00:00:00Topexpress F77 2.132HISTOR'BACKTRTRACEF_T008F_T007uF_T006F_T005=F_T004F_T003F_T002 F_T001 F_TOUT F_TNUM F_I900 F_JPS1  F_HANDLER F_ZHC2 F_ZHC1 F_ZHMV 6pF_TCMN6F_T001 / "@_/o _ 2  ՀH" ' &\qXрhՀh"_ꄶՀ"Fx рx \Ԁ{X_ӀՀ"րՁ"_r/ F gЁo F__?Հ"FxWЁ Ѐ@" рx \Ԁ{X_Ӂ4Ձ4"րՁ"_/ FPgЁo F__ꃾՀ"FxցPpՁl"FT сT \ԁWXg рxc1.ր{_ӁՁ"xց|tՁ"_U/ FPgЁo F__"Հ"FxցPpՁl"FT сT \ԁWXg рxc1.ր{_ӁՁ"xց|tՁ"_ꂹ/ FPgЁo F__ꂆՀ"FxցPpՁl"FT сT \ԁWXg рxc1.ր{_ӂՂ"xց|tՁ"_/ FPF$ 2   ' &\qXւ$<т0Ղ0"_ΗցPpՁl"FTWЂ$Ѐ@" сT \ԁWX҂Ղ"DւH@Ղ"_/ 2  ՀH" ' &\qXтՂ"_=тՂ"րՁ"_/ F䔖_/ FՂ"ЁTՂ"< Ճ "'у Ճ "րՁ"ЁT8 J_ꀮ/  Ճ8"ꀜՃD" J T5ЁT' &\qXуPՃP"րՁ"ЁT2TF XЁT5ЁT' &qу`Ճ`"րՁ"ЁTցTXzG'o2"History information:No history information. Stack corruptBacktrace called***T leaving <- at line ***T call of -> ***T DO at line ***T ELSE at line ***T THEN at line (***T at label ) (***T entering Tracing enabled? ***T entering main programH < <0 P g  l  y        x H.(     |-@/DD@oW8'  oD@/DD@oL=؋׹WL'oD@/DD@oW4oD@/DD@oLP=؋\׹WP_oD@/DD@oLP=؋(׹_oD@/DD@oLPN'WL'ً,6CPoD@/DD@oLNWLΘ= ؊׹lj_oD@/DD@oL=؊׹WoD@/DD@oLPg؀NW' p',g؀NW' t'0g؀NW'tPγW'ހ^NoD@WЁ\CPXT*WTCLXH\ЁǪTWЁǁ\T\ TXTToD@ error: output:input: /DD@oLPT&X.\ց4`$4WЁ'$0LP 'hdNdg؁NW',L Pg؁NW',?Pg؁wNW'0d'_*'N( WP'0ى76dL\XTWL',',P_dXTXT|G?Nh WT WTlXHG^XlGPh .WT_'0Lk?Tk  TT~Tg@kT #Tdd g؀_NW g5NWTN?'('$`4oD@Global number not available Is global %N defined? %X8: %N: ++++ ERROR /DD@og@' DoD@/DD@oLPT&X.\NN /`N0d= p5l-%h؇*׹tTڀ WPǩh\ڀ WXǩldڀ W`ǩpWtoD@/DD@oL'XTNTT'_*'PN( 'ن6TgNW'oD@(%S) /DD@oLPXTWLXTTPTTzgoD@/DD@oLPTX_\T`W\CLP\\`\iCTXΣ\`WP\\\`\qWXoD@/DD@oW4oD@/DD@oW8oD@/DD@o_L_P_T'P 0 G9ڀS"'l_ꀏTT'P0WPG fG ^G VG+ SG- H꿵#WLc CPc0L'PP0 9PPT N#LL'_lWLoD@/DD@og '  oD@/DD@og '  oD@/DD@oLP'XTNTNcL_Lz PLWw NcT3 [C Pg 'T  nLzg-'L W W CT0W'P  z`oD@/DD@oL_'oD@/DD@oLPڀNW'gkLX' oD@0123456789ABCDEF /DD@oLPڀNW' kLC0' oD@/DD@oLXTPWLXP' PTPioD@/DD@oLP'WLXPXTg ' TXTooD@/DD@oLPNWsT 'Pg cTLWP'oD@/DD@oLPT&X.\'P|N|XIWLX %&|_ _LW'XꀞW'\  u'޾ . gց ր ր ր d X , $ ,  (    ) | ` @ ,       4H 8 @ 8 <l X ` @    @  X  8   $ , X l d   X    t   X      X   4 X ( x  @  X @ X  @   @  T @ 8 < $   @8 0D <T H  Xd H  PbE2F_TOUT1983-09-02 00:00:00Topexpress F77 2.13 F_TOUT F_JSW2  F_HANDLER  F_TOUT /o "o2"PbE2F_TNUM1983-09-02 00:00:00Topexpress F77 2.13J F_TNUM  F_HANDLERL LF_TNUM /o  ' g0(wγ&Y'o2"PbE2 F77_RANDOM1983-09-02 12:34:5632016 ZASM 2.11q1RND01 SETRND  BinaryTime  F_HANDLER~~F77_RANDOM /o o2"N '/Χ/C Χ"C NW> '2OMbrs x_"CNo emen"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' AJ'޿ WL090WWC cAW'\ |^WGOz(G$ iGC hGI tGN r7 WGS 9GT 7GU YGX : W'L ھoD@/DD@oL aGzCAcaWLoD@/DD@oLP'TWP'TWoD@/DD@oLPXΘTXc\`TzWTWXd*WLX`PΘ`'( h \ `d`T\_\zoD@!#'+/258<@CEGJ>|;",-. /<0XLML;d<=>_,?0F0ElN$ O P Q RH  X   @ x90BCPL_De 25-Jul-85 DecodeI/DD@o'xHLPNWLNP=% l؂9׹WoD@GetStri/DD@o'xHLPT&X.\N /NWLΘ=5 `-%؁׹dWXǩ`WdoD@GetStat/DD@o'xHLPNWL= l؁׹WoD@GetInte/DD@o'xHLPTNWL=% l؁8׹WoD@GetCard/DD@o'xHLPTNWL=% l؀׹WoD@GetNumb/DD@o'xHLPNWL= l؀׹WoD@Substit/DD@o'xHLPT&XNנ'NWWLX=- \%؀K׹`WTǩ\W`oD@DecodeE/DD@o'xHL= ׹WoD@MPSPVP[P_PcPfPjP" /90BCPL_Pr 25-Jul-85 Verbosi/DD@o'xH=؀z׹WoD@Identif/DD@o'xHLP= ؀D׹WoD@HelpReq/DD@o'xHLP= ׹WoD@mqsqxq" $& <(  @    l #  ! p';p      G@    l #  ! $ .Identify Fortran Command file 1.10/03 $ .key source/e-f77 list/s listfile/1 opt/k[+] aof/k/1 map/s mapfile/k/1 $ .Help Fortran Compilation $ .Help Keywords $ .Help $ .Help -Source Source file $ .Help -List Enable listing $ .Help -Listfile List file (h #z 6hqp;ǡ( W8' A&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߹"إ0"إ01"إ&b"إ?"إ7"إ%"إ3'"إ3["إP"إ'"إK"إ1T"إ>"إ>"إ5"إ1:"إ l"إ x"إ"إ"2 `}|h}|dp_t_xإ߸_إ"׵ ߸߻إ|h"׵ ߹"׵ إ "W d׵ ߸إ إ|d"׵ "__إ|h"إ|d=" __ إ|h"إ|d=" _߹إ|h"إ|d=" ꀯ__إ|h"إ|d=" ꀊ_߹إ|h"إ|d=" e_߹إ|h"إ|d="=_߹ إ|h"إ|d="إ|hإ$߸ܥ"`22 "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 '-lst used as default) $ .Help -Opt Compilation options $ .Help -Aof Alternative output file name $ .Help -Map Produce storage map $ .Help $ .Help For example: $ .Help f77 MyProg -list $ .Help $ .Help see 'f77fe -help' or 'f77cg -help' for more help. $ f77fe -opt $ f77cg -opt -aof osLib.f77*,:$.PanosLib.ifp-lib rw/r $ .Delete Program$Force $ .Delete Program$Abandon $ .Delete Program$Confirm $ .Delete Program$Identify $ .swd-lst used as default) $ .Help -Opt Compilation options $ .Help -Aof Alternative output file name $ .Help -Map Produce storage map $ .Help $ .Help For example: $ .Help f77 MyProg -list $ .Help $ .Help see 'f77fe -help' or 'f77cg -help' for more help. $ f77fe -opt $ f77cg -opt -aof osLib.f77*,:$.PanosLib.ifp-lib rw/r $ .Delete Program$Force $ .Delete Program$Abandon $ .Delete Program$Confirm $ .Delete Program$Identify $ .swdCopies 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 filإ  /إ  &߹"إ  إ* 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_߹"p}|txإ|t"z߸ إ_"" إ !"إ|t"_,"p2 p|txإt"j إ /"إt" ߻;""p2  "2 x|< _x=ߺ"xx 8BlWhGA|hX8C@hBh8JKlWhGA|hWhGA!hX8c `ꀠġ| ġ"9lWhGGA|hWhG/?Ah_88lWhGA|hWhGA?hlWhG?AhY C |_8%Y C8 mW |JG!Z)8ǡW_h&h| 02L0hdlWhG:A _C"_J"_ "߹O"٥l"إ""" d}lإ Sp" Wz߸lإ __"p߻m"  3p߻u" `8p=߻}" /8`f_0 5/0qd2 (\}|}h٥|" W_0)Z)*| 0g)إ "ꀧ6ld18) ǡ*|i)"8#0WdGЗhd9A إ " إ "߸l"d 6dX %߹"߸ uh" XZ"\2  ġ" ġ|إ|"="0X |,l|,d}̯`إ |" tz߸إ _"|_" T(|-_إ)l" x_05xإ)d"jإ)dإ)l"  إ "xP_8ǡ(ud/8Pex إ "8ǡrإ)dإ`"x_"x +xP_8ǡȺ`/8Pe߹"06(GT|"X2 8P |,`إ/|" Wz߸إ _"|_"t|إ #"|إ ."l|ߺ9"h|"t  lh 8_8N9t8 &0 إ ?"إ K"߸""edestination 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 existBeforeAfter|LitodayAMPMSTNDRDTHMONDAYTUESDAYWEDNESDAYTHURSDAYFRIDAYSATURDAYSUNDAYJANUARYFEBRUARYMARCHAPRILMAYJUNEJULYAUGUSTSEPTEMBEROCTOBERNOVEMBERDECEMBER"h8 N0 إ Y"إ e"__إuTX\"W4\ _s" ߺx"" 8 Q0 إ ~"إ)`"G"G"إ "إ)`""l8 Q0 إ "إ)`"G="G-"إ "إ)`""P2 2_߹"2 "2إ " "+ "N "+ "N "2  _"2 ߺ"2إ " "2_______ ߸"2إ "2إ "2 2إ " " "2 W >Zu/ >Zd/?`>ZS/\?> #8N%" $إ "إ "إ "_ ">t_06Z."0tm $إ "إ "إ "߻ "2إ " " " " " " "$ "( ", "2$2_2__إtx"|x2 x|< =إ "xx2إ " " "_ "_ "_ "2 "2  ׁ_8%_ǡ5"8ǡW_<2 _إإإإإ>إإإ"_إإإ>إإإإإ"____إ___إ"__إإ0إإ0إ_إ"2߻"  ߺ" ߹" ߺ" _"  _" ߻$" _," ߺ1" إ7"  إ F" $إS" (إb" ,إ r" 0إ" 4إ " 8إ" <2_߹"  ,00 8DP00 0 000%0+0/ H\22 `222< |2#2(2%52+:2/>ShowExceptionsPanosMCICharCodesDecodeArgProgramSystemTypesStringsStorageOSStorageStoreIOShowMStubErrorCrudeIOShowActionPANOSTypesTimeAndDateFileGlobalStringWildBBCVDUstuff  ~ w)<"  ? 4 R CZ"B ..Lj q4|s\L B 7        4 O /     gH   ' 0   7 F f m    \       Tct&/8U H%"""""""""" " " " " """""""""""""'6l |_@hGp'Bh2/   o 'p2" 222'2'22'o2 "*2: 2 AWAAA 2_"oYWC@ 22_ 24   7Cw  !%)+-/   <47;  )agmB q"4Z| = 4  @DHM \     P f 7 F; 4S " gU O /Y] `ei n r" ' m4 7 F u  'z  \}/ 0 H@%+%MD8/&U/4 /}/Ld; X lModula-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.GFTUPB8DPplALLOCATE failedDEALLOCATE failedShows selected system parameters & variables*N*NKeywords: (minimum abbreviations in capitals).*N-TO : Where to send output to*N-ARGuments : String passed on to one of the commands decoders*N-SET : Output in format suitable for re-setting*N-COMmand : One of the following*N*N DATE Current time and date*N TIME Current time and date*N KEY -Numbers Selected softkey definitions, all if none selected*N TABS Tab stops*N VAR -NAME Selected global variables (wildcards allowed)*N VDU -MODE Current screen mode*N VDU -BACKground Current screen background colour*N VDU -FOREground/-COLour Current screen foreground colour*N VDU -PAGEd Page mode true or false*N DIR Working directory*N*NExamples:*Nshow date*Nshow var file* *Nshow vdu -arg mode*NCOMmand/a SET/s ARGuments/lShow utility version 1.10/09COMmandSETARGumentsARGumentsdatetimekeytabsvarvdudirUnknown command :<Error in Warning from : '*N, detected by '? (Y/N) : trying to read response to prompttrying to decode command line argumentConfirmForceAbandon NIL Ltrying to get working directory$ set dir *N$ set date $ set Key "Numbers/?/coh me, oh myNumbersNumbersNumbersNo tabs set$ set tabs Tabs are: , +NAME/?[*]oh me, oh myNAMENAME$ set var ""*NMODE/s FOREground=COLour/s BACKground/s PAGEd/soh me, oh myMODEFOREgroundBACKgroundPAGEd$ set vdu -Mode $ set vdu -Paged TrueFalse$ set vdu -Foreground $ set vdu -Background   RawVDU:BlackRedGreenYellowBlueMagentaCyanWhiteFlashing-blackFlashing-redFlashing-greenFlashing-yellowFlashing-blueFlashing-magentaFlashing-cyanFlashing-white3"(g<p3440afffaffTP|(8 _DecodeArg DecodeArg_ProgramProgram_IOIO _TimeAndDate TimeAndDate_FileFile_ErrorError XBlockWrite XWriteByte XArgumentInit XGetStringArgXSetWorkingDirectorySetErrorInformationStopLX`Ce, "إ "2Θ إ*"_9 5"8ǡ;sإ*"إ "2إ"إ "إ*"إ "إ*"إ "إ4"إ "إ*"إ "إ/N"إ ~"إ "إ"2إ__إ " ߸߻إQ"_"W_N7 EWΘP_N7WWkإQ "" 22 `"""""""""" " _"V"22     K#'+16 6 pExecutes a BBC * commandBe VERY careful - * commands can crash Panos *Keywords: (minimum abbreviation in upper case)-Command * Command to executeEG. Star Compact 2Command/L/AStar utility version 1.10/01Command@ d$ .Identify Help utility version 1.00/01-02 $ .Key Subject/L $ .Help MAIN UTILITIES $ .Help $ .Help NAME FUNCTION $ .Help Access Sets file permission attributes $ .Help Catalogue Catalogues a file or directory $ .Help Configure Sets system start-up parameters $ .Help Copy Copies files $ .Help Create Creates files or directories $ .Help Delete Deletes files or directories $ .Help Echo Prints its arguments $ .Help Edit Panos editor $ .Help Link Panos linker $ .Help Logon Log onto a NFS fileserver $ .Help Rename Renames files or directories $ .Help Set Sets Date, Time, Global variables, etc $ .Help Show Displays Date, Time, Global variables, etc $ .Help Star Allows access to BBC commands $ .Help $ .Help For Help on arguments type Help Name (e.g. Help Set), more $ .Help information about the facilities available can be found in the $ .Help documentation, in particular, in the 'Panos Guide To Operations'. $ .Help $ .Help .Help Gives Help on built in commands $ -Help