Êé Copyright 1983 JRT Systems DISKSABZZZ=!9"1Ù=͇>͞?=H=&>8?*]DM*o(h*_####tq#p*>2*]"&*&*&"&<<"b"d`i"f*d^#V#"d{Lza*f^#V+*bs#r6*_w#w#w#w#ts#rx2"  * :G& s4!Tyʱw# y§ͷ* @ z{x* :G&"*g7ʱ!.#c T!s4yw# y*x2r"s!I"u*u"wͳ"uo*s{"yY*s*uDM*s"y_*u:rG*y*ukɯ<##N#Fx‰yxڰx¡yxڬ`i>`i>^#V><""`i" "*|/g}/o#T]"*ͳ*s#r#*s#r**ws#rͳ*ws#r*c *eDMz/W{/_`iDMxQyxg`i"e* kɯ G*5+V+^xɯ<4#+!,#c +~>>4q#p#s#r#w"L*O:Q_s#r#s#r#p*L*Rs#r#64"͜" <26#6#N6#F6#~6ʖ*I*"Is#r#q#p:4*l:ʲ:M\*M^#V ^#V+|^--  :!T$ͻ >2}xx*M >2#=)!-#c +"R> 2Q@!{:Q_!))͜>p#p#=c"|!ʁx͜*I"Is#r#s#r6#w#w#w#w*M:_>w#w#w!IN#F#N#F |½}½*e*cDMx/Gy/O *I>*}#"}g 9 {="C##^#V"E* :G_!*M^#V*C̈́ U C D E H L M A B D*M"A!"!"*#"*g͠7:s4:4 ª*6#6#"}*{4:4̜*s#r#"}*6#6*M ^#V##{ z  4~3 w * !" *M"  * ^#V##" {_ zk * ̈́ " z * w#w#w#w#" G >4^#V#x˜ yx ###=‹ y³ x³ q#p#* DMq#p###~ BK++++" !> ^#V#x yx BK++"( ##2G##= x% :G_> 2G*( ɯ<" N#F#`i" ^#V#~2 bk +*ADM͠ " ~+ zT `i"A`i" ~w ʉ * * * DM : @ z/W{/_`iDM`i" * ^#V+" q#p# * s#ro&))* * z/W{/_##N#F r+s"^ "` `i"\ |$ }xf *\ "b *^ |/g}/o#T]"d *\ DM*b (͘ !>N#F#xy yxʋ <@l !+#c _*g͠7*}4*^ " *` +" !] *_DM*a!x yx bk##^#V!ý ^#V* DMz {x* DMz {x*d DM r+s*M* DM^#V##z< {xN < . !/#c +++Gx!"I*A#"e>2 ͩ   $|#}3ʌ .   %Error: Insufficient main storage$:wͩ     | N %Warning: $|r#s#yr#sPAS40 LIB" " 2( !{" ͜" $* :m͎* N* * !+ N#F#z{xN#F#xLyx_######=?Ò ~# d* |* {" ͜" * ͜" * ""* z/W{/_`iDM|½}x`i"* z/W{/_""* "8a* :2(  é* **:Ow# ,":=2*]T " 8é:*  ~é:O* *w# ‰  Msg err $  PAS40.LIB error $}_}|og%Error: ._*cs#r#"c*]N#F#"]*c+V+^ s#r*c+V+^^#V͜s#r*c+V+^N#Fq#p2#2*c+V+^ s#r>2;xbye{PY!o)w))҇)ҏ)җ)ҟ)ҧ*]^#V#"]*a*cs#r#"c*]^#V#"]*_*cs#r#"c*]^#"]*a*cs#r#"c*]^#"]*_*cs#r#"c*]N#"]*c+V+^ s#r!"2:W"ÿ*cCh+F+N{+F+Nx/Gy/O N"c^#V#z/W{/_`iDMx^#V#DM͗^#V#"Y*"*:=2W*DM!h$c !h$c *c@ *ez{!3#c *]^#"]!^#Vu %7Qo4 J] RQzk k4 ao:^s  !!2!X!0U!!"" ""BGLQV[ #:}3)$.0As^*]N#"]*]^#V#"]*]N#^#V#"]*]N#^#V#~#F#"]`o*]^#V#N#F#"]`iyBK*aq^#V=i ^*]"*cDM*a*_!"][xڹzڶxªyx>>>>zxyx>>>>ʜ'  ʌ- {!E#ͻ !x!4#c *]~#^#V#"]*a#^#V=*c"as#r#s#r#s#r*a+~/G+~/O "c##^#V#"a^#V"]*]^#V#"]*]^#V#"]*c++~"c"]*]^#V#"]*c++~"c"]*]^#V#"]*c"c*ez{x*g7*g7."5y*]*c+V+^"c5:*c+F+N+V+^^#Vr+sxVx>3y>*]##"]*c++++"c*]^#V#"]z3>**cs#r#"c*c+V+^N#Fq#p*]^#V#"]*aN#F*cq#p#"c*]^#V#"]*cs#r#"c*cs#r#"c*cs#r#"c*cs#r#"c*]^#V#"]BK*c+V+^4*]~#"GO*cw# p#6#"c"]"]*c6#6#"cw# y5q#p#"c*]N#"]*cq#"c!w *c+F+N"cq#p!w *cw#w#"c*c+V+^w#"c*c+~ "c*cw# "c*c+F+N+V+^"cq#p*]^#V#"]*c+F+N"c*aq#p*]^#V#"]BK*c+V+^z/W{/_+V+^"c"Ã2z{xҷ>2z/W{/_`iDMy2x2BK*w# y»:* p#z*c"c^#V#~# *c+~/w+~/w*c+F+N"c+V+~w#zw*c+F+N"c+V+~w#zw*c+F+N"c+V+~w#zw*cDM+V+^z/W{/_~#zh`i"c*c+V+^z/W{/_"c#*c+F+Nx¦yxz/W{/_`iDMx/Gy/O "cx/Gy/Obk T] p#z"c*c+F+N"cx/Gy/O +V+^`i">"@T]x+w# x!*>DM*@ s#r>`>`>`>`>`>`2w*c+V+^"zz/W{/_T]+F+N`i"xx/Gy/O "c2|*xDM*zx¯yxڿMD>2|>2|xJE# x:|O*x*zDMx/Gy/Obk T]~ EJ#zO*x*zDM|/g}/o# DM JE x2O>Q>Q>G:wh*c6#6#"c*c6#6#"c*c+F+Nx/Gy/O #6#"c*c+6#6#"c*c+V+^z/W{/_~6#=*i|1+"i*c+V+^"cz+*cz/W{/_"c~_.4è*c+F+Nx/Gy/O ~O+V+^z/W{/_"c~_#"!>6#=x*|ʨ+"*c+V+^"czʢå*cw# °"c{怲{xO! {G7w*c+F+N+V+^"cx yx`i".",*.DM*,*c+V+^z/W{/_"c~_d*cV+^"c##| y*c6#6#"c*c6#6#"c*c+T] w+”"c*c+T] w+²"c*c+T] /w+"c23 <23 *c T] "c :3  *c6#6#"c:3  *c6#6#"c*c T] "c\ C *c6#6#"c*c6#6#"c*c T] "cA xˆ yxڧ {xO {G7  ɯ*c!~# ³ "c*c"c*c+F+N##q#p#"c*c++"c*c+V+^s#r*c+V+^s#r*c+~/W+~/_s#r*c+F+N"c+V+^ s#r*c+F+N"c+V+^x/Gy/Obk T]s#r2!*c+F+N"c+V+^x|!x/Gy/O>2!zҐ!z/W{/_:!2!x™!yÜ!{PY!Ҩ!)Ұ!)Ҹ!)!)!)!)!)!:!!|/g}/o#s#r>">">">">">"2"*c+V+^"c+F+Nxh"zc"x:"yx>I">I">G:"Z"6#66#6>I"z҈"xv"yx>I">I">I">I" "k#@$"m#*k#*m#2u2v"#@$"#*#*#2u2v}2"2")l&ұ#&""!"o#2":"#*"!"o#2"*"T]" w#""}*"T]#""!"@#!"">2"*"}#$*"#""!"o#!""!"~#""*"|*"!"@#{2$zҀ$bk)|2$l&)" ^#V|r$:$͈$s#r͜:$! w!6#c !""O͡8!5#c !"u"B'"D'*c+~2"+V+^"c""(:"$%%*"*k[0:"$!9#c :"`$:"@$!>#c L%%:"@ %!=#c &*"*kw0> 2"Ͳ&H%:w8%:w@#%#% $*"͜"%Ͳ& %*%*"DM s`i""*"||%}xU%*"͜*"DM*%ͣ%!""U%"&"&! )|2&*&T] "&*&%%!I#c %!J#c !K#c :&=2&³%!"&*":"@!&*"DMY͞#:"@K&*&*"z<&{xK&K&!:#c Ͳ&_&{#*&#"&$&:"@&*&*"z/W{/_|ą&/$"&:" ʘ&> 2&Ü&2&:&#*&+"&|œ&*B'|&+"B' '*D'|&+"D'*F'^#"F''*"|'+""*"))N""!J' :" '  '"F'"D'`i"B'ò&:"9':"2"!H'"F'!"D'ò&2('!(:(ʀ(6- #0(‚(w# Ž(Y!(000000*"+V+^z/W{/_""*"+F+N+V+^z/W{/_`iDMx(z/W{/_"":"G*c+)V+^+""x)V+^+""""*"))#"czn) :)0) O~x/Gy/O Y)Y)))#N#Fx/Gy/O V)    !"u!"" ,2*2,2,2,:"2"*c+~2"+V+^"c""@.:")***"*k[0:")!9#c :"`):"@)!>#c ^1*:"@ *!=#c 64*"*kw0*"|q*:*N* * :*<2*!*"*O +6,:*+*:*=2***~#"*M+ʡ*N*:"ʀ*2*Ò*:*’*:w 2wÚ*:w2w!"u!"u * %Input error $'e+#, , ,e+>'2,:,y+2,2,+:,:,«+ ʑ+:"2"  +:"2" +,+* ,w#" ,>2,:,<2,+>:, ,*"+""*"u.N""!, +:,+2,2,!"" ,*"| ,>ɯE,-:,1,>2,:,>,>2,ɯ2,>2,O!" +~H^,͆,a,5-!"~-r,z/W{/_BK*"+V+^q#p:,:,ڗ,>2,!ɯ2,!"~+ʩ,-ª,#,~#-½, ï,!, ~,W#~,W#~,_#~,_000000000000:0 -:0-A -G0-a -g0-H2-h2-<2,ɯɯ<:,F->2,!ɯ2,:,G!"~+^--`-#-~#-|- e-!- ͌-!000000000000"-'͸-͸-d͸- ͸-͸-*-~O#Y*-"-0-:-ɯ<2,*"+V+^+F+No&z-{x..|/g}/o#T]">.T].!">.!"z-.~# .`i*>.z6 #4.:"G*c+e.V+^+""xe.V+^+""""*"u.#"cz. ʆ.|. O~x/Gy/O u.  !"u.!"":"`R/:"@. .d/.ͅ/.͠/*"*kw0*c+~2"`/+V+^ {_"N/+V+^"P/z/W{/_+V+^"c""*k[0*P//*N/""/0*"{""!""!""͡8""͜!K#c !""͡8""ʜ/!M#c y1!!{""͜"/""8*/*/!K#c 2"28#~+:/~28##!" 6 # /"~#.00~#.00"~#$0:"G:"OB0x@Gy@L0xGyV0x Gx2"BK)) )) "~#n0BK)) )) "w#Š0!"u*c+V+^"""c*k[0:"H0!"H1## 0*"}N!"6# 0*"*kw0*"*"|/g}/o#T]"F1*"͜*"*F1z*16#z!1*"͜*"͜*"DMxģ%^#Vz͜N*"͜"w1:" s1ͫ2͇2*"͜"2"2*"͜"2*" )|2!2*2"2T] "2*21:" 1*2>2# 1:!2=2!2š1!""*2*2|/g}/o#T]""1*2z/W{/_""1*"*"|22}x{2*"zE2{xQ2y1"2*w1F""*"zh2{xq2x:"2"x:"2"> *"|:""2;3ʤ22!?#ͻ *"|2:"2":""2 2 2M+ʤ2»22> :"3:""2 2 3 2,2*"+"":"2":"G2":""2 73 #3"223:"Ā3:"@u3:3*3w#"3*3+"3|g3*"|u3͑3e3:"@2">:"?2"͑3*"*"""u.~+"3333 3 3!8#c *3V+^"3!"33!"33!"33*3V+^+"3"33*c+V+^z4{4-4*k[0:"-46#66#6*":"@L4*"DMY͞#$G:" xb4;3e4M+O4!?#ͻ :4 q6*4#"4*4#"4"4:424*{4:4̜*4#"4"4*4+"4}:424:4 q6*4#"4*4#"4"4:424*{4:4̜*4#"4"4*4+"4}:424{25:525:5:5Î5xʈ4õ4x44{255!"4!"4"4"4"4!"4"4!"4"4"4"4"4"4!5"05ʈ4õ4{255!"4!"4"4" 5"5!"4"5!"4"4"4"4"5"5!B5"0544*gBK)))) !!{"4͜"6s468*66!D#&9INT"@6B6>B6=6*@6w"6ɯ<Y6*`6~#"`6ZV6>!U"`6͜N:5_͠7:45*4͜6"6"6 {"6͜"6*4͜DM*6*6 7*6DM*6(*6"}4*6"{4:5_ͽ7! 67!C#&9**`i"7"7bk{_z/W{/_"727k7*7*7Q7!C#&9*7"7:7=27>7*7*7DM*7yʘ7w# yŽ7*gBK)))) s4~#´7*gBK)))) s4w#7!"͠7*{4N*4b624ͽ7"8!"8"8*8͠7:s4J8:4A8:4 A8*8*4z;8{x܅8*88*8|Y8}ʂ8*8N*8*8͠7:424ͽ7*#"ɯ<"8*{4"8*8"8y28!${"8͜"8:88*88Gx8*82#9"$9:8w#w#8w#w#w#:#9w#w#9*$9# +!s4K9~# /9 C9c %Extern 12345678$9"9"9#g<*9#g6<>@ڐ<Һe>*mz]>{xe> p>< insufficient storage$! >®>)  ®>>  PAS40.LIB damaged or not found $"?6><2?!U"???*?w>>>*?~Z5?#"?G:??xɯ<*m"M>`w#F?*M"e*Ms#r#6j?!"I"Obk6#6#s#r#6#>q#p#p#p#p#=‡?>dp#=—? ? A:BͧBB JRT Pascal ver 4.0 Copyright 1983 JRT Systems $@ ?a{ > :5@@25@:@O:AO~@2@O*3@~#"3@.@7@@2AOɖu:6@@>@2{@!U"|@"3@*|@T] "|@!HOu@:{@=2{@L@*|@6 ʳ@ ʸ@ °@:F«@>A2@*BO#"BOð@>2F> !@4:@<2@> >2A!u" A"3@* AT] " A!O@:A=2A@* A6>2u2y!1IO~ #A#A#~+:3A~2HO##~oA@A#3AHOcAiOiOiAAüNAüN͸A0چA:ڋAAچA[ڋAG 2B!y"B*BT] "BiOB:B=2BABüNError in writing TEMP1 file$? :BARB[RB\C:B']BͬM:B%pB>xA?\C:B€B:6@E:B0ҋBJ:B:ҖB2E:BAҡBL:BpL:BHOͻBiO*Ayz/W{/_}|AOOiA!"ZC*DOz/W{/_}|2YC*ZCT] "ZCO7C:YC=2YCCO=CüNError in writing TEMP3 file$2C!C:AOA{C[ڏCa{C{ڏC_ʏC$ʏC0ڜC:ҜC?w#dCz2C!CRMxڷCxAyAyARDBYN1LOOPKG?YN1VALIGAYN1DONEYGYN1ZEROGAYN1ADJG3CYN1:6@‰D:@A? D(D'‰D>2NͬM2N:N_!NͯD2O !O~A# DD? QD)‰D?OʉD*3@"D*BO"D>26@!"BO@DüNError in %INCLUDE directive$~͸Aw#±Dѯ2O#~+:D~2O##!O 6 # DO~#.ED~#.EDO~#EO*D"3@*D"BO26@> 2@O2AO>2F2F>i2F2F!F"F2F:@O*Fw#"F?0pE:pE2F<2FEAڔEIҔEEʔEGʔE2F<2F>h2FE.¶E:AO.©E>i2FE>2F>r2FEEE>r2F>2F2FE+E-E:FE2F2F:FIE>25@:F>A2F2F*FFz/W{/_}2F:FiOFhXF:F!FmH2F>@A~#A 4F:FF :FG^F:F-G>?A}A|A:F}F Format error in integer literal $Format error in real number $ xFyF{PY!F)F)G) G)G)G)$G),G:F>G>2F!ɯ2F!F~G~#͞GYG KG!G ~͖GW#~͖GW#~͖G_#~͖G_000000000000:0ڼG:GAڼGGGaڼGgGHGhG<2Fɯɯ<:FG>2F!ɯ2F:FG!F~H~#[H H G!H H!000000000000!"DH'FHFHdFH FHFH*DH~O#F*DH"DH0gH:gHɯ<2F"H2H2H2H2H2H2H<2H!H"H"HIIH:H{IͿI*H͵J!HG:HH>2H*Hxw#"Hɯ2Hx*Hw0II0H.IE'Ie'I2/I[H:/IH!H40IH>2HI>2HI:HFI=2H*HF#"Hxɯ<*H~+jI-pI*H6#"H>6#=bI0IWI0I*H6\I:H”I0I´I0—I!H4ÂI0IEʶIeʶI2I[H:IH0IʗI>2HôI:HII:HIG:H@*Hw:H!H@I>+2.J0I+4J-4J2-J0I>J23J:-J22J!/JH:.J-%J}2H}/<2H000002.J0II>022J:-J23JJwJ_OG>Ow# gJ6#oJ ~Ow+yG}JɷҳJG=_NxګJyyɯ>2J#"J:J*J͑JJ:J<2JھJ*J+6@*J:J=LJ*J+~w,LK+QK.oK-VK(ʋK)[K*`K/eK&jK"KAA@>AA>AA@>B(K>C(K>D(K>F(K>G(K>H(K>(K:AO.ʁK)ʆK>I(K>T,K>M,K:AO*ʢK.ʝK>E(K>L,K*BO"N??K*«K:AO)«K?*N"BOKüNComment does not end$?"K*BO"N@K}K;!L:0L=&L>^LK(K>3K>3K:AO==L>O(K>S,K:AO>TL=YL>3K>>K>>K:AO=kL>3K>>K[ʅL]ʊL^+L{K>L(K>M(K^#6$  MxL¯LL  ** found ** $ -- not found -- $# Li&+)))GMNMTMO^#V+N#~+LM 2OM`i#"PMzKM*PM:OMOLEM^#V+#M+F+N Mx`M"M*DOw#*FO"Ms#r#O "FO*Ms#r6#6#Ow# —M"DO*MDM*BO"N!N@'MNw #yN÷M:AO'M@My2N:N>>A:NA:NO!N~A# N*N"BONüNXRRNnRNXPOSuREXPUT|RCHXVARR-NXXORRKKXELSER=XCASERBXEOLNR'DXADDRRAXFILER<XFREERIXCONSR5MXCOPYRRNXCALLString literal too large$  =O*BO>Z#O~# NO :6@ O !O2O~# NO =O Line 0000$ in %INCLUDE file: filenametyp $  PASTEMP1 $$$TEMP3 $$$12345678123QQQQQ#R8RRRRR+SSSSSSS T>TTTTTUUJUbU|UU DOQIFINQOFOR4TO QENDRFORRCHRRAND RDIVREOFhABS*RMOD%1RMAPGET ?RNOT8FRSET!MRNIL#TRORD"[RNEWibRSQR^iRODDspRRBArwRRRN~RPOS(PUT3RVAR;XORRCHARRELSERCASEREOLN RADDRRFILERFREEqRCONSNRCOPYCALLRGOTOkRHEX$zLIST+SREAL. SREAD&SOPENdSPREDe#SSUCC*PAGE23STHEN6;STYPEZCSTRUE:KSWITHuTEXT\SBEGINeSARRAYnSCONST[wSFALSECLOSE$SLABEL_INPUT-SRESETgSROUNDlREAL$7SWRITE5SWHILE<SUNTILfSTRUNCWTITLESEXTERN SDOWNTOtSBINARYQTCONCATxDELETE]TMAXINT~ TLTRACEw*TLRANGE\4TINSERTPLENGTH0HTREADLN,RTRECORD1\TREPEATbfTPORTIN`pTOUTPUTyzTNOLIST|TPTRACEpTNOCONSJTSTRINGaSYSTEMmUPCASEATBOOLEANTDISPOSEFORWARDTINTEGERRINCLUDE)TPROGRAM/TREWRITEcPORTOUT9UWRITELNoWARNING&UFUNCTIONY2UCOMPRESSv>UFILLCHARUALLOCATE}VUNOLTRACE{NOPTRACE'oUPROCEDUREnNOWARNINGVDEALLOCATEjINITIALIZE jz ym2type stax b! inx b dcr e! rz ;done dcr d! jnz ym2lp1 ; ;scan until type field is found or