' JJJJ ?\>' L-=l>  ԠéԠˠ#~?  xDIR ERA TYPESAVEREN USER[!yO#< Ty#O 3ǯ21y_͸2y2ͽ:ķ˜1͘A͌>>͌92^ :˷¥.!_~#fow]ɭʎʥ!v"!çREAD ERRORçNO FILE^:˷#͘*~ "Ʒ"͌#>?͌͘ =_.:;<> Oƅo$>!Y2*O"ʉ@G:ʐ:wÖx2p0ʹ#*©6?ëw˜0ï#6 ¹.0#*6?w0#6 #6"  Ň!˶2:2a{_:˷ʖ:˷>Ľʖ:=2–!B!6#5ʖ:˷Ľ!ͬʧ )!F#xʺ~0wëw!" !~6ͽ:ý(!\X COPYRIGHT (C) 1979, DIGITAL RESEARCH _͌> ͒> Ò> Ò͘~#͌ì _2<į2 >>EE??++ ԩ  [\ ĭ ?  JL ``LLL $Lq<`ΧԠĠڸčԠԠ͠Ԡ؍2>o:= gw8H<8H }Hx / hJ Leh<>DŽ=<> @A @A>i =<>+ LeÍڍh@(L>*// -П( ( $8` %  ZNx`. }x$50x.$50xL JJJJ`Hjf5 }h $50x`  Ȍ` Hx  -(hL(h8֩`Lx (`H݌hHhHh݌>?F؅G(jf5(  ;  R( FGj 0x j $xxH` ( Rh RL.xxH h  !"#$%&'()*+,-./0123456789:;<=>?x&& 8 , P ; ' / \ ; & ; x)*++`FGG8`0($ p,&" cI꽌ɪVɭ&Y & &Y &   꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`V0 ^ *^ *>`+*xS&x'8*3IxiU ,>J>V J>V `8'x0| &HhHh V Y V '&Y V x ꪽV ' `Hh` ! ~ 3#0 Wx x ƀ Ƃ G ~ # 3x~#B!Y~ɯ2:˷=!˾ý:˷=!˾:ý^T!~  6?#ˆ:`O> K{͘A͒>:͒͢>:͒͢xK > K > ͒x  ͢ØÆ^ BRͧ9!5‚#~Y‚#"T<ÆALL (Y/N)?^ Tʧ͘!6!~ڇ ɯw4!Y~ʆ͌†t=ʆf ^ T ɯ2o&)|+!<ͧЯ2*C!!~~#~O~G#n,-.‹! w! yG!x͢.:E<ʄ! q!pQ:E<. ʄ$.:E<ʄi6}2ExN! ~态O>G~G!~G} *C!r#r#r ^ͥ_y#x#{2>2T*CGͻ:ẅ́n>2;O ^DM;}H>"*C :ٷ:ddslO s#r:EϷ͊:==»y==»*Ww#*"͸*:G#š"͸:!پw4 iw:Z!E~=26 w ~>2!E5T*C!"C"C!w# F! w͌xѯ2͢*C ~<wʃG:٠!٦ʎì 4~ʶ¬:<ʶ$ʶïZͻЯx>2>2ͻ:!پZկ2:EϷẅ́͊Ͳ> *C ^OT *C~wD -'  -@ͦ~^*C Ox! N!Fwyxʋ>ڋ>*Cw~#+w#w+ɯ2E22i^ *C :ٷ~w~͔͔# # ::/GyO>2!q*C"͡ʔ*JҔ^:Oyʃ?|x | sӖ-|N-# S:2E!~Яw>T D^6k-äPYy 5*{zBK5:AϾ#~$=2Ek͌ ):BO!yoxg*:BO}!N#F "*#*s#r^ ~!J! J*:مo$*C~i6iw**{#zr+s{ozg**͕** Ѿ,w͜͸Ͳ!!N#F$**O!~#O: \зSЀ*C :ٷqn& ^#V>O^"*}:*)=":O:١o"*C *C!ͮ~2~2ͦ:٦2ͮ:ЯO:فw:w |g}o*ٯ# 2E>! ^#V w#P:BO|^#V#"##"##"##"!O*!O*|!6ʝ6>گ*w#w*w#w'û*ڷ! J*""!N#F*^#V*~#foyx*{_zW+*x: 2 p&x~+é7ͯ2 H! >w_: ! Ͼ5ͤNkͱ¦ͱxʊ#Nx: Ϸ! ϖ2 ͤ! 5™#wO~x½p Hy<< ڷʑ :!qMD# O͐  :ϷE B 2>: Ϸb# : Ϸy! 4 5~yy5 6yҐ^H@Oy H H: –ͬ  #H: ! Ͼ Hù H H $O͐: 2 *CN# ʽ[̙̥̫̱"C{2!"E9"1Aϯ22!ty)K!G_^#V*Cΐ~؃E؜إث ,&-AGMSϛ!!ô!ô!Bdos Err On : $Bad Sector$Select$File R/O$:BA2!~6=qf^!~2>`~2˯2\!!B!~> >#0~O#Cx2͘1)ͽÂf zͧÆBAD LOADCOMf^: !˶ Â$$$ SUBÆNO SPACE^ :Ty!B*O=?_s#"^sG!~Yʸpsp2mÆÆf ͧÆFILE EXISTS _: É: :˷ʉ=2)ͽÉ T!@k!}|qs+p+q-*C ͥ!!q#p#w*:BOYG}*MD "ã:!BϾw!>2*C~=2u:B2~2wE:A*C϶w>"!""ٯ2B!"!rQQQâ~?ͦ~?rQ*"CQ-Q͜QüQrQ$Q*):B"*)*)Q;*"E:;:A2AQÓQÜQ*C}/_|/*٤W}_*"}o|g":ٷʑ*C6:ٷʑw:2E**E}DQ>2C0T"I !>"H>2J: !͢:d:d!s~B#1!P!J߇o~,foɷp:BB Apple ][ CP/M 56K Ver. 2.20 (C) 1980 Microsoft >>EE??++B#1!P!J߇o~,foɷp:B:޷ Apple ]~6(*} *:޽ y(3:޷s:2G<2x/a2:oa":޷zޯ2{![:޷ <2:>sɯ2>!>2!;:*     1>2>2*"?ۯ2:08 !"Y"BT"->2:8Y"/:8Y"F~!xq!;`~0,~!M;!x~>.~8[q>:޷ 2y2!!{o!:=8 ~y!3w.y2Cɯ2>!w#w#wOa."y .:g"*"!~((5:# :*޽ :޼ $| 8g,"ޯ2!"_!ޅoN!޷((+! ~O#O:x >2ޯ2:޷* *D*:wk*(:$_"~28 ?@wx( !;!܅ony 2$8!2E!y>>?22!ɯog"$2E!.B...X&*}(8.|8&"$պ`~(,qy2E[22G: 2:O*:)!O#~#'۹~y/:02?"2O: K*:*(0**:8'(*:08* *: 8(*7!w˹#~(=5:!( +_ywɷ+ͱ*:]lc_O{- OMG!~_ :( 6>83! ~èPCfuÇKmVÉÎÓãݯ`iޓښ:ޓڦJޓڲZޓھjޓzޓߊ / !~ `66= !; !{g1:Q!;͢گ22>2!"2!"͎>2PI PI F80 COM F80 COMK !"#L80 COMF$%&'()*+,PI FOR-FORLIB REL./0123456789:;<=FORLIB REL9>?@ABCDEPI RELFͦ>ͦ!q:_  !p+q.*   !q*&!p+q*2!p+q*2!p+q*22!p+q*!p+q*!p+q*!p+q*2!p+q*ͤ P! C@C@3jHfӠm=mU ڶͫrͨ`ͬq6r6q4mh=c S-aͱ`bͲB͵v6i63kh3kހ3@f2͸ͷ@rͺ2;`r6v6q68:$: $͈Ͳ!N6' :!Cwͯ !6:^͢c!6{:/>!/H{ͯ :<2Š ::=HҮͯ !6:Ҿ:2 !6::/H͈;!6:> !/>PI COMZGHIJKLMNOPQRPI PRN)STUVWXTEST RELY1#!LPd&qHaj*JRDIpqdQH19AFP@Y"ae!ZY"Ŝ+,5V2 / 3"Uc)@,MVcHdjQ HdS0ӀE5I F"@ :l.n@e``XIÑpXFEa`ȌƠC@3hfmmm/m ܐm&fҐ ffӰ)fа fPff!@ @|f -~w` k K_@;#@5|f *@c2}\Xm(f@ LiE[hF"@ :l.n@e``XIÑpXFEa`ȌHHͯ :^!w:<2:0}:@E}:!S!W6: z!]6:cm!c6:_z!_6l ::,: HHҰͯ : 2ó:E:1:2v!q!*8!*6: >` &G@)"j Jt< 4f 8H\(K9U' by8@P$! >ڪ Þ !qp+q/ *pDM9: :M2r:N!r !:r *r& N!r4 !6::=O!L NE!4 E E:/.*&L 6$L9k9.Xͯ *KM^020 :020:121'ͳ':²ͯ !G6!"!"7 *M^n/ :a/:H!6:ͯ !&6> *N& N2 !p+q!6!6+6 !6: S: M!6g8:N2M*M8p!6!6!6>!ڕ*&P 6!4z!6!6#6#6!6*M8:ھ:*͇g2ê::¿::,͡A<2O>! ^#V͎ * :w*#" = = = = = ͯ  *M !6q  !6q  !6q  *& !6à  !6 à  !60à  *& !6  !6  !6  *& . 1 4 7 : = F P [ f q  r+s+p+q*~$7*>*>H&>*#"*#"> 2:R͎:!6!6=2:ʙ!6:“H9Ž>!6-e!6ͻ2=2ʺ-é:>>"ͻ2:!!5ͻ2ͬ!\ͯ m!62m!62m!62m!62m'2:2:TҒ:2!6*ME:2::Ҳ:<22ý: 2:} >ͯ :i:2:d*M:[ ͔: :ͳ.!ws+p+q+p+q:w=2wN *s*u w*s#"s*u#"u' !"*M^7 !x6:!xھ **DM͆ 2yʭ :yʗ ͯ *"*6:2x÷ *"!x4d !"/ !j}=2| !"*KM^'_ !z6:|!z1 *:[ ͱ!N5!6:%:<2*6 * 6å!q!6> !d*&I :]>!4A>:<2O* :w:?†!6!q!6?!:ҠgÐ!q*&*~!6:22: :]Hں:A2O>: 2ͯ *M8):[ͱ!N5!6ñ:5!6#6>!ڰ!6:<2O>/:!O!T *M͡H~K:¡!6[–ͱ!N5:2:2!4=:[¼ͱ4:!6:.2O8: :* ͇g :2!q: " *M n :c4 *M n :2!c:Q !c:2: !:cw>!n !5 Y : { !6!q:!lwҙ  â :0O !q:O| :O| !6:]2l:o'2o:n'2n:m'2m*mMͣ *nMͣ *oMͣ :]-:>>!p+q:,!6*DM9:<!6:z 2W!6D*&L :w:<2Ov*:>=20O> ڒ:0:AO>Ҥ::A }}Hͬ!wͻO`idͻV[2O>2:!X!6:!*M:>!(:=2%> >>!F!5+N! ~2!4<2T>>!b}*bMͭz:b2!b6:<2é>!`ҥ*`MͭҞ!`6!6> :é:(!q:!wO! ~2*& :w>!:!4!6>:N<2N! "}*}DM͆ ' ͯ *"!z4 :e !"͆ !z6:|!z '? 2*H#"H!{6:{ր!Ң *{& :{4 2!{4m *":ڹ ͯ !z4I '2!"!q: !4>!S :S! :2*M÷:S:QHI:N<22: H@"2Í202O> c!6Í202O> ڍ*&O*& !sc*&P :w:·>!ұͯ :22:_!6=!6>'!E!4!p+q*0 !/H:_2:!q:A/>Z!/H8: 2::=O>m:W!Q} Hmd>9>!6:2*M!E ^#V͎ڗO **~2*#"m2m͖ 2m!6m!6m!6 m2m:   *}2D" * * *&"!q:UY: Y:ҩ: ʩ:_2ʘ:€!6<:<2!ژ!6 >!]Ҥ; !6:Q::H: !6*M : !6!q:a/>z!2*">!b!ͯ >!`0ͯ !q:E:24J!46*}a!44EJ *KM^'́:‚ͯ !36'n::0:f9OY#9.3'ͳ.:020' 'ͳ'7 6'78, 79, 80 (C) By Microsof}o|g~#" :g(H!"4͇=á !"4>F!l[<!6$+p+q>2>2:*:g>(2g@2g2P:²*B F+N *:R*@ F+N DM*8R*> F+N :yOR:g,¡ *4|}!"" ESLAF.EURTITCNUF=RRE=DNE=CERNIAM$TINI$YTENTEGEROUBLEPRECISIONOGICALEALFOLine:ASSI ' !'6!36' :1/!aE*#">z?C9IͲÁ.!6> !ڇ*&' ~2 ʀ: y.*M!4Q>!қ:=2á:2:Ҭ\>!ҿ:=2K:2K!:!:K\: \!p+q͈*| *~G:/O! O 6*~/O "#6:/ COɯ2o<2b20zT!2"Y!j *"8q":#!!*c_͑K! -- Bytes: Created: 29-Feb-80 XX*!"[͖:$:RCb.͢.?.Z!]6#!j>A+!s!"@͓1!"<**"͓n "Dn"":!Q2҂:X!Wғä:ڤ*MEÓ:ұ@@:O2Mc;!6#6>!)*&P ~"::H:HUNSIOLEPRECISIODEILVALENCRNAATIOICIGECARAͨRNOUTINE+-*/,)=.EG.EL.EN.TL.TG.QEROX.RODNATON                  0T*_DM/o&#"*"x#w x""2<2<2d#>T͓cBACK RBYTEgQBLOCLCALL +COMM  CONT DATA DIME DOUBjQENCO# ;ENDF& REQUI)EXTE0DECO# ;FORM4 .FUNC6cGOTO 3IF( IMPL:INTE>pQLOGIAgQPAUSD PROGEzTREADH RETUI AREALmQREWIK RSTOP SUBRMcWRITS GSPACKDATOINDM!  ::=H-\:N2O_og_{ozg^#V))) _{ozg^#V) d^#V|g}o n_{ozgO{ozgi`N#Fogo&og H ©=¨!~4*""#!0dX#!cX*X""""!@"}!X" !"! " !("o!2"!J"*"!c""w""!"!>w#µp #½ w#Ùa~# x*QFORTRAN-80 Ver. 3.36 Copyright 19Z:H:H"!6!4:_jYO jM*"S*" 3@bl*M1͓!""7 *M^͆ \͔!":͎H*#"ͧÝ/ :>͛9ͯ .*#":_!Ͳ>O͓cͪ#>á *" ʒ%* m:0:==:g(*" ʎ%*U""p:ͬ2a2go"]:Y::=*+~«G:&#O:=y y :  P:0*4+:*:| :g(""> !w# Ͳ/ʅ 2o>2>2>2"t:aK :W 2a:Y:g,5 /¡ >/͓c: !~w* Ͳ#AC\>2>S>C>KOC\>*4: :a  !"]|2a*]| >2:N#F\ !Ͳ &w+Ͳ:#;XsK> X!+~ͪC@Pʣ#! Ͳw+^:g ͑c*"d"]##>2a2*"p:Y:g,~"X2b:o:g ʼa{ 2g$A[0:<7=:gG!o~6:ʡ Æ*"J:a2Z:a=Y*X*]"]:Zʙ2a:Y*J++++F+N*ps#r`i"p:Y*V*]"\*p"^**J:Z=… >2Z*J"P!"X*]*\_"]| *X*\_"\͜c*]*^+~+DM~+ng`ir+s*^*p"^"p>2a:Y"p, 2o !9*+ lV+^+P͜c~+A +V+^*]"]""L:2P*] :a=c ͟_ Z`:#J XOXJ :a͜c>2a*"]":YzB |G|| ʹ |/G}/O!> 7>{_zW}o|g= |g}oɯO_yWL"*"*"#"!2r_ *pP*_|*2|PB s!"]ͫ *>2:0b:#m>2#C*"]:YͲ͑c:#‹* Z`:g͹C||¢:g:gH1XʑPʑ(mE#F#AIG#D#L:#*W` ~ͤ-'5,ʑP=$:!~+~w*"*v`‹~ˆ`~`++++:G~ˆ`~ˆ`++V+^*ˆ`###*_":2!+".*",*_"*9À: :=2:ڶQ Q**""Q:Ҡ*P*"*P:===7=D=Q*R"Y j*!"L+9""\:a=, :b,  | *̈́a:g(P :g, >/͓cn #:!a ͟P/͒@ >2(!"QͲZʾ Xʾ !6'$ 2o:=º : :º *"Q|y kͲ'º B>)  :P*|* *"*":P=*|*w:+w*+r+s+"_+~2G+~*####Ͳ2oɷ222rgo"=::* Z`:Wʑ͹CÅ!:H"*#"">2=2| *"*W`7R[T*"7Rҗ!::g ʀ v H2r"^“~#d<2X>?&>%X!:?*[͑KE!> X!GWd!C:X!#~ n~ ʂX#uX2*#"**w"*"G2o2xL͖:g ʙaõ*{#"{!C~#Xɯ>0T*#|+*PG:qͰ#"}͌cͰ#"y* ":g,̰#*"{ >Q*P:*}P:T U a:N22[ 2a:*"}P>5y_>VOD*˜c> ͡Y:aʑ |*<2o͝#>=͓c ( ã*]|ʽ : >2:Y> 0T**w"_DM! "*" +w+x #"w/ʑ) ô=Ñ|PÑͤ>.͓cͤ>U>2T:'͹C<2oÑ͹C:<:x'̹C:<ڑ ÑGgoͲ͹COT])))0_Ày| :#*"*W`Ͳ>#2O2!:T"!k ~4g:io">2>22>2a:Y!"**!"*DM*R"*+"|**_**͗ *"|*"!"(*|! :l[2Ͳ͑c!"J!"V:#:ʺ!ʺ ͟P͒"V*"*]*V_"X*J| **X| :g,ʒX :P*"|}2 :, [T> 2:2NR!R*L+"L| :N!Pʫ =^ ~ʫ :N| ~º :v <º :è  =º :Pʫ *"*"=ʫ *"=« }2:P< >!;S!R*Q+"Q|> :g,s *!9 *\>/͓cͲW`2(:g ʡ _ _2r_:˜c<2 *|D:2`z!go"  w*+"|s:y=2Xz:XDl[:D*|Dl[ f:g(ʰ,) :T2>2!45:g(!r454:=_!"!:_ _ x""`i"**ʖ~C++V+^rB|<*J|B~w>++++|<6B*B*`iB<*_ڻ~7++V+^P:*ʈ:aʶ*]͜c+DM*p:a=ȯgoɯ!P:7:aʶ*]:yo&æ*":ʋ*r: (y_>0T*"w#w*#s#r#">0T*"####"Ϳ_2  :=ʑ**_*####~€2q*">*"2q:=:*"::2*####*_" ʪҪ*###6ڪ !~#>2ð *rږxLT!^4!~ 2g:>/XC$c$!6  6> :X *#>2>2:2a2*>"*@"*B"*""ͬ:YP>2:YP>FͲ!5> 2: <2:b5> 2͇=X!S6é!:S":2S*"N"2S>P>!¡"*N"á":S*!6$+6I+0w>2>2:g>(2gG: 2H<2>2y.ʺ:"y'42=2>2:F:(My+-xڼyZ]XͲ'ŒB*|*$*"2<2<2ü2oy<2>2!yw+Ͳҡ$ʡ>27R: u2F:F2g2oü!6:!H4͜ :g02z,> ? d#ͫ ; :g=0 2Rgo9;P :#*9;:g,š >V!͒ f !4d#"SC !͒ | !4d#"QC !͒ 5!!4#"C 6:ʶ *S6;*Q6;*6;*DMxR W 2: 5 : !HO\2!|2S"N"QX:g,7LT >'y:=LT'y <Ͳѯ {Ͳu0_:cb< ͍e!~wDAځ7L>'͓cò#:= m>!6 #=›ɯ2h<#NͲ͑cͲcAO! Ͳ-bkͲ˜cͲAO! ژc:g,ʵRELCRFPRN2g>2SP*2>(͓c:a2!>:6@#:@#Ͱ#C#͊s#r#:<2]#:g,*#XPͲ#0g#!w+Ͳ#w# n2>2>2Ͱ#:= #à#=ʼ#==#:== Ͱ##>2h2`k>2xڛ:gE9D/>2p:_ h>2>2Ͳr-h+l:$2o:$ͲQ$Ͳ.$> 22>2*|*$*}$*|$":F-*R":ʼ2ojRÿͲڛ>2:<2o:gNʴ>V!6!6$>2!Ͳ 9!|,!  ,!*Q#|V":UV"͇=DN\á s>2oŽ!>(͓c!U4**_xn!~w++++ Z!*Q"**_"Q> >2S>!ʛ!=ʽ! s:g=I"͚":g,>!*Q#|m"!:g(>":a8"͟P:G:D8"O!0"*:*8""">2*:"y)˜cͲ,ʫ*P3:a'3:<2:Ypcá $C!A_~Ͳ˜cB!|!I|!D|!L|R˜c!F#Ͳ˜c#~~Ͳ*ʠ2oͲc0G=xʻ=ʸ=˜c>>x>Øc i:ɯ222og"F"H2ͲOkRkzR>ͫz=kkk >2zD>2!H4$!":F-?:o:Hg"çç!~w+q!w#ƒ!~w#“R͍͍zÍ!~w+³ ­d#: :a oͰ#22U9;*"S"Q""!:g2>2=2<2ͲüͲ.$xpyH2>2=2*|*$*}$*|$":F-¿ mÿ!G4Ͳ$!I~$$$w:g0$$wͲr:G!I~ʤ/2H:!H5e͍!I~)5kRkkz!H>w$4P?Command error?File not found?Can't enter file~u-#)!)*!uC*37>{uC>uC>ouC>zuC>uC>guC*3:s8!m8x=h8m8>ç9>ç9N22:¤8:ʐ8ͼ:N227:::8N228!:8¸887~7g:7O~2y@OC\79:!~!986N28 9:RARERLßSBB SBB ȞSBISUB SUI"SHLD2STASUB XCHǯXRA XRA XRI>ouC>uC>uC>guC>Q*Pa::13*{P2>5*yP=¶2>>uC:ͪC>uC>>uC:ͪC>uC2>uCa::N2>uC>{uC>uC>zuC>uC>*}"]>2a=2!6;*w*7^-T7>ü+R7^-D7R7>ü+> 7,6 #=/,y.2#,V$xO,\,^-P,y/y^-Lu,2#^-O],N€,2#n,O‹,2#n,R–,2#n,C¤,2#2#n,M¯,2#n,Iº,2#n,Z,2#n,P7:#<2#n,^-[,0,A,:,,O!~6G=J8:=p7E7:=ʻ7ʻ7=w62xp6*R|F6e6M>#W6###|+++e6}/+uC W6*3>;8*3=*06!~ʼ6=¬6x¬6+¬6:£6>euC>.uCêC2>g×6:8N228+~6x==a:==* µ7 6::7=6x=:,7x=7&0> .~007ȷ!H0)@@90> u-!N0)͢-DISK FULLADD ADIANA ģANA ŦANA ANICALL/CM?CMøCMP ¾CMP CPIDAD )DAD +DCX =DCR 2#!#o+> 2N$2V$2M$y,2#ž*:#2#͘+_$:#ʫ*\${+N$:M$2# 2#*:#@2#! $o+y=7͘+ 7{+M$* 7!,$o+:#!#C*4ͪ#͇=>uC>2D:g,84:#á ͇=2Dgo9"^Ͳ>(͓c:DX4̈́a*$4:g,@4X:D 4͌c͝#a::ʀ4N22GC\:#œ4XsK!4ͪC*^+V+^+P:#4XsK!4KW;=g¥4*^:¡ 2h<# ~ D DB*|*)5*_DM!"w*"x'3w# x3"!"*yP:=*{P>2g3>5>uC*yP:<ͪC>2:=ʓ3>5>GuC*yP>2a:>uC>xuC2:=n3*yP+;>uC*{P>2=5>2?!"3͇=:3*"""#<2á :4͇=$-#~ -,i)x+#-~-2#D-2#:#7-͢->*u- h)> u-:i)!j)")o>g6 #> w~# ^- ^- œ-#")_*)+~ #,#")+~7ȷ> u-> u-f%!"d%! $:#-d$!"b$!#:#.~.(.<*(.7:=7x=>=uC>7>uC:êCN22x8: 776>)W6!Z7:ȷʶ =ʹ ó 2**}ʥ7* Ó7:=ʃ7ʃ7=N2ͥ **ʥ7*x7=7x==a:==7*Pa:;27 7+;x=A7=M7=S7=D7E:9!T8HORA ORA ijORA ORIzMOV A,{MOV A,}MOV A,~MOV A,|MOV A,xMOV A,GMOV B,DMOV B,MMOV C,TMOV D,]MOV E,gMOV H,`MOV H,eMOV H,fMOV H,iMOV L,oMOV L,kMOV L,lMOV L,wMOV M,rMOV M,sMOV M,>MVI A.MVI LORA ȵORA ̶ORA PCHPOP PUSH RAO+! $:# +$\$> =+O+:#5+:#5+:#2# .ͬ--*###:#2#GM$ ~i+i+w# _+ #_+ w#r+:#!V$~ –+w#Œ+,:7>¼+xʘ+^-Ox=y+[A@2M$,x + N$&,^-+T+^-T7^-Y7ü+L,^-S5"">/uC>6;*Z5*2*G5*>6;>6;*2*$5*5*2*y5*>6;>6;*2*"$5*2*ª5*>6;*t5>6;*2*5*>6;*œ5*>6;>uC>uC>ouC>uC>uC>guCa:8G:#g+: $(0 =4/!d$>!#4/:#g+:#t-*b$|=Y/#"b$c$w:,$<ʇ-0*f'|̬/#"f'g'Ú-h'>,$=/!=±/!>/_!# / / .> .>.*d%f% $.f% $V.:#g+:#_.>d/*b$d$#.d$#V.|}.ƀ)`i4/> .> .> .: 9>}uC>9~@!FpOC\*"B9>9+;:0OTð:7C9:a^9<*">2ýwuC>uCͳ<>suC>#uC>ruCO>ʒ9 >ʒ9 >G:=9:!ʯ9x@+;uCʹ9N22>uCg::9N29>|uCDuC>guC>}uCouC:!x7~ ::Procedure NamArray Name MisusCOMMON Name UsagWrong Number of SubscriptArray Multiply EQUIVALENCEd Within a GrouMultiple EQUIVALENCE of COMMOCOMMON Base LowereNon-COMMON Variable in BLOCK DATEmpty List for Unformatted WRITNon-Integer ExpressioOper=>uC*:aBB }>2:Y>͡Y*"]!a6:Y:!+"4*"*]"*a"}:2{:2|*p"y :g,?B!B"42!g6(m<>=͓c!06 F!06͇=P:!BºBB:BBN2B:@OC\B>}uC!c">Q*P*"]:}2a:{2CP!4~#<*=O! s#r?<***P?<P":aT<:#j<ͮ"uC*##"é;* Z`W;*"*W`*P:aʘ<>9;à<ͳ<>uC*P:aʳ<>!9;>*9;>:9;>29;>"9;<:͇=uCͳ<:(@N22>uC>N@2:a!-@ʳ<î<P52D*"Rv`’=~ʈ`ʈ` ڃ@ڈ`x@<*_:G:Dxʤ@:>5:D@2>2a:Y*3*_@*++r+sÈ`*:A=@͠<A=A=?*P:ax7N22>|uCuC:ͪC>guC>}uCuC:ͪC>ouC*3**Y:+"2>TuC>]uC>uCÎ::2**"Ž::a:‰:>uC=::ž:ͮ<2:Ҽ:+;L:0O*\":=:::a:¸<ͳ<>~uC³<ͳ<>~uC>#uC>fuC>ouC:;:Illegal Statement NumbeStatement Unrecognizable or MisspelleIllegal Statement CompletioIllegal DO NestinIllegal Data ConstanMissing NamIllegal Procedure NamInvalid DATA Constant or Repeat FactoIncorrect Number of DATA ConstantIncorrect Integer Con:|2*y"p:Y *"*wB!c"w"*i#"i>uCá :==WC:RC>uC>}uC>uC>uC>uC>ͪC>uCG:#ºC:#ʺC!T0x#ʖC~#CÇCXsKXúCG:#ºCx/KúCG*#"^SxG^S C*****>C>!c~#*r+sxuCͪCêC*o=>"6;<=>uCo=>"6;=<=T=>`uC>iuCo=>"6;*2|P=P*"]:YP>>uCͪCo=>!6;TA\<=*d"]##"d>2=2a!**3Ô=**ں=*""!"k"lP2G2+V+^+++" "xn>ʗ> E@E? `?ʂ?T?? in Type DeclaratioPremature End Of File on input devicIllegal Mixed Mode OperatioFunction Call with No ParameterStack OverfloIllegal Statement Following Logical IWrong Number of SubscriptDuplicate Statement LabeIllegal DO TerminatioBlock Name =  A>9;Aͳ<>DuC>MuC͂<P:2:aOA**GA>>uC:ͪC>9;]A>uC*e ͿS2*3:b*!A!$$">222>2a*"]:Y>9;!">22>9;*2|P:#A:*"]:YP:1A AͲ#:!A*6"͇>uC>>uC:êC>!*uC:#KEͺCúC:aʳ<î<"!C>uCͳ<>uC@M@>uCRS*:#̈KECC*##"A* "( *3Ò=* "f2N?!M@:5=BN\U=\>/uC>9;@:!M@>/uC>}uC>/uC>ouC>|uC>/uC>guC!M@*3:2:=ʨ:=? >>uC>?uC=->>=uC>uC>êC=;>>uC>êC=D>>uC=W>>=uC>uC>êC>uC>êC>uC>2M@9;**ҋ>ʒ=*m" P>P>!~>**~+F>>x>w!5a:Ò=**>~* "mʒ=:a?*and Mode Not Compatible with OperatoMixing of Operand Modes Not AlloweMissing Integer VariablMissing Statement Number on FORMAZero Repeat FactoZero Format ValuFormat Nest Too DeeStatement Number not FORMAT AssociateInvalid Statement Number UsagNo Ö>)͓cͲ7R!6*[#"[!> 2 :-X X͋/aX 2X 2X2XhX*[͑KXhX͋/hX> 2w rX XX͋/aX XʑXyX [X [X ºX> w#xP©X[Xw XX2P> :X Y:#X Y: $ X> X#:g(L !"Ͱ#5:+RN2!N#F\á :g.jR*ʳR!JZR+JR2fR)i~2#~2>V !f6ʚR+++uR*:_ >_:g.ZRͲ.ZRËRͲ*ZR2oZR!>))R =RɯogRSA>SyS>SCCBP͘L*]_|>+L>-XRKP:>/X=aL>[X:O/_!X~/K# IL>]XÈL!~:…L#~X+~X:G+~/KzL͘L>/X>LX:O!~X+ ŸL:XHXҿLXéL0ùL *R*w!cL :bL*|ʻM ûM*2|M:hdV!6 N#F*`R"`ÉUP*b|ʤV:a_V*"*#|LV*"TV>2ͶWP2(ñV*"*b*]">*2>2>2:a*p2a=ʗV*"p"]:Y2(*#|V>2*":2ͶW*"2:W*w"*B">2ͶW*k">2ͶWPKP>+XK"*#|+*~2G~2+~O2~82~2a+V+^"]+V+^+"p!w+gPyŒP*]"+~2+V+^"]:<P>2y:*]*p*2D:* 8V+^+P:a*P*7D s#r#=¼P:!D=!Q=~QGPath to this StatemenMissing Do TerminatioCode Output in BLOCK DATUndefined Labels Have OccurreRETURN in a Main PrograSTATUS Error on REAInvalid Operand UsagFunction with no ParameteHex Constant OverfloDivision by ZerArray Name ExpecteIllegal ARTBILROF*! Tx2"RPO* **"" qO!"y:W! !w#jT r>V ŽTʨT+ʤT <ÔT®TSùT2S>20dA:g ʡ ͲÿT*:2d>2(!""+"*!s s#r!> s#r!Cy:GW>S!FC+SW>/S_x)SGxG^S/S/O ~ͪC=#DS7^Sx^Sx!Y~w#4vS:Yd/!"Y*]| :ʷS:#ʤS*:žS###W`ìS *Z`R*W`:ʿSR!x2": $ u-> u-y2R:1M:1MAMXE\2^jcڻMoM=uM:*]| :CMR:#YMXsKX*:;S>2go"]:YpcM=œM<2^:a͖!:Gw#M :a*]|:ʷMRX!9O*K!OO*K!hOjcNN:aN*]|NͩLKbM*:">2ͶW**u"*@">2ͶW#|2ͶW*i">2ͶW*8">2ͶW**s"*>">2ͶW">2ͶWP*y">2ͶW*gR">2ͶWPäV!"**WW2*JW2JP=W:>ȯ:222oQG!Q!;xQ0Q Q++0Q7P"p"]V+^s#r*aQ"`Q"`Q"}`Q"y`Q"{^#V#>!>!>&2\Ͳ*«QͲ R0G:\=ʝQʝQx=gQ=pQ RxmQjQ R2o:2>V!6Q>VNO*Q2:\cW2g2o!Q"4:\2:Yrgument to ENCODE/DECODX:#TK|/K}/KG:#kKxFKxFK0:XX_K)))FK ZK`]K*K>'X*K>"~KK>N#F# ҭK<33âKO=KKyʛK7yFKšKK> X>(X͑K>)XX:*'L**]*g s#rͰ#:=*U:JU*!> s#r͝#*!s s#r:g+DU-XU2o͊*+!g s#ry!djU͌cTX:P͟PV*y"`!"b*`!g N#FR*b"b!> N#FRs#r!s ^#V*U"*!s ^#V">2ͶW#|U+">2ͶWy!bO:1O*6PRR*Y|^S)O Program Unit Length Bytes Data Area Length Bytes Subroutines Referenced: Variables: COMMON Length LABELS: Warning(s) Issued Fatal Error(s) Detected :a=*]ˆK<2X**ppcMX!O2Xjc=N#N7N:*7NͩLKXOpcNX:XmN!OjcmNgNͩLK*]KXpcPNX:^ʺN!OjcںN´NͩLK:aʴNX*]:#ʨNxKôN:xKĈKpcҀN>2*{|NX>%X͑K!O*|NX>?X͑K!O2* R:>O[X> X!X (Y4~Y5> 4. 2Y6#Y #Y"Y!N:*w:aG:!+w+*]r+s+*pr+s+w+ sY:<Y>2y:*r+s*]++r+sY!~¶Y4dAS*"H!Fw Y5͇=*4.~!0h[*2|Z:F Z:Z:hZ ͇="]22go"cxS2h2!":g:b da2oa:2^2!"4mbͲEͲNͲDͲ/> ͡YLW:^2Ͳ)b(b,b/_=xb_W:g,m :g=ʻb:B> ͡Y:^2WFá Ͳ_}b_:/\^2:/\*####>w*|ʲ\55ͳ^:!ʞ[:\]O\ ]:=N]ڀ]ک\ʋ]=ʩ\ک\ʑ]:ʄ\:_!~2:!`! Ͳ<=S`#-`͡Y*4_ e x>c`2v*""R"."**",Û`***,*_++++*#`++~™`+~š`###*_",ѯ*.0T*#s#r"**_܇=:g ` f*23*4*Z:*Z*4!"4͇="42:Y:F°ZC*HP:F20*c|ʣZ:£Z͇=*c"]2go"cxSãZ:auZ*"!"\2f*\*]_|[  SBA SBAITNIA TNITNIDIDOMA DOMTAOLF XIFINGIS NGISIMID MIDIELGNS PXE GOLA 01GOLA NIS SOC HNAT TRQS 2o:>*}bb>2!>:h[>20213c2 >2a:Y*"6SRT:!dc!y~6́ 2ymá *P*:/O "*?P>,Óc>(!g ~:yo&:͟P:/!8^#V#<2:ʩ\!>w=ʩ\**ک\2Ë]!:wé\8_é\**_ڽ]~ ڽ]ҽ]!O F~wò\8_:2:^*">22é\*####~wò\:2H*"F2J:|ʙa*w"cڙa>Q*2*5aDM a:@a ͇=:ka*c|ka"]22go"cxS2h2xxaf2a`i"y_ g!9* !"2! 6?/bad#:aʻa *"2͇=4PxS:a2*"]!a6:Ya24:b*c|b["\͜c_:f)[*Z_|1[1[>2f"ZZ*\*"\*Z">2a*]*\_"]:YJ[uZ > ]_2:2*++++~_!~!!w:[*++++"g_!2x u[}[!~w*w*}[2ͳ^: \ /\:[8_^ _ͳ^:/\:NATA 2NATA KEEPPNISBADNGISDELBDPXEDGOLD01GOLDNISDSOCDTRQSDNATAD2NATADDOMD0I$ 1I$ 2I$ 3I$ 1XAMD1NIMD0NIMA 1NIMA 0NIM*####~w_**#####:w#s#r*":2:2**""!Fwp!FwpG*>রw*>G#N!X~**͙_*͘_*}͘_*y͘_*{s#r#*r*p*"rPRP*:G:w#:w*s#r}o|gW>V*| ʙa"*"!=^:[^: _%_Ϳ_!J4*####"*++++A^ͳ^:!H]*F":JT^ͳ^O\2J4^***n^>^^ ^g_x2y2*~22##^#V*"P=:<2*####"{^"*":2:2:2{^*"> 2J^**##s#ró^*+""("0"&".go""222!#"*""","$""!"D"B"H"F22á?No Start Address?Loading Error?Out of memory!mÔ!|Ú!'62*>22_2Ͱ ڗ,] ]/—@$MG@RSUXYE s ~w#~wPYͯ>BKͷx~@S:8~@w+~_q+Ú :=E>Cw+p+q+r+s !d6= %Mult. Def. Global ~@*+"PYͯ>BKůͷ~+ڹN+F@:z ! | :r#s :| Ñ z #:=>Bw+r+ !V 6 ~" ͣ+^+V ͣ:?2~= <</O Õ :b 1 :b !c 61 Undefined Global(s) |}!6S#6Y#6Mp>*(*0z ~O~@ +^+V`> +~ ¸ > = |>~ <</O Ô |: )0ͥl:-"D"H"B"F*"**"""j**c*,ͤBK***,o"2G<2&cz6#zbx:xO:6Jz -c!c6yͩJcyBKoOZJ! s#r!B s#r!F s#rSz !F s#p*>2͍}| "*"z ԧ !N6=>/ͥ ~W+++~ͥ+D%2nd COMMON Larger /*"J |2N*"z ԧc > ͷ~@w 7:>ʲ:=ʧ>G:=ʱ>@w[ͥ ͣS!>G~#3ͷU~@U+^+Vs#r ͣ*&*.z ʑ2:†x/Gy/O~w#~waS:ʬSz Ҭ|>]ͥ>2*":5Q x:å$MEMRY*!w#ͅ`O2H2G:2@:»>`ʗ: xʗҗ@M@û":2!~wʆ:o ~w˜:2] 2*|6ڡʡyȷ¡ͷ~@¡"0ác *|á*~ µ::p G@Nx Ýp  u ! ~#foBK#:=R :NI *"|> I C }I #ͧ p#:OI *$|g I l }I #ͤI :=¡ :ʡ <w+p+q+p+q#͍B ++s: :7> @[?@2: x   @ > 6 #= x2y)  0ͥ | }! ' å0:! ~#fo6ͣ- ͣS RQUESTc ] *(:ʲ *0z ʲ ~_~@ʧ +++~#§ c*0cBK͂"0m c+++m 222:jgo""J"L2"N<2:*"*,Z*$*.Z* 6 rJ! s#r)6yͩZ!B ~#fo!"06Jcѵ!*0-Jc6}_|W>2*B*Dcڑ*"*.:ʑz ҥ*"*.cW{_*"#","$":G@O0 ))))o>gùy +%Overlaying !J ^#V!F!y:*"**z 5*D"BS*Dcڀ*"ͧ*,*$cBK*,",z od"$"""S"H"FSSz ڐ*Dc*,*$cz Ҷ!c*$ͤ***"cBK*D*Bc*,**o*D"B*,*$cBK*,**",d"""$"ͷ ~@ +^+V"!/ 6=2!@ Ô?Start symbol - - undefined ~#R Ø REL7:`‹ 6 :6 22b *(*0z I ~Gһ ~`6 /2:`6 ~ 5 ~> >/ͥ+^+V+~ͥ /̥~@ :b <2b >*2ͥͣ~  Link-80 Release 3.36 29-Feb-80?Command Error~ͥ#6~# @ @`Z{Z +!~Gʆ#~ ugx+#ʱ~{:ʤ!P~œ4!6>*ͥ > ͥ:!o>g6 7 —2! d@:—ͱGOl:.: x ! @ 6 !~ 6 6R#6E#6Ly@[X 0X AT :X = [T ]T @T \T ^T _T Oͯ:§ :2͍BK| ~_q#Vp– :=ʸ ͍>@w+r+s+@0:2͍r+s >ͷ /o/g ( ~@wq+<ʶ>2: #_<2 !O~O<ʋ! w#B! w|![ʚͅ!s6*DM`[Begin execution]:*(*0z ~`~@w+++ڳ>GOc ~+¸>6 =*(c!b M 2o *(c~O_c+++y++:area DataProgram!6! ~#fo6!6 -z jSz jz {} _!>?ͥ~#ͥ!!Ô Not Found> ͥ> å>2 O;s+r+s *#"!~#4" 6+wxG +ɯ2E'7)Sͦ)lʕ)ͦҕ)!w‚4#6 _'w#Æ!¡"O<2'X'PO! N#F 2:2 7   cM5  % 5 !@ N#F#^#V#~#fo|} +x~+ * xw# 5 xw# L ~#focq#p: *.z ~u : :2 *""2N6+: w z 2 : *"": 2 <*r#s+: "!*[!""2 <b<2!:<-S ym*B*Dz =**T6 J6z ¼*z Ty¢6*z TÑz *z !!!!'6{#~@+^+V6{r#s^#V{%r+s~O@wy@+Ns+Fr{~2*:w+r+s+p+q+"~+V+^+F+N+*D@ DM>>>>Ҵ<2=O!,!  ^#Vcyy?Jz ?y!"c{J6}O|G{Oz'>*y1O>:ye`Ye~#e Le||e}vvG' > > *|ʹz ʹ-z ڹ>*}|:SyO<: 2,ͥ*&M^#V6yNmÝ!F#~#ͥS>(ͥm>)ͥÝ:Jc Start = External Public = ~#y :0c"L*>2O*$z Ԥ *c>ͷڋ+^+V" ͯ:=p<2= : * PY7l*DcҘ"D!c*"*,!"}2O<2 :Ñ*(*0|G} ~OA++++~ yz 7z 7"cz17*""*$"***c]_KP*c"!Od*"cBK*d*,*c ҠO*"c*,d""*,*cBK*,d*c"OdIPY*"c""*,c",*,6!/62_@Y belowaboveOrigin loader memory, move anyway(Y or N)?S-z pz ܄ Z!z ܄y*ʴڕO-Sz ´y*´!D0z һ!9;;;;;;z z cz7!* s#r^#V cڑʑc!@p#2**!2N#F#~#fo!:^#V  !.~#foz !,^q#Vp!$~s#_~rWc}ʳ:ʱ#z od{_!@6)`i{>!@#8*8*(c"0*2J6cz~# !O: _w{<22 B!HÔ?Can't save object file!W !W !W !W ##y##W ##†#W !3 W !> W **"B *"c"@ *B"D *,"H *$c"F *D"J mL   % 5  % /O üOx_c͞Ow#22+w+w+w+ 9Mw+w+"07:[[ :ȯ2*"*,cDM* "* "*$cBK",d"$S"D"H*&"o *.|}~_!U^#V*". q#p^q#Vp*cBK*,*"d""*D*B"D"B*",*"* !l~R#~E#~Lh:]kw+]COMHEXO;:Ge*`>ee|>S- ":'=*!"**,z  P*{OzG**c*BDM7xw# d +x4~+ uxw+ Â:7=Oʬ:7¸Jc-?Intersecting :OJ-c*"z <2͍:**""!"y!* ^#V ) F#fh4c!"^#V ^#VcCy!" ^#V^#Vc†!2 s#r Gyxi!:ͮs#r#Ÿx|W}_cx2*. ͡2yoxg*"*"*PYz2 !i# p# !!N#i#~# ! r#s"ͨ"{>!{ƀ_>!zW!̀">!\""͓"!"m"!"V#^ͯ!ڦ!ͷ!!ͯ!ڗ!m"|!zʩ!!"m"ͷ!\"z{7"z w#ú!0:ww:g#!!!+!!!6?Segment , file no`&s3S(syMZ;qDhtZ1sTfBm(8$MFMbDDc%8$MURDEhh$DFLRRDEɰ$NURDDDhx$DF42E5X$SAFBDDc($DPLX2DYU`2DU( FDBLEXPGG"*t"GC"*8Y4a`+68Y4 B2hʬ@W!UH)* Hi))ӀQT!TE5%I0t)*3@C@}> |z@h4 Dz¢3B!0" 562 P%520I#`A!2<IU$ AA2HIQ$2TUc&AA2 T(52vITk4hC@`f!u2 P5 V2T #2`%X3Iӑc/A!38Ṣ4A%<32I#2AA3TQ92 L,@563Uc)93Dc3 MV2TP0 aQ:QUSL!dDs t"&'3@t foundcan't create fileread errorDisk is full!!!Ô!!"Ô!\"!"Ô!\"!%"Ô"h#h#D"h#P""h#<2""h#h#<;"2g#!s#!+!##2h#w# " P̣"MpPDD%98t" )@Ɍ2DX$MFMUSdDD)@լ,r 4z+4zh-*^!6<_U N/-x a1~JaIZX]eXNWN rS (BB RSdd4@42.XCC 0S(84%8BDFl|hrk0inʩ`MP $Ub 0+ #DuAh.Fh[  "=,(+H@2. AB Bm>p> `V>EiQ8c>Ӑ?*iFc1L? RT?@3@:gٰ+4 ڔ 4eW0@+4 LNGTH PIUP=SIDES*SLNGTH/(2.0-SLNGTH) WRITE(5,200) N,SIDES,SLNGTH,PILOW,PIUP IF(N.EQ.20) STOP N=N+1 GOTO 1 200 FORMAT(1X,I3,F9.0,F15.6,2F19.12) END ') SIDES=4.0 SUM=2.0 N=3 1 SIDES=2.0*SIDES SSQ=SUM SUM=0.0 TERM=.25*SSQ K=1 2 TEMP=TERM+SUM IF(TEMP.LE.SUM) GOTO 4 SUM=TEMP FACT=(2.0*K-1.00)/(K+1.0) TERM=FACT*SSQ*TERM/8.0 K=K+1.0 GOTO 2 4 SLNGTH=DSQRT(SUM) PILOW=0.5*SIDES*S8Y` ! N0Z~&r~&ZH~$$} vc0QTRTBDd$MMFBD38x$DSQR2RDDX$MAFBDD( $DIVF2DXɀ$DPLXbDD3(ɰ$SUbDED$cP$MUf #Ffi" 9d #[Y" w "Gzq" "w e@"f( !z@a"" e " GGa""1t"#($Ka""1u"&')GSq""bz9t"&Fc@1""jb"t"'#GK1""r:tx "')&Gw)""zr,t"'#GL@)""B t"($#GUa""Lw0"($Gu1""Jyu "(( S)""4vH1 Hqd0Hd1Hĉ*HpHċ*H(sIdD$d)t"#&)@p±@>\$+@z@h<<Hq*2c"@ 2 T#M!J28c$ 2f P$9I522T QI RDEŘY 1A1fjARGV bDDUQaBk:  HbU/N z{m醢tBiNg z@ҮР^iD LFBHT8@@ 2fi[!l4 uUUz@h!T@43@h! BY4f4f3k̀3@"`04+8XTTE Bq@ OL.rl.r $GO.@+$ATRbDd$x $DAC0RD$s($ATIBDdȈ$SAFbDD4 ")'"Gt@q""r" uh ")#!W""B2dft"))Fnq""Bf"))&Oq""w")\)""4v"*(F@@a"*f &G@!"j 4t& I!"j2ltX&G|"jw&G]"jw&#F[q"j ð Q (fՠ%ʟz!(cJ08~ `\dYtͽ@ ï`NVmpop G@,ͭL;.f 63h0 d  FT" g G^" ""4f( "\" u Ff" <A4Ijj3@{h$} 85<*~!`V?a \(fQHg4( H0*HQ HgUĈ*(q` HdhqHf(qҐ Ha*ѓ HHdQ HqĈiq HnĈT bDD4U =5BjtĈi H` inʦ@ 6'r@q `V"`CK6,:*(fQ0H*Hq H8h(3U2DEX%X$DIVF2DE@,0@,@hʰ@n@xGh4f .$CZ 2D5 *SNGL`TDI@0H4#x f%3iH fh!2#'0m$>c% 2c 2t# *: b:Rc j2 P R2N Qc&I92, Q%@UA.: c%%9R:Lӑ'Q`bDd$xM2v P'=YpI̠bDs#1=LOG2G@)"bz94bDs# fP$LOG21 @!  t0Z,0w%JQ}LǷ(8Q( NPqHJQHg 1H ɊPHa8  BEŘQA=1fjr hf P) P1HZFH3 1H>*Q`HKFHWdhSSS!DI0t 3@PVh~   4`Y RDdC( $SAFBE`$DB02D(Ș$FLRBD#$XARRE4# PSRS`bDԔU5%8j))#՚5X4`Yf =aQ0#hBDdHx$AC3BE$DB01RD# $FR22D(P$PPABD($ERRRSaDԔ`t&@h`d $A1" jJr d& B1"J2J PV aD`t&@h`d $A1" j dqc  :IQѣ! 9VpP2DX$NB P BDT#XUIIaBjdQ@HUHUhTf  ՚8Ohhp9YC`t"{&:BX;@uH"@e<_@F@@!"jle|)FL!"B d\#&)FG@!)FH@)"jd($ I!"2bd(( K)"d)FS!"*eH(&,NPUSTD)@X=_4eTpfVŵJ 4fT< w ä :PQ H4(fQ HFPHg)FH*Q H#5YI$MFM QA1A@qX<à`H(qpHgɱ HĉHP Hc8PSRS!TԔ Ht3@h# Q&2RS # 1RpRS bDԔQ5%8j)0 H``hfLd $A1"j d('#N U#! 1J2  QP4%98t)@ɌBDdH $EB4SL!ds xt '3@h ) BDdH $LOG20RD#)SDyxt '@h! BDdH $LOG20RD#)S!4It3@͐|ZU/d@@10 Hh# Q&2 SPV! pPSPV `bD5a AMAX1G@* j t  A1" j 4Wh 3@ a$ATIBD3p$RATBD(Ȉ$SAFBDd5 RS bDCQ%9Rj$))ʑ0 HbW/ #! 9 2& B1"J2J PV bD5`MAX0G@"j t &GA1"j 4Whrh@t,2 Uc  2 U#"@% BpQV 2D4%%b$IFIXAS%T*44 3@[*: A@ RYxɌ2D8 $A"2d&FM@)"bz9d&FO@)"*‚e V!"j ep"NIVDU)t"(!!MƆ/f `YT3@D%0Q,h`, q1݈4:! c  2 c" 1J28 T#M2J c%52j PT' )QHEdhQ`HPH(q e8USbDDA%<$FONEUS"Ĉ*)1 HeȬC@9@  DTCTA'p͢` !Vh!` fCXͤ50P0 .@b!0yTPSPV !T Ht3@h# Q&2 # 5`pS!ED䉩t* $3@ ҥh 4A3@ a@@K/ a$FATBD38p$EXP1RDdX0$ABBE($DB00BD)T!E5%It)*3@C꜀Q.G)"J d<"E!"r:$PaU$U t"yQ0Ej٠|ZTT2@ CGR å@H(Yb# `2  #%` 2>P'`A=N2J P̣%A=L2d Tc&52|P)`aJ2I gQѠRDTti@0B <,X`d# FA!"B d#!FB!"j d4(( D)"54HCOSING@z4 C# M%:: x&[Th"#Ef 3@Śj4z 3iՀmx*0+Cɔ9`h#CKT3lIAC@!"2 d($FR" d\"C4bDC$CHBDU%( $FATbDd$MRARD$ɨ$NGR1BE4(H$UPK0DdINTQU!TdI8t&'fc{ BDdIV RDUMaBjh 0 Hb#Dvf 02 U#!@52IVSa4D٨t$@h4͢ GE!"b˭@g稍&-*j( ݅NTDEA@fmjh@ xͭ@R"Blp@ 1 =aP'( UxpX$x $Gaf0#>0*"S:mZ&(vtP#p!#y\//Vd2"L_P Vu@u{xFV wd@@!" d  FC!"r:$RTQӡT4tXt3@YTl$IAT2BDtIPPD%9`t$)fcyn~Ld '#NQU`BDtH9J$NGR1IԌ%Qy=&_<~/SEsdɌBD3H$NGDBDu($NGR0RDu# I=Q hh^hkp\rꎀQ$iTpmn3QU.ST< { Ar.GBIH h(ё@HO q He#F`Hfd(qHe:(fqHIȑHra8 2E MRP5rfdJ!*@  aQa`xʰu|+U^2 Y?!@#[ VTB9Xu]+lg7"wCj6h*مs Zl»@sx Ff7d 4 d EL@8͢B"†Uo fp@I@(I@)e{U+?.X+?$ &2  P̣ B2 Q Mp`BDdHI"FLTG@" t#&* ``R!H @pa Hfm`Y&2 P!9J2  ##aJ2( gd4uDt!*<eQizڢȬ#3&0R# Z!`BDCID2+Ȓ{H@t^#e4W$#@ M@@u:Й:IЌ T|: ЌI=C#,`I"2 Tc-M2 P" 5J24 T$`UA.2R % 2 #(=Y2Ic+9J2 'NaTU t"K6UL>U@=Z2`^L(POKEf6Lt((@l?cH B#@ =UPF0  FA)"J d TREUYU9A .j* bFwREUn'̘$AC2 `BEYAMA1j* "7Lt((( \b* q&2$P! p P!45 tT5)Ht, 3@hhc A!2IPT'QSaDD٨xt$$@+4pRfhɌRDC(($ICPIU DdC)@t# 5YF@!"j ld&&N`BDӓQ%5U2j6d'ū!|Z#4M)u$z¡ QREX %9BOUTf` ڂ*h*`S. !L ¦7HS4`Dl*feP%2I*0ͨ :ZXHѕ HcdĈHq Hk5ĈH H&ĉ QHRdj0 HIĊ)꓀P`2D(5$MB0IP RD#Q5U2jd,numC$S@_F(ç #^<}UU_f p?^/cYV-k‡:Ͷ}Y Uڪ0ʽGUaZ@k‡+::ڪ͵L;H!![p·@,-[` L"V Rm r "+]H耑 EuEW* m 0DWý#(IVG@"!ˬeR00$D99=-O#@ Vh[(#& 葑H$JSQӡE4t騘t)3@~[g.;$FAT2BD38Ȉ$SAF U!5$It) 3@4d |T1HIHa8 U!4DIt" 3@n>V|ϡxuPf2uN@b^ä@?@ @I>ҩ $POSBDӓʘ$D90`2DD($DB0I RDD#Q%Zkd,B@#  GB@)""(BDD#hFL$DB00W"gFW٠4G($O*|:'ԙ4G[&pԓRSBEu$I$I0L`2D( $$IOERR 2DX H$W52Es()I$MJARG`2DT I$ND `bE4I@x2\.=G&z:*XtT> 4f"t"TD*3n 3m K3@ʽ> ^2 2IP#"`UA.26 Ց#ip RDd#M1JjtɊL:I@<zY46>L$.| 1H*FHi f H'IȆ1Hg3Iѐ BDd5 @Ըe͠`{ B+mY"3B@# 5 GB@)"j(BD#hFL$MB00fp QY+#1Nhq쪬3\m*t<3C|T>T$SaåpH *FH(pHI@H8 Qa4DYt "@TT`evhwV# @6`@ fp[  0fP x¢@oQ[*o;eT01UBVCC*`a[ʥj@(.S`GfP0#jCŒ:O#j݂nX5 uQtg@ٵ ^2c2c}[`1P41 fp*@B B(fqH8TQ bE4CM!)H$SHJR4MF<[quA,@*&ɎbE4C$SHJR1bE4#H$J1ՑBDdh=Y$RND0  RE$C@#F@&B<hhH3'(0A#=Y:IՑ#"` 2  T FP@dhPڄSXʸO{*,8C½Ch2;>-W)eBEr#+5-|ʣb0c¡!l<6:+vU( pIxFVu(IiTPX@][EU<-EB'ѕ WI mVC  U-EW(2bp+W f`( IR1^C)%4X`j, EY1:vU>Ո3`+ׅjp+p`굂YVzʹ@F V`Sx]>g\Uy" * 2 ʩnXꯂkXׁ ͡@: ͷ@ j?M*$  8"ݒ>*'RQ@fРwLaPgN(nbZ+Sa 3n0?* >0n0ꥃ-W(EtY"Qg`-%F["brd|-&Gl"jR  h# fP3PXHPjYp`1Yj©*SF UGXHVmUVPA E^AW[w(Uy@H 0 ϩamAU~h[U`C"*Q!5yJ+ͯA`U X  r ڪ*A >-XV1øCUD- 2 b q ,Ͷ``60 g(. [B!""fT"FhA!"*e0"$N!"Ie  Gl@q" "R+ ͷ@*bõb^~[(8`BD$9=H$NORMd &aQVPJ),ҡ@݆aSXp¥vKG >(4-TvtZɅYl*2e0!]a a@"ŻĀ\} ρs8]@@D1Hq5Ċi F1 HcdF1HgIp HaQPH:+vU  HꩃW#r_F HFH HUU]DU%\P9E|ET%*A&28SZ§@0 w@L:NR#4P HdR_ ,:8*!Gū  5 [R*oqa >-O p!n!V aX`+ 2D6(<[qXufB!` f` 2^C^pܹ"@ifؐFU4a۠A$(YWtz¼Ne^FmM@0^e_Fm0 ½nʵbd|ϢxEAXv,|40+6&7xt-Tt-TtuLAVKD@Ն[xXqL[0(6 0(q`VyiXQ !Fl"e(2" G""d"!FnY""$g,1""UA""4dd2"$FK""dd!"(Fa@)""4d"+Fo""f,"FBB"*2b @:?!ڧr~]Lt.V : cjV f 4zW 6: [LFwP䁆@40+8XVmPE_p49|,xFVdx@"4: U$@M!)02RT")I2$S #$ pQBDEi@/#E^vzA-*4'|+B\n3CLt$+NBE4(M!H$SHR1MI!Ce8à@ `I^-dC|{;G@!"Bt))GE)"BT2DHQ& #aS`<T Q$UeTu%ݙi@ݐ*Q5e[*Ā?,*>3lĀL.~ V$| fp?ٶ\=aذ+/(d#,ͦ $BF2D$P$CLSFLbDU%($OPNFLdDE%iQRDE%c9@T D(p K Wh?L.g !&F\1"b2dx")F}"*x#&!*G1"2brx#&#!G1"2b2b@Vʯ  ڞï S6Uy U| fp?ٵ=aװȈ$IOERR2D$@$BFBDU%($TTYINbEEEH$DRV3TBDU%)@P8~Vw<  IxFVu 1(F6¡F6¡#8 b*3i0V}2bY# /V%9+Xo[ ՛F-<i_p!UX!``.Q<]pѕUEbc6A|ʥ.W6΁3n wpFVBVYheUU\ʥ^/V*YB O,:,x.ٴ 3hU@b:`p0 9B2f`dE4E%h=A:P5$K% qO)B P.<K% r$[*OP lC@@X_ "L:[J!`d#+2^<cm[+ ~a_*/&@FցL*}Ip:UpI@jʰ`Kn>AF +0+ <^*Y ,+\ 3@($J4Q2E( A2$PRRDTdx M$SG2ED8 QN$DACIP RD$sI$ARG2IT2DX ($J7 RDD4iC\.K% pX4\.K qH\V.-K%  q\l.8K% r\.E#K% rP,\.M'K%+<\<ʶ!9%.XSͫhS8ot-!*!] w#Epx2|!$\ѷ-!>= 2> 2] * Out of Memory * $w#«y !&-~>@wV >p j S ́ ʹ !W ͯ V ͇ =!0-w\ f+y ͤ P! C@C@3jHfӠm=mU ڶͫrͨ`ͬq6r6q4mh=c S-aͱ`bͲB͵v6i63kh3kހ3@f2͸ͷ@rͺ2;`r6v6q68H]dhH`djHbdq0H8RDED$hQ $DTBF3`bDED$cxQ $DTBFAԓbETdD\.K@% pDZ  HĈH10 HgĈHƱp HoĈH HĈI H80,F15.6,2F19.12)+T!=!͓$- !,O !͓$- !4O !"!͓$- !,ͯ !,O !4y !<O !͓$- !4O !͓$- !<ͯ !DO !$ !$O !Dy !4ͧ !LO !4͗ =Ɓ2'!Ly !4O !$y !͞ !O !͓$- !$ͯ !ͺ !V !O !Dy  rX\.Z.K@% s\.d2K%  s`\.o:K%@HH-QHH6QHHcB&QHcd&Q0Hgid(qHak(fQHgm(f`Ho*H Hau*HQ` Hgd*qH dHHdhH1#!LPd&qHaj*JRDIpqdQH19AFP@Y"ae!ZY"Ŝ+,5V2 / 3"Uc)@,MVcHdjQ HdS0ӀE5I F"@ :l.n@e``XIÑpXFEa`ȌƠC@3hfmmm/m ܐm&fҐ ffӰ)fа fPff!@ @|f -~w` k K_@;#@5|f *@c2}\Xm(f@ LiE[hF"@ :l.n@e``XIÑpXFEa`Ȍ HgĈHƱp HoĈH HĈI H8K@% pDZ  HĈH10 HgĈHƱp HoĈH HĈI H8!<ͯ !ͯ !: !DO !y !$O Ø!4ʹ! O !͓$- !,ͯ ! ͯ !O !͓$- ! ͗ !O !,y ! ͯ !V !O !!>p,!>͂=*}2 *#"GY2\"!* ,` &G@)"j Jt< 4f 8H\(K9U' by8@P$!dHDd)PHcFdFQpHgHdFHkJdFHoLdGHN HPd HT fQ`HXd qH:Hq(/1X,'BOUNDS ON PI - DOUBLE PRECISION BINOMIAL THEOREM VERSION'//' N SIDES SIDE LENGTH PI - LOWER BOUND PI- UPPER BOUND') ` / (1X,I3,F9.b $p j S A Á 3 V ͇ y b !%->>w$=:y Ay ʠAb  9 S y! ͗ AʅA! y ! >!%-wç b ,$f+,$!/->w 5| Ƅ}&l.F}k +}+''c}jr$I~L~y ()O= GÜ$f+f%,ͪ$Hf%7ͪ$Hf%2"-͇͇Z6!#-͓$>Wf+ͼ$Sͪ${!'-6=g>0%|Լ!>Qak~#fo͓$8;^Eܪ$Oxë͓$!F͓$xf+"~"E͐Oxͫ! ͨ!ͨA! F V ͇ !&-4S ! ͧ ͘ ! b ."/-3 ! y $,$9 y !&-~6!w ͯ ! ͧ V !o y S ! ͧ ! ! ͗ !9-O og$ ! ͯ !9-ç f+v޸-~Mοu9~5A`kc~2fI(L */f%>Af%2-\ $ \ z%b :-!/->w ()~++w$!-4# 49 +6!)--# ' ɯ# 4 4 W /!-Oyw#O G:%-€ !-Vwz# e xX ,$!-͓ x x !&-w,$ ~w# • V ͓$- ô V $ !)-ç V ͓$- V $ 9 !)-× y2/-!%-8-~q+ q NsY+ :&-!P9 ! y c ! (J!Yp ! ͧ ͞ ! ͯ ! ͗ ́ c ! ! ͗ A! ç 6!hï q(7[^y ! ͧ y !_ ͯ p ́ Aʹ !g ͗ $!W ͗ A!g ͧ A! ̿JÍN}k,٬NytZB<(sfioS;5#-1]h!$E A͐Aëf%>8Af%2"-u͜$u$ܜ$A͓$A͐A$͓$A͓$; !͓$;1r!y$z||;|O|ͮ>)=Ҵ2"-*#-" -*%-"-!"-5ͪ$)! -QYx!%->w!Aʹ$A!d&X4#]I<$lA ͝P!ͨAG_!%->wx!wFè,$f+,$I͓$A!AQYڝ!  8!E!F! !!ͨA!F׳]b5~P$L~yI b 0-2 $O7 !$!%-y#/ +" $?$V ͓$- P V $ 9 !)-b ʼ :&-$:0-/ 2-:-W $x//ͮf%.͓$x !&-4͔!F$!FyQY$Ü$͓$x>@G2&->ExI!IV ͓$- V $ 9 !)-b ! y $eA!9-O \ O V !A- ne !9-6!A-ͯ ò:/-f+f+,$pB.={`ԝ!Ms==Cz(/i1e:|\);8y !ͯ :&--H'p 2'-́ :'-Ɓ-Aʹ !W ͯ p !u ͞ ͘ ! !9O$WE͓|͟$+!A<Eͻ^>O!&-~+>w$QYÜ$^$:&-ҕhڍE͐Ɓʕͮ!J"QYÜ$$,$#|Yt&wz^Pc|u~r1͜$f+>2&-!EogL }}{(qnB׳]h!I.k V ͓$- 3 V $ !)-ï f+!&-q#~++w+qN $DNn"~`35zr1{r1h!Ib $yO2/-í b $:&-9 ҿ /<9 9$:/-O0G2(-!/- :(-2-x!)--> ' 4 :- !'-p ͘ *, ́ 3 ~#!,O y =!,ͯ ͧ ! -!)-Nwy#A $-e !-b !)-y A!A!0-s !&->F+N+=v !)-Ê !->q#p#= !-ï "1-́ p \ *1-b ,$:&-,$!/-N#Fp q G  x  W !%- j0 Te€"&-ܶN#E|66/)+~#foo&)#/z^zB|G||$f+!&-~+y~w$z%ʹ$:"->Oz%^#V:"-y$|~#fo|ɯO_yW!'-~/woG}_}W}OE͟$y$Z}o|g͓$ô$||DM!>)) f+J!&-qx!&-$F#~怩OÜ$ 4#go"#-"%-:+<2+!$,6P#6#"x,6 :d$=G!%w#V$2%2%* *(**** & & & & &~#fo~#foͪ$s#r#q#pü$ʹ$͟$ͼ$"#-`i"%-*#-*%-DM^#V#N#F#xy$:&-:%-7!#!!#!!$!!!!,4|/G}*,|f+*,|f+*n!)-,w#+!,)-):-!,wʰ:->!,5c:,*!,50*,F#",!,~!-!,2,ʕ2,/:--!,5.RÞf+ !,5¶Õ*,*,{z#",*,+p!,5f+:,:-4!! -~4,:,>!= :,G!!,)-w# *:-\*,DM*,""-*, *,{`i",",*,DM*-""-*,*, {`i",X:,*"-+}|:-«*"-",>*,>*,""-*,w#=~*,+",|{<>G!,60#3#!,4:-0# HVE:,G*,,1"-w#1"",*-|4!!-~"x2,w:,=p"=p"+>2->wÇ"!-~"/W+~/_s#r>2-7$k#!,~w""3#Ë""!-,)3#ҋ"!,-)!,4/G +‡"2,!,w#"!,4>*-*,",*-DMyxo:- }o:,g"-"!3#$:,=/=:f+:,og",go"-"-2->2-G":,:,2,2,wzq* q>00ڂ:҂02->ɯ2,2,2,z- >2-å+¨z"*,+",!,4A:-.>2,2,A:-:EDz+->2,zy2,*,=^#Vy$s#->~>#-#->~>#-!%-~7w?##wy7O*#-*%-"%-"#-|c}|G>Å>Å>Å>2,f%z%~#fo",z%",*,",:-ʰ4Ö Öf+>2-2-<2,>2-2-<>2-2-2,~#fo"-!1-",~#+¯w *,+",| :-«*-|4!+"-:,2,2-2,2,go","-"-"-:,!,w:-X 4*-:,G*,,j -~#j ",T :,*-",ɯ2,go",*,*,~# ʗ -® , × ",2-G0 *,T])))_Ì *,| #x:, o>g",|x!-~w+ ·f+ *," -*-"-4!!",*,*,:-N~'?*w#,#~'2",4!~'eG*,#",#N*,#",#~'T4!: -=!-4!", 2 -4!*-+"-|4!* -",! -44!!,6:-:,*,z*,6 ",":,2,2,:-*-",x !",4!!-~ w#",~: w+ w!,|2}2!,4#",|/W}/_*,",>2,:,+G":,G:-dx2,:-s2,w:-0!,5ʥ<‚:,ʥRÕE:,ʰD:,!-2,+-/<2,:,_! ${0G}0G:,+G":,G!,4!f+ *,",4! *-+"-|#4!:,G:,2,!,>w!,5 # !ajSX͕#,$JS\E!&-,$/ G :,x4/<2,G!,~w:g:-A###!#:-!)-w#wf!!,:,wA* z:,<2,z+FʝT+>2,*"!,~ʵ>T>Fw> #w#w#w>2,> > >O}2-O!d$:-Ҷʶ=_^#V ^#V!",!9##"n:-&go",",",T!,>T%*,~#<go",*,~#Jgo",*,~#fo",2 -2-2-2-2,2,go",",6$*,|ʌ͆ *," -(f+2,2,2,2,<2-:->%# ¶> !wé:,/<!=2,:,"/ "!=%#:, =2 !-~w+ !!0-!!-!,w#(!6 ͆ "-Q!,4!/ʫ)x'P_!:,2-4!|o!f+!"-2,!!ʈ!# y!f+yO! ":-ʘ!!! ^#V"-yҵ!*,",!",͆ ¿!f+}2,2,y !:-.!͆ *,}2,*,+",f+XH(AILEFGD",5 *,+}|%*, ~2-`i",>> 3 !,4*:,I…:,=M=T:,Xf+!-if+n#^:-"*,|/g}/o#",">2,:,Җf+!,:,«:,«:,w~/2, ã*,*,DM*-*+|¸"-",4!*,*,F*,#",*-+"-|#4!*,DM!/O!>% %7>{_zW}o|g= %|g}o?%CZQ2% o-yOzW{_xGB%`iN#F#q#p#=W%2," -"-`i",2,:,ҏ%! -_ã%:,*,ڨ%_~#fo:,<2,W:,һ%K ***** 002A' LXI H,SUM ***** 002D' CALL $T3 ***** 0030' LXI H,0003 ***** 0033' SHLD N 11 SSQ=SUM 12 SUM=0.0 13 TERM=.25*SSQ 14 K=1 15 2 TEMP=TERM+SUM ***** 0036' LXI H,[ 00 00 00 82] ***** 0039' CALL $L1 ***** 003C' CALL $CK ***** 003F' L&@'ɯ;&(w*,*,&+(w#"('&77;&8w*,'&>2,?ɯ;&2%:,~4w:,ʄ((>*,~D)#=‡(> D):%7:%¼(&o)&2%<2%7;& w2,2%)()*,&*,w", (}(f+:%* 0006' LXI D,198L ***** 0009' LXI H,[ 05 00] ***** 000C' CALL $W2 4 198 FORMAT(/1X,'BOUNDS ON PI - DOUBLE PRECISION BINOMIAL THEOREM VER ***** 000F' CALL $ND 5 1SION'//' N SIDES SIDE LENGTH PI - LOWER BOUND PI- 6 2 UPPER BOUND') " ,*+`i#,!,* ,> z,> z,P &,_*x,~ ̚,#~"x, $,!%,^#6 #> z,w-FORTDATö(c(=( (( &'!%:-_~!%:- &_^#V2%2%&r'@~&:-_!%6* ,)|l&}o&"%" ,'&*,|ʄ&+)7|! w#w#&`' *<¯&< &'&*,}&}=! Ğ(w&WĞ(r2%go",7&:%&:-_!%rw2%?ɷ!%:-_~+)5!%/Ɓ_#>W *'&2%>w7!%:-_~)4!%_#>Wɇo)>D)!%:-_~6*o&)6#<Ç)+ *'&2%&ww!%~{2-':d$±):d$= &~2-6$&r''& w )#w):-_!d7 SIDES=4.0 8 SUM=2.0 9 N=3 10 1 SIDES=2.0*SIDES ***** 0012' LXI H,[ 00 00 00 83] ***** 0015' CALL $L1 ***** 0018' CALL $CK ***** 001B' LXI H,SIDES ***** 001E' CALL $T3 ***** 0021' LXI H,[ 00 00 00 82] ***** 0024' CALL $L1 ***** 0027' CALL $C*,}X'+)L'&! y)'͞('w7C&! ~<\'&\'*,+} #w#&w#¾'w"%>wT] 6& (6'f)'& *! wFORTRAN-80 Ver. 3.36 Copyright 1978, 79, 80 (C) By Microsoft -- Bytes: 28517 Created: 29-Feb-80 1 DOUBLE PRECISION PILOW,SLNGTH,PIUP,FACT 2 DOUBLE PRECISION K,SIDES,SUM,SSQ,TERM,TEMP 3 WRITE(5,198) ***** 0000' LXI B,$$L ***** 0003' JMP $INIT ****w", }*f+:,*,=> z,~+N+19+> z,N+> z,~ N+0N+> z,#~#z,=P+~#O!+ ^#V"`+!\+6 #6 #6*#6*###6*#6*#6 #6 !\+ ~z,#œ+:+<2+,,IDF0MPIRFWITEXDOMLDZLGSQIBTLOBDEISBEINOVCNGLGSSNA2IODTBIRCEF2+2+! ,$ &p+q*:-_!%^#Vu*x*u*u*u*u*6*:%*u*> Ϳ**2%*:%**&*> Ϳ*> ÿ** ,J*|m*}p*"&*" ,ö:%**:,*,=> Ϳ*~+ʱ*1¡*> Ϳ*ñ*> Ϳ*~0±*> Ϳ*#~#Ϳ*=ó*_>2%*]**+*****ö2,͉, **,&*,XI H,SIDES ***** 0042' CALL $MU ***** 0045' LXI H,SIDES ***** 0048' CALL $T3 ***** 004B' LXI H,SUM ***** 004E' CALL $L3 ***** 0051' LXI H,SSQ ***** 0054' CALL $T3 ***** 0057' LXI H,[ 00 00 00 00] ***** 005A' CALL $L1 ***** 005D' CALL $CK ***** 0 $SU $AR $SR $DU $DR $ST Variables: PILOW 0001" SLNGTH 0009" PIUP 0011" FACT 0019" K 0021" SIDES 0029" SUM 0031" SSQ 0039" TERM 0041" TEMP 0049" N 00DA" T:000002 00DC" T:000003 00DD" T:010003 00E5" LABELS: $$LD' LXI H,[ 00 00 00 82] ***** 0140' CALL $L1 ***** 0143' CALL $CK ***** 0146' LXI H,SLNGTH ***** 0149' CALL $SU ***** 014C' LXI H,T:010003 ***** 014F' CALL $T3 ***** 0152' LXI H,SIDES ***** 0155' CALL $L3 ***** 0158' LXI H,SLNGTH ***** 015B' CALL009F' DCR A ***** 00A0' ADI 81 ***** 00A2' SBB A ***** 00A3' STA T:000002 17 SUM=TEMP ***** 00A6' ORA A ***** 00A7' JNZ 4L 18 FACT=(2.0*K-1.00)/(K+1.0) 19 TERM=FACT*SSQ*TERM/8.0 20 K=K+1.0 21 GOTO 2 ***** 00AA' LXI H,TEMP ***** 00AD' CALL ***** 01AF' LHLD N ***** 01B2' INX H ***** 01B3' SHLD N 29 200 FORMAT(1X,I3,F9.0,F15.6,2F19.12) ***** 01B6' JMP 1L 30 END ***** 01B9' 00000081 ***** 01BD' 00000000 ***** 01C1' 0100 ***** 01C3' 0500 ***** 01C5' 00000083 ***** 01C9' 00000082 *10D' LXI H,K ***** 0110' CALL $T3 22 4 SLNGTH=DSQRT(SUM) ***** 0113' JMP 2L 23 PILOW=0.5*SIDES*SLNGTH 24 PIUP=SIDES*SLNGTH/(2.0-SLNGTH) 25 WRITE(5,200) N,SIDES,SLNGTH,PILOW,PIUP ***** 0116' LXI H,SUM ***** 0119' CALL DSQRT ***** 011C' LXI H,SLN060' LXI H,SUM ***** 0063' CALL $T3 ***** 0066' LXI H,[ 00 00 00 7F] ***** 0069' CALL $L1 ***** 006C' CALL $CK ***** 006F' LXI H,SSQ ***** 0072' CALL $MU ***** 0075' LXI H,TERM ***** 0078' CALL $T3 ***** 007B' LXI H,0001 ***** 007E' CALL $CC ***9' MVI A,02 ***** 017B' CALL $I0 ***** 017E' LXI B,00ED" ***** 0181' LXI D,SIDES ***** 0184' LXI H,[ 01 00] ***** 0187' MVI A,05 ***** 0189' CALL $I3 ***** 018C' CALL $ND ***** 018F' LHLD N ***** 0192' LXI D,FFEC ***** 0195' DAD D ***** 0196' MO $MU ***** 015E' LXI H,T:010003 ***** 0161' CALL $DU ***** 0164' LXI H,PIUP ***** 0167' CALL $T3 ***** 016A' LXI D,200L ***** 016D' LXI H,[ 05 00] ***** 0170' CALL $W2 26 IF(N.EQ.20) STOP ***** 0173' LXI D,N ***** 0176' LXI H,[ 01 00] ***** 017$L3 ***** 00B0' LXI H,SUM ***** 00B3' CALL $T3 ***** 00B6' LXI H,K ***** 00B9' CALL $L3 ***** 00BC' LXI H,[ 00 00 00 81] ***** 00BF' CALL $AR ***** 00C2' LXI H,T:000003 ***** 00C5' CALL $T3 ***** 00C8' LXI H,[ 00 00 00 82] ***** 00CB' CALL $L1 ***** 01CD' 0000007F ***** 01D1' 00000084 ***** 01D5' 00000080 Program Unit Length=01D9 (473) Bytes Data Area Length=010D (269) Bytes Subroutines Referenced: $I3 $I0 DSQRT $INIT $W2 $ND $L1 $CK $T3 $MU $L3 $CC $AUGTH ***** 011F' CALL $T3 ***** 0122' LXI H,[ 00 00 00 80] ***** 0125' CALL $L1 ***** 0128' CALL $CK ***** 012B' LXI H,SIDES ***** 012E' CALL $MU ***** 0131' LXI H,SLNGTH ***** 0134' CALL $MU ***** 0137' LXI H,PILOW ***** 013A' CALL $T3 ***** 013** 0081' LXI H,K ***** 0084' CALL $T3 16 IF(TEMP.LE.SUM) GOTO 4 ***** 0087' LXI H,TERM ***** 008A' CALL $L3 ***** 008D' LXI H,SUM ***** 0090' CALL $AU ***** 0093' LXI H,TEMP ***** 0096' CALL $T3 ***** 0099' LXI H,SUM ***** 009C' CALL $SU ***** V A,L ***** 0197' RLC ***** 0198' ORA L ***** 0199' ANI 7F ***** 019B' ORA H ***** 019C' SUI 01 ***** 019E' SBB A ***** 019F' STA T:000002 ***** 01A2' ORA A ***** 01A3' JZ 0000 ***** 01A6' CALL $ST 27 N=N+1 ***** 01A9' 202020202020 28 GOTO 1 $L3 ***** 00EF' LXI H,SSQ ***** 00F2' CALL $MU ***** 00F5' LXI H,FACT ***** 00F8' CALL $MU ***** 00FB' LXI H,[ 00 00 00 84] ***** 00FE' CALL $DR ***** 0101' LXI H,TERM ***** 0104' CALL $T3 ***** 0107' LXI H,T:000003 ***** 010A' CALL $L3 ***** 0**** 00CE' CALL $CK ***** 00D1' LXI H,K ***** 00D4' CALL $MU ***** 00D7' LXI H,[ 00 00 00 81] ***** 00DA' CALL $SR ***** 00DD' LXI H,T:000003 ***** 00E0' CALL $DU ***** 00E3' LXI H,FACT ***** 00E6' CALL $T3 ***** 00E9' LXI H,TERM ***** 00EC' CALL 0006' 198L 0051" 1L 0036' 2L 0087' 4L 0116' 200L 00F3" ogram Unit Length=01D9 (473) Bytes Data Area Length=010D (29" SUM 0031" SSQ 0039" TERM 0041" TEMP 0049" N 00DA" T:000002 00DC" T:000003 00DD" T:010003 00E5" LABELS: $$L1#!LPd&qHaj*JRDIpqdQH19AFP@Y"ae!ZY"Ŝ+,5V2 / 3"Uc)@,MVcHdjQ HdS0ӀE5I F"@ :l.n@e``XIÑpXFEa`Ȍ` &G@)"j Jt< 4f 8H\(K9U' by8@P$!