IMD 1.16: 7/09/2007 11:06:25 COBOL Version 4.64 SSSD Disk 2  >@81!{K(z4y0= 400 x2z43>048ü0g(>>8,:D :D {__LGSSSD1!"Iw A(>S(tlX(O_ !́͒T=(~̧7~ wn&))u t #_ͳu ~ w .[#.0[, ͠66 @6 6 w w0w1w2.[6 #,n!&NF Nv(N/B0N 0NF B0N^VR8 ~ R8ut^'V(N)y(A~&o&)))n$f%6#= y͠R0DMz x>( lB{=.S,͠o&))))) ::s͈8{=( (Ϳ7qO y.*Ty??!058 Py.>>*T ^MVNNO~PsMrNqOwPwMwNwO6PsQrRwS^QVR~Sn'f(-w-/w>:::{ï͛!lTͯ~#Ɂ ?(=_*~=8 #~#(>7گ͛ʹ Z(>ïͯ! 6#!́~ V ::w^ #q ~(#p#y( ! 6ͷ>8͛~N> ~M=ïw#͟6!  # SYS DIR4@ G~ O ~ <(9w q ((y!0 50>ͩ>! >ïc8%.[Nl&s 0{G!l`. [n}(O N{(#F+ ( x( x( 7{)͡xGàP#~G ,W   ! Ǹ ~G ͧPN(ŧ?G*~8x( X#~# F T8 #?( ѧ7^#V ^#V́**X#^#V͋͘^#V͘s#r*#2 !G 0H* " !" : 0CG! o0$^#V#~(=  ~!g ! o !" : (>G 8  M @M @M @M @K = @ K  !:=q  :*o (= [!:O(: 2ݾ! * ͻ З2| : 7V &i:_Tͳ}2% C#!q 2 y2 x2"!" *x ĺ"nf"~227* : _NB0{ 7V 0{2^!ͳ{2ͻ :o&:_Tͳ{2}<2 7~32N2v(8 N/>2>2͕ :_g>o":  ~( *N(O:(y2"^V R>G 8 :o& +~2: : .b.bN#Fxc # #~O(!b w= b  !b Fˎq p:b O(!b  ^#Vq (2b ,"2ͣ 8 HN ^#V#F#fhɧ(G 0 H~#F#N#^#V#fjɧG >2c !"2:  G 8>2O*H#~Gy*o >A2! ! .Remove disk in drive ; press any key to continue .[: Z ا2 *~A2 24 2> 2` 2 (:(1(7($(! h&))) !& Ö !6 !L !w x Seek Write Read Home Read-after-write Logical disk error h, drive , block h error: Drive Drive not ready Diskette in drive is write-protected Drive   is write-protected > .(/_R(3! I( ! <:b ˏ2b 2ͼ 2b ! 7Retry Ignore Continue W>W>jjjjjjj j"j$j0j2j4j@jBjDjPjRDM !͔ ͔! 9F+Ni`_^#VxBKBKWzS0:__~ͻzP{P*~(P###+##**85~(.6 ~w *(.Ww~ 7   6 nbͳ>_> ͜ ͜6F(Z(^ 4s#r~#fo* >C( = z {?>70BB0 = * }+" }́=͋!" *F#~##( A͠ X#Wr  x2y@ Z=ʞx2y@ʣ Z=ʞx2y2{2z2~2GW(x2Öŗn( ^(2~-2ɗ"Sy(Q(2Y IHMI>@> y y>O2 R"n(>2t4>w @22>2!"͖Hf88 88>8zSD5 >v 7>w! cannot read double sided diskettes ~TD5 ^ >7ɗ cannot read double tracked diskettes x*~B(C(7 cannot read Backup diskettes cannot read CROMIX diskettes 63|DD5 63n(%4n&^/Tv ]B0ut  7 cannot read double density diskettes *~#~͸ͪ^ Y^(f j>< cannot write to single tracked diskettes ͪ͛͢8d:wN(n"f#|(w! !">2:%*#|(~2#88!4*"= y &x q y2m:2H:2U:2a<>>>, Cylinder xx, Surface xx, Sector xx, Status=xx                  9> 2͛9 `͛(U:::ˇ29222͛ % (o (:O7ɗ222!4804W =0 >0ͽW@ Ͷ4W 0>014W 0>27ɗ!4:3O:2:1ʶ804W 0@ͽO>04W 00.2@ - @ Ͷ$:W(_(7:Ͷ!d027:2_04848,4O 0Ͷ02Ͷ>27B W͒ƈ_z4{ W͒ƨ_z4{04848 ƒ40Ͷ027:O8 483Ͷ027{7_K88A043#43#43#43#403>!*E3*O4(2t4ͽ_:(!!: :g:2 4 ! Nx2>2:G7G:W(G(x 4/ >ɯ42H!4ͽ!'ͽ:(}x!:W ! +}  [W v4........`M @ v4........@`M @ v4........`M @ v4........`M @ FDCLSS2 SISAMDEMOCMDISAMDEMOCOBISAMDEMOCRXlinked with Coblbx.rel, producing an executable file: Link Isamdemo,Coblbx/s,Isamdemo/N/E Rem Finally, the compiled and linkedLIB COM% LINK COMT LINKD COM !"#$%&'LINKD COM( program is executed: Isamdemo RCISAM COM)*+,-./012345678RCISAM COM9:;<=>?@ABCDEFGHRCISAM COMIJKROOT COBLMN IDENTIFICATION DIVISION. PROGRAM-ID. ISAMDEMO THIS PROGRAM DEMONSTRATES THE USE OF AN ISAM RUNCOB COMOPQRSTUVWXYZ[\]^RUNCOB COM_`SEQCVT COM*abcdefTESTISAMCOMghijklmnopqrstuvRem This Batch file will compile and run a sample COBOL program using ISAM Rem First, the input COBOL source file is typed: Ty FILE IN A CROMEMCO COBOL PROGRAM. *--------------------- ENVIRONMENT DIVISION. INPUTESTISAMCOM wxpe Isamdemo.cob Rem Next, the source file is compiled, producing a REL object file: Cobol Isamdemo,TTY:=Isamdemo Rem This is  T-OUTPUT SECTION. FILE-CONTROL. SELECT DISK-FILE ASSIGN DISK ORGANIZATION IS INLUMN 1 "Last". 03 COLUMN 21 "First". 03 COLUMN 36 "Address". 03 LINE 14 COLUMN 1. etical order.". 01 NAME-DATA. 03 LINE 7 COLUMN 1 "Enter last name: ". 03 B RAD1. READ DISK-FILE NEXT. IF DSTATUS = "00" DISPLAY DREC.  WORKING-STORAGE SECTION. 77 DSTATUS PIC XX. SCREEN SECTION. 01 PROG-Drecords read and displayed". STOP RUN. ACCEPT-DATA SECTION. AD1. DISPLAY NAME-DATA. DEXED ACCESS DYNAMIC RECORD KEY IS DKEY F *------------------- PROCEDURE DIVISION. START-P. DISPLAY PROG-DETAILS. OPEN OUTPUT LANK LINE PIC X(20) USING LAST-NAME. 03 LINE 8 COLUMN 1 "Enter first name: ". 03 BLANKETAILS. 03 BLANK SCREEN. 03 LINE 1 "This program will ask the user to enter several". 03  ACCEPT NAME-DATA. IF ADDRESS = SPACES GO TO AD2. WRITE DREC INVALID KEY ILE STATUS IS DSTATUS. *-------------- DATA DIVISION. FILE SECTION. FD DISK-FILE LABEL RECDISK-FILE. MOVE SPACES TO DREC. MOVE "A" TO ADDRESS. PERFORM ACCEPT-DATA UNTIL ADDRESS = ALL LINE PIC X(15) USING FIRST-NAME. 03 LINE 9 COLUMN 1 "Enter address (or all spaces to start readingLINE 2 "names and addresses in any order, while writing". 03 LINE 3 "the data to an ISAM file using the DYNAMIC".  DISPLAY (24, 1) ERASE "Invalid key on write, I/O status: " ORD IS STANDARD VALUE OF FILE-ID IS "ISAMDEMO.DAT". 01 DREC. 03 DKEY.  SPACES. CLOSE DISK-FILE. OPEN INPUT DISK-FILE. DISPLAY HEADING. MOVE "00" TO ): ". 03 LINE 10 COLUMN 18 BLANK LINE PIC X(40) USING ADDRESS. 01 HEADING. 03 LINE 12 CO 03 LINE 4 "ACCESS mode. The program will then read the". 03 LINE 5 "names and addresses back in alphab DSTATUS STOP RUN. AD2. EXIT. READ-AND-DISPLAY SECTION.  05 LAST-NAME PIC X(20). 05 FIRST-NAME PIC X(15). 03 ADDRESS PIC X(40).DSTATUS. PERFORM READ-AND-DISPLAY UNTIL DSTATUS NOT = "00". CLOSE DISK-FILE. DISPLAY "All  *" "2:G :!F#N#~ :!!y~#!~6L#~6I#~6B: : !!!rel Echo 'Finally, the compiled and linked program is executed:' Isamdemo del runcob.com #27U@L CERO3H 2:2BByʀʍB2**͋ ʬ~ġ~/_blink -f /usr/pkg/fdc/cobol[1-4].ovr . maklink -f /usr/pkg/fdc/cobol.com . maklink -f /usr/pkg/fdc/cobloc . maklink -f@7~ DM:1^+V:+++++;#x+;y;@"{ J+~+ng~w*+r+s w@f"+1+w+w+p+q+r+s+' 7*"͊:#!_^#VJB:Į5:($W[[0[AW:[;O8*-l>w#p#}y+>‚͖ͷ~w×ͷ~w+++r+sB:̵~,+<2ͱ!ͬUnsatisfied external request(s)yͧ  /bin/runcob.com . Echo 'First, the input COBOL source file is typed:' Ty Isamdemo.cob Echo 'Next, the source file }̊*"+1+++:,:Ͳ' >@w ҴxIJ:w+ :;@~*!@"DM+1: p+q+rwxʒ‰y:ұ0ڱOxGÙx+N#^,>. . *4 ^*44,> *xx'CBɯ3xG3 73x3x!~w#4H\!">2*!"YYy   is compiled, producing a REL object file:' Cobol Isamdemo,TTY:=Isamdemo Echo 'This is linked with Coblbx.rel, producing an+s+~ wF#~# x:!>/O ü++++:w+:w7_ > >:!o>g6 !~6Gʞ#~ … y6<&*6#w#w#6#w#w# yͷ >&8:7>I@*6#6 #w#8xc2jzn> !zs# x>2*""> 2*22m~ (!"!6=h!6# p#6#> w#\"!2,l 2 *"Y!ͱͱ**͋ G ~@ҫ¦ $ ÕͬìSymbol Value Defined Reference"Y"Y>͸~w+1+r+sY executable file:' Link Isamdemo,h:Coblbx/s,Isamdemo/N/E del cobol[1-4].ovr del cobol.com del cobloc del isamdemo.wx+#ʖ~Ë2\ͬ>*>O> >2> >:ʬ<2> >~>#G~>+ú~#  ` / +Echo 'This Batch file will compile and run a sample COBOL program using ISAM' maklink -f /usr/pkg/fdc/isamdemo.cob . mak6 #=y.8xڢʯã"yɯ**͋ ~OA:,,++: ͷ~!i ͱ*>2' !q !~#6@>>:> / ͱ!V *z ͬ!A *z ͱ2*͋ ʒ~{$ b: _<2!~*w#"*' * ~#" :# !~# !w#! w#ʗ r+s*͋ ʗ | *w#w}_|W! >?>ͬ(Out of memor! ê Command erro! ê File read erro! ê File not f+++~+ng~|}!~#4  t6+w͑ xG © ɯ2͑ ͥ 7ͧ ) Gͧ   ͧ )  ͧ !w 5#N+>5+~>5:5<2 ,'2 :G~x:͏ !w#Q* "w#w**͋ ~~vw/_:9 z ͺɯ2*͋ ~@ҮĴ$ Ø:L ͖ ͺɯ2*͋ ~@$ :] üO~++2: .ʹ y%#2 >@͸ɯ2 go":IG:~2͊څxr͊͡͡2GG ͡BI:oun! ê Can't enter fil!" ê Module name/number not found in fil!M ê First module in Until clause after las!{ ê Libra4#6 _ ͥ w# ! "O:G<2ͥ Xͥ P:\ )0>) K 0>H |a }Gl x0:w >PX ,d|2FORLIB REL~2+V+^+++V+^ ~,+ ,~/_~>#/ <2ͬ!n ͱ<2ͱ! G <2ͱ! G Common block(s)E2I< >2< eu ͧ : e |} >:> '"!7 ! :O ~>'A> y > CBy :GW> !F# W> _x GxGntry point(s)External reference(s)27v ʭ 2͖ ͺ' 7v  ͋ ~ ~ͬ¬ ë: Ox, =+#>2x2#" G:<222 :E<2!"*" ##"ʹ VVyʙV?** s#r2 w#w2ɯ2: Ie< 2I!"! w#P w: <2_!dw: ʤ:3 :3 "*͋ ڧ "*$͋ * ^#V+*{ʧ :<2͠ ͠ xj ~# ] * "*  " * ^#V{ͺͺ  ͺͺú' ,+V+^: Length of Data areaLength of ProgramModule ofڈ ~ 7,ډ~:=222>@͸V#~G#N#~±>@2͸>2+~, *~Ÿ,:,+++~++ *+"S" " " " go"Q"`2 2!2!2X2Z2]2^2c2_2\2W!*" " " " "=";!" " " " 2 2 !" ?No Staʆ!; Not Found> P> P>2 g 28: _<2 !~g ! w#! s#r! s#rͅ ڬ! s#r!; s#ry ! ~#fo! ѵ! p @p ͔`p p p * } , >wk  :`? !K * !b  Undefined Global(s) Bytes Free 2bP  ~ o Link version 03.44 -82 Copyright (c) 1981 Microsoft ?Command Error~P#~#  `{ +!~g   # |/g}/o   DM!>= ))K K z zi  Brt Address?Loading Error?Nothing Loaded?Out of memory?Illegal Polish Exp:!‡!!!2!!!2*S!wO |!y:!(͔*QDMÙ&[Begin execution]:Z:X* * ͅ ~`~¨@w+++o>GO ~+t>}_|W>2 * * <* * : <ͅ P* * W{_* #" " "=:WGO0ڗ xڗ)))ҖO~>-ʑ > >/P+^+V+~P ™ /PN~ ʼ !ÿ "~ N+^+V>>PN:b?2b̔>wt :bȯ2bG #~ ex+#<~: /͔>*P d> P:e!fo>g6 7ʌʌ  y:+y#P2\2f gK}o|g҄ : ʫ ͅ ҫ | >]P͔: : $>2*Q"!o&'  d   >0G ~ 4!>2 2Y:c2c ,/MEG@RSUXYE{ O :Ù&O†6 #=ƒ* ! ͮ 2X * ~O_+++y++:XK͔:c2c *Q>[P"N!C \* s#r!I ʌҖ)o>gdy +%Overlaying areaDataProgramÔ!! ~#fo!ͅ ͅ k [ M  ~++GOŸ& H+D ; & yE >  * [ S } 7~k ~~r <</_* !  :\GO: " " " " * * " ";* * BK* * "=2 G<2  /}o|g x0   > xPH>G~#' j~@+^+V$MEMRY$$PROG$COMNM*QA!Hw#] j{ ~@{ +^+V"Q! 2WHO2WG:c2c:'>`͇Ax¹'"U _2:f Ğ2U!c~w   \! ~# != = = \* ͅ = *ͅ = s#r"N2 * * ͅ ʐ ʅ 2 M\: z x/Gy/O~w#~ͅ &}< = yy7yM7>,>#ͅ !M> _!h >?P~#P!yk!:! Å |}! 6S#6Y#6M<$>* * ͅ ~O~@ +^+V > h%+~h% > h%= >~ <</O ß ͑&%|z6#z: O4ͅ {Ҏ!y yBKO!; s#r! 2A! ?Start symbol - - undefinedg  ~#³ ͞ REL7*`}2X:c` j: j͔ :f ~w:f 2Yæ2Y*`|##yȷ#jC~@#I" #ͬ*`|#*U~ !:Y:c~ G@x kwM M" z _z! ^#V   $ 2 = ] m `i ^+V! 4* M ! 4Ð ! 5 PY\  s #r l }G[h%> h%> h%:WG)0P) 60P3|L}U[P0:͔! ~#foN"header!aǗzʣ̈́"Qb! ^#V! ͪ!;ͪyک: * * ͅ * " * '* * * BKBCHK:Jʯʯ U6+wAU: : =>@w+w++1: 2 : : =r+sA!HIF5#w" 7ɩ))'):B($: ̈́: r2 * * DM* " *= "=* BK" " " " * " Ͷ'* #6Ly[ҥ0ڥAҡ:ҥÊ[ʡ]ʡ@ʡ\ʡ^ʡ_ʡOb: : 2 BK|A~_q#Vp\AU: =Y!HYH!Hw74#6 _Gw#;!T"7O<2 XP̊wwO!9 N#N"N>>PÔRQUESTͬæ* : * ͅ ~_~@+++~#* BK" ö+++ö2!2* " ͅ " " ";" " ͅ 7* * * ͅ ]!* * * BK* * * * *j~+ܾU6+6++r+sA*K:J2 fU: ;: =>@w+6++r+sA:!A>.2!2P* !J͞!g2!+}2_! |‡}ʠ~_|!^#V* " (M\~#+@w+r+s+@1: 2 r+sA: =* >jV/o/g ڮA~@w:]2^s+++~ s2^q+p:^O!;F 2[: ʚ2[AC( r>-: " *=>2 * ͅ A*=>j+^+V\"?A 2 2 : go" " " 2X" <2 : * * * * *=͝QiEZͿE! ~#foBK#: =ʝ: ”* | " * * BK* * " " " "; ~w#~wPYb>̈́BKj~@: ~@w+~_q+U: =>Cw+p+q+r+sA! w#!ڐ ‚! \" " : :Z!ګ!  w#! ¸+w2!͞A!!?/D illegal with common runtimr+sM~O@wy@+Ns+Fr{~2f M* :f w+r+s+p+q+" ~+V+^+F+N+* e@ DM!`i"N*=>2 }|!; s#rͅ y A!>/P͔A~W+++~P+%2nd COMMON Larger /*;" |2 * ͅ b: =#<2 =A: A*= APY7* K" !*="=* !" }2 <2 A:[* * |G}ʼ~ʊҔ}Ҕ͝p#: ”* |ʲҔ·}ҔÔ: =: Uw+p+q+p+q#Bi++s" ͇͔A%Mult. Def. Global ~@*`+"`PYb>̈́BKůj~+nN+F@‡: ›:B(b: =›zAA;|A: ›e?No code can be loaded before program withcommon runtime not found, please create header file?End of file on common runtime  ҈*;"PN!"N* "͔%%Bad fixup offset entry, will be ignored Value Loc Entry A Entry rel. >A> j~@wA7U: >8: =->G: =7>@w[?@2g ԇx " h 5)> F6 #=>x2f y.̇p xanbʃ!p ~ ƒ6R#6Er#sA: ›|A\zA#U: =ʯ>Bw+r+s+r+sA*`#"`!7~#46+wxG ɯ2 7 >>><2Z=O! $! ^#V0y=Uy?\ͅ ?\|y! i! us#rx^#V͞"yb!*Sͅ "ͅ ڵ!*Sͅ ڮ!!!ù!!!!!!!2 YxbelowaboveOrigin loader memory, mt save object file{{ _zW;&> A&{ H&O>:h%y Y~# c&+&>:h%G *="=*?PYͅ ڙ"?: ʹ=¯* !" * * ͅ үï͝*={OzG* * DM7xw#  ! 8$~R#~E#~L4$:c)$7$w+)$COMHEX`$  <%2 : $}$* * ͅ $!! p#”* ! N#F#~#fo! ^#V  ! ~#foͅ H! {_{_~H! ^q#Vp! ove anyway(Y or N)?ͅ 0"ͅ D" "!ͅ D"yS": W"*Sʀ"a"Oͅ €"y*S€"! *Q >>h%!*'͞'!0'͞'!3'͞'!9'͞'##²&##͞'##¿&#͞'!z'͞'!'͞'* "'* "'* "'* "'* " +x~+ xw+ : 7={O>: 7J?Intersecting wO* ͅc~ʌ$ ~$:\ʲ$: µ$*Q\" " &yO: &w&%*Q|$ͅ $%ͅ $ͅ $.%>%7Ԓ%R%:~s#_~rW}&: $#qͅ {_! 6)`i{ڠ! #Yš* * 6* " * * "ͅ ҇"!9;;;;;;ͅ "ͅ ڣ"z"&'7"ڿ"""ͅ #ͅ #"z"7'* "'&'m&'͓','V'G'V'l'|'V'l'|'V'l'|'!' N#F#^#V#~#fo|} +x~+ q'x <26: ?Oʣ: Jͅ Jͅ J!M>,P*6&0M^#Vy!HF#~#P>(P>)P: %yO%>%R%: Ă% <%>h%*Q}h%|h%سȯh%zG%%z~#h%\%!: _w{<%2  ͞* ͅ ҙ" ! yڬ! ^#V ڻ F#fh! ^#V ^#Vy! ^* ";* "=* *;)##+#KP*;";!* BK*;* *=l#ʮ#l#O* * " *"!2Z!:Z?!͙!͙! y-!* * ͅ #* " ͅ |!*Sͅ w# |'xw# Ó'~#fo&'q#p:B(* ͅ ~'M(:J2A(*;" 2 U6+:A(wAMz " Start = External Public = %* %%"%yO#"%!%\%.%fh%¹%! ~+ x :_*Q:_*Q\!%?Can'#V^#V! s#r Gyx! @s#r#1xS|W}_x2 * 2 yoxg* " *=BK* *="=#PY* " * " Ø#* *=#BK* * " * * " " *=" *;"  (2A(7(:B((*;" :A(2B(*;r#s+:A(i(*;͢(" 2A(2B(!* p# P(!HN#*~# ^(Ar#s *){ʅ({ƀUXYE¢ ͜ p=O­2H2G:2:U>`xU"f/ _! >?~#!'!7: 4! Not Found> > >2h  ͞<>2:h _<2h ! V 0"B7.͆͹."B"B" " "B"B"B2[ G<2\ ͼz6#z9p=:\ NO0T! s#r! s#rP.!B s#r7.͹.!B s#r!B_҅(zʞ()Å(ͣ) *)!.*ʹ)!.*V#^(((!((ʹ)(z(!.*ʹ)(ͣ)z{7._x/2: L2!~w55:  ~wG: 2 2*|gPPyȷP>2B>2B|~@PP*+""p "x "n "v go""2 2 2 222 2 22 2 2!H"r "j "t "l ""!" " " " "B"B2\ 2: !" /~ ! w#¥! w>2|>͜ |!!p=[Begin execution]::e*p *x e~`~J s#r! ~#fo!j É͏ͣͼѵ!r ͉͆ͣͼ͏}_|W>2[ * * ͼ*j *v :\  *j *v ͼW{_*j #*z w#)0:ww:*!;) )+ )!1)?Segment , file not foundcan't create fileread errorDisk is full)!@)*|P*~ O::ʴ G@±x ™$ å Linkd (Disk Linker) version 03.54 Copyright (c) 1981 Microsoft /!"#>">"B">"!>2B2%>2>2="|>(?No Start Address?Loading Error?Nothing Loaded?Out of memory?Illegal Polish Exp: @w+++>GO ~+>,6 #=%*p ͼ! 2 *p ͼ~O_ͼ+++y^++:B:2 *>[q "t "l ":GO0E &E)))D:D)o>gy +%Overlaying areabgDataProgramuB!K!^ )!O))ͣ)!a))ͣ)!l).***‹)*—).*** > :!!!2 !!!!2*! ~;4!>2Z 2::2G ,/MsG@RS*B! b ڕʕ"B! b ڥʥ"#>! b ڵʵ">q 2^ )z  _z!^#V  _ h n w `i^+V~#fo!XyP. 7.  }<=o y˜y7yM7,P.# !͏$> *<ʂ)2*!* )+ )##2*w# '*!o>g6 7  ʺ:+º#P2 2  !9  ͛h&: GOC:\ C0͆" " P.  !^ 4õ-!^ 4 !^ 5 Z%B  >1 <*r>#s#r#q#p#w7  s #r`i#. r  lg c  ́  ́ #v> ړ6 #=x2 y. xڮʻï! ~ 6R#6E#6Ly[0A:[]@) … 0‚ |͛ }ͤ ͪ 0:B!^ ~#foP.q 7.q ><͗5 >>BRQUEST:>//"͹! ^#V! p!py :\ P*j *r P!B ͖.* " P"BSͬ" " lͬ" ; ~w#~wPY͹>ʌ  ! @ !  Undefined Global(s) Bytes Free 2͟ E Q ~O~>- > >/+^+V+~ /~ :b = >G2z>2{>t:b 2a :[ 1:b =_:{>BKW:z>9C:)Ý!F5#wS~+:>C:)Ý*:2a |/g}/o  ͼ    DM!>=))ү ï   z   z BK}o|g *>|\^_O͹:[ A:b 2a BK|ʝ~_q#Vp0Ý:a =O>@BK@_:b 2a 9Ý:b =*d  *p "B:] W*x Q~_~@C+++~#C>#w#w2>.ͼ+++"B*B"x 2 2[ 2] 2c :\ go"d " " 2" <2b2BK~@¸:[ ¦~@w+~_q+pÝ:a =ʰ>C9Ý!BÝ%Mult. Def. Global ~@*+"PY͹>2BKů~+:!  q ~* +^+V>< >>:?2B>w :ȯ2Bͺ ͪ ڜ V ~++GOŸu H+ړ Š :[ ʑ:a “>GBK9C:)Ý: >.2 2* !GLn!2 +2 n! w#!n ! "B" " : >]B:^ ͨ%:: 6o&'C C dC  C >0G] /}o|gE x0] ]  > x>G~#i !B62B>ڙ/o/g Ý~@w: 2 ʶ+++~ ʶ2 q+p: O!͉>2a }|! s#r͏ yԶÝ!>/ :\ *j *t 1*l *v 1*Bgҭá¶á! ~#foBK#:b =: *j |}ʹBp#: N+F@zʝ#:a =":[ "$>Bѷ9C:)Ý*#"!~#4Sn6+wDxG \ɯ2a DvX7Zʄu yڔ >S S *p ͪ â 7~º ~~ <</_*x |}!B 6S#6Y#6M >*p *x ? ~O~@\ 8:>n! !  w#!(n +w2 GLÝ!D!d?/D illegal with common runtime?No code can be loaded befor~@+^+V$MEMRY$$PROG$COMNM*!w#ª  ~@ +^+V"! 2! ?Start symbol - - undefined  BÝ~W+++~+ %2nd COMMON Larger /*" |2 *j ԴÝ> ~@wÝ7:[ >x:b =m>G:a =w>@Ga[?@2 x o  ʂZڝZZ!w³4#6 _Xw#÷!"O<2a XXXPO! N#F , +^+VK > !+~!  > !=+ g >~3 <</O g |P }a a Gͪ !> !> !:ʖ )0e program withcommon runtime not found, please create header file?End of file on common runtime header!Ë1z2~# LG REL7*}2:`5 F ͹ :\ Ĺ BW ͽ @ͽ B`ͽ ͽ ͽ *p y >wͺ i E :t:b 2a :[ ʣ:b =_xDM9C:)Ý:5e!ABKCsHʪ: W>C:)Ý:[   2 :[ 2 ɝf!LyXY,|8:[ _" *>2 *l ԱÝ*ü>+^+V"Ý͹^#Vͼzy!j ^#V^#Vͼ½!z s#r Gyx ! s#r#x|W}_ͼxbe ignored Value Loc Entry A Entry rel. >>>><2=O!t !h ^#Vͼyy? ͣ ?!!:h _w{<!2h 9 ,!!2!?Can't save object file:] ͊/Z3g|̲S!ͧ!:2!*"j 2 >!!F~#+<q#p:=?7^q#Vp{œŷ2>x:!* * :>>2>s+r:!*r *t T]N#Fü:!* D:a =<2b =:[ ʝ* Ýk$*t !"d }2 <2b Ý: *p *x |G}~OA++++2c *v ͮ2c yoxg*d "d *"*PY >":b ^=T*d !"d *d *t TTB‡*{ )y!j !r "s#r%^#VCͼ͚! p#A*r !z N#F#~#fo! ^#V  !v ~#fo 9Ýzͧ!2!!:!ͧ!*"j :!2!͕*r#s+:!!*.""j 2!2!!<$ p# !!N#<$~# !Ýr#s͘#{#* g#2!>|*2!>C:)p=#~@́G+^+VxT:!>̪)mZ%mNs#Fr#.BFrB:!!] €*r>###q#p~  y/O :BOx_ͼ!>~ʇw *p *x ͙.ʇ~X~_+~+<|>2>y|>2 >ËOzG*r ͼ* DM7xw# Û +xʍ~+ ìxw+ ù:a 7=)O:[ 7ͣͼ͆?Intersecting ! {_{_~!t ^q#Vp!l ~s#_~rWͼ}:c # Ԧܛ{_! 6)`i{M{"{ƀ_"z*"S#"/#͘#f#!#@#!#V#^͂"y"͊"!͂"j"@#O"z|"!#@#͊"/#!B? Addr chain refers to undef symbol.~O@wy@+Ns+FrC:)~+V+^+F+N+* @ DM* .CͫOw#›2] +w+w+w+ ¢w+w+: >"x 2 >7ɀ!:!:[ 1:[ F2[ !t l ͖.1*͓Oͣ͆ͼ0>2=?*j <2:a ?OQ:[ ͆ ͬ !͏>,*&M^#V! #G* *v 6*p ͼ"x *z *r "j @" !j yQ!r ^#V ` F#fhkͼ!j ^#V z{7#z w#Í"0:ww::$!"͘"+͘"!"?Segment , file not foundcan't create fileread errorDisk is  DM@* BK!a`iq * 5*ͼq !q *n ͼq B%%Bad fixup offset entry, will HEX9 ͞9 <,!2h :h !9 <,!g >j *t ͼDM*d "d * "*l ͼBK"t "l ͬ" " "B"B"B:V>::J!͊/yZ3_!~#fo!Y/͘!yŽͭ$!F#~#“>(ͭ>)$:a ͣͼq Start = External Public =   fullͤ"!"ͤ"!"ͤ"/#!"ͤ"/#!"#;$;$#;$###;$<##ʩ) )k(*Cʠ)RC!C1(9(͗&*F>|p=+"F>*H>|p=+"H>:!)*F>#"F>:!)*H>#"H>u.:W>q:̑:*x p=>wk(*Cp=͸'*C "C*C "C:Cʌ'(9(͗&*PC+*C"C*C"C*C}o"C"C*C.*C"C"C*C}o"C'&&>2C'&&:!6.|5.|O!> !B͉ͬ:7N.͹.!B͉͆:7g.͹.*N>: *!BBͶ."P͙ͣ.ڔ%͏͙.?ҥ%:!7ʥ%>q%*N>͙.%!>͖.%!=4B!=y9*>zW&..*=͹."=*>zW*=͹."=*>>>2B-\,*>#"l *>#"B͆-*>#"t *>#" 3-:,V,x O,O,*ܹ:,,N-,*F>|>2X>!BB.,"=*B+">>2;$;$<#2:$!F$͘"+͘"##2;$w# ³#F.|W!F">?:\ ,**#**G+h*#*!BBͶ.P*+*D*8*b,G+h*D**+\*P*G+b,h*\*-,&z&013 \&B*C.*C"C*C*C͙.>!(<2C *C͙.>5(<2C*CT]:CH(*C.*C :C^(*C#.!RC RC*C>"N>!BBͶ.">">͟..N#F^#V`i͟.͙..͟.͙..͟..!.͟.}o|g.͟.W|$%.,-.zW*=͹."=!? ~R&!> yW0R&< y2&>2C'&!)C9  ͗&>2%>*#>|B-,*>#"l *>#"B͆-*>#"t *>#" 3-µ,,x ,,,,, ,p=-,ͪ-,-ܹ:§,N-‚,*H V *v ͙.!=`i"=B50*=*:|>!}>4!B*|ʭ*͙.ʭ*">2:=*!>:Y*͉1~=2X>!BB.A+"=*B+">2B-A+*>#"j *>#"B|*C ʖ(&}|}*C$ w w w(*C Nwyt(*C/:Bp=:><2>=wg.zW!B ͗&!B͗&!C͗&:%>`/!*C͗&>2>>2C'&=h/>2C&! ~#Š&wt(*C|*>zW*>? ">ͥ/Z%L-/-z/W{/_~w#~w`i#.E-~w-͹)*>*>*=*="=*>#">*>#">v"> |%+.#%"=*l \$>Ͷ*t .DM*=*t "ͦ!=B͖.$*t ">*=">*="=;5*=" F%!B=."=*t ">1*B"͆-*>#"r *>#" 3-+;+x 4+4+*ܹ:+N-**F>|>2X>!BB.+"=*B+">2B-+*>#"j *>#"B͆-*>"C*C "C:C2C*C"C:C2)(!C~#'%'=z/!"Z>*`>"^>|!H"b>!"f>!"j>*p>"n>|:X>*F>/*H>|/p=!E"r>!"v>!"\>"`>"h>!H"d>2V>!"l>"p>"x>!E":CO!C ^#V"Ct( *C ~ʋ':CO!C ~ʋ'*C w wj't(*CF͙.Ҍ-"J>"L>ھ-͹)-*L>*J>g:Y>|Z%-s-#rZ.-s-͹)*r>###s#r>2C>! B."=;5*="B" F%!=B.F%"=*l \$>Ͷ*l 1*="BB5!= .͹.:!>q%:] >q%:BO͆ͣ.#"r *>#" 3-™++x +++++ +p=-+ͪ-+-ܹ:‹+N-f+*H>|ɯ2X>!BB.\,"=*B+"  t>2W>*>|0*>!B<">P."R>7.">yOP."T>7.">͙.!R>>͖.h0ʾ0!T>>>D3ھ0ô0!R>>>D3‚0ھ0."5"5*P>*>+"5#."5"5*N>"5*>."5!F5@͗&62B!">i.."=N7!>:B7i.͙.7*|6"FC'%'}(͌'*PC*C+*Cͳ5*PC*C*C+*=|752B*>.">%*=DM*>>A4">*=*>">*=."=:}>5.5~;*v>.!E>͛;|!;}!;*Bͪ w#ͪ w#"B!>w*Bw#"B*B@T.m;DM*B!@T>n;"B"B"C"C`i"PC2C'?*J?."D?~#ʮ2O^#V#*D?#^#V*B?s#r ’2~#2O^#V#"N?#^#V!R?"P?~##p=~#~#22##32^#V*D?*N?#s#r µ2*J?"~!;#9"B:>/ A;> A;*p *B͙.29J;*B|8J;>2>!@T"B>:A;>!;*;>!;:>/ A;> A;>A;J;B0!R>T>͖.Қ0*>͙.ҳ0æ0!>>͖.ڳ0ھ0oÿ0!͏$p=*t ͙.0*l +͙.0*r ͙.0*j +͙.??*B͙.1*B+͙.>2F:B7*=.">"=%*>*=DM!F>9">!"F"F!==."=|7:B`7*>*>">i.">*>."=!F">*>ͯ4ڑ%*=*>.#">*>.#">*=."=ͯ4"=">">ͯ4;5ͬ"B*B* ͹."B*B*B͹.ڑ5"Bͬ"B*B* ͹."B%'}(2)*PCDM*C *C 2C"C`i"PC.#"C +*Cͳ5'%'}(2)*PC*C*C+B5!B ."=* ">*r ">v<;!B ."J?[2*@?͙.p=33~2C'&&*B|C3!N>< =͖.X3 =͖.?*Z>|Ÿ3;33*f>:V>3!H>n4!Ҍ9&‘9.͖ *j>͖ *n>͖ B!B5²9|69}%9*>.n;*>*d>w+p+q+r+s+"d>*\>#"\>d͙.B1*B͙.1*B+͙.??*@?DM*F?͙.  j91_91*B">">*B."=;5*B">">*B."=;5"3~=*p1xw# _x7*=DM!F>9p7:\ g8!P>>."=7:Bʿ7*>">*P>">7F!V1%*>*=DM!F>9">!==."=|7!>P>."=!F*B*B͹.ڑ5"B!=>ҧ5͏ͣî5P.7..Fp#͙.ڳ5! !5!5xw+ =* ">*t ">v<<*B" " *B" " :\ C<" " "B*B"B"B"B!H"r ""j *v .zW{_!H"t ""l 1*=|<* "f>*F"Z>!^>Z>."^>!H"b>*b>~2B+F+N+V+^+"b>*Z>+"Z>|3*^>7.:B*j>|464=4*v>:W>3!E>n4 "v>*D*n>.:*h>*\>"F|!HB:2V>>͛;*h> "h>*\>"F*`>"`>!H"d>!"\>g:!|9¸:*t>w+p+q+r+s+"t>*l>#"l>d͙.:*x>*l>"D"D|w+ j*"p1!R?N#F# xʫ1####3Õ1"@?!p >.*@?͙.1!P>>.*@?͙.1*N>.*@?͙.1!~>"F?*@?!">*>ͯ4g8*=DM!F>97!2C ͗&!"B: D8:\ D8*"N>!>N>p8:\ d8: d8!>P>p8>9: .=9"="B">5:=!6B!>:Y8g8:8!2C~RK6#~EK6#~LK6!2C6C#6O#6M!">F!V1*|6"5i.͙.6>2B*>+"5#>.<*>~>2B*>.">:><|W====%*=DM*>*>>n;">*=*>">*=."="B*>*>*=*B">">`i"=v"n>*D"j>|2Y>3!E"r>*r>~2B+F+N+V+^+"r>*j>+"j>|=4*n>7.:B"C"C`i"PC2C'%'}(͌'*PCDM*C *C 2C"C`i"PC.#"!Eʸ:2W>>͛;*x> "x>*l>"D"D*p>"p>!E"t>!"l>*D|;DM!ET]+~+##<:>w+=:: + x:"D:W>"@?*F?"H?!"J?!R?"L?N#F#xL2^#V#*J?͗&"J?*H?s#r#"H?*@?"@?32*F?"H?!"J?!R?"L?^#V#z3^#V#"N?^#V#"H?."B"B!@T"B!"B*B ͹.8*B͙.p=8*B*BDM!D"B͗&">ͯ4*="BÏ8*B."B*B."B>2>>:A;{!;*B;"B>!;*B <<"=">">>n;BKy7= 7=>=y͛ > ͖ B͛ >  T=BR=B͖ !%?BBC)C:. // ///CCCCCC>>CCCCCp1=%%%%%%=PC &&BBRC&&&&&&&&&&&&&? Max memory addr exceeded.? Not enough memory to buffer ASEG.? Final addresses overlap system memory.C?"3$3'3*3-3BBB-A4 A4E4J4M4P4S4V4Y4\4a4f4T4444444444444444444'B'B'C')CC#'' ''' CCCCCg%'.'?'T'g' %'1'7'D'W'\'j'o'|',''''''''? Bad write: disk may be full.? 4;5>5;5$P $FA''CC ''''N''''''''''''''''(( ( ((((1((((!()(,(5(29(B(X( 9(>(E(I(M(Not enough memory for /G routines. /X is permitted. Do that? Still load memory now? ? Would overwï$FBCOMT([(a(e( k(m( t(d}((( }((((((((( ~=}>..... .....>>rite system memory. = [PC] at fatal error.Z10161l191<1?1C1F1I1L1O1R1U1Y1\1_1b1e1i1  000510XX000000012345000000000000000000 !1AQaq+))O  Z,Z,Z9-RCISAM"S!LeO0$x`U@ 4p`p`10xUhhh h',hh+Th)h)h.h/ Indexed File Recovery Utility Version 1.00(C)Copyright Cromemco, Inc. 1982 Use this utility to recover Indexed files when they are damaged, or to reorganize  Indexed files by removing unused space. Compatible Indexed files are those generated by COBOL, for versions 4.63 and laterH` D  * 4p8v! $ & 2 @ 2 ( 4p` . 4a Output file specification:---------------------y field, starting at 1, or to return to the Key Length prompt ----->0 1+x{hhhhh*4@ 0hp3hh2h 0" 10*** End of input file --- Input file error ---*** File status = xh4@ 4 @ 4p`{p@ 4Y 7 6pY : 6p 6!!4 ) . 4@ 4@ 4p`=h&hF300 Conversion successfully completed.Additional recovery operations: ------------------------------- x x`i@ 4@ 4p`5pp , 4@ 4`p000505xihhh Y---- Enter the file name of the output data file (should not have extension of .KEY), or to return to the Key Lengthh&^h)hH` D 5 * 4p{8I! 0 @ 0S ( 4p{@ 0o`y . 4p{`3 . 4` Ih *** Input file not foundxhh *** No space for output filep@ 4Y 7 6p)Y ; 6p) 000505000505000505000505xhh h$"hFH@ ZPH ZV * hYII <  Nhh NYII E  Nhh N Input records read: Output records writ 7 6 6!!5 p!`)p@ 4<iXAI> E``}@ 0@Ypi`3 * 4pi! Record format speci prompt ----->00xhh h hh  Now reading and creating x5`?w@ 2)`}@ 0nput file specification: ------------------------Enter the file name of the input data file (should not have extension of .KEY):#')c60;ġbQkVF­61/xs Gm7 4pe Z $ ( 4, Enter the key length (in bytes), or to return to terminate program -----> 0 x[hh)hten: xhh Program termination.xhh"@ 2$]h"&p@ 2HuhJph^hfications: ----------------------------000 00x) 6!!1  . 4@ 4@ 4p`Cp@ 4Y ; 6p p5 * 4@ 0p5`3p5`1 400001005xw8! "@ 2wYII EP )@.XJI. Epw001+x, or to return to the Key Length prompt ----->0030xhhhhh+6h&bh)hfm: f` nͦ* : UQHfͽȃgݐͪAҷG%j]b* fpv0! ,h)<hfH@ ZPH Zt5 * 4p[e Z & &P 0v.. & ( 4< Enter the byte position of the ke 28 --- Output file error detected ---22*** Attempt to write duplicate key24*** Output file full*** File status = x3hY 8 6p 6!!2 m . 4@ 4;@ 4?pI`[p#@ 4 aY 7 6pmY 9 6pm 6!!3  . 8! "@ 0YII <P )@.XJI. +2'X/K6Ç3oX}6BR %:O%:':'@]%:';%:';%:';%:'!'E%K%:'  !d'N*'`M!d'N*'~0m%>*w# d%M!'5*'~#"ɪ)ʊQ0z0iI <hqב HHq H 1 Hj H)줊## #C! `;D!C `|eoxAO?&2'2'2'2'2'2'2'2'2'2'<2'2'ͪ$!o# ^#V##7$$d$'$$$# *R ^#V"R"S#~#^#V#"))2R]*Ss#r#"S:R=­)*R:S^#V#^#V#MD)N#FMKEYM%":>$cBi[[BY4UVb sU@E~-mV"!O߆0o!Ͳ0o!"!`*͡"<">8`sfK6X2)F~#^#W{2Rʷ'>`"Sx((^#V#"t)^")V#^#{ G:r)2r){&o))))):r)'2b'12'v%G:'x:'xʪ%0ª%> 2b':'2'x:'O<2' *' :b'wy% %:'@:':b' >*2b':'=%:'&:'&:hh(@12#,ͽ2_,\,,\,-G/,\,}-G<,\,'2[,͖2Ͱ2 +Ͷ0[,͉2ͽ2x_^2*)߆>4½,؇>4½,*))>$####:'¢#<2':'2'> 2b'Ñ$<2'í#!'4͌%Ñ$!'4!'4͌% ‘$>*2b'Ñ$:'#:'2'v%Ñ$:'-#> 2b'Ͳ%!c'5ͪ$:'-ʑ$> 2)Iq,Li))ԡ  Ɋi, HIq Hh Q 誈"!,*͡""!!w"C"C!9"G!!!"E!!E!"C͹"! |!"x!>! "í!"!"í!"" 6#*!q#p_*͡"*G!>!^2r):s)2s)>`{2)V#~^#2):)|(:r)Gz2r):s)G>`{2s)>`:)h([(o&k(/4½,*)  7`*)DM*)*)o3ҽ,»,>ý,>02*)$ !) `*)   `*)*)3-->-b'Ñ$:'‘$:'‘$:'$>*!$> 2b'Ñ$:'‘$:'2'Ñ$:'E$:'K$:'2':'Z$> 2b']$͌%!'4Ñ$:'r$:'x$:'2':'‡$>*Pl誉l 誊jq0꒞*h)hp J*h)q<*h)(,*h)q L,*#V:_"!*/*͡"!-*͡"!wVI!O*͡"~#fo2#" !bk~#fo2#" !`i^#V#" !^#V#"!^#V"!*!´(:R=Ž(!)4:)_!S5(*)e^#~#<2R÷^:S=(:R=ʊ((2)Ê(:)(:RŽ(<2R2)Î(z)!p) w#(]F#NV#^# >0^2*)߆>0x-2=%-Ͳ(-Ͷ>0x-*))>w2=G-ͲJ-Ͷ>0x-2*)DM*)*)͗3w-r->x->0x-lBALCCJ\CCCBB`i"C!"C0B@ҳ3>7 CCJ`@(CJ|C lB3\CCCBBLI3HB###~3>7lB2vC?>go5Ҙ1 Ž1>$è1 ʉ1>0è11{2*)6ړ1A2P2++q#p+T3~W ^^ ~<2*=O* `")( ")88!ͭD8=E8ͧ9lBA'8>B:08> 7lB"CU@dC9 B@q8*Cq#p#$d8!}C"C !ͦD> 7lB/>0/2ʖ/0>0/͌0ʫ/_ͽ2{0/>#/0///>0/2/1////ͽ2͉2/>0_1'2>00>0ڈ0)1dCB@6y9HB9D\CCUC"ClB"CA:6>"C;!ͭDͯ@|6HB> 7~23ʎ->0-2Gʦ-*)~--:)*)4*)U4->0->-12-*)LIVI-{2*)4-0 5-$*)͡B#U@47lBAh44@s44@~44 ")( ")Z ")T3~T3~T3F#NT3~G#N T3^#VT3^#V+zw2##V#^^*"CU@dC#(:9`i(:DMG9!ͭD2C`iT]B@8|8}8 8y9HB9:C!Et9z8{8 B@y9HB8HCCCU*C>0ڈ01:*O*! +H3>!ˆ0ͬ1*){2y8>0ڈ00҈0>0ˆ0È02L00>0ڈ0͌0a0_ͽ2{0ʈ0>#È0{2*)8>0ڈ0ͬ1y8>0ڈ02ʈ0Oڔ6Y3HBHB> 7H7ү6G7A@CCMͯ@~;dC;6#6HBHB>F6#66*)Yz2)1͖2ͽ2͌00}._:)9.Ͱ2{}.ͽ2>#}.b.{K.Ͱ2}.#}.0].Ͱ2}.>#}.>0}.Ͱ2{}.>}.ͽ2>#_*CD ~ږ440CCJTCCx¶4BBLIù4HBx@8CJ|Cx7lBA4>XCCJJ@dCXCCXCCEEBBLI0BX)P~RT36RT36RT3~ST36ST36ST3~!)`$T3N#F!)q#p# F#Nq*Cw5:C!EHCCCU\CCUC>!E#E#yE#xE#CDt9*C!}C"C!ͭD2Cͧ9HB"C!ͭDO#ͭDG8HCC1҈0>0_1*Ͷ0ұ0¥0>#ñ0¯0>ñ0>0{2*)H70{2*)ͅ70{2*)͔70{2*)ͣ70! >7lBA7>7ͯ@>7.7HB> 7NY3HBHB> 7lB"CA[7>`:?A7HB|7ͯ@HB7>71ͣ2ʍ.>ò.2˜.>#ò.A1².0Ҳ.>0².ͽ2͉2_1͖2ͽ2͌0..>#/#/>0/A1/Ͱ2'2>/͖20/>0/ͽ2͉2CCBBLIlBJ~##5>7!"C0BTCCTCC;;TCC==TCCBBTCCEEBBLIVIFVI0BTCCBBLIlB!#p2)*)*)U4"3A3$ ) H3A3:)<@32)3<:)x# H3*) ~# xY3~+ xd3CiC`@(C;mCCU;D*C!C"C!{E#zEͧ9"C!ͭD_#ͭDW#E!C"C*C(:"C;*CN#F#!yEx#E#E# D*C"C!ͭDO#ͭD+6*){2W61{2 +*)͟6&1! +6*){27>1{2*)8>0n152P2++q#p+*)58n1>0ͬ1*){2w>7lBAґ7>>lBAҠ7>Ó?lBAү7>6?ҹ77!SC"C98!}C"C!ͭD8=E8ͧ9!SC"C!ͭD_#ͭDWy9_1͌0/>!(//>!(/#%/>0(/s1_12;/0>0_/͌0F/>"_/0_/s1_/2_/1_/>0_1'2ˆ/0>0/0/ƒ/C"CU@dC#(:"C`:?A665:C6HB6 "C`:?A665:C6HB6bk"CB:dC6?!ͭD_#ͭDW(:#ͭD G#:y#:dC###CͦD!}C9"C|A:} A:>:! A:###ͯ@[:~;$CUHBHB"C"C!9"C2C!D~2C!EU#fo"|C2Cs#r!Lw#:Cw#:Cw#:Cg}w!L~#U@͡B##~;7?*CG ~@#@#@77?!͡BAHB<;:C?*C:C;~#>ͯ@?~>;~>?*C#]Gbk D̀G2D*D|&E*C}o|g"D*CR ~#fo" D͍H D:D_!}o|g*C}^TEbkDMu^*C"C‹E*D* D:DowE$2D `">>6u>*CNB>A*CrA*CY3*CNB"C6B<"C0B6BM<"C`CCC\CCC*C"CNBHCCC*C|=6B\C C+B7?BBy CB;K ;K ;K$;K,;KL;KM;KN;Kl;K;K;K;K;K;K;K;K;K;K@>7:*L"LZA"C͕HC*C~#»:;Ұ:§:++U@HBÏ:dC##;:#:+U@HB”:>͐@HB͓?ͯ@>͐@2C:C*C*C33HB͡B=AAHBA#U@7JP"C U@;A&A7"C"C*C|dC*C*C!9DMYGB@>]H#####HCU@HB)?͡BrA~>>͐@HB?> 7ͯ@>7>?ͯ@> 7g?~;CY3:COY3~BBk?>͓?͓?چ?DI DE* D:D_ҙE2D*D `"D:DE*C|EI DͬI DE* D}^ʵE0I D* DE" D*C|4E*D|E2D> ]H2DCCNB\CCC"C6B*C*CrANY3:CX= @*CNF#I= dCú= R=<=#}w,CCBBNB|“=>*CA`CCCE\ lU \lP ` T#9 .h^,ԠW+62(#b*t nģC`X#`lpd@bh >:##~7ͫBo;$"C`:j;>A8CEC>A\CCCNB*CrA>͐@*CNY34CCU?ABB;HB>ͯ@ʙ;ͫBmCCBXCCBE*CB U@ʾA͡B6#^#V+|ʳABBÝACCBB8CE?ADCCCADCCC*CB ^#V+z(B"C>7zA8CL?ͯ@?E*CrA}?T]~;dCO}«?>͐@HB*C###U@?HB͡BrA~? @*Cþ?HBͯ@>7>?DD*C;N#F+xIFq#p *Lq#p:DDF~#fo.IF> ]H*C; *L ~#~{F>{FCCEC*CNB"C͡B@"C*C#;ʬ=ڣ="C>=ھ=*C>Q>!"C;>,CCu>6_=`B*C~O*Cx;#*C;y;TQ4g' E"C>2D"D*C= C `*C]G!^#V" D ^#V+"C!C̀G*CO "CCuD4ÃDʔDN#F+q;HBͯ@ʙ;ʟ;dCß;~;>͐@͔J*L"C^#V"L###U@####"C*C"CNY34CCUHB8CLCͯ@;dC"C @"C>~dC#N#Fq#p 6# xBw,BfB͍HC͍HC͍HC0ICIC0ICICnJCnJCnJC 7?*Cx"C;G~@*C~h&dC;|dC}2C}o|gP@|T@>7G~#fo|x"C!vC6!"|C`i"CJ ~*L ^#V ^#V ~#foʪFͼFÿF`WF> ]H> ]H*CD!C `*C"CUC `!D!C*C$++d3*C:CW}2CO}d3:CG*C*C;>~# 4>᯼BBTBNF*C;:CdC=ؒ_~dC;O{b>ڎ>*C:C#p+nJ D0I D5ƒD*Cs#r> ]HDDͦD:DC`i]G>D"D`i"C*CU C `C=P<>Q>y-<--<~dC;O@<*CB@v<>v<>O !͑>!"C;"C!9####"Cbk"C`i"C"C"C0B*C:CʹBBF*CNBB# BB7x~=G;*C~=O;B C~ C+ xB  `D!D*C= `!C `C!D `"C7?>! `VGXG7*%S{w#zw|G #4|G# nG> ]HM*R^#V#"R*RV#^#"Rz¯M^ `úMO*R s#r:R={MMͶ"R*R^#V##"R2R#^#V"R##~8`#V#^Q͹~>RHʍK͕K͡KL;K&;Kb;Kl;K;K;K;K;K#####~2L"L!K3L=PL=XL`L+LͰLK+L͢L:L!LʉL=RR8RR>2R ^:RGxG*R{6#w# !R!R;|TC^Re^!RMT^!"R!R~ oRz_zW# fR{2REmI#zmI##ĵK^#V+]KIrI#JvH5KIĵKsF w!LRHJ N#F ^#VKH J VV#^#z͑^ `P> N#~#?=/Pø^#V#"R^#V#"RM##^#V#2|P]0p#p#:|PdfP1dp# jP:#wx/+wM~~#~#~#~›G#~›G> ]H~# x G~+ x«G"L "L!LG*L"L##6#6!LGRH9H*L+=H4H*L  O! N ^#VKNde2gVf2g}PPXwPl=]GPq\\ZuVQN>Y:#eWh'QQQV#~_)))U\!bN^#VNNNNN_OTiR[NNN}L=ʃL͙L:LͰLL:L͢LPYO͠G:LlL"L*L*L*LlLDLlL`iDLlLogDL"L"L*Lnter switch settings (blank=OFF, non-blank=ON) : 12345678HTR1000000RHIJ DMs#r`is#r!LRHeJ####"L ~sF6 6#6RH1J*L*L"Ls#rvH F!L6͘H6P#~P#^#V#N#F#`#~_`##V#^͑^q#p#MMw#wM2R#~2R#M~¶Ê)##~P͝oPͮM=H4H ~H####"LsF͙KRH##s#rbkGGG|xG}x}o|gG~#fo|x*CG*Cx*CDM*C*C7"LRHNNONO"PNN PEP> )T#~2R##M͹il!N~=ʰNw"R}2R"R"R"R"R"R c~# N͹ɯ2YO ÌLÌL !9 N#F`iDMog=L=LþL=L=LRHLRHRHo$LL"S!9"''S*LRHw#‰J*L|JAGҬJJJ"Ls#r T] s#r#T]w͠G*L*L|̵KRHJ####"L"Q~pQ#~Q#^#VM#V#^#͊^F#Nxz4QMQMQ_~M#~M+M ^#V_~M#~M ÈQ##V#^͑^^#Vz†"L##*L*L"LvH5KڷH~ĵK6ͩKL]KH͔JͱKLLͱKLLͭKL I:LHlF*LͥKLL*L##RHIs#rI*R ^#VO O"VOO"\O#~#V#^#:O2XO^"TO*VO:XOJO2^O^"ZO*\O:^OO `M:YOwO*TO*VO:XOO `*ZO*\O:^T####^#V+++++~#~M5M:N5M!'T*S*SoQM*R*R*R*R*R*R*R!N4^#V#"R^#V#F#~#"RMOxyM=2R KRH̵KJ wsF]K͝KL"L"L!LRH7 *L##9K#NK#bkRH͕K*L||K}|K͡KLbk##Q>)T##~*QRcM#~#2R·^:R^^#~!QO ^#V> Q)TN)T)TQ*R#^#V~#W^#͹"RMzR:RR"LNs#Fr*Ls#r#q#pvH5KܵK6vH5KܵK6 6P ]IR RH!L!"L~#fo|ʥI {OO `ðN##]V#^"SV#^~2R#>`*S|ڱO|µOýOu^O:RO O^#VO##^#VM#F#~pxT]O##^#V?RcM*R^# 2R!T|T:R=O!T |T*R|T*R*R N#fir#s!lTMhzʦ͊^"S:RO:RO!Z ^#VZZM[[M[[M[ZM[*SV#^*Sr#sM:SO*S "S*SV#^z+2R-Zu^"S:RZ*S:Rw*S|[! WyʐX WsX Wʷ^ ʷ^ʷ^úW~#2R~#ʸXV#^#"S]"S]"SV#^>`" S~2R#*S|Y:RY*SV* SDM*S_R>2Rx _~# _^ d'!"_*S~#"S{W_}\_͒_c_͒_c_ ͒_^_>)T>0c_>0!R6-ʊ_G:ROx!_ ^#V*_G|"S#V#^#"S~2R~?W#^#"!S*R& ^#V*!S)"!S~2RV#^#zW"SV#^#"!S^"S*!SV#^zzW{_"S~#"!S*SW͠_SW"W͊^V#^+r#s#z#]*S##^#V"SÙ]*S##^#V*Rs#r:R=2RM#~#^#V#"S^#V#"Su]V#^#͊^V#^zp]zu]M:R]<2T~T#a|T_!T^#Va> a> aRR** RUN-TIME ERR:REDUNDANT OPEN DATA UNAVAILABLESUBSCRIPT FAULT INPUT/OUTPUc"S{0*S+"Sw:S=M2SZ>+2R:S:[:RO*S ~2R#_:R-´Zu^ôZ> )T##V#^#{2R>`zW"SV#^#"S^"S:Rʇ^* SDM*S*S^:R=·^"S*S|ʷ^*S:R0Y*SDM _÷^~2RW#^#" S]"S]"S!" S* S|pY2RöY~#W^#" S~#2_|_"_!R5*_0R_:>2R:R=__=2R~#GOxG!d8`O `ã_~G! 8`Ox ` `u^:RW>+2R#_:R-"Wu^"WV#^*S+|SW*S8SW|SW*S"S:R=XW2R*!SôV>)T*S*Sr#sM#~#2R]"SV#^#{<2R>R=O!\ s#r#*RN#Fq#p*SM>)T:R<]2R=O!\ w#w#w#:p\]~##]##]#~#]x=2RVT NON-NUMERIC DATAPERFORM OVERLAP CALL PARAMETERS ILLEGAL READ ILLEGAL WRITE ILLEGAL REWRITE REWRITE; NO READREDUNDANT C[!"S*S)>V#^`" S~2R#:R[[:R=[*S+"S|ª[>2R÷^[:R=[[[:R[[>2R÷^*SV#^#"Sz\S\RW^#* Su^|ڛY" SöY:RҶY* S" Su^*S"S:RY* S* S" S*SVZM:RY ZYMY ZM* SDM*S*S `~##x ~# `x r#`O zW{_ ``W:R_`z!"0`"6`*̅^#V*΅s#rË`€``*6`|>ʋ`*2`",`".```" S>2R:RW* SDM*S ~# ʲWAWZʲWWxW÷^2R÷^:RjX:R8!WO ^#VMXWWMXXX*S* S~W*S~#"S+#^#z!^{^zW{_͊^V#^zO*R N#Fx:^zW >)T*R?^~#K^*R?^w#\^*Rs#r*R##s#r|/g}/o#zLOSE OBJ. CODE ERROR FEATURE UNIMPL. GO TO (NOT SET)FILE LOCKED READ BEYOND EOF DELETE; NO READ ILLEGAL DELETE ILLEGAL STA_^\^* SDM*S#~#N#F#*R"S* SDM*S`"Sɯ2R2R~2RV#^#{2R)))z2SIZDZ>2RIZ>2R:RcZ^Z>2RcZ>2R]"S:R{Z]"SÇZV#^#``2R­`*ʅ~#fo#a"2`ca"4```*ʅ~#fo#a",`ca".``*ʅ~#fo#a",`ca"4`|g}oa".`##"2`͢a7?=MX-MX MXúW*S* S+~%X*S~#"S* S+" S0W:MXAWSMX{MX}MXúW* SDM*Sxʷ^~# 0W:WUX}<G*S~#O {*R"Ú^$)#Û^+)*R^#Vɯ2R2N2R<2R:ROG:R^y^##My^^#VM>2Rx^# ^^>^2RT NO CRT DRIVER SEG LOAD ERR ILLEGAL RELEASE ILLEGAL RETURN NEED MORE MEMORYSORT ERROR NO I/O BUFFERS ~W#^͊^q#p2!Sʢ\:R¢\:!S_####|T:!SO M:R=\2!SO!\ "S^{#V\"S ^#V}^\~#^#WM*S#~ #]V#^ ,a*0`*2`}^a++aDMͶG"0`*2`*4`"6`ÍaDM*6`|]a*0`|Da*,`"0` ڍa*2`}^?ڍa*0`"0`Ía*0`|ka*,`"0` ڍa*2`|*.`~a*4`häg####:-dM͸kMMx ʳg0 Ġk#~bi+~w#N##~gy$gͽk++kkkj‹h kÆgGkk#ÿd+~e=”e@##ͪkk~?Gw_e#~+ek:;dejPj###~w!Dd##^#V}^e #eew+w+w+wMͽk~#W~#_2R>`{2R~2RW#^~#2S>`{2R]"S]"S:Rm*S:RO *S:SO ~ gl>+il>->2S:RGx2R:RR}^Ox2R_!BcNx_!BcVY")c2c!+cw# ±c!?cwcd*Rd W _cd d w#zdycj)T}o}o|gcb!\߆bkjʆg:-d›gËh#x0 Ġk##~+++7h~Ԡkw:hGkk kh#x0Ġk##~+++ih~ԠkwlhGkkji:-dzMf{0Mfͪk!$ͽk:)d+fzW/f^k##ͽk:)dHf sMM#~2/dN#ͪkk̠ky f~fl<2R>0:S=2SlzlllG:Rʫl=2RÖlx:S=2SlllGëlll0l>2R2Rl>0:S=2SlM:Rm=2R:SG/2Sx~ccO=d*)c"R>)Tc Gi`"j##͸k"j*R!jM"RM~M!0d~6M͠k`HBj{j@j{k~w Cͽk{k^x0w#x\+2R:RGx2R:R;m*S~#"S-Nm2RNmNm*S:RO ~0m*S:RO +:R}n*S:Rmm#:SO +"S:Rm<2Dk,-../*/ .a//2,d#~2+d~0ʅeO#ͪkk@̠kĠk~w~w#~+i/e####~#e#]s#0wxzkȷko&)))))|2|d}2}d2~d>2dC^de^l^!|dMT^zkշ]kͽk" k`2}d>2|d>2~d2d/k!dRk:)dѷ\!>3o 2=2> 2]**CHAIN: Out of Memory $b bb**CHAIN: Bad file name $**CHAIN: Fi##:-d i##M##*5dPj>2;dC^!Dd~#V##Hi_+>d~#~e^!0w+:S=2Sʧmvm4nEnG:Rʧm=2RÒm:Sʽmp"S+:S=2S’m:Rm4nEn0ʽm>2Rým:RO!m ^#VmmMMn n*S#m*S+:Rrkj2,d/e!e~#/e###~OwPj#:)d?e6+6+V+^!+dN*R s#r:,dPj!Dd~#se ###beM+s#r#s#rMFͽk͸k|!dkx:;dx)T͸k#~+p2)d^#V#V#^#s#r#r#s####~!d:)dk##͸kzP*7d##ͽk kle not found $*+x~# c...... V0123456789ABCDEF*R"@c! cgcw# `cˆc:Rˆc*@c*ʾi:2d*5d+Fںi2Oj#ںi~+++iG:2d怰22d>w:2d́:Ojʆg:-d›gÆg~i!í !jjj wM*S n*S~0n>{nw:R-M~{.n>}0n wM:R>n>0=2R{Mn>0}Wn>0un0pn:0pn: :un>)TG>-2Rx:S2!o2-o:!oʧtuv!!o5^*7owʆt!-osÆt!-o5^*7ow> 2!o2-o2o:!otͥv!!o5^*9owt!-ost:-o t!0o4> 2!oq!-o5^*9or!)o4:!o2+o> 2!o:*o¤r!%o:!o2!ow:)or:(o>+ʶr>-G:0o> rx*o*ow:/orvr2/o!o5sv!/o6 r4 *o+"o*oLy+"w{y!Ày!"w{*y*w# 2+o2!o*o"o*o"o:o2op*o&^#Vpppu~sgt:'o2'o!&o~#Sq!o~#G0qͥvOuv!/o6^{g)))zo +>)T=Fw>wFwBw=O!Iw ~GwxGw w2R:ROnn n4nEn nänn:S¤n:Rn4nEn0ʻn>2Rûn:R-n *S~wMG:R2RoxG~w> 2oG!o> 26o2!o:6o!u2/o2,o:/ogu:oG:6o2o> 2oYuuu!/o6Tu 4w2R*o~Rs~Rs:oRs"o:o2o±o:2onsxs2R2s †y#"w>T*w}|ʠyg2w:wʯyñy2w}y>*wT :wy2R*w#N>-y >T}H@y>*wT:wO>T|q!2o4 q !/o4!!o^#qs*;owp!0o_:/owp:/oq!!o^Kqs*;o6q!0owq!o~#ʫqͥvGuv!/oN6!1oqxq !/o4ʀq!2o4r'6ETcr+-+INVALID NUMERIC INPUT -- PLEASE RETYPE2R!00"R.:Rw,y2w*ąw+op:S=2S> 2o2/ouuu!/o6uwÉu!6o4u:!o2+o> 2!o!+o5q^*;o~*!o+"!owõu*o+"o*7o~*o+"o*9oN !/o4:o%v!=ow#„s:&o!'o2(o:o23o:$o24o:o25o>!2+o:o`t!+o5~2!o2/ouv2,oʫs:3o2o:4o2$o:5o2o:o=tͥvG:,ow_:/o'G!!o5t^*;ofz|Yz>*wT:w*w*w:w +z> 2w:wO*R>z:wO>T*RUz+z2w~*w#"wz*w>T*w*R*w‡z!!o^q5*;owSqG:1oʝq> Ox21o!0owSq:/oq:'o2(o:ocs !.o6*;o :!oG +yq^:.oq{ /o|>-x>o>g|>g} >Lx>g"w`i]"w:wF#N#"w!w?~"w:w2w@ʆxvz{2oҮo2R"o*o~2o##v"ov"o!ow#o*ovw"o]"oj"ozp*o*ouv v!2o4*!o-v"!o!=owu!0owu*o"o*o"o:$o2%o:o2o*o~Kv>2)o~ʆr~ʆr##~ʆr>2/o~ʆr!*o4Ær:#oʂv=2#o~' totG!2owxox2/o:!o1t_}*;ows:/o!0ows:/oʫs:!o=Yt_*;o:/owës!0o4ës2!oq !=o"7o"9o:&o!'o2(o{:wOÉzN#>T*R*wrz:w@¿z*w#"w*w"w*w#"w*w{*w#*w+#z~0O:wzwzz*w+"w"w*w#z*w:w{+cs2/o*o~|r~3r~#r!*o4*o~ʆr!)o4Ær##~Ar!/o4~Mr!)o4~Yr!*o4vw|2%o}2ov"o:o!ow#6Ær~͒~Ôx:w2w*S"S:w@¢x y2w*w}@x!΀"w*ww*w*S*Sx|xu^+"wNy*w{x#{x#"w{*SL~- p!&o4w:&o2(oz;p:o;p*o*o~-8p!'o4wzʛp*ovw"#o2%oyp!#oF6!o~wop#6!o~xpw›p!:o=2o*o+"o*o~0v >)T:$oʲv=2$o:o=2o*o+"o*o~0v v:%ov=2%o:!o=2!oO!+o>G*;o ~V#^#v "w>T:w{*R"w>2w!w~,{#~Ɗ>{>#6~!J{"w>e6~!|"wͮ}8 |–{:wJ{*R*wz{*wN>T:wO>ډ>?Š*w*R#£ڣ"w"R;¾*RƊ*R+"R;ρ"R͚Ɗ;ށ*R͚ŊŊ*w*S*Su^R*w:wOV*wVyʼ:w2~:w ¼:w *w*w2~+"w>T*w*R:wV*w*w :ww:wO> :ޅP_ {=u^*w~DM*wҡ} Ô}PY:w~ã}:w@}*w*w}:w}*w#~+}> *w>T> T"wP0*w*w:w҅ *w#w&~+&!w|T҅ +GD5x#~2wnP2w+~W#~_zW{_zWw#V#^zW"S|…T*w#"w>e6~!|"w:w |*w*w |*w*wDM+"w{ w#÷{:wwP*w*w{>TJ{*w#"w*R"w:w|>6~!F|"w*wu^*w:wLL$*w$#"R*w5"w͚Ɗ*w*R>L>2w*w*w*wu^>T*w*wO>Tl|T>TK*w*w2~*w&"wDM+8~ ++#:ww#P>T"w*R"w>2w*R*wڍ>#6~!J{"w*w*wJ{XO> +“Šyŷxʯ^#  ӆ =ņ :2@>w#~ͅ}x}*w#:w!~#>T>T*wM*w!ww##w~G~~O~~f~!w]#V~w~!w]#^ *R͚}ʍ:w2w>T:w@|ʱ2w:w2w:wń]:w@Ԅ"wF#N#"w:w!w?~>T:w*RƊ:w>6~!|"w:wO>T*ww#"w*wJ{:w{:wO>T>e6~!|"w:wʈ|:w|*w#"w*R*ws|*wN>T:wO>T>e6}0:?M\*Vͩ +*^̂ biBS>`!xGҿ>` ¸bku^DM< ؂WM##"w>T:w2w@{>#6~!J{"w*wڢ>e6~!|"w>6~!|"wͿW*w:wzÀͅ΀ ـ *ą+#~݀w *ąu^V8"w:.e  e$`#  ` \!Q M# C7?*,.:;<=>?[]a{2ow# ȸe2ކzʈ~b{ʎ~k͌*S&}o"S>`:wҭ~O}~!yO~~yO*S~yOy2w"S*w*S+"w*Su^"w*w*]*S:w3N#>T+.]PP>́P3PE᯸>ā:wn2w+~&~:w>2w&~~!|"wͮ} |V|ͮ}8 |L*w*wڶ|q#"w>T*w*wҙ|>6~!|"w:w|ͮ} |!w~@±}#~ K}*w͒~>0*S"S> 2w~~:w@‘*w*w҅ ^w;#(:wI+&~҅ &~*w*w4I:w&~+&~BK*wʀ sw> 2RƊîc*ƅ/#/ #~C%y 2:ox0g"R*ȅ~Ⱥ/# Hcc©yʉ:wyx>*Éʉ :2@w#.e :ކҦO `ͺͺ͍<чԇ>߇͍<>w:wG+#p:w#6+:w.:w2wÎy+8-e*w#2~w+H> *R*w>TO>T>T2~œ:w2~*wN#"w>T* >T >T*R͚$.*…~Ңg͌"R:w@&~2w҅ +ÎЅLLˊ:=2> * ~#" !" ++ *wu^#*w>T*R.}:wO>T}*w*Rl} O>T2}*w>T*R*wl}:wO>TS}:w~*w*w*wPY:w&~Ã:wʫ҅+ʫ-®*w#w҅ &~G:wσxͅ*w*w4ë*w#*w҅ &~ͅGx؃+- ͍͍<'*>!`̈́>2݆܈T̈́2݆ws!͙ͯ͞N. SEPTEMBER 1980. DATE-COMPILED. SEPTEMBER 1980. SECURITY. NONE. *--------------------- EN-PARAGRAPH. MOVE DATA-FROM-CALLING-PROGRAM TO WORK-AREA. IF WA-OPERAND < 1 COMPUTE WA-OÏ Ҏ7>{_zW}o|g=…|g}oPpa>)T>))Y ]=N:bB|G||t|/G}/O!> 77 ITERATIONS PIC 9(4). 01 WORK-AREA. 05 WA-OPERAND PIC 9(9)V9(7). š͍˜Ú>͍¶ø>̈́>2݆܈؈!͙>2݆͍ͯVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. CROMEMCO SYSTEM THREE. OBJECT-COMPUTER. CR IDENTIFICATION DIVISION. PROGRAM-ID. ROOT THIS SUBPROGRAM IS CALLED FROM CALLROOT.COM PERAND = WA-OPERAND * 10000 MOVE 1 TO DIVIDE-FLAG ELSE MOVE 0 TO DIVIDE-FLAG.  05 WA-ROOT PIC 9(9)V9(7) COMP-3. LINKAGE SECTION. 01 DATA-FROM-CALLING-PROGRAM. >͍ ">͍ 6ͺ|~k 4! a|DMͺ?o& Z+|g}oDMOMEMCO SYSTEM THREE MEMORY SIZE 65536 CHARACTERS. *-------------- DATA DIVISION.  TO CALCULATE THE SQUARE ROOT OF A NUMBER. THE CALCULATIONS ARE DONE BY THE NEWTON-RAPHSON  PERFORM COMPUTE-ROOT-1000. IF DIVIDE-FLAG NOT = 0 COMPUTE WA-OPERAND = WA-OPERAND / 10000  03 LS-OPERAND PIC 9(9)V9(7). 03 LS-ROOT PIC 9(9)V9(7) COMP-3. *---7?yOxGy2ۆyOx7?2܆:܆ :܆wͺ:݆ډ>߇>:ۆ w ~ WORKING-STORAGE SECTION. 77 DIVIDE-FLAG PIC 9. 77 ROOT PIC 9(9)V9(9 METHOD. AUTHOR. CROMEMCO,INC. INSTALLATION. SOFTWARE DEVELOPMENT. DATE-WRITTE COMPUTE WA-ROOT = WA-ROOT / 100. PREPARE-TO-RETURN. MOVE WORK-AREA TO DATA-FROM-CALLING-PROGRA--------------------------------------------------- PROCEDURE DIVISION USING DATA-FROM-CALLING-PROGRAM. FIRSTͺ:݆>߇>##V#^#͊^V#^"9dM2b|]|]DM!>))Y ]=N:bB|G||t|/G}/O!>) COMP-3. 77 TEST PIC 9(9)V9(9) COMP-3. 77 DIFFERENCE PIC 9(9)V9(9). M. RETURN-NOW. EXIT PROGRAM. COMPUTE-ROOT-1000 SECTION. INITIALIZE. $UD( !$CHGB1T REE%TX1M$CMPABTRD"!9"####^#V+++++~#~:!**͡D*r*`*XGóD(m)*)@@@-S&'ê'*3 #~º+ú ^#V_~º#~º J##V#^^#VzH>͓ ##~*Wm)ú#~#2!:c6B#~!TEST. * NOTE THAT THE ABOVE LINE PRODUCES THE ABSOLUTE VALUE * OF DIFFERENCE, SINCE THERE IS NO 'S' IN THE PICTUREo"*: Oͯú:9**:Oͯ**: Oͯr##iV#^"V#^~2#>͵*|s|wڕ: MOVE 0 TO WA-ROOT. MOVE 1 TO DIFFERENCE. BEGIN. DIVIDE WA-OPERAND BY 2 GIVING ROOT. *}*y*f*{!4^#V#"`^#V#F#~#"rʌOxy†=2ʌ*o^#V#"o*rV#^#"rzqoͯ|O*` s#r:=RYbGg!UEI231800 0000Ghr8yXO ^#V>  y *o#^#V~#W^#3"túz: >2  o: GxG{6#w# !A  * CLAUSE OF DIFFERENCE. END-SECTION. EXIT. ʎ Û^#VÛ##^#Vú#F#~pxT]´##^#V?m)ú*y^#VV#^#zͯ> ü#~#?=^#V#"^#V# PERFORM ITERATE VARYING ITERATIONS FROM 0 BY 1 UNTIL DIFFERENCE < .00001 OR ITERATIONS = 999. =Ì1"r*r^#V##"y2f#^#V"{##~S&#V#^Ͷ-~>O! ^#V > y! y!?'6D*B} Yud @`i0p#p#:>d(1dp# ,:#wx/+wú~#~”#^#V#N#F#l#~_l##V#^q#p#º MOVE ROOT TO WA-ROOT. GO TO END-SECTION. ITERATE. COMPUTE ROOT = (ROOT + WA-OPERAND / ROOT) "tV#~_)))U\!$^#Vdiy!#dddbddJdTHddHHHH> ͓ #~2##ú0a#B3#<89AMQ.;nI㤠8AI6:PQ#8A5I.;0Tc(8IM1Y3U#' 8MY]3HST c.QI 6pUU`bD 92j!  :j=O!/  *r *t*` N#fir#s! úhz ~ #͓D _!Jø(Ó !ÍioæHjHÕHíþ a#ú9áDDâDÓDÞDEE F/FBF`FÉFFEéEºw#wú2q#~2v#ú~†##~ʺ-ý:ú"W~2#~#^#Vú#V#^#F#Nxz_~/ 2. COMPUTE TEST = ROOT * ROOT. COMPUTE TEST = TEST / WA-OPERAND. COMPUTE DIFFERENCE = 1 - D!~=rw"{}2f"y"}""`"r;)~# ¯9ɯ2 *` ^#VO ""#~#V#^#2o"*: 2   ^#V͓D> ͓D> ͓Dkm** RUN-TIME ERR:REDUNDANT OPEN DATA UNAVAILABLESUBSCRIPT FAULT INPUT/OUTPUT NON-NUMERIC DATAPʺ2_>+2:ʤ:O* ~2͍:-> ͓ ##V#^#{2>͵zW"V#^#"o":!"*)>V#^͵!"*|!*:š*DM l!~2W#^#"i"i"!"*|2 ~#W^#"~#2W^#*|":>2b:=DD=2~#GOxG!djHkO k ~G! jHkOx k j~##~#^#W Ì V#^*+|ڽ *jHڽ |ڽ *":= 2* >͓ **r#sú#~#2i"V#^#{<2>͵">2b:+ *q#p*ú>͓ :x< 2x=O! w#w#w#:e~##X##B#~#Bx=2xV#^#z‹{҈zW{ERFORM OVERLAP CALL PARAMETERS ILLEGAL READ ILLEGAL WRITE ILLEGAL REWRITE REWRITE; NO READREDUNDANT CLOSE OBJ. CODE ERROR F"~2#:2V:b=,*+"|>2b!V:b=NJV:bNP>2b!*V#^#"znSyloyI*DM* : *"*":=**"*Vnú:O nZúZ nú*DM**ͯ"*DM*Ͳ"ɯ2#~2#"~#^#W"i"i":=2*V#N#"`i"zB2/404*xyDM**ͯ"**DM*DM* ~#  A$ Z $ x !2b!: :8!F O ^#V T ` z **~h *~#"+ʷ -ʷ ʷ $ **_V#^zO*` N#FxʤzW >͓ *`~#µ*`w#*`s#r*`##s#r|/g}/o#z{*}"$)EATURE UNIMPL. GO TO (NOT SET)FILE LOCKED READ BEYOND EOF DELETE; NO READ ILLEGAL DELETE ILLEGAL START NO CRT DRIVER SF]@1"" zel"&!FU@)"* dd#'FI@!"rjg)Fl1" $gH)G@1"r2ó>2:>2>2i":i"V#^#":O:O! Ͳ"!"æ**ͯ""**"æ *Ͳ"æ~2=2#~#2&o)V#^:jV#^"i*:=ʃ+~Ï *~#"*+"0$ : A$ S {ʷ }ʷ $ *DM*x!~# 0$ :$ ÿ }<G*~#O $ y $ $ #+)*`^#Vɯ2x22w<2:OG:b<yB##úy6^#Vú>2bxV# Og>h2b>2bxw~# q_EG LOAD ERR ILLEGAL RELEASE ILLEGAL RETURN NEED MORE MEMORYSORT ERROR NO I/O BUFFERS ~W#^"#V#^#"~2_#### :O ú:x=J2O! "^{#VJ" ^#VX~#^#Wú*#~ ʍV#^V#^+r#s#zʍ* ^#V''*V#^*r#sú:O* "*V#^z+2-M":_*:w*|r! ͕H"{0*+"w:=ÏDMV#^+ r#s:=r2nͦ2222222222<22! ^#Vl2\E\: <2:2! !!$ ~#2~#"V#^#"i"i"V#^>͵"~2#*|l:l*V*DM*l!*DM**I:b= d'!"*~#"{} >͓ >0>0!6-G:Ox! ^#V*G|"!5”0~?W#^#"*`& ^#V*)"~2V#^#zW"V#^#"o"*V#^zzW{_"~#"*j ڽ Ì :ʉ >+2͍:-Œ##^#V"*##^#V*`s#r:x=2xú#~#^#V#"^#V#"V#^#V#^zzú:x <2x=O! s#r#*`N#F > 2<2!4!4!4 >*2:?:2:-R> 2!5:-> 2:::ʆvBݕg#~2#i"ͽa#"0*)**(>Ó :OJiDMq#p#F#N#q#p# cʸ+!J:-ʺ=2V#^#"i"#~#29:9~=29V#^#"i"*|DM*|}**I:b=ʡ*` ^#V"V#^z  ʩ#+~w#N##~<"y$%"&++&3&& %"P%!͎%3&& %!:t!"#x0 %##~+++~"~%wÁ"͎ :w:=ʖ:=Ù:=O* :vwV#^#C))|2)|2x2~:/<2~#W^#"i"i"*~22##~2&: %—$###~w!##^#V2 # : w+w+w+wú&z” {0ʔ %!$&:pr zWv o &##&>*È> 2::2:ʬ:²:2:> 2!4:::2:> 2!4-!O~#fo"H##N#F#*Hxy{_zWͯ ɷbOcʸ+"Hi*HF+N}o|gͯ+"H B*)| ,=, R*#>2cá*r#s**~#"*+|ʡ"ü#~#F2b~G:.2.V#^#C))):/2/xG:727^#V#"2^#V%3& &K"#x0%##~+++°"~%wó"͎%& %G#:tW#x#<#=<#:tʗ$%×$#~2t~"<"=2uW#^#"K))):|/<2y2!3:!ʦ::!G:2:G:2:2:G:2ͭ*!"!:p  súú#~2vN#%&%y !~!͎% & % 0!:v=!####%ú:v#### ##5z͇Rú!5(*~#~#":2!v:0Y)O:q:,S ._ 9gRq:Ow:: 1#%j2s#~2r~#"("0"8"@"F#~#&o))))):*2*:+2+):B2B:C2CV#^#V#^"" ͭ!"-;! 5!,-#%&%~=%͎%"|:uG& %2sG#:tW###%ú##:tS###ú##*|×$>2ͭ!~#V##ʏ#_+~#!"o:b22bú:b2£:2b;:=:2O* ~->+2X7+6ܬF 9 ú:vʗ$%×$~@*!4 %!:pA!"&++&& %2sP%:sa!~w !:v !w4!~2xG@::::!ʬ:  !N*Ͳú!N*~0>*w# ú!5*~#"212G:x:0O#%&@%%~w~w#~+$v####~#H#is#r&%2svh~#v###~Ow×$#:p*!:-;1+Pp?P P ??('p\ !l;e]g+@'|>sw nf~!ú# o#;##"zúN&oG*`^#V2$y$:y*|+F$2$#$~+++7$G:y怰2y>*` ^#V"o"#~#^#V#"]\2i*s#r#":=(*o:^#V#^#V#MD[N#Fú2c#~?2#V#^#"i":#~2y*#|ʟ!+:y2y!"x2t#"~%"|&?G!x~ʎ"~\"!####:tʺ%úúx !0 %#~x0> 2:2x:O<2 * :wy; ;:@:: >*2:=e:z:y:-:=:z:==O*ʆ6+6+V+^!rN*` s#r:s—$!~#ʺ ###©ú+s#r#s#rú#+~=@##%&~?Gw_ #~+  w:yͳD:$!:t!!~7$!6$ͳD !Z$Z$Z$Z$+í*>->2:Gx2:*<2>0:=2+þ*.++G:*=2*x:=2+.+3*J*J\ѷ\!>3o 2=2> 2]**CHAIN: Out of Memory $( )(**CHAIN:  /*X-&^#V!///<412:k-2k-!j-~#—/!U-~#Gt/4O͹4!s-6I/!v-4 T/ !s-4!e-^g/s*-w*/!t-_:s-w*/:s->0!e-^'*Q&|>ʦ&*M&"G&"I&'''2w&*R~#fo#'"M&*)'"O&'&*R~#fo#'"G&*)'"I&'*R~#fo#'"G&*)'"O&-x,͉,0,>2b,:-+- *~wúG:2I-xG~w+J-p:=24h;?RU?9 '0AI@O#„$^#~ʨ$V$&±$y==_*z%z$l"%##%"%*t!%ú"tú~º!w~6º+G*.+++0+>2b2+>0:=2+ú:S+=2:G/2x~L++0T+7>+2:Gx2:+*~#"-’+2Ò+Bad file name $**CHAIN: File not found $*+x~# /)...... VEV,x,:dVH0123456789ABCDEF*r"[)!;)ʂ)/s*-6>0!t-w>0!U-~#/4G͹4!s-N6!u-q/ !s-4/!v-4!e-^/5*-w×/G:u-/> Ox2u-!t-w×/:s->0:k-2l-:X-|g}o'"I&##"M&ͽ'7?=G'*K&*M&:'++(DM "K&*M&*O&"Q&è'DM*Q&|x'*K&|_'*G&"K& ڨ'*M&?ڨ'*K&"K&è'*K&|†'`C*hU@@`C*hч^b3 ʦ`n !:`C*4lh?9zܬ|Qpʂ8YEB:5z{2R--2b"S-*S-~2%` ,${ %@ %{&~w C&{M%ox0w#x0wx%ȷ&o&)))))|2}22>2ͭ’+*:O ~t+*:O +:,*:±+#:O +":+<2>0w+:=2+ú+x,͉,G:+=2+:,p"+:=2w# {)£):f£)*[)*{ýx2f_!])Nx_!])VY"D)2:)!F)w# )!Z)w:),**y7* W _ʧ1 !r-6*- :e-G +y>0^:r-+0{ /<:00 /Ó }oX-##?5"Y-?5"[-!_-w#.*S-:5H5"U-]"_-j"a-zT.*Y-*_-~-P.!j-4V5:j-2l-z.:X-.*[-*a-~-|.!k-4V5!úþ%շ¤%&" &`2>2>22v%!Ù%:pF&%|!&x:xÓ %#~+p2p^+:,x,͉,0,>2b,:O!(, ^#V6,=,H,N,*#A,*+:wú*Q,*~0\,>{^,w:-º~{r,>}t, wú:‚,>*7*(* w#z*y **:)ý=**D)"k>Ó :)~#W~#_2>͵{2~2W#^~#2>͵{2i"i"!s-4~ʑ0!m-4~ʝ0!n-4:5H5|2i-}2W-?5"]-:W-!c-w#60~0!m-4:e-2o-> 2e-:n-0!i-:e-2e-w:m-1:l->+0>-G:t->}o|g*)(!\E(\<(!^(/)bW(M(otB(2h2|!LPSF&J\2|:J!3:Jz.*S-:5H5"g-2i-½.!g-F6!_-~w.#6!U-~.w.!h-F6!a-~w.#6!V-~.w!-"-> 2o-2e-*Y-"]-*_-"c-:U-2W-#V#V#^#s#r#r#s####~!:p(&##%zP*~##& &'W:wz&z!"K&"Q&*T^#V*Vs#ræ&›&0=2{‘,>0}›,>0ù,0,:0,: :,>͓ G>-2x:O* "> w2:O,.- ,x,͉, ,,.-:,:  1x*c-*]-w:s-!15!12s-!W-5K15!s-6 914 *c-+"c-*]-0w!1!e-5~!o-j1_*-~!s-6!t-w:t-v1>2b*S-~"5:5*5wÒ7*5w*5 zʨ7.{@ʨ70y250z@ʶ7 y25&=*5:57#"5>͘?*5}|7g25:57725}'8>5xË5<Ë5 !$' $(26 %05@E$06BHT!(5BIVc$2@HVdr'6ETcr0( UD@nd¬`"3ۘ­@1t+-+*5@9<:52<*5#~+"<> *5>͘?> ͘?"5͔@0*5*5@V<@C͘?>͘?*5ú*5!5w#3$44!s-63 4wÀ3:s-j3!p-4j3!e-^4*-:p-w:V-G:z-2_-> 2a-2s-3$44!s-624w3!z-4[3:e-2o-> 2e-!o-5>0: w#9:5w͔@*5*5@$:>͘?Î9*5#"5*d"5:5E:>zz͘?*5w#"5*5@Ҏ9:5::5O>͘?>eʖ1~ʖ1:X-ʖ1"S-:R-2R--:v-²1<ü1:l->ʼ12bv1 !-w#1:j-!k-2l-:V-2w-:h-2x-:a-2y->!2o-:U-ʤ2!o-5~2e-2*5͘? :5!82g*5#N>-!8 >͘?}H@B8>*5͘?:5O>͘?|ª8|ʝ8>*5͘?:5*5*5:5 o8> 25:5O*d@‚8:INVALID NUMERIC INPUT -- PLEASE RETYPE2g!00"h.:q<6,y25*L"5~R625 g o" o g>o|>q6>o>g|>ʀ6<#w~‹<~“<~ʪ͵:5<O}=!^*-~*e-+"e-w3*_-+"_-*{-~*a-+"a-*}-N !s-4:U-i4͹4N4!v-4*e--a4"e-!-w<4!t-w<4*[-"]-*a-"c-:h-2i-:V-2Wz͘?:5O>͘?>ez} 0;ʚ:_=>}8_= 0;L*5*5@:q#"5>s-͹42p-1:w-2V-:x-2h-:y-2a-:V-ʁ24G:p-b5_:s-'G!e-5F2^*-~'P2oa2G!v-wxox2s-:e-u2_}*-w2:s-!t-w5O>͘?*d@ڙ8o825?=*5#"589*5>͘?*5*d*5@8:5O8N#>͘?*d*5@Ҷ8:5@9*5#"5*5"5*5#"5*5g>g} >ʐ6>g"5`ii"5:5-AF#N#"5!5̓<"5:525@6<6:525*":5@6 y25*5}@#7!?"5*5w*yO==yO*@=yOy25"*5*+"5*"5*5*5:5G+#p@K=:5^=#6+:5r=:5257+|=-©=*5#-*S-~ʏ4>2m-~0~0##~0>2s-~0!n-40:g-4=2g-:U-=2U-*_-+"_-*Y-~04 >Ó :h-4=2h-:V-=2V-*͘?*5*5@:>z} 0;_=!5~@;#~ ;*5*5#*5>͘?*d@r;:5O>͘?[;*5*d@2:s-1:e-=2_*-:s-w1!t-412e->0 !-"{-"}-:j-!k-2l-{2e-2q-:e-2͹4!e-5^*{-w2!q-s2!q-5^*{-w> 2e-2q-D9*5#*5+#@%9~0O:5!9w 9 9*5+"5"5*5#;9*5:5D9+"5>͘?:5_9*d"5>25!5~p9#~ʂ9>#z"5{n7*5#À77*5+:5€7+v *d*5>͘?O>͘?>͘?v<=:5v<*5N#"5>͘?*d*5@:5Oš>*5@ʚ>ý=>:5v<:5N>>:5N>a-+"a-*[-~04 4:i-$5=2i-:e-=2e-O!o->G*- ~V#^#:5o{g)))zo +>Ó =5ʂ55ʆ5=O!5 ~; O>͘?v;*5>͘?*d*5@ڰ;:5O>͘?×;:5V<*5*5*5*5@V<DM*5@; ;PY:5@V<;:5@9<*52U-:e-%34!e-5^*}-w3!q-s3:q- 93!t-4> 2e->0!q-5^*}-w> 2V-G!U-> 2z-2e-:z-!32s-2p-:s-«3:V-G:z-2_-> 2a-5>ez}8_= 0;9:5ʎ9*d*5@ʾ9*5N>͘?:5O>͘?*5#"5>ez͘?*5*d@>:5ʚ>*5*5@N>:5w:5O>͘?>͘?Ï>*5*5@v<*5@j>"5DM+@|>~ +o>#:5_ ­D=XO> +D¼DyŷDxD^#D DE yBx#~25ʲBP25+~W#~_zW{_zWûB#V#^zW"|B}B:525>͘?:5@C|B25:525:5CP G8̘5*d@>ڐ@>25*5*5*5>͘?*5*5@O>͘?ð@|}0:?M\*JV@ +*J^A biBS>͵!xG!:GG>2EG6GͿG4G%H6G>ͿGRG%HTG>ͿG 6E®G~G/Fw#͔@>͘?"5*d"5>25*d*5@>>>#z#z>ezzFEw#.͗E EE ͗E$Ͳ#  Ͳ ͎E!E E# uE7? Ci:5@C"5@CF#N#"5:52C!5̓<>͘?:5@C*d:5LCáC*:5wCN#>͘?+@rCáCYC:K8OG:G8U ͝ ,¿:H8ʿ2H8>U :K8O:G8|xG:K8O<_y{*u7YG<!) _~A>͵ @bkDM@)A< AWM##"5>͘?:525@LA<>0TA*"> 25&=?=:5@A*5*5D ʢAw@A#lA: 4! ғGîGDMEqGo& ڌG+|g}oDM/F7?yOxGy2 EyOx7?2E:E H/F:EwEH???@? ??X?? ??*L+#~=?!?5 *LV8??"5:5R?> 2g>c*Ns?#s? #~ʇ?i?y v?:ox*,.:;<=>?[]a{dEڡEw# ȸ—E2EJE:EdE@w#.͗E :EEOͯEEͿG<FCP>ͳDPwCPE᯸>ijD:5ʲC25o<j<:5>25j< >͘? >͘?*d@$.*H~Cg@"d:5@j<25D ox͘ůG|2D8ͪy2K8P/":K8O) 2K8:K8G2C8*6+N{*I82G8z̘̘l|=lyWx=zʡzʡ5AoBj<D j<*5*5xBÍA:5j<+@j"HFH>"H: E w ~4HPHEPH:EHH>PHFPH>##V#^#V#^"ú2H|ʏH|ʏHDM!>0g"h*P~Ⱥs?# Ì?ʧ?ʧ??y?:5yʼ?>*?? ??>?**5*d#?@?"5"d@@*d*d+"dF>BFFͿG<(F+F>ͿGͿG!ͲͶG>2EGBC:BD=#D2BDD> *?D~#"?D!CD"?D++  :BDDCDP<ʡʡ Ę>GG<"P8z½  "w7"L8y2K8  2O8 :O8*P8!C o>g~#fo:K8O*@;B*5*5xBA*5#*5D j<@;BG@6BxB+EB-`B:5_BD _B*5#wjH H7>{_zW}o|g=·H|g}o@@"d@ @"@*d@+@*5**@D@*5*5:5LLh@*5@h@#"d*5@y@"5@ *F:GͶG2EͩF¥F!FGGFͿGF%HF>ͿGF%HF>ͶG>2EG G  P8Ę y"u7  { !![!!" :"E"Q"^"d"m""" """"""{!zW{_{!zW{w ̰~Čwy,}&7Oö&8;{ *6+~# &&ʽ&ý&#"6{ (t 'tOͱ& )t >26 26 2$ ʠ$͝ ,$ͽ$:@8ͽy,$"xĪ3{ "$'tO G $xͽ$xͽ ͝ ,$3%#*i7/++> \> \:9<> C> C!*:9<}?ConditionalSymbols: Macros: :8!" 9"9*8”+!9!* 9̓3zW{_62K8*L8\W> O2K8*L8]W{!}_{!}_{!}_{!}_{!}o{_{!}?_*u7*w76 ~@ w#s#r#*u7s#r6C:8*:6+!64~=)!T8~W)!7~W)!9#T8~# y) y)y) y) ])!N8p"6ͩ#!LG"_{!zW{_:K8Ī*L8 |/W}/_*L8:K8ĆĪ|/W}/_:K8O{!z ) {!#+}zW{_ *L8:K8y y!:K86 >26 >26 26 >26 >26 26 >26%26zt:7 {=tt<26gk6%zt:6{ʏ' t:7 '{2:h7GJ#ͼ$:6:7U<273#"y,'%:6=b%G26:6=P%26:6<26͏%26 z:6z:6z!6ʋ%= 4=26<26 5 >ڔ+<282828"8* 96  ~<=+:8<28:8:8=28<#~+:8+:8+7"8:8=28͝ &9,*6~ 7Ī~("x ʶ2}7xGF#:h7ªF#*q7*u76 ª:h7G*q7"u7:6ă"i7 :}7m#:6ĩ:S8ȯ2S8 ʤ#3>G2h7<2S89z ڵ)"6~w#~@*~ʎ)#^#VͩÎ)*o7 ͩ *m7{ĩc*6"a!"6"6r!S+!i8>a5\!H+!8>a5\+*!!yO2>8͋! :K8y=!2>8=!yO:K8T!yOĪ" {_zW{!DM!>=w!))e!e! :K8Ī Ī*L8:K6ar t:~7ک'ͤ>!y7w:6"6ĩ,ʕ':6˜{ *6+͇F'KGö=26*6~#"6!'{ (t 't t't )%:6_>W!67~͏%6Ҭ%w!64:626!64&zà%&z/ʠ%à%:6 =à%:6 à%7:6& & &à%?, 7, E,"67,>&28æ,&9,:8>,>&\428*8~s,~7h,O+h, X,x+~h,J,:8*8~ʤ,~7™,O+2}7*k7J##3>2S8G2h7*m7J##3>2S8G2h7*o7J#~(:h7k7#o& ^#V*i76 s#r2}7*q7###:6$:}7$*k7 ͩ6|)*:9<2R82R8/*!*/+!*/+*6|d*>,͌D:9<>,C:9<2R82R8!*/++r*̓ͩ*E8|ʊ**z*8 ʣ!y Ī:K8O*w7"u7*L8{!z̘zB"|G|!|"!"|/G}/O!>! !7>{_zW}o|g=!|g}oɯO_yWt :6:~7"(>7!T8G~Œw#.(p~({ /t v(/t ͨ #~Œ~$w#+"q7>2h7!"i7F#>2~7:z7Þ ©(à%:6%!4 "6à%7{ U&T] L&#*6zt:7 y&6 "6 &&& Ot7ͨ #~@™, ‹,x+~ҙ,},<*6 E,,9,+,&+, "6͝ , , ,9,,d º,,d ,9,,͝ ;--49, 2}73{ "*$'¦$G *6++J$ Q$=$͝ =$ { ,g$;g$g$ "6¦$yڦ$ G É$ͽ ȸͩ:t9ʡ*>͌DC1DNo Fatal error(s) Warning(s):h7GͩÎ),+!*/+++REPT/IRP/IRPC/MACROUnterminated ,+!<+{!z,"|,"|ͪ!">OFGÿ|"6 X"|"6 ?X"|"6 W_ |"q"|"6 X"|"6 7X"?X":K8Ī"*L8> Oͨ ͸(#~d¯(~w,ʇ(tã(w͌â(~8~w#w#w#w"6(x†x 26*6"6̈́ x6":D8ä"6(x†*6͸(#~Œ! ʿ4͝ -44 - -5"9ʿ4 ʿ4> \4ÿ4:8N-*94-*8~ʇ-G+r-~/_c-~ʕ-=G+~ʕ-̀.y-+<=ʒ/r!!ø2l!\!ø!nò!%!ß!@!õ> ~#> _Command line ͎E^VnfͫCutnfA͍@nf zʟ •ͻz*#"zͻ:ʲ>2âxg*}|2}2! ~#  2*+"|*! ":Gw#PF-+Ê-~>.̀.̀.?*9O #*96 һ-"9+DJEJ -~7X.,berror. Usage: SEQCVT OUTFILE=INFILECould not open input file.Could not open output file.Invalid device: Output file write A͍@??nfA͍@?͍@A}ʸnfnf͎Enf* S"[ nfͶC" * |* " ͊ͫ:7>&ͣGҕOͣx=y•@ԫx5=<ͣ<y.oͣ.Kͫ! xfͣfy=vͣ=v. b. b.;b.! u.w+͝ -Ow+͝ A. z.0.w+͝ 0.-T.w+).).g.'.'.{=*6+~g.ͼg.!a76 ғ.#6error.Usage: SEQCVT OUTFILE=INFILECould not open input file.Could not open output file.Invalid device: Output file write *R|(!@=!ͬ<* R|(*|(=!=ͬ<* R|(*|(=^#>=w# > w#’ww~# ʣ~# ʮ[0A:îO /<< +&̦,:ʦ,! ʵ.æ,%:7 ."8]+.> 3. : Ͱ+.6\4 .ɯ\4Ϳ4!* *|(=ͬ<<S<͎EnfA͍@@C??^V!ͫCutnfA͍@?A} n:=2*~#">2*7*w#":=2I!">2/§ 9*8!!/o/6 :86/xK/ͷ3*8+28*8͓4~/6ͩ4̀.*+!#/††ʰʿڟ" fnf͎E!"5nfRwnf~#fo!; ͻ)"!|t!= nf~#fo͠(!ͼénfame as active record count in header Total records found by random access less than greater than same as active record command line Wrong number of arguments used COBOL ISAM File Integrity Test. Version 00.01 This program checks that all r*))!IW<͂B͕B}!*͠(!͂B͠(!*))!IW<͠(͂Bb!͂B!*͠(*))!IC!qR"7!"!"%!utqnfͻB}0nf#ut+ánf))!I*1|(a<*!6-"1*!6-!C(*"q!͠(!͂B*-͠(͂Bb!͂B!*͠(*-b!*-!͠(!utt !6͂BR™!] ͠(!ͼé! ͠(!ͼ! ͠(! ͠(! ͠(*!6-ut*!6-")*!6-!C*)}o|g")*!6-" count in header  ͎E!utnfͻB}F w nf#ut+! nf) s#rnf) s#r5 !"#!ecords in an ISAM file are accessible to both sequential and random access. Disk seek error Disk seek error Number ofWBB}ʳ!nf͠(nfb!G!͠( nf͋BB nf͋B͕B}!VnO*V$[#"N"R*+"P"TR[VRDMbk6 66*ZFcord %l key = '%s' Continue - Check Random Access: Record %-5d Loop/duplicate record in random access at start ofI)"G)"?)! "C)!"A)!}2)͎E!")*)&!0ͲB9*)&ͲB} *)͠C*)&}o|g")*W)#"W)n&}2)ê*)utnfnfCutnf)nf~#fonf}o|gutnf|V!\! Disk seek error Check SequentiaFV*0 n&ͼB}ʣ*0#"0È*RͻB}]!͎E*4"V*V|*V+"V*V͢.nfK͎Enf͠(nfb!!͠(!utnf|! ,}H!͠(_nfR_!͠(͎Enf"=S?*!*=1( ABORT: program/stack too chain %d: Record is %l Record %l key = '%b' Continue - Check Random Access: Record %-5d %-5d ͎Enf")*)#")n&}(nf*)RR͎E!"7)*)&}o|gPͼB}m!}2)[)*)&}o|g}2l Access: Record %-5d Disk seek error %-5d Loop in sequential access: Record %d points back to record %d f#utn&"X}%*X!.!ͼ$CONSOLEcouldn't create stdoutcouldn[?!N+"ESG!|(=}ʾ!͠(!ͼ!ut<nfͻB}nf#ut+nf!s! big $͎E!X"0!"R!!Z!!-|]!ͼ*0n&"T}y! *TͲB}ʏ*0 %-5d Summary Record %d not accessible to random access Key = '%s' Record %d not accessible to sequential )*)&}o|g}ʛ!-Þ! }2)*)&}o|g}2)&&AR")*)&}!A}2)*A)|!"A)*A)ͼB}!"A)*)&")*) Record %d key = '%b' Record %d key = '%s' %-5d Check Random Access: Record %-5d Disk seek error't open stdoutcan't redirect stdin$CONIN$CONOUTtoo many command line arguments͎Enf}o|gut*3)}nfut[nfͻB}.Inf#ut+nf!*!6-s͎EnfͫCutnfͶCut*#u#"0s]*Tp*0$n&R*0_/*08/|!c!*0!!-|!zÈ!*0$ A!)@[A)!@R}2)*)&}8!)?͍@!)?C!)@*)*)&Rg*)&|! ,}`*)#")*)#")@*)R")*)&|! ,Š%!"G)*G)R¦%*U)W<")S)%*S)~#fo|(")S)*;)}%!*)[)p<")S)*;)B%!*)[)=}&*)=)*W)#"W)n&}2)0*)&ͲBʭ#.*)&͜B}#*)&"C)*W)#"W)n&}2)͞"?).*)&R#*W)#"W)n&}2)͞"A)L*)&͕+}o|g"H+)*H+}*!!"L+!"H+"J+nfn&}ʰ*nf#utn&"H+É**J+}o|g"J+í**J+}o|g"J+í*nf"L+í*)O!*A)+"A)#}ʯ!*)&,}2)&!])n&&Ä!*)&}!"!E&*)B}!!+!!-&*)|!*)}/o|/g#") *)ͫC0}"?)[I)*?)R"E)*=)|! ,}8(*E)+"E)#}8(*C) (*I)+"I)#}[(*[)#"[)n&&8(*=)}{(*E)+"E)#}{(*C)c(*G)*}ʎ!")")*)|ʣ*)"I)é!"I)*A)*I)"I)*)&}*I)"I)! }2)*)&-}2),}*)&!])0s!}2[)nB")S)!"9)!})"[)*M)|ʟ&*I)#"I)*)[)*)[)p<"K)*M)*)[)ͮ=*)[)p<")S)*[)+"[) *K)ͪB}ʁ&7*K)ÊB$l*)&͕B},$!"G)*W)#"W)n&}2)*O)"S)"U)")"Q)*)&t'f"'"'J"'*Q)~#fo"[)*O)"O)*O)"S)*S)~#fo"I)!"!í*ͦ*t*Bt*bb*Wb*wP*RP*rFÀ****J+|¾*!"J+*J+}o|g}*!nf$n&͜B} +nf_/nf8/|o|g *)ͶC0}o|g*=)}A"*E)+"E)#}A"*C))"!"G)͎E*)?!)@A͎E*)?!)@*)&O)"O)"*3)}ʗ(*3)Ú(*})|͎Enf"W)!"5)!") "O)"~͎Enf"W)!"5)nf"Y) "O)")*)&,}2)&ͲB} Ø  [)*)&!])*)&!)!n&$C}o|g0}o|gs[)*)&!])*)&!)n&0*K)s*)[)|"&)'!*)[)=}& *[)R"[)!)! "I)<)'*I)#"I)*[)+"[)! *)[)=!0ͬ<G)*A)|ʐ$!"A)*A)}ʧ$![I)*A)ͫB}ʲ$*A)"I)'*Q)~#fo"[)!"G)*[)"I)*A)|$!"A)*A)}$![I)*A)ͫB}%*A)"I) +!nf*J+R}o|g*L+͋,"H+|=+=+*H+! ͎Enfl,nf!/",|}+!n}o|g")*)}ʭ"!?*)ͻB¬"E*)ͼB}ʹ"!}2)A͎E*)?!)@!}2)A͎E!"3)!"})*W)n&}~͎Enf"W)!"5)nf") "O)"&}o|g0}o|gs !}2)[I)*?)RҲ *I)"?)[I)*?)R"E)*=)|! ,} *E)+"E)#} *C) *)&&*)| !!s! *)[)=")S)*)[)|&*9)}D'*[)+"[)-s*I)#"I)'*G)}Y'*W)+"W)|%!"I)"A)"?)*)&&''|%I|%i|'!])"[)*S)~#fos!"I)!"G)'!"M)!")S)!")S)!";)|%!"M)!")S)!")S)!";)|%!";)*G)|f!/",|ʝ+!*,[,*,|(=*,|(ͬ<S<ͬ<<*,[,S<=",*,[,S<=",nfʉ(*W)%n&͜B$#*W)#"W)%n&͕B}@#*W)n&&*W)#"W)Æ(d*W)#"W)n&}2)+*)&͕Bo#-*)&͕B}ʒ#-*)&͕B"2147483648͎E!"H+!"F+[4*F+R) **F+#"F+)*F+C!4n&*H0&=!*)+")#}7!*)&,}2)&!])n&& !!")!.&*)|ʄ!*A)}k!!*)#")+}(!}ʄ!!0&*A)+"A%D|%dv%Uv%uM%OM%o$%X$%x%C%c$S$s$P$pX$BX$bQ$FQ$fJ$EJ$eC$GC$gFG'*7)|! ,}{([I)*?)R(*I)% *,*,.|,!nf!/|(*,[,=nf!/|(ͬon!!!!ɯo&!CO3SY3T53PLP3RDg4PUM4DU3000 '6i000w( i053@07112_11!!!!!͎E/ͣ/| 6͎E/ ͣ/͎Enf/r.~(nf}ͣ/͎E/nɀ͎E!"0-!"4-nf}o|g},nf"4-nf}o|gut*0-#"0-[4ͲB}'-*0-nf*4-nf-! 3 3s3+3536 6 3_!~ 4 (O ~!o`6 #4^> w6 +3V ^ !00ʧ2~«2ww3w 66i0Ë1!N0~(͎0¯20!ó2Nʫ2fnw#5(66tufu t nfu t >ͣ/͎E/nf}ͣ/͎Ew0/l.\ !!͎Ew0/l.\ !"2-*2-|-*0-!*2-R$-!,!͎Enf)!<~#fo}o|g}}-nf)!<~#fo}o|g}|n 3 3 3 33 3 333N~( y> y !~F A yNGx( xy!Nx@( h&3 3 346 !͎0¯2Fį006Fʫ2~·2fn~#5 ~( ͎0(ï243ͯ0͒1otuo&fnf n A==( F N͎Ew0/l.nfE\!Ͳ/|(!nf N#finf|:4}!4=/ ~x.r.nf\:]fͻ."-|–-*-!͎Enfnf."-|-nf! ͎E/r.~f.nfutnfut$nfF 6 #x w#Hx ` Gutp ~_# ;4! 3 3 3]4_! 3 3 3w4o& 0{¿2}%˿o|$˿g3 {(E~(͎0¯2{(+071| :s0 0(t3͋10>w&{1ç\ ͎Enf|(.}nf== T]#N#y(6 #6`i#͎EnfDMnfnfo&0bk60nf~!0$( ~ l.+!2~l. #~+( ##^#V#N#Fqput>ͣ/| 6!!!!! &  D?*>q#">}FF(9?>:%F($( !)F~P8+~'w+~'w+~'w06+4!")F"+F %F %F ͟=ʫ=BRҧ= Z7?=}?=*ó=z(nB>z(nB<nB=A===u==z=u=vD :WF=D E0+6:UF0>y(|/g}/o{/_z/W,$?!%F !%F%FDM*%F*'F*)F*+F`iDM"+F")F"'F"%F`i?@C@?@CÙ@?@C@nB*%F|:=Fg2>˼˽!=F6?>!=F>F!F>>>~'F2XF2UFOG:=F2WF2VFOx͟D!FF6!-F.F6!EFFF6^'w+:XF2XF ͎EnfnfDMnfx( R(8 + + ^#V#~#fo}|{z|}٥ogz{٣_ ~#fo s#rɷR lnRhR8^`R8ZTBCOBC(BD>RB( /Bɯ|(+%|$| | |C( | ?@CÙ@!=F͙@%FNwy#?@C??@C?@C??@C͟?%FNwy#!A"=F!"?F"AF"+!F>  o+*=F|jEG>|@@2>KF,F!F>?0'+( ü>!>F@&E:>G:%F>xjE:>UD!>o+ɷ'w+#ɷ'w+# ~ #5 D ~PTExE0+6D{ 怳2%F&F!%F&F6 ~W|}ٵogz{ٳ_W|}٭ogz{٫_W JBB}/o|/g{/_z/W|!T],}?=)< q#p#s#r`iɯgoC(go!,{=)C{=<C{=,'CDMR0PYDM!:0 z!?CBK>=( B?8 YCPC<|(CF|(&z2A(nBٯ!%F&FwgoW_OGz`A{`A|`A}`AC&FS'F")F!&FJ:A&EG7(|'g}'oz'W{'_y'OcA>2%F*=F|:%FUDG>}2>2%F!-F.Fw!>F">%F,F!>!>>#+8 '+0'+7?=( 'w+~'w~#NFo& |!90E+t+u qpEABORT: stack/auto space collision $n&##9!,(= (= (=<(=<(>ͷ<6=( /3=|ȯ!DM!}/o|/g#z(z/W{/_x}/o|/g#zC0CÖCzCPCÖC|zCqC}/o|/g#PYFCDkD:VF2UFD0!T\:%F@ AGO!&F2)j8N)j8C)j8< J85AٯA(g_o#o_g {O HJ8:%FnB!' ~#foDM^#V#{~#~# ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L