Acorn CPCPMDISC/M  0FORMS2 COM FORMS2 COM;COBOL COM !"#$%COBOL COM'&'(COBOL I01=)*+,COBOL I02j-./0123COBOL I03;4567COBOL I0489COBOL MSG::;<=CONFIG COM>?@ABCDEFGHIJKLMCONFIG COM NPI CBLOPSTOCK1 CBLQRSTOCK2 CBL%STUCALL ASM=VWXYCALL HEXZCALL PRNU[\]^_`FILEMARKCOM a$ANIM V45abcdefghRUN COMFORMS2 I51iFORMS2 I52/jklFORMS2 I53*mnoFORMS2 CH1pFORMS2 CH2qFORMS2 GN1rFORMS2 GN27stuvFORMS2 H01wFORMS2 H02 xFORMS2 H03 yFORMS2 H04 zFORMS2 I01{FORMS2 I02|FORMS2 W01}FORMS2 W02 ~RUNA COMRUNA COMYØÞ`ÑC5I5=5Ù TûS]TU'UjUUUVUV,UNU (C) 1978, 1983 MICRO FOCUS LTDBQ BCO XY JVsXyc  (08@H J0G p+qy͏VZt zŝY ŝ V`VŝHZHJ 005C=!z{w#  005I}*w#"P @002@Eͷ~Pͷ+<V!ͷªP}Qx!ͷ͓G@Qͷ y͓Gþ!ͷ ͓Q!ͷ QFORMS2 .ͷ6y#G͙QINT !2ͷQFORMS2.ISR SDB CBL SCP DDC >>>>A A A A A A A A A A A A 9999;;>=>> > >q?Z?ANBX>A A A A A GGGA A > V??DD>EDEGGA A A A A A tospqrVA A A A A ~77&-A 7ZY[EGACJJA A JJA A JJA A JJA A A m A A A XySEGMENT: RTERROR 123 COBOL PC 4567  ISR I I܀Q<ERROR ON OPENING FILE: ANIMATION OF ROOT PROGRAM INHIBITED - MISSING FILESaO $q$,!;,!Ù!;qz8O! !;,z;qyO! ͣͣW_͕qyO! ͣ͒qy#ng* x>  ~# y? oxE? J y? ox? zW!)N  F !>))b #}o|gs s  =X ~ og*6*9د2>C >ʢ ң 2E w#è yw# ñ #ý > w# /2>/<`i w:=2 #x >0w!)DM)) O = >* G|x*%D * D >:X `u ͠t**2> r #h *4*{zڟ :_>!  _>! z! { G xƐ'@'w# O*[ F#N#*xO!b q!vz͒q.?*!9"8"**_****** ŝh":…ͫ*>2!"*""`+ʤ:G:*N6 #=:*"{ozg"j*( !9"*%:_G:!>2#"$!X>:Xy*tX&!ѯXʔ&O! ~#fo!A6Pw! bxbklÆN#* N#* GO*- ҩGî* GO*- G`i*   /  X 7 (  5   x\ *- *[ */ # *1[ *#:32V#^#yxQ gyoV ##:=2- T ++++N#F DM|^#V# DM~w +w+w##w###q#p#ɡ<ʏ xG* F#N#F#N#~# N#*õ F#N#* ʿ F#N :A +} }|>C }! = [ !P !^6#GOHq#p#6#6 ## s#r*ws#r# s#r*_DM*Q|K}PDM*Z*h^2A ;ұ ͱ *j:TG}„|p#|2A ;xʱ #ʠÙ ʙ *j:TG}|ʙ ™ ÿ*\:bG|}ʙ x™ #**%}| #/w+ /w w# w ! # ?͙ # w + wi`F#NV#^M r#s0 S i`N^M I >ڈ BK c <, O2o&!9" !i,-v ! `ie :͋ *Z:QGOT]0ڦ :Ҧ ‡ y { *ú C7~* C7*4< 5#_^#V"PY= ! ** "`iOV#^F~GOx;G*' F#Nx;G* :/>3~2#F#N<*% 2*ó2*O~ó<<<<<C *4##:=IxG͋ ],͋ ! 4:*% +~*4####gLBKʶ*4 :!8IÒ,,ͼ )~ )~ ;xF#N#F#^#V#####:>, !~x:E!""!F#~#+ʠ^#V#N#FyOxG‹w#w#w#w#ä*yxڠ"" e*###V+^+"V+^*}|* DM 28 26 27́}<"9́"+"́~ "1́"!́" DḾ|gyy23́*!"#"%"'*~ ")*!~ "-*1"/*%~ "422<2 *:wɷ|g}o g o>!@t! 1!2"n!@|eo"p!  $*(! z1Yc ɯ2i<2h!"&":xGxGM*~LL&oL+)&o) :f>C !#~A #w#wË!:>Oç :;<!<V#^z<*##ÜO*$y=O! ~!a!/ú!f) 2y2͠ 2*͈̓~ wfxB#"B@2p̓*~`w#s#r#q#p*:w#:w:X:*DMkSAVE >2J:`i9"͊W"*6 "!.":~ͽw͐*%!ͧ *%*)b !3c ¡:c0*"**{z*|eo"c :c1*"*"!"".ͽe*"."!"".Ö:›*p\Ubk> #½>, :>*>*%C !jc"\ha"Z4 +m* *  !juou,xu?x&xxxuxMV vvv9?Bcv^ ov|vvvwwwgw}w*`iç `iV#^>2*z›ʜ<›! *22_!_ =ʯ<* ç >`i w>`i ~>`i c."%%w>`i c."%~%>`i !_2*F#N>1:y12>C>m:[::m>>>j*p|eo>t*~ͧ "!;ͧ ~*pU\͈*!V#^#:"**%ͽ*++ͽDMxyMD~+ z`i":"s#rͽ::2_>! j͈**%"*+^+V"'** Ow# wp:!Fқ#G_x>, $!@>3G* ͧ H 1 !*(1 ~ # !~@+#^#V*R*(+:G:_ȯ2[5ɯ2p62s6!Y"y2x2: 2t6! ͦ*#|+Vgo: 2t6̀+!`5"\5Gq qx2[5ʃw#x6 #6 #6 2o6!C5}lg"!I5}lg"A!+ ~#ʻ¯6#!+ w#w+6!+ ~##$^#V2i62j6i6͞~0+6͍*:p6 y6:0P+2f6!i6!DM! X:i6=]͜* ͧ> "g6/ "5͇**`6"4$ s#r:b6r=͍*͍*> |!:s624>K):]6l:s6l)%ͫ%h) ͍*> |!Ë͍*:!"4:d6G24͍*ʰ:t6xҜxF24͍*:4=24O:4g怱o"4 !4~  ͜* ͜*#͍*_ ͜*4 #͍**4|F+"4h(*5T] x+5 ) [ >[ xQ BT]+Z E ~#} n Hy24:]6ʒ >2q6Ò ^#V#~"424Ò V#^#~24{ozg}o"4h):b6!}¨ *4:424"4ʷ ~( >K):\6*`6w!w):q6#À!:_6*_!:4!:e6>!M!"Z6 46 6 :ú~:_G#~Fu#~0u:u#~:u#y#~+:Gy~#AuQu~#  ~.ʙ ʙ}# u ~.º#~ ʺ} §ux:*Z6"Z6  6.#*Z6=5`iI5C5 w#>  *+:O:d6C:e6:Yͦ*MYͦ*M* >$y:d6~:e6rͦ*dÈͦ*rÈ*>$O:!46ͦ*͍*͍*ͦ*͍* z{÷͍*>C !p66\6:4ij(*4:4!#"4>K)*5 *4}G)r#>w#:4wͳ(͍*M!> |!*g6!o6~\!5~**`66:e6=:d60M!>2\6#*>2b6:]6=!‡$:\6ʻ!͵%")*!!)*!!):b6!U6"!T6"!S6"=!͵%:]6"+{ "~ !*4"!R6""4"4:\6'Oz^#͜*'"*:]6=>#$ &͞%͵%')*͵%:]6="?$:\6#͔#"#$Oz͜*"$ʜ" " w#"͔#:\6"ʻ"$O""#+~ " "+~ "6 "4)$ͧ'+~ #>#6 *4"4:424:f6E:d60Mͦ*E#ͦ**}|EE|=E!q' *1À>C ~.f f#U>/E*"\ʀ=!á*"V6`i"w6bk"`660#60###~#2\6~#>2s62s62]6~#2^6~2_6!9"X6!&V#^#"4V#^*V6"4 o ' 2b6}*`61$,!!!5"V"\$$L%'#>C 2q6:b6 ͊#w# ~:£++~Fʣ>#W~|z>|z>|> 2\6=1$ z=> z> :_6> 2\646:f6> #):o6 > <2o64 #:o6=2o6> )6 +~ >#6 )ͫ%)$ͧ'):[5OS# ^5ͦ* ͦ*#~O#"\5~$+ 6 +6 *4*4*\5zn#~#w# ^#"\5y2[5! ! F#N*V6 !#~2c6qzʣ#6 #×# #'''1$V"V"\$\$##2b6ͯ!R # B# æ*9O*`6!p#q>͊#:\6*~*:s62s6*X601#42#32#22#>#`iO ~#fo͞%͵%ͼ)$ͤ'%ͫ%?$)*͵%%& $ $ͤ'%G:s6$x $ͫ%):^6 $͞%͵%'%ͫ%):s6¶$-& $ڶ$%&$%&$͵%'%):^6$ &ö$:s6¶$-&$ $% $ö$ *:^6% &%@)<):4)})~*͍*F))͍*=)͍*F)̈́*}24>#*5p#=S)=>2424)%24"4*4##gzo{W>_&,$V :s6š)*`6 w#w#r#sG*4|}:4.-*4:4è)%è)!4p#6# )+%t):\6:]6):s6G2s6:4ij(~**g6!4/~# *:_6)*:2\6>#3*x>#:s6J**4##)}J*>2s6*`6͊#:\6!$F#fh"g64/ *"5͇**4&|,$!Ç**5æ*:e6ʫ*4Ý*ͦ***g6ͦ**g64/ * **2+9:+9 *!*7DM2+9*7W:7_*7o&,$,$ͥ&)%):s6$-&$ $% $$25!5"4!"4*4#'@%@*:b6==%l%-&l% $%%& $%)%l%-& $ $% $%&,$ͥ&ͫ%)*4"4:424%"424*4"4*4"4*4:4#ͥ&!5"4!"4ͧ'*5} %| %ɯ! "5!5"4!"4':c6>#}/o|/g*49&*4##0&!&<&.*`6^+V+~+Ġ&zX&x<:s6`&*4## Ġ&UlgW_ {{24|o{g"4ܠ&zĠ&ͼ)><>#*4*4}&|&ͼ)&:4_:4K)[):424d))'ͼ)':4E':4ij(*4#"424I'>27,*7#"727^)*7:7:97+~,7+>,:9X+!F-N+A+>!F->!p+,:9:+:>C "d6!+w#w##w#w#w>2+!+>}_|W~wG œ+x 2+ B FORMS2 ISRc( 34$3 4 5#555 4< !L2-18$6 L3-12$6 !L3-13%6 !L3-14% A !L4-DIS%1 !L4-1&F6 !L4-2&d%OVERLAY-,|(a,!7p#6# ‰,+|(-,:9:9̑,:,9G2,9:7l+7-* 9!7/~# ,:9,:29>ͣ&,x>ģ&:,9-*7##)}->$':4ij(ͼ)$'*4"424:s6h(&*4"424:4B'>K)E'h(ʼ&:4_>K)ͳ({'*4"4:4K)[):4_>K)&X>K)*4*4#"4z,$ž'{,$Z'ͳ({'ͥ&.(G:]6=x''|24E(BKô'ͥ&[).(''|24d)E(|'[)'|} ($  (+|'g !()(2r6:r6 (!*4DM2r6*5W:4_*4o>24d)*4#"424ͥ&*5:4:]6~()~(>K):d6ʟ(!͍*•(ˆ(ڨ(>#(͍*X>K)[):d6("͍*((½(>#(͍*(24:d6*4}|g:t6F)}o:42,9*9C&:9!$F#fh" 97/,"7@-*(|&!@-*7_-:9d-7V-_-ͻ,* 9_-* 97/, ## :V :VO: --)1><>=+** ERROR(. USER PC _: STATUS=2 D= T=U S=. .:0*#":F0:ISIS.CLI J. 6'616J. 0ISISI00:".V..0F IJ..*":͸0 0 b- :A k.k.0 .. 6+ @@0 o.e.G:ʐ:wÖx2p0ʹ#*©6?ëw˜0ï#6 ¹.0#*6?w0#6 #6" #~?  xDIR ERA TYPESAVEREN USERd!yO#< Ty#O 3߯21y_͸2y2ͽ:ܷ˜1͘A͌>>͌2^ :¥.!_~#fow]!v"!çREAD ERRORçNO FILE^: ! ~ 3#0 Wx x ހ ނ G ~ # 3x~#SAVE ggc<< =xLLLLL4444 /-0̓/G/5/|20͚/|C0(/|}_/$ a/+|H/g v/~/2&:& q/!*DM2&*W:_*o2/-:ø01-00//ISISCLIg00.Py{0!0~#0À1!}y|zxʐyҀ{€Š3܀\X COPYRIGHTC) 1979, DIGITAL RESEARCH +LPTLST:LP:BB:CI:COCONPUN:TP:HPRDR:TR:HRPRN CON: CON: <>.,;:=?*[]p5-I = FORMS2.INT ^ BRͧ9!5‚#~Y‚#"T<ÆALL (Y/N)?^ Tʧ͘!6!~ڇ w4!Y~ʆ͌†t=ʆf ^ T 2o&) INc0"+ HIT KEY TO EXIT:$6ʘ6s#r6ʵ6ʿ6w#w#^w#Vwÿ66s#r#PYs#r!6!:^#V+{667676=6_͌> ͒> Ò> Ò͘~#͌ì _2<ܯ2 ݇!2:2a{_:ʖ:>Ľʖ:=2–!B!6#5ʖ:Ľͬʧ )!F#xʺ~0wëw!" !~6ͽ:ý(!#͘*~ "޷"͌#>?͌͘ =_.:;<> Oޅo$>!Y2*O"ʉ@{z**~#~͆~w͂͆#^#V͈q* *%* ##* ^#V*4" !9"|*͂:QO*~*Z:#7 *Z:QO͠Oxy͆~w#N#F#^#V͊6*͂`i"T]*F}_|7!"F͈͒"͈ 7Oo&*||#^#{ 8O V#^#*#:3GG8z##B8+{#B8w#w#8##8 8!la8!Pa8T8!^F#N#> x8> w8+~>@W>w#>O>_ڦ8<_y_> O s#r#q#w#x8@8yBKm9P_ q#p (2&=:> &=<!2( F9:_*+ :m?>x*vF#Nf>xʀ>]>l94ʀ>##8BKʀ>ڀ>ڀ> V#^#0 N#F r+s>C >2W!U *) !q `ip#q *U*c"U"c#DM*Z "Z!"QPX~9# 9 y2-N#"+8 !-5!pbk)T]))))*+9^bk#N9^bk###7?~#N#Fm92(O! >j?>2Exw? :2./2!#œ?# ‘?"/"4y? O+ ʮ?:.G:?'w+ ?6}|>2*4*/ ͼ @>2E2!w# ?"@>'w+ @!~/w7>'w+ #@!E>w>2!w#w#~p# V@ w# b@!/x@7ˆ@ {@ѯs#r# ʒ@s#r#q#ʡ@  -@@  !$'5?0_z $(26z2 %05@E-D^#V!")ͧ ';';5:(OY9?9 d!:=; !:"+*)!(5;G;4N")*+`;_z^#W~r~;4y;5# Y;_Qx  ;{w!:"+d@;{_!8^''^+w@;^8 <9!"+A ͧ +;P+>;><'w<+>D<;^8 !"+:N<:D<2F9*+~0<#x2*w^@g)))){'g{'_|'W ;@?:*1*6! {ozg:3O:8=?*6:8O*1FOJA>W~'w+~'w AA+6*1+"1!35A>g<'o}'|'&B }'o|'gB x'G{'oz'&BW]&BO ~'w+ AB6 ;@??:!ͧ */~PҏB:3=B*4:8=BjB"4!84jB*/=*4ңB+"4 }o|gBgC?*/F*4+#~BB+"4!{zgC*4V#^hB:3Bw#sOCO_2G> hG:6~#GGx7G-XG2GG+:H~#XGCJG~R+~#JG>-2GGDXG~BBG+~#0G:GG:G!P6#p#q#6ҁG/w#6 s#rrC *h2H:AFD ^8 *Z>2H:QF> *QDM*Z~ GAڙ ZGҙ # xGÙ *Q*ZBHT8 *Q*Z:PBH+H%H+~DH~8H6H~#DH~#-BH+™ ~#0ڙ 9QHҙ zBHÙ p+qy͏ZHZIpIpIpIwJ.,$ *1NJA>'W>'w+>'?w+ COCxƙ'G:3*4<_O*1'+ BC-CxYCpûB#*4#"4B!ç !^":29G<2>O!"Cx>C C2G2Ego"A D rC !BE:9 $INSPECT    ҀҀأ @ҀCҀҀ LҀCҀC Ҁ @  ҀҀأ@ ҀC Ҁ Ҁ C ҀҀC ҀCҀ @ L<Jzn]eҀC Ҁ Ҁ C ҀAAAA$.,bk+~2" "?"\*Z"_>J2Aj>rC ;ErC <:BEɋEEEEEEEEEE_EE_EEE_E*h+~602F:>O*j*?*< $F!D!EʁE!"Eo}E$~#fo :9E:> äE:>+E>->0:8:7:9E!RCE>/!BD:E! +s+r_E:6+wE_E+~0E2FE_EFFFFFFFFFFFFVFFFw:9G:FGFx> F:E:CF:C<ȯO*:*h!D!zFtF!FopF$~#fo0ŒFq#FUF:D<+QʣF:ʣF6-:Cw:CO>0q#¯FUFyF:C*F> UFw#F}oUF$UF*:AO*h :6F6*# FO >+ K*? ɯ2ͯS!"N*C (K"CHI*9|+++:ͰKX:ͰKk`"K:KʂK:}K*H#~‚KMVhS:K:A*Z:ͰKҟKGX:ͰKҪKGk`"C~#GG~#=GK*#~`K#~ K:A?>2B*C"K̈́O:A\L:L*Q*ZM\L:JLÞL:B2A\L:KMV\M*\"~uL~2#"\K:AL*?:ڐL–L:ҖL*\jL:L:PB:BJL*Z*Q>2B=2:!9++"O͵S\L*\"?!"C!MLvSM:MvSG P"\}o|g"Z*>-Q|-QNQ{_zW!N S E*}o:g"**bk"SzpQͫOdQ*"Q"äQ{ŠQzʺQMںQB͵S*ZQ*\DMbk Q~Q͵SB Q W _ëQDM:I$R:U$R*3R*K3R{OzG*Q3R{_zWyx$R**S>2VMںQ"\*:<_WMG0 lgͫOZRZRdRzKRO*S `i:Q_:RWzʓR wS+ OS{R>0wS+*|ʪROSz”R"S !U6*|R~RG:<#RRR!~=*"Ng"K>2I2MMvS*Z1M:1M1M}*g""Z?:OS *&WM:WMek%M7!9"*Z*Q:BƒM2BM*Z:V‘M2VS:I¥M2UN*:MM:NM:OMM2M<2"N=M͂SM2I2ÃMM>2I:N:N͂SMM:OʃMOEʃM:EN:61NJRwPÃM02QN>2:N=ͫON*":=NNN=NzbObO:5OzONKSO3:I**}(SqSBS{2SzBS*DM*6*"*$:bS:bS!"!":A9!"*:K:L*$,]>*9 #2IZ> >2P>2P:SUS*L*Nq"L:KS:S:Gy2QT! TT:G:!QT:R:GQT!?T5T:GQT!!q#p#6ͦV:ʄTկGg:SN:pOT2OͫO}O>"Z*\~_ڗOW#^#:¢O##"\"Q*$:ҿO,:&?"*>O:g-O%":P:=POK:P>2O2!FPo:fP:ʔP:wP:ʼP:WQ:HP:R}ɯͯS*a"*j~2"\*h"Z*:JďS>2A*zʈPͫOҐPʐPWQBSͯS*Q{³Pz³P>2BͼP2BBOS ͯS*Q}o|g*} Q*?zPP{PPPBOSͦVUͦV:U!"L:K!V:*|:ͦV22!V*|ͦV!^W!VͦV:ʌU:G*N:O {U:K9:ʩU!V y¢U: +ŽV V[VyP]TN#S=˜V[V"W!V*W 0101250101240000000000000101 0101 BC00000000000000000000000000 FORM-00-0000FOREBACKPIC X(0000).COPY "CH1 DDS DISPLAYACCEPTMOVEFIELDTOSPECIAL-NAMES.CONSOLE IS CRT REDEFINES ? < > (Y=YES) FORMS2 H00 (C) 1978, 1983 MICRO FOCUS LTDBQ BC FORMS2.INT  IzKCON: PzKCON: N  = N 268269270289 00012000 0001 0001 0000 00000000000000000000000000002000 000100020003000400 9_$.,NNYNN0 0NY 01LY M A4YNNNN24 010101010102 00 URN / / --------------------------------------------------------------------------------FORMS2 COPYRIGHT (C) 1979,1982 MICRO FOCUS LTD LY NOT = SPACEDpؠ` O%ޠ@Aؠ` O%%2Π@" @. ؠ` O-H@3Ҁ` O@$Ҁ"SCURRENCY SIGN IS "$"DÑP أ@.ҀUDECIMAL-POINT IS COMMADؠ` OA05"$$@- ++ؠOO` OA03"^b0^KRECORD-DATA.AOO` O؀376` 'Š@S د1fff#` 0++Ñ$P ) ŰV#V^^ؚ6P@. 1fff#V^^ؠWWORK CPP#CPN#CP#CPP#ʠCP#4CPR#PҀ` أ *Ҁ=`0  0Ҁ2 2=1AЀҀ11Eؠ *0` د1Ҁ c1Ҁ POOc1ؠ@1` O)أ@PҀ1@YҀBҀJрnJҀ؂nr80nnnv1nn؂n80vvvING-STORAGE SECTION.HؠP01 SAVED-RECORD.H` OK03 SAVED-KEYD+0b#CDATA#^#` O邃srA01HSPIC 9(4) VALUE 0000.0KSTART-OF-KEYj#LSTART-OF-DATAn#JEND-OF-DATAr#FƂF23980ƂСbbOCOMMENT-POSITIONb#` OEMOVE "%BDAT|u@" N TO FILE-NAME./LDISPLAY-FORM.H` O&נ+ A00HUPON CRT.+rrrr0Ā801ؠ 07ؠ+0HA03"4Ҁʯ 0Š21AЀҀؠ` O%ޠPW-REPLY FROM CRT.<أ@3Ҁ@$ģ@.Ҁр` OÑP@. ؠ` OMDATA DIVISION.HЀ]01 W-REPLY PIC X VALUE SPACE.H` Oؠ` O%%uҠ@" @. ؠ` O%%1Π@" @. ؠ` O&נNSPACE UPON CRT.<Ҁ ؠ` O&נ@Dؠ+ AAT fŠA01!Ǡ@. Ҁ ؠ` OUIF W-REP` O#DSPACE !"Ġ+ Ǡ@. MACCEPT-RECORD.H` O%ޠ+ HFROM CRT.+MSET-UP-RECORD.H` O$$ˠ+ ؠ@- !"Ġ#@- Р@. Հ0Vد1VVV#V#VfؠMSET-UP-SCREEN.H` O$$+ eNDISPLAY-RECORD.H` O&נ+ HUPON CRT.++vFile created = 15vvv1A؀1ؘP )` ŘPP ) y180 j؀01v ؘJ 1JJJ0 Press RETURN to continue24أ@aĠ@A@bĠ@B@cĠ@C@dĠ@D@eĠ@E@fĠ@F@gĠ@G@hĠ@H@iĠ@I@jĠ@Jأ@MŠ@A` Ġ@A@Cؠ` ؠIFORMS2 W01 I    렠렕9/0(&''h'w=+0'6렡ᡮҀBؠ@1` 1أ@YҀD` @YҀF0515v21A /أ@YҀH@Y&ҀJ@D5ؘPOO)POOyO)` Ҁ$Oy` ĠO)OyҀ& b Ҁ&أ@YҀ(11@1Ҁ&Ҁ*أOy` Ҁ*؂Oyد1 ؠ@Yأ@1įf1^O@1ăhbO؀1ؘPOO)O)` Ҁ,POOyOy` ĚPO)OҀ, b POyOد1Ҁ. ؀1ؘPOO)O)` Ҁ0POOyOy` ĚPO)OҀ0 b POyOد1Ҁ.+؀0715v21A /ҀL1015END OF FORMS2 RUN2015-ҀN` 1014FORMS2 RUN ABANDONED2014-ҀN` 0714OPEN failure on 07301Aؠ@N` 0709File already exists:07301A0930overwrite ? [N] (Y=Yes)0943@yĠ@Y` 0713WRITE failure on07301Aخ@PAs_-+  G : Z !  - %  OVERL fAAAA$.,~F ( 34$3 4 5#555 4< !L2-18$6 L3-12$6 !L3-13%6 G؀0111` Ҁ20703Specify Screen Image File [0780]`0 ` 107301ؠ12=2=1Aد 0Ѐ1014Ѐ4` 'Ҁ.د1Ҁ6c1Ҁ8O` h@AĘPOOyPOOyOy` ĠOOyҀ:OO) b أ@AĚPOyOPOyO hҀ.ؠ` c1  %؀001 - 0Ѐ1014Ѐ4` 'Ҁ<` د1Ҁ>c1Ҁ@O` O sc1!L3-14% A !L4-DIS%1 !L4-1&F6 !L4-2&d%OVERLAY-_ f0ڦ8Ҧ0_z!~wz2z2`u-2D.** CIS COBOL RTS V4.5 REV 006 (C) 1978, 1983 MICRO FOCUS LTD URN BQ/0000/BF c"!ͧ :02:02!`0w# !LJw#w!χw#w*U\!ɇ> !ɇ6/PFORMS2.INT };La*97&6 *6;p+q>p;Wu6:J#"r;p;ZҖ*p;DMr*6DM#xr;Z®ö*r;DM͵r;p;J+s#r>!p;b:6/H6:J#"r;p;Z*p;DMr!"p; 797ȱ7ȱ797ȘL H ,> ) h' 0 * 0٢l 0̥6 Ľ h L %L : ɋ8 # L  ef : ɋ~,; pHH )hh  ߞ86  e6 X6L,*H V  h VLj ݒ )ڥ* % 㒤* e % `   'Ɋɉ8` p"8` Missing " Xȱ "Ȅ"Я W W ( L   ," Օ*ȥ*ȥ+hJ 7 8 Ы ;i;< ϿFailed at ȱ +ȱ *  %ȱ7e778` i*H #  Q hHe**+LL A? ݒ "-,0*e+e> 3(< : 7 8; W ߗ L ưr~LL ɤ LLNo =*[# m ɋ  W : ϐ߂7Q8l7   ݕ A , 1 " ' L ' LL*Type mismatch 꽥,ɀ{*6U,-6iH*q*Eq*E-8*eiHh*-*,*6**-*,,6` **`No room9ɀ':79ȱ7:97Lܽ ȱ7ԥ*+,-@' 'L Bad e 78? Y($% ?7(Lߐ9 iг  1?HH خ !+),-В "h*ȥ+ȘH 1 ,)L'hh?@ 6e**+87e*+e4-7e78788 ,LL/ space* +,-`? F@f? e*e+*&+?@*+`L' 뒥*+L 뒥*+ / 뒥+L W ߗ ɇ ! W*!+" L W W 뒢*. L )L 0 ` 'LL 0 ݒ,̢9 =+=e==>=* e==>`Division by zero' -H q ' h8E-7 q9 =>?@-*+, A9&:&;&<&9&:&;&<&=&>&?&@8=*H>+H?,@- @?h>h=hh`' Q  ~ Lb Q B' ~ N';);.);=0>1?2 @3A4`jE;*`LG0 B0-I-8**ȱ++ȱ,,ȱI-*+,e(` BЪ7696 :;: ::;::ȑ91ȱ79`ȑ8e :L`70@ : _[`{` 1 ɕ ,! $I?8`H L 㒥+,8`$ range   Ȅ @[ *+ȱ% ,(f,e7ʆ87A 0:[_{ڈ/$g%,ȱ79(L i!?`8``HȄ , +H*H he**he++h,`9 ߖLaȄ9,7( i,8`9, ߖ,8`Array i,H*H+H*u خ- :: ȱ96 ܽ7(`    r !'` k ** @ k Y**0 ` 9** @ B?<`>: *+,-@`= >  ِװ ͪ= 𿰼 String too long j7e6ڪH6ʈ ˽h67 ѝ+-h`08 Ν/0Le**ȱe++ȱe,,ȱe--i@L Q ѝ'0 ~ 'О' Q L0' Ν088**ȱ++ȱ,,ȱ-Lw Q ѝ'0 ~ L' !-#YRI<%þ"o#!x$$Ö# $# (C) 1978, 1983 MICRO FOCUS LTDBQ BCO   YX =u2u24C7  (08@H-< lUԭÃO$+q+p+qy͏ , $  ͌ 9!z6 # L!zw͌j# X:z 0 ͘=N#Fy}80*z{¯u2BBB9Bj.,$ W9!rͷQ ~ ФL Q L, Q ' ~ V'LԝL0ߥ-,34$3 4 5#555 4< !L2-18$6 L3-12$6 !L3-13%6 !L3-14% A !L4-DIS%1 !L4-1&F6 !L4-2&d%OVERLAY-ʦ'LԝL< */ !&` Q ' ~ ':@L Q ѝ'0 ~ 'О' Q L0' Ν088**ȱ++ȱ,,ȱ-Lw Q ѝ'0 ~ L' Z  u2`u2H 00P}QxQ!ͷ͓00 y͓Gþ!ͷ6 002͓-Q70EXI AAAA$., X'Q**(~#" <AOG COBOL N# z8INT N#NCOBOL.I00 ?ERROR 123 COBOL PC 4567 *j+j 5?S?55555555555555555555555555555555555555555555555555555555555554& 95555555?Or555a55555555555555555(5(,5,555555555u27?99 ISR I00 00000lERROR ON OPENING FILE: ɣ͒qy 2|2\  !]w# ʥ .&  0 6 #& .K !e K w# ʥ : U 6 #K 6W w#] !e~H#~E#~X*}|{ "!{ ͊ !ʦ =¥ ` kʥ j \͢@ w# ͅ ú n ʥ : W _ O { `i"@  ͅ ¥ n S n S GтWx ͢!i ~T #H  *( Ϳ *(  NEXT PC͊ =¥ `  ( Ϳ ~ Ϳ Ͱ ʵ .͍ =¥ ` |¥ }w#~ ÿ 2F͊ ! =¥ ` }ʥ +"G> Å >  !  # O!b q!vz͒q.?*!9"8"͉COBOL I000..//EXI AAAA$., X'LDMOV ADD ADC SUB SBB ANA XRA ORA CMP INR DCR MVI LXI STAXINX DAD LDAXDCX RST PSW POP PUSHNZZ NCC POPEP M B C D E H L M A B D H SP PSW ??= Öâê ð ' `  "D*"!"!"2I!" "W""!1!++""G>28!"9:] !ç 1 ¥   Ϳ Ͱ ͊ =¥ ` xS |¥ }ҥ gA>M Ag}M M c |¥ }!w s#r:[ʎ _!~ʠ ![4á \͢  2[y 7 >?  _͢!a"]> _͢a_!`~> 5*]~#"] 0 7   > >  | } : >. *Y}o| , 0 å ^#V#!S ))))o J k s#r#!P4 !P6# ,¨ >2Pë g  g  g  ¥ ʥ ! XN!~  ! ͍ !" >- Ͱ Aڥ ҥ _!7^#V~  \p Z t ů2[\͍͢ ҥ ͊ =¥ ` " ͍ ҥ ͊ ʻ` " =ʻ` "=¥ ý> 2͊ ` "W=` =¥ *W}o"Y  *W"[( Ϳ ~ #? }"W*[Ϳ 0 *W}#|#*W? ͊ ¥ ` ` ` {zA|¥ W}d ͊ ` ` ` DMʡڏ"=ʡͲ=ʡYPͲ1**!I~4#~#F#x~#s#r#w>͊ ¥ ` `  ( Ϳ ᯕo>g(_^! ^#V~ x% >= 7 !~ ( !   #x ` F Ϳ F Ϳ ͍ Ҁ *" !6é +COBOL COM//. 6PfLPTLST:LP:BB:CI:COCONPUN:TP:HPRDR:TR:HR CON: CON: <>.,;:=?*[]L? COBOL.INT = COBOL.COM OSNAMESIZE(18) VERSION(4.5) \" ( *"W !)~##{nZ*F#h!Cs!^#V   ##::^#V#þ*^#V>%#x'8_#*#N#! ** =![ ƒ„7…BK 7GO* 60 S~#*w !F#N* w9#wzO!~y>!~<*wÏͿ*k*s{zڟͷÏͷ*y:nG}|ʏp#ëDM*w*o~# yͿ*k*s{zg*q:vgg*y:n?gDM*w*o# x G|}x#6GO* GO* F#N* i`\MD\=}! =· !k!sÇGOHq#p#6#6 ##O;# C"3"7 "T6*}^!T42 G Ͱ *hMͽG:ͮ+GGW +GU!ͩ>̀+! @!!BH @@ABH B! "BHI$$PP:Wb O1jFF 22 $TW:4*"u*u*'*(!*:_Ŀ3Ð{z##Ç2jÖѯ2jҼar4?O!{ ~#fo]T##~N#* 2…N#^#P* 2F#N*GN#H* DMq#p# DMq#pɷ)w#s#r# s#r>=>2p2oo*W!W"W*{z!fvvS GxƐ'@'w# &"`iOV#^F~#ng*y x> ~# V V!c*~#`iO > M+#}ww"n&+~AQ[`ah{h `-`0h:h_#5 ƀFyOwqpsr*"~n&+W~0ڤ:#Ó #~ +y<_àyWw{4sr~w`iB6*:: 2"(#xH* 2F#N#xHV#^#zT* YUJweÊ }^Ð~#~Ïg#>pq2ÏÏ#+ÏÏ#+Ï„*O~v„*O~v„*v„*v„*v„*vÐ":<Ç-"=ʐ"ʐ=ʐÇ…'#Ѓ'#'#gʏ{OzÐ…'~#gШ*~ʧ&oڧ+)v&o)9‡믾#F#N#*HG* ~**#O ~#fo"#&o)Oy-F >/`i0w",$~  +~w* H "$,"̓wOG@>O>а͙͑~̓wG̓x͙͑~Y͑w!5*+~"!5`iF#NV#^.2Ur#s`iF#NV#^!Q2r#s2y2͡2"x~# *!PD+͖>2>2 >­͖ >:0͖!|eo"&."!" :1>**" w#ˆ"]*!"":>=*|eo~# ¿E >=+:>=͇#^#V"^#V!*6*>=jc"ha"͖ !" [ !! ! !`iV#^>2*zŽ ʏ <Ž ![ w#{ *22_!_ ʣ !~#¥ ͊!#!>=>`iw>`i~>`ic."w>`ic."2Z:͇*~@w#s#r#q#p:͇~ w**):w#:w::*DMUSAVE :l*"***'*|eo>x>*/*x:Q¶: #: *""~>*U\V#^#**++DMxyMD~+ z`i":""s#r:2!*"**'>*"**"+^+V*":2 Ow# {p!ZFҜ#G_x>=$!>3G>=w# ·6 #¿!*(~ # ![~@~>`i>=!$!Qd/2$2'!-"y2x2:!2(! 2#|+\!go: !2("!"Gw! w!x2ʉ!w#~!6 #6 #6 2#!!}lg"!}lg"!5 ~#!µ!6#!5 w#w!+6!5 ~##!!#"$^#V22<%~!+61!:$ɯ2!!DM! ;">N":!w! 6#Z"!6!b"! b"ʃ"#w"¨"#¨"#¨"#~:ʺ">ʹ"Ì""͸#͆""ͮ#6 6 :h#~: #G#~Fb"#~0b":b":#^#V*'8# ~ 8~ KxF#N#F#^#V:Z>=![~#j:ZUx!""!1F#~#+ʶ^#V#N#FyOxG w#w#w#w#ú*yxڶ"`i" z*V+^+"V+^"*}|ɯ2"ͻ|g"ͩͩ2ͻ"! *ͻ|()"ͻ"ͻ"Ͱ*"**"*""ͻ"! ͻ|2}2ͻ|2ͻ*Ͱ*"!":*:w|g}o}/o|/g g o!x!!!2"!|eo"!*(z#~:b"#'##~+:G'#~#Ab"Qb"~# ͸# ~.G# G#j"# /#b"͸#~.h##~ h#j" U#b"x:*"͸#ͮ#ͮ# ʒ#6.#ͮ#*ͮ#`iͮ#ͮ# w#î#>  »#*+:!!#y#>#>(#y#>#>)#O#yO: $Y 2$!$* y:!!N$N$O@$:*K$K$>L$:*2*%$:f$ 2X$r$!r$*!+" 211$ 21$ zڿ$${$Þ$1$>=!$6\+": % 2 %!%2=+́1>2:=.)+::)-͓)N1́1k)C)N1́1C)k)N1:! ʓ)! ғ)! ͓)=[)-:‡)+{ʊ)~ w)*͓)!Ó)"":"/Oz^#2æ)̈́1:=>=+,\-,-/N1̈́1-:=!*’+:*+ʡ*g+Oz2)g+* ) w#)+:T*:*g+O)͡*+~ Q* Q*+~ Q*6 "21g+.+~ ʂ*>=+6 *":2N16 +~ >=+6 N1,21g+.N1:O*  2  2#~O#"~g++ 6 +6 ***z*~#w# *"y2! ! 'x11À>=*"\ʀ=bk"60#60###~#2~#b%>2'2'2~#2~2!9" !&V#^#"V#^*" o Һ% 2}*̈́+%+)7))))+A,,%&+>=2%:t( +* ~:6&++~F6&͆">=+W~&z>&z>&>p(2=̈́+,&"&,&"&"&S(z=>p(S(z>p(S(:> p(2+":>p(#81:# g&>p(<2#!ʙ& #&y&:#=2#> p(!q&ͭ!>p("/ "1*"$ s#r:'='11> (:'2>͸0:&:'&|,,F#N* !#~2qz"+6 #+)>~2 2 29O*!p#q> +:o11:'2'* 01@+42@+32@+22@+>=+`iO ~#fo,-)1g+.$-,ʒ+N1̈́1-x-s+s+.$-G:'+xs+,N1:+,-/F-,N1:' ,̀-s+ ,!-y+x-m+-/F-N1:(,\- ,:' ,̀-m+s+!-s+ , ̈́1:c,\-x-++-|,N1:'Q,̀-m+s+!-s+Q,2!"!"*#"/ړ,@̈́1:==,ʿ,̀-ʿ,s+!-,r-s+!-E1,ÿ,̀-s+s+!-s+x-+-,N1*":20S(1> ('1&!":n'G21C':(x/'x&21:=2C'O:g怱o"í'!~ʜ' 2 2#1_ 2á'#1*|&+"ͽ/*T] x+' ¼''>'xQ BT]+' '~#((Hy2:%(>2%%(^#V#~"2%(V#^#~2{ozg}o"0:!};(*:2"J(/S(>͸0:*w!wN1:%=+(:̈́1(:•(:((:0*:ʧ(#">͸0* *}G)r#>w#:w01(> (*!!#~(5*6(>-"2*"*"*:#-!"!".*} D-| D-ɯ! "!"!""/:=+}/o|/g*Ì-*##Ã-!g-Ï-.*^+V+~+-z«-x<:'³-*##.2-UlgW_ {{2|o{g"-z-)1><>=+**}(.|(.)1.:_:͸00:2021U.)1U.:.:0*#"2‰.ï.:0)1w.*"2:'Ľ/.*"2ͽ/.:_>͸00:".:¯.:0.*":͸00:_>͸0.X>͸0**#"z+.{+ʯ.0.-̓/ COBOL.INT  00 / PICON: 00 p PCON: P   P  Po P 3 PCOBOL.COM P t  P G:=xG//|2͚/BK /-0̓/G/5/|20͚/|C/0(/|}_/$ a/+|H/g v/~/2&:& q/!*DM2&*W:_*o>20*#"2-*::/21/>ø0:/!1///=+N01X>͸00:>0""*0:'0:0*0(1I090*0>=+N01902:*}|g:(ܳ0}o:ʭ0<‚0:0}‚011̳0811ª01̳01}2>=+*p#=0=>2221-2"*##gzo{W>_&+Q2:  P   P 7  CCEPTED - VERSION(4.5) = COBOL.COM OSNAMESIZE(18) VERSION(4.5) '1* w#w#r#sG*|}:.-*:1-1!p#6# =1+-0::E1:'G2':01*!/~# x1:>=+—1x>=+:'ʮ1*##)}®1>2'* +:!$F#fh"/x1"1*g-|+!1* 2:22 2o1* 2*/x1y?2oxE?2J !)L2 D2>))]2#}o|gn2n2 =S2Ɂ0 0123456789ABCDLPRSVXZ *+-,.;()"/=  YY      "H . H   INPUT-OUTPUT,INSTALLATION,$  ...... :E. Qy'%03[}U:Km9I  <] zK  AAAA$., ** CIS COBOL V4.5 PAGE: 6VCIS HIGHH-I L-I LOW COBOL.MSG 00 = c c ŠE % ` 'd  YaLRAeeP]F/j [~u?,&o .D% m,rKjd 9]w  %b Nr^ F6 C#.C#CCgҀHCgҀJcgҀJCЀL@JLJрNPR@c nЀ:` nTCҀTCĠ. ^,MJрVXҀT 0. ^,,@g@9E PCSЀ:CsЀ: Z\^`bd` ҀfCҀhЀj(  E  ` A `ЀGO `  Ѐ"`  WhCegЀl 3$(cdЀjEc  Ѐ ( l c0 ҀhAA s m m@$Ѐn`CҀ,N,ܖprCgҀrЀ:@g ! !   ##C#kCP#*CPo#C#CP#gCPI#&CP #ACP #CP #àCP #CP #ECP #CP #ǠCP #Ҁ©RIGHT (C) 1978,1982 MICRO FOCUS LTDc tc*Ѐ456789012345678901234567890'1234567890123456789012345678901234567890'1234567890123456789012345678901234567890'1234567890123456789012345678901234567890рCҀOOc0 Ҁc1 Ҁ cҀ ( ( l l CyҀЀ`@yؠ ( yDyЀ@ ` ,p Ġ ' Ƞ / Р ? ࠠ? ? Ҁf@. ^,Ҁ,ؠ` Ҁfؠ`  Ҁf`" @9H `0 @CCҀT  D' CgC ҀDҀrCgҀrDgCDҀt0T9Tc.ҀTҀvЀ:uc,09E@' CҀx-Ax[ax{@9@ҀT@ҀzCgҀrDg g|-r!w"r"|"|KfҀrCIoXЀLMр~"р~"rXCgҀrҀCIo"0r:ArGarfrO mO` AҀAc1 @a@)ҀЀ * l Cl ЀGOo`  */c h ` #@ @|CaҀc Ҁ D$ ^ @@Ҁc @Ѐ"D PCa@@ҀЀ$.&Ѐ$Ѐ$C6Ѐ$cҀ(@р*,@р*,CaҀ,Ҁ*C ``A.[0a2{0`Ҁ204:6>2;8;2Ѐ:u.<,>"@-B+B(D)DDҀ` nؠ`  f "FCXKҀFE'ҀEE0DD@@@8ҀPؠ,. ^( JiHL@gD` =MKN8NLgI(Iiأ =MlL0 0(KR8PL.L.P73389S899:T9: ,L,  K'L0.0L0 0L0ڀ .C^ҀE@KNv SKL(3 J3gHҀ( J-(3 JЀ@4Ѐ.,4Ѐ f Ҁg4 #0@ҀHJh J@g B  -3LD #Ѐ! $Ѐ!  %c dc dl00KIDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDLPCҀE@ҀЀcЀ@@5@i `@C@C@@C@Ҁ ҀE#   + /C`OIAuA**oOoO` /I/IOOoЀ cŠO OoЀ`(IrKOoA**!oF*******'4  LD4-KL0 0L0 O,C5ҀL, P,M,@5CcҀҀcЀ@e`cҀl(IЀ#L# )OoOILOoЀЀOIOocЀ c O OoЀ`eЀ`d# cdЀؠA**Oock 8 -<c # c*o #Ѐ`рO OIOoO c OIOo #` ccĠO Oo 9ZрOoO H+%рg CЀ D` ,p@@*рր oPD% ЀؠOoOIcl p! 1 ΠA**Oo#r! #qF-------'c @@@-%BL-I `ҁ>BH-I `ҁ>CHIGH `ҁ>BCIS `ҁ>ҁ6ؠCFLAG \`( a#r!" b`) ecĠ#r! a`( `ҁ:Ё?RUNCPX HEX#t@ABCDEFGRUNC COMpHIJKLMNCALL ASMo=OPQRFILMRK ASMSTUVWXYZFILMRK ASM\jPI CBL*klRUNCP2 HEX[\]^_`abRUNCP2 HEX_kcdefghiSTOCK1 CBL<mnSTOCK2 CBLd%opqCONFIG INTarstuvwCOBOL MSG:xyz{RUNA COM}~  >C B&/" Z E rX @ l # ~ 8  M Q g 9 Y  g<C%8F.3 MN<W]dkr%F,Y>vu Yq=#6'0'9''f'{'EXI EXI AAAA$., X'҂d+҂z݈N@i`LcNЂc*. +2Ё4ЁCgт&т&i64CMP MRUNA COMRUNA COMCOBOL INTH|COBOL I00/COBOL I04COBOL I01<COBOL I02iCOBOL ISRCOBOL I03:FILEMARKCOM CONFIG COMCONFIG COMCONFIG COM COBOL COMCOBOL COMCOBOL COM&DCOPY MDCOPY1A MDCOPY1 MDCOPY2 MDDFORM MDDT M& DUMP M ED M4 ERAQ MPIP M:SID M8STAT M)SUBMIT M SYSGEN MXSUB MRUNCPX HEX !"#$% 5::F0:V4*B:COBOL*B:COBOLI03:F0:V4I03:F0:V4.I03 8d:F0:V4I03s;Q2YsJqYsJYsJ4 ?     X:F1:X ~7~XY~ c$ 99(8C@uKN N3u 209i' Du9iDu 2@u9iNЂ@i@o`,ЁNЂ|@i@o`,ЁHؠ~g`~h .8 ~is@u@vт9(NЁHт9bB; ;.Ђ:5Lc2;VV9$ .$҂ .&҂:1 S E3҂E3Ё0=0F`1d17Lco:LF778=Fe1 10c07:LFc1:c҂c ҂҂E3Ё0F778@҂ 0 0" q #~r |q r*~~ y тf~}D~ ~Rl qIW~ qY~ q.҂NܣݰW~.eS~5~W~LU~W~N5(7W~~~W~ `+ЁnoiЂhЁH Ё`2Ё4HÑ ЁR M Ё`2Ё4H ЁH Ё`2Ё4`25XH Ё N`.`'Ё``2Ё4HÑ ЁH Ё`25XH Ё yW`.n`.N`.N5cH Ё5H Ё`.hQhS55`.ݤWn`.N`.x`.5H Ёc.҂N5cH ЁN݁N5cH Ё`.hQhSkE3Ё҂(CCgH C҃gD C ҃E D C҃C-d@gEg< =M=M g C ҃ @   ҃ЁC g҂ 2d?2҃@gC9`2``2 2Ё4҂&f L ('Ё  gi %~ Ђؠ.8 Ci3Ђ:K i 0>ҁ~HX'JUSTIFIEQ JUSQ BLANR OCCURS VALUT DATU CODE-SEV BLOCW LABEX RECORY RELATIVZ STATU[ FIL\ ACCES]ORGANIZATIO^r ASSIG_ CURRENC`DECIMAL-POINa CURSOb KEPcEXCLUSIVeAUTOMATIf MANUAgADVANCINhANi ARjR AREkCHARACTEmCHARACTERnCLOCK-UNITo COBOp CONTAINqDATE-COMPILErDECLARATIVEs DOWt% ERROu EVERvNEXCEPTIOw FIRSxFOyfI-O-CONTROz t INITIA{ SYSOU|h 'C E D X  C ҃ C ҃ C҃   XLX҃"`MC ҃$E 0L0E3?bX  C ҃&/556667>77%988q9r8|8O899:g>>?6???????INTAAAA$., XCZ COPALLOW-VALULOW-VALUE SPACZ SPACE QUOT QUOTEY ZER ZEROE ZEROHIGH-VALU%HIGH-VALUE RELEAS v RETUR SOR SORT-MERG MERG COMMI ROLLBAC' MOVSELEF} LIMI~ LIMITOƀBفFĂ LINEӃ U LINKAGń LOC˅Tφ MODULEӇzCRԈ CONSOLʼnI-ϊKEً NEGATIVŌOFƍRUΎTADEPENDINǐ3OΑ USINǒ OMITTEēOҔ POSITIVŕPROCEDUREӖ FRO͗ MODŘ PROCEEę RANDO͚ Rě PAGŜ RECORDӝ 4 REE̞ THEΟ THRՠ THROUGȠ3 UPOΡSOURCE-COMPUTEҢ AFTEң REPLACINǤ COMM INPUԦWORKING-STORAGŧ UNTĮ RERUΩ WORDӪ RIGHԫ SAMŬ SEGMENԭAD SUBTRAC MULTIPL DIVIDNIG PERFOR0 ALTE = EXI STO CAL CANCE ENTE INSPEC* OPE CLOS! REA" WRIT# REWRIT$ DELET% STAR&US'EN( ACCEP* DISPLA+ NEX,B ELS-I6 NUMERI7ALPHABETI8 LES9 EQUA: GREATE;NO? COMP-F<COMPUTATIONAL-FC COMG<COMPUTATIONAGq INDEI USAGJREDEFINEK PICTURLPIL SIGM LEADINN TRAILINOSYNCHRONIZEP SYNP~ SEPARATŮ AUTHOү BEFORŰ SIZű PROGRAͲCOLLATINdz SEQUENCŴSTANDARD- NATIVŶ EXCESS- OVERFLO׸ EXTENĹ STANDARĺ FILLEһ GIVINǼ MEMORٽ TABLž OUTPUԿ TALLYIN SELEC THA F SWITC TIME DYNAMI INDEXE INVALI WHE TYP UNI ROUNDE SECTIO DIVISIOU SECURIT d SENTENC VALUECRT-UNDE DEBUGGINOBJECT-COMPUTEPROCEDUR VARYINREMAINDESSPECIAL-NAMEA WITASCENDINDESCENDIN LIN INTPROGRAM-ISEQUENTIAENVIRONMENIDENTIFICATIO SYSISEGMENT-LIMICONFIGURATIODATE-WRITTEFILE-CONTROINPUT-OUTPUINSTALLATIOALU& d SENTENC VALUECRT-UNDE DEBUGGINOBJECT-COMPUTEPROCEDUR VARYINREMAINDESSPEҀР©RIGHT (C) 1978,1982 MICRO FOCUS LTDCag90123456789012345678901234567890'1234567890123456789012345678901234567890'1234567890123456789012345678901234567890'1234567890123456789012345678901234567890 CҀC^Ҁ@@<@^`UM FH+aLF`m`mm'FDҀ@@<C  $(Ҁ.܂ܧ܄ՀLWN .  N f@р dK ЁDKM Ё` o ZBB , @4@25@  nlP@@Kсgҁ$fDYdg@JLJ B @5 nX ` @85 n(XsLX-ZXlVXV O܂؁Ҁ`dD@ NCC8` nC:$C:` n(KV(sZ(sX TUU$UUdUcO`Tҁc`NK9@ .0L0 J`TN. TES  cON@q1@ЁCCn{N@q1@ЁCN@Ё@n1NCYN:CN@j1CC` `Aҁ6c$cM` @0^`+h, ҁ8EC8ҁ8C8C8ҁ8C8(`'+'Vҁ89::< >Ё YЁ C:+'VYC:+'VYN@P+@DBEC @@@@@@DFHJLLNPRTV@<.c+ҁXX\(,s`MЁZcI ҁ\cIHҁ\с^`NҀ@Pc*kIcBcCcE@<Nс^` $%CҀKM cM$ҀK cMҀ ($ $Mb1C C Ec0Pсd`$сdL.``T{N݀WN:9NCYWC6WCWCjWWN:CC8C9{cT(-CCgCK h`D@^ ($NC8ҁC8('\9:C:Ё ('`(\'MeL@ (V- UP nC8=0 5 B `)`*`%(ZsFH` oс"@+sX(sX(ZsN c ҁ$(s LX(s LXIDEBUG-ITEM @ gM@H5 nHU (s IDEBUG-LINE M@%L. 0= 5 C cŠO Oo 8OoO `&@ؠ'Hm#$nҁf`&#$n`&cMnc$`& mmcme*e)$mmcm`!e)$mmcme)`mm'Hڀh`ڀj` ڀlX-s-KMCK$#o--oCloloڀnloڀpo-loo"-ssso-s,ss+ssڀr(s.-u.+.Ёtڀve oMH+sqҁvcn+qs(qsMH`c&X@ LX(s IDEBUG-NAME @ gM@=LX@2LX(s MDEBUG-CONTENTS @gM@=LX(s"Cҁ&Ҁ`d@ N(lhV$-CCgCҀ` o@ ^`MH\`)`*`%FHс(@K\\X(s$  Cҁ*Ҁ`d@ N(PRhV$-CCgCҁ,` o@@^`M`)`*`%FHс(@\XZ(P+-R+(+RҀ(s&Cՠҁ.@CaҀ@ NN@@C CM  ($Nh`ؠ`!+` z0ܻ2Ł4mcm@`m $n(3o(sqcDҁxc#Dҁx DdmcHҁzc #H ҁzcGc+HcFc+H`. zc+Hc c+H H d@mk?ҁ|#$%LH'He#$f+g? #?,?+?gd)(isdm7cBҁ~с(3oD5ҁcI ҁCKM #($ҁ`BH X H (3oh.@5ҁH dm@H5cA`EcMҁ+sҁX- ҁKXX d 0cB(3oc*ҁ( $IiEҁN6$`BHRC`C{E E ( 3@B@0@ /@,@.@+@-@C@ D@#ҁ@Z@ *@9@A@X@S@ V@ P NNE RKRMR 3 3`3KR$?$d`KTXXXXXX00XXXXXXXXX0X0X ҁ`KTXXXXXX00XXXXXXXXX0X0X ҁ`KTXXXXXX00XXXXXXXXX0X0X ҁE c.ҁ@`KTXXXXXX00XXXXXXXX00X0X ҁE c.%`5@`KTXXXX0X00XX0X0X0X00000 ҁc:#:ҁ"- D 5dmkIҁcI @Pc*d*d)(I- ("- (I"D5dmcCҁc)  cBҁсc ҁ5CҁcF ҁcG ҁcI ҁЁ /ҁЁ /ؠ /ЁtҁcC C!d)dmҁc ҁc+ ҁ5CҁcF ЁcG ЁcI h.` Ёҁl./c !// !//cAҁPPD05(ssLHm'Hc l,.s+ss nCi (.)  4 k?d oc :c5ҁc ҁc ҁ`KT000000000000000000000 ҁ`5`KTXXXXX000XXX00XXX00XXX ҁcC3RcD3Bc;#; ;HR`KTXXXXX000XXX00XXX00XXX ҁc<ҁ`<` KT00000X000000000000000 ҁc=#= =c5ҁ` KTXXXX0X00XX00000000000 ҁ` KTXXXXXX00XXX0000000X0X ҁ` ` c5ҁ` KTXXXX0000X00X000000000 ҁ` KTXXXXX000X00XX00000X0X ҁ` c5ҁ`KTXXXX0X0000000X0000000 ҁ`KTXXXXXX0000000XX000X0X ҁ o.;NC8(I?;.NN:cHCFCGC+CI HNN:cDCNCO`DCNd@DNCd DNCmNcE ENC}N@1cF FN@1cGN@1c0  GNcIHcI kINc$('IkIc+ c- N@1CƠWCWCC  f (I M"  /W#cCN: C giNcB`3c5$n0`KTXXXXXX00XX0X0X0XXXX0X ҁCX`>`KTXXX000000000000XX0000 ҁ`KT000000000000000000000 ҁ`5`KTXXXX0X00XX0X0X0X0X0X0 ҁ$n1` ҁ`KTXXXX0X00XX0X0X0X0X0X0 ҁ`5`KT00000X00X00000000XX0X ҁ@c0czD)"`z!KcK,m.cLҁ  !L(( ҁ@  !L( R K ҁ ( !L$? RMRH  ( !Lc Lģ`. z$?dLMRR )k.Nm.`. zҁcOZem|  >C B&/" Z E rX @ l # ~ 8  M Q g 9 Y  g<C%f5\ "Ys{.VR9)r ,R"U!"N"$""""##2#>7_9!X^k!t?Y* +  , p!%! +-! !r !!!$4$?$%/%R%u%%&&&'((M(y(())%'u&g''R''())+F+*r--,-- -pVAL-TIDY-EXI 0000000000000000000000000000000000000000000000000AAAA$., X-Gҁc ҁ@5 /- /$1c Cl.` ҁҁ@`! $0.c $1.D%1.CE DC@Ec Dc, $.CEccE D5D@cF D5D D ҁ@5k.c>D5cFD5k.(.-L / ҁ@ 5 LEc cGc DD5c>D5D@cGD@ ?  L ҁl.ؠ  ig5 CE @`0 /c0Cc+ 2c- 2c2`+2`0 c c #<5\ "Ys{.VR9)r ,R"U!"N"$""""##2#>7_9!X^k!t?Y* +  , p!%! +-! !r !!!$4$?$%/%R%u%%&&&'((M(y(())%'u&g''R''())+F+*r--,-- -pVAL-TIDY-EXI 0000000000000000000000000000000000000000000000000AAAA$., X-‚1%1@gc C$1c0ҁ(.6%07c cm6(68l6Cҁg #6Dl6+6.,xggЁ,c0(86(.6cm6CgEk6ҁC #6m6CE,CCЁ-c0 c ҁ / C@C 2c-2d@ҁc0Ec0D@+.@c0 `+2 /-*خ,Bk _2Nu7+M' E3 D ҀР©RIGHT (C) 1978,1982 MICRO FOCUS LTDC.@.hWF56789012345678901234567890'1234567890123456789012345678901234567890'1234567890123456789012345678901234567890'1234567890123456789012345678901234567890 `_CҀ@#@d`)`^`O`Pc29Ҁc ҀҀMC /CcЀҀWF@(B `Ƞ @i`KҀNKZ@CaҀ _``_ .`Ok7(u7 c Ѐ(c'cҀCx#9ҀcҀ`@x 9(u ( cMclc{chс\^ ~Ёd@ |&cc|@ gcl``2Ёf(q'clЁhЁjc|$}&H+%$&c$&D N$  +ڰl޳lcld+cQcc+`+Ёnkҁpkҁp݂rcl`+ЁnЁtcl@Ё>` g~Ёv ~@o ~ ~EЁx ~$ЁHcl&(oaqcс\^clc+ҁzu.с|~ 3(a+a&(aclche ~cЁdЁ`+Ёnm Ёx+a&+aҁ-a-ac,aeҁoiH`  e Cd  $xDxcP`PcPdPE $  "$&(*,. C.`OЁ0Nҁ2 CaҀC.`OЁ0cOЁ0@@c)`2Ё4 Ё6`) `JcIЁ8 ܑ:ܱ<NݱNu@Ё>C` `c @i`2Ё@ ~  $ЁBNC9K9`,`2K9`2ЁDNC9ЁFЁHЁJN`2`,`2`,`2`,`2`, ЁЁdЁЁn-a-,oicЁdЁd&NC9K9Ё o@o`,N 2b 2ЁF`2Ё4΁t݆Ё``2`,^b ЁvomowowDЁxCo`+ҁ`+N݁Ё``2`,^b Ёvow +ow`Co`J`2Ё4eI`_cJЁ4cIdI`!I\`!I`J c-d-c-e-сЁЁZЁ`-cҁN:?$K-ҁd-%K-N7E6 cd-h@9`ˁL oCDD oN` o>C9>c od oЁN`2ЁFHQ` o>C9K9>c od oHcN`2Ё4ЁP`NRC9ҁRdN`2Ё4Cueo`2Ё4`2ЁF ܼ݆`+I ݗ`2Ё4ܼ`+cu ݁`2Ё4ܼ`+Q ߁T݁ݼ`2Ё4ܼV`+QHЁXk`Q`Q`MЁZс\^Ё` 'N݆`,ЁbcQkcQcc @g@@ҁcc`k`+$+ccd+ҁe-d-N@ҁN@1ҁe-d-N`+`,ЁЁZЁc|ҁcҁЁ`,Ё OI  i   $ Ij j i$iom Ё ~  % ~gOI~gOI~Ёcҁclҁ g``2Ёfҁ`+cld+@Ёiq  IDo g  h h g g$h`12Ё4сāI  $H1 Ёсāqiҁ`+clcЁ`ҁ=0ҁL.d.kSP('S(S- 5Ec9c o#{ o$D"Nzk ЁЁc _k<( 'Ё` c Ё` ( VLK ЁсāH Ё Ё`2Ё4Ns$(`Ok<`_` c ЁgzHc(A-"(C-"(E-"(G-"`A(7A (u<Nc @L @  ( L `  E#g ЁWC3C@JLJсځk ҁЁЁ`2Ё4N݆NݙN݆Nk ҁЁ`( +(  Ё(+ ЁЁ@Ё ~`+ЁnЁJg~ ~`+Ёn@ЁDo`+ЁnЁJ`2Ё4ҁЁ`,ЁfЁn -2\ h8с\^(m g~(mo lh8с\^c(ocl(o+ocINݟcIcIc!IҁH `J`2Ё4`!IN^ L^PЁ`2Ё4`2Ё4(7'Ё (u7`2Ё4NЁ*c*N3@38Ёҁ @!5 n^ XegDg`gEC B @` ЁlQd#Q`vWcCЀ#c Ђ`2Ё4NCN`_N.`Oc `ЁMZC8ЁZ 5LZ`_@Ё>`NܐM0dNN$d Ё`N@1`2`,ЁFЁHЂH Ёсā Ёv` N c ЁЁ( 'ЁЁ`2Ё4Nݠd Nܨ c҂ CЂЂЁ` `2Ё4 Ёv҂Ё`Z\`KdJeJ`KЁv`2Ё4\ ЁHNc c Ё`c2҂`2Ё4Z L Ё`2Ё4X_ @Ё( 'ЁЁvC_ ` @!5Ё`P% % cC3cO`O` _Ё UNC` _(`Oc`Ё Uc ҁсځc _k ҁk` C҂0C@c ` ` NC҂2C?N,܃, ( `2(`)<)c}c}c})(9`2ЁF((cc)@Y1c(9`2Ё4`2Ё4` n((ccL0    `2݋ZN:`2=\:^`2>\;``2?N<\9N@҂bN@1҂dNC8C 8тf~Ђh   2 N t2Ё4c)(9cH ЁcH Ёk<c `NݣjN@1CwuNN@1lC8(L0 K M0(7- 5C(7AC(7Cc ` ` N@2ǂ('WN@1(SKL0 K kA(A' 'Wc ҂4 ЁЁ`2Ё4 ЁHC:C:$C: n oNC8Ђ6(KS ('QЁc o(` nЂ8NЁFNegDg`gE  0((wKL0@Ђ:ؠ~gc".߂<ݗ<Ё``2ЁFc".), k,Ёbccс\^ ~Ёdc".Ђ>), ЁvNЁ`@Ђ@ Ёv@Ђ@(S-L c`2Ё4CЂBЂDЂDЂB- DiH Ё(Q'L+ ЁN`C(7EC(7Gؠ  @ i % % @ g L? Ё gi eg  @i `2Ё4Ё ( '.c .Q @i( 'Ё(V .` c ҁk ҁC8C:҂nh ҁc L0 (' M0` ( @y1c ҂p(u l (7S @ igzk ` N@1܂rc ` (S C3C8P  (S- @#5 n` /` #/W("C/Ё Q RW/ЁcR QЀ3` _ `N`NH ܦFD ܿFD ܊FD ܹFcNC(dNcNC:K C:Ё(c cC * C8*>( '*WH (Ё(c҂HCNCʠN҂J܅LۂJN݅NC8C:( '*`2ЁF((c҂Nc` C,NcC,Ђ8` Ncc ))@Y1`)<)'(8 c (9c c (9c c (9'vc$`2(`)<)c}(9c}c|)(9)(9`2ܰPd2ݣN@h1@Ё> 2 RT@ ܜV@ ݏN҂XC92Ё4V Ё`2ЁF`,Ёbccс\^ ~(!L(#ЁdЁdN`+ڂtܗvc҂xNC܈z`NN(QlQ(SkQdNЂ|Ђ~ЁZccЁcc`+`+`+Ёnс\^khQЁd-Q,SNc 0`+ڂtܡc҂x҂NC҂܈zd+҂zN `2Ё4T Ё@iڂтNc+.҂ݗxN҂ݡxN҂d+҂z݈N@i`LcNЂc*. +2Ё4ЁCgт&т& M Ё`2Ё4H ЁH Ё`2Ё4`25XH Ё N`.`'Ё``2Ё4HÑ ЁH Ё`25XH Ё yW`.n`.N`.N5cH Ё5H Ё`.hQhS55`.ݤWn`.N`.x`.5H Ёc.҂N5cH ЁN݁N5cH Ё`.hQhS55 LG$INSPECT @ ic'`25XH Ё Ёv`+Ёn`2Ё4 ЁvNNC-H HC  HC Ђ Ђa#F F FMFe0ЂC8K9E3ЂЂK9҂ KC8C8C8`Zтc+.2cZ2`Z`LЂ2@@7Ђтf~Ђh('Q('S,mShW`Y` @7+QS҂ЂЂ S 낤22dYC82cZтт8 ҂. 6c/MM 0dY҂ЂKFЂ2F.Ђтf~Ђh R+UmЂ2eYl`!YЂ(sU+%`!Y@72h`!Y'%,%U3 тf~ =ЂCi҂K9҂c4҂#34҂= %4( (2@kЁf = $4(%3(-sUЂK9`Z ,sQK9҂ & .0 C?  .Ђ 6.M. .FЂ`L`-LNC LЂC-M L Ђ7F0@3ЂN 2Ђuv ! ,!dc!d!ed! c88  k8`k    C$m9omEmuЁ    c$ 99(8C@uKN N3u 209i' Du9iDu 2@u9iNЂ@i@o`,ЁNЂ|@i@o`,ЁHؠ~g`~h .8 ~is@u@vтE@C`/E `/D`2Ё4Ђ:c/d (Q'Ётf~ЂhcLЂ`LЂkW,sQK9 +,C8d+c*.C9C8d+ЁNc/D ЁЂhcLЁЂЂ$L,`L ,+kW+'W@ihW+'U(UW@i('U,mU +-`+NЂCgЁNт&҂Ђтf~KX@9`L4 -+Ё4H Ё`,`2ЁFЁHЂ~cтf~fRKR` 2Ё4`2Ё4@@ .(Ё` 2Ё4c.҂Nܣݰe.e.N@{15c(S'ЁN5(Q'ЁЁXтf~`+ЁnoiЂhЁH Ё`2Ё4HÑ ЁR9(NЁHт9bB; ;.Ђ:5Lc2;VV9$ .$҂ .&҂:1 S E3҂E3Ё0=0F`1d17Lco:LF778=Fe1 10c07:LFc1:c҂c ҂҂E3Ё0F778@҂ 0 0"kE3Ё҂(CCgH C҃gD C ҃E D C҃C-d@gEg< =M=M g C ҃ @   ҃ЁC g҂ 2d?2҃@gC9`2``2 2Ё4(,' M0? @@ >c4C9CC8C8kҁ^c(lҁ^.? @(%c/D ('(5@ (' ~@@۠<``c@k`c``@g ~`@2=, +2= +ocdo nZ @ 5AS@$5AS.0 60M0K'IR 6. .A@8C@JLJ B EEomoqmqsms#g$ gck#i$ i#k$ k#~҂&f L ('Ё  gi %~ Ђؠ.8 Ci3Ђ:K i 0C B&/" Z E rX @ l # ~ 8  M Q g 9 Y @c 3e 3`/C E @@C@ E@ RC E (4c3҃e3($(3(%(4d 4 3nC҃C RC !3n !3nDSn҃C҃C RDS@RR L c/E c4e4`4#34 34(m5 36 & .C8`/ E3 T>>ҁ~HX''C E D X  C ҃ C ҃ C҃   XLX҃"`MC ҃$E 0L0E3?bX  C ҃&M0D3 @ C L  RCRE R`/MR(m5c/D RXc/@ 0  g<C%B"sgA ."-C-r-/^~$C%#&&&&&5**++,9,h,00E=CHJRB9b=%:(ABHA-9@@@B:!<=,<<A6q&BB=?@=;C%y%@q%%&L&&w@@/&''";Z<3(P(8''((4(9+<)B))**K***+V+,$,,,0-b-$-- --(? @ /$. .//10119A1B1^11|155O11`9h7`1 zh%h#h!` 2Ѐр( 'Ѐ @)( DЀ Z('-' X,RR,RR,RsLX@ss-Rs X  (sЀ Z@*B;HK5/556667>77%988q9r8|8O899:g>>?6???????INTAAAA$., XCZi+%y%@q%%&L&&w@@/&''";Z<3(P(8''((4(9+<)B))**K***+V+,$,,,0-b-$-- --(? @ /$. .//10119A1B1^11|155O11ҁ\c@`@ !@2ҁZc@ @ E 2 !@2с^`d?c>ҁbc?Ex`? 2!?ҁ`c?ҁdc? ? E 2 2!?ҁ``> D H X ( - LX@5 n;.@7Ѐс Ё"(' @iZX Ѐ ZBB , @4@25@  nVV;B]V-]B@2A+u  Ё2 C^CcI`Ic `2Ѐ( 'Ѐҁ4k7`2Ѐ`2Ѐ(7'ЀЁ6`2Ѐ ^! @^c>c Ё8Ё:! ^(y#` Ҁ`Q`QЁ<Ё>c ҁ:c>Ҁҁ@@.c29 9E1cz2`z2+u ҁB`2Ѐ(S'Ѐ k!ҁ8`QЁ<Ё>I `D I EЁD(%+ЁFExEx`?c>`2c>ExExtOItOIc>`@c>Ex`? &2 '2 (2 2 f2@Ёf 2Dg\ 2&C \ 2'\ 2(\ 2\ 2f@`  Ёh\ 2Dg). L ` OI@gЁjL Dg  IPgڀXeIPg@f IЀ CegЁl(:'l:CCЁl@ H ЀcQ.HЀ@+I%+c%@P(ucQ(:Rh:k<(<'Ѐ EHJ@( Ji+%iv5(i JLJKJ&(%3(#yҀ(u!`>ЁHh:`QЁ<(ulЁ>(y#(3%k<(!u ЁJEL0  C ЁLCC:@&5ЁN  I ЁP`I I cEЁD@a@ 9 (  ` MJ f #LJ  $ = &@J #fLJ $= & ЁJ*   9 `2Ѐ(S'Ѐ (u        !  "  %cXOIOI` '``````Xc ` WCa ҁ2cC Z*.@7сnpC8ҁprcQ`Q(R:C8 -C:C:Ёt - -ЁvC:M0 C Ѐc> I `D I E(%+ЁxEЁzс|~=KC ҁ~MJC  C K 9&  K 9E1`z2 `29cc9ҁ 9E1cz2 d9!9I BISR I cEЁD('ЀC ҁ &2ЀЀ K @ Ёl!=Ce cEҀ A**Oo`@@ЁDD oPg!cRN / / ! !( Ir#L#! !Ci3ЁK i 0&K! Di&KH ' Di&K !!CE Ё'  'Di 2i&K&ioDk 2k    $Diio XHFH c/L0L0с S . 6M 0  FҁL 0ҁL 0  FR  FC8R 'C 8R '  '`/ '3e3c@3e@3@@c 3e 3`/C E @@C@ oPeoPD C @*Oo lT* CODE OUTPUT TO FILEOo@@o l@*Oo lc"H----H%* dL d 4    ,,,,+u(uc E@Ёؠ ED#ЁhLh hh h` + c E h@i #5@с D#c0 ҁ+L#cҁHJKJҁ( JiKNҁ N N*ҁ@v#(i JLE@ RC E (4c3ҁe3($(3(%(4d 4 3nCҁC RC !3n !3nDSnҁCҁC RDS@RR L c/E c4e4`4#34 34(m5 36 & .C8`/ E3 T'(ҁ HX''C E D X  C ҁC ҁCҁ  XLXҁ`MC ҁE 0L0E3)=X  C ҁM0D3 @ C L  RCRE R`/MR(m5c/D RXc/@ 0(,' M0())&C 8J#I BDDC I (9 ( (  *#  OoGREVISION( jcЁ 2** COMPILER COPYRIGHT (C) 1978,1982 MICRO FOCUS LTDOo 6** ERRORS= DATA= CODE= DICT= : /Oo(kIrK$yc( pIrK$D OFF$( I-I,IrK$(IrK$(3I-7I(I1rK$ ƠDNONE $(/I-3I,I1rK$(1IrK$IGSA FLAGS=)`/`<`cXؠKUC8C9* M0'(c4C9CC8C8kҁc(lҁ.()(%c/D ('(5)(' ~*k*&u``c*k`c``@g ~`@2' +2& +ocdo nZ @ 5+.@$5+..0 60M0K'IR 6. .+a@8C@JLJ B EEomoqmqsms#g$ gck#i$ i#k$ k#~$ ~#$ #$ @+immii   i+ii&Kim+,T@m,A ~,A ' ( @i ' ( MJKLJg = @@JKLJg= @ ) * ' @i ) *' .;7A;.A7`2&-& o +-Dk kخ,Bk _2Nu7+M' E3 D OZem|  >C B&/" Z E rX @ l # ~ 8  M Q g 9 Y  g<C%#.Cj/ҀР©RIGHT (C) 1978,1982 MICRO FOCUS LTD'1234567890123456789012345678901234567890'1234567890123456789012345678901234567890'1234567890123456789012345678901234567890'1234567890123456789012345678901234567890 C^CҀ @  Ҁ@@(CҀ.UC\WC̠@ Ҁ(܂ܧՀW(@IN@C @( Ҁ`Cҁ cCr` nҀ@ NЁ CҁcCr` nҀ@ ЁCҁe&&&fC+w!h,*],())&u* _,_;5Pg"!_"#,+?+.,0b<)X! - h L i+F# !!a!!##5##$$#$&&[&'\''}''(^(())))v){))*INT-TEM AAAA$., X-5:  >C B&/" Z E rX @ l # ~ 8  M Q g 9 Y  g<C%#.Cj/@ ЁCҁҀ@ ЁCҁҀ@ ЁCrҁҀ@ cҁc nЁҀD@HCH - f io  - f i  $ i`.oP`.Pc n N. ` #NҀ` CϠҁҀ@ ЁCҁcҀ@ NЁ Cҁ cҀ@ NЁ Cҁ"cҀ@ Ё N@1Ӂ$Nݘ` `N.NCԠҁ&cҀ@ Ё Nܽ(ܲ*ܳ*ܴ*.,.N@1CNCZ`,c,/c-c-N@1:C`-C`-CŠ` -c,$c-/c. .N@1:Ё0cY.@5$@5ЁD/N[c/`/N:Ё0@5d ЁD/cc0NCNC6NCe`0Cf`0Cg`0c0/c+c,`,c-`-c0 s!,0c0ҁncr!,@c0@cr!,d0cr!,d0c0D@e,e- ,1$-1L; 1;L= =d1  !1prtc.c.ҁfCCnC@1@1ݴN:Ё0@5 n$N:C `NC٠ҁ2ҁ@ $(N4`6a8b:܉<Á>|@܏@@C@ (-ҁC8ҁBC8C9C:.L`@@5 nN:@C@C@C@CN:Ё0@5.;ЁDN@M16NCg@D# "u N6NݥA,.!N:݈`N:NK  N6FNNH CH CH K N@[16%,.cW. , $-  0 ЁvNCzҁxҁ@ $(@SNDSܩzܬ|CSҁ~(-ҁ.NҁNCҁNЁ@v1(ܞʁf@(1@1@1@1@1ЁjNofݝN݀NЁjN c$N@k1@y1Ё*jCUҀcҁ@ NЁ C\ҁҁ@ NЁ CҀCؠҁCҀCҁCՠҀCaҀ@$-N.` #NC B C8C9C:C:$C:NC @5K D5@  L nN @@@(CҁHcЁҁҁ@ NЁ ЁJZTI IЁLЁJZV IIЁLCҁNcҁ@ Ё CҁPҁRЁJ@ NЁ0@5.;X H n`+`0ЁTN.VYEX XXZ\^`b܅dсVfc+`+N@1  2C#ҁh`2Ё0c  D   .@ XL/ @5 nN3c,N:Cޠҁj`,NҁlC`,CƠ`,$N= H n ZX( (u@i1@/i` (u `  ( (u l/ 1  2@ X gi1c2  X  ؠ  `2ЁI( &( (qd2c !2e2خ,Bk _2Nu7+M' E3 D OZem|  >C B&/" Z E rX @ l # ~ 8  M Q g 9 Y  g<C%(pJy-E]/Wya5R !9Qi#Dl :u]U error; consult your Technical Support service Compiler error; consult your Technical Support service Compiler error; consult your Technical Support service Compiler error; consult your Technical Support service Compiler error; consult your Technical Support service Compiler error; consult your Technical Support service Compiler error; consult your Technical Support service Compiler error; consult your Technical Support service Compiler error; consult your Technical Support service Compiler error; 8 8II<9c/ ,  qU]i}ASS-SI AAAA$., X+M' E3 D OZem|  >C B&/" Z E rX @ l # ~ 8  M Q g 9 Y  g<C%(pJy-E]/Wya5R !9Qi#Dl :u]Uconsult your Technical Support service 'DIVISION' missing 'SECTION' missing 'IDENTIFICATION' missing 'PROGRAM-ID' missing 'AUTHOR' missing 'INSTALLATION' missing 'DATE-WRITTEN' missing 'SECURITY' missing 'ENVIRONMENT' missing 'CONFIGURATION' missing 'SOURCE-COMPUTER' missing OBJECT-COMPUTER or SPECIAL-NAMES clause in error 'OBJECT-COMPUTER' missing Compiler error; consult your Technical Support service 'SPECIAL-NAMES' missing SWITCH clause in error DECIMAL-POINT clause in error CONSOLE claCompiler error; consult your Technical Support service Illegal format of name Illegal format of literal or invalid use of ALL Illegal format of character, or name required Data-name declared twice Too many data or procedure names declared - compilation abandoned Illegal character in column 7 or continuation line error Nested COPY statement or unknown file specified '.' missing The statement starts in the wrong area of the source line Compiler error; consult your Technical Support service Compileruse in error Illegal currency symbol Compiler error; consult your Technical Support service 'DIVISION' missing' 'SECTION' missing 'INPUT-OUTPUT' missing 'FILE-CONTROL' missing 'ASSIGN' missing 'SEQUENTIAL' or 'RELATIVE' or 'INDEXED' missing 'ACCESS' missing on indexed or relative file 'SEQUENTIAL' or 'DYNAMIC' missing Illegal combination of ORGANIZATION/ACCESS/KEY Unrecognized clause in SELECT statement RERUN clause contains syntax error SAME AREA clause contains syntax error File-name missinor more than 8192 bytes REDEFINES of different levels or unequal field lengths Data Division exceeds 32k and data item has address above 7FFF Compiler error; consult your Technical Support service Data description clause inappropriate or repeated REDEFINES data-name not declared USAGE must be COMP, DISPLAY or INDEX SIGN must be LEADING or TRAILING SYNCHRONIZED must be LEFT or RIGHT JUSTIFIED must be RIGHT BLANK must be ZERO OCCURS must be numeric, non-zero and unsigned VALUE must be a literal, ng or illegal 'DATA DIVISION' missing 'PROCEDURE DIVISION' missing or unknown statement 'EXCLUSIVE', 'AUTOMATIC' OR 'MANUAL' missing Non-exclusive lock mode specified for restricted file Compiler error; consult your Technical Support service Compiler error; consult your Technical Support service Compiler error; consult your Technical Support service 'DIVISION' missing 'SECTION' missing File-name not specified in SELECT statement RECORD SIZE integer missing Illegal level number or level 01 requireumeric literal or figurative constant PICTURE string has illegal character or illegal precedence INDEXED data-name missing or already declared Numeric edited PICTURE string is too large Compiler error; consult your Technical Support service Compiler error; consult your Technical Support service Compiler error; consult your Technical Support service Compiler error; consult your Technical Support service Compiler error; consult your Technical Support service Compiler error; consult your Technical Supd FD qualification contains syntax error 'WORKING-STORAGE' missing 'PROCEDURE DIVISION' missing or unknown statement Unrecognized clause in data description or previous '.' missing Incompatible clauses in data description BLANK is illegal with a non-numeric data-item PICTURE clause is too long VALUE with non-elementary item, wrong data-type or value truncated VALUE clause in error or illegal for PICTURE type FILLER/SYNC/JUST/BLANK clause for non-elementary item Preceding item at this level has 0 port service Compiler error; consult your Technical Support service Compiler error; consult your Technical Support service Unrecognized verb IF....ELSE mismatch, or EXIT statement not alone in paragraph Data-item has wrong data-type or is not declared Procedure name has been declared twice Procedure name is the same as a data-name Name required, or name has been previously mis-declared Wrong combination of data-types or two USE-procedures on same file Conditional statement not allowed; imperative port service Compiler error; consult your Technical Support service Compiler error; consult your Technical Support service Compiler error; consult your Technical Support service Compiler error; consult your Technical Support service Compiler error; consult your Technical Support service Compiler error; consult your Technical Support service Compiler error; consult your Technical Support service Compiler error; consult your Technical Support service Compiler error; consult your Technical Support serstatement expected Malformed subscript, or item not in PROCEDURE DIVISION USING ACCEPT or DISPLAY wrong Illegal syntax used with I-O verb LOCK clause specified for file with lock mode EXCLUSIVE KEPT specified for uncommittable file Procedure Division exceeds 32k KEPT omitted for committable file IF statements nested too deep (maximum 8) Structure of Procedure Division wrong (e.g. DECLARATIVES not first) Reserved word missing or incorrectly used Too many subscripts in one statement Too many operavice Compiler error; consult your Technical Support service Compiler error; consult your Technical Support service Procedure name has been declared twice (in different segments) IF....ELSE mismatch at the end of source input Data-item has wrong data-type or is not declared Procedure name undeclared Index-name declared twice Cursor address field not declared or not 4 bytes long KEY declaration missing or longer than 32 bytes, or FD missing STATUS declaration missing FILE STATUS data-item has the wnds in one statement Compiler error; consult your Technical Support service Compiler error; consult your Technical Support service Compiler error; consult your Technical Support service Compiler error; consult your Technical Support service Compiler error; consult your Technical Support service Compiler error; consult your Technical Support service Compiler error; consult your Technical Support service Compiler error; consult your Technical Support service Compiler error; consult your Technical Suprong format Paragraph to be ALTERed is not declared PROCEDURE DIVISION in error USING parameter is not declared in the Linkage Section USING parameter is not level 01 or 77 USING parameter is used twice in the parameter list Compiler error; consult your Technical Support service Compiler error; consult your Technical Support service Structure of Procedure Division wrong (eg DECLARATIVES not first) Compiler error; consult your Technical Support service Compiler error; consult your Technical SupportYØÞ`ÑC5I5=5Ù TûS]TU'UjUUUVUV,UNU (C) 1978, 1983 MICRO FOCUS LTDBQ BCO  ABCDEHJVsXyc  (08@HJ0p+qy͏VYaoaoaoRD[[.,$ CO> zY  V`VHZHJ service Too many operands in one statement 8.our Technical Support service Compiler error; consult your Technical Support service Structure of Procedure Division wrong (eg DECLARATIVES not first) Compiler error; consult your Technical Support service Compiler error; consult your Technical Support 005C=!z{w#  005I}*w#"P @002@Eͷ~P]ͷ+V!ͷªP}Qx!ͷ͓G@Qͷ y͓Gþ!ͷ ͓Q!ͷ QCONFIG .ͷ6y#G͙QINT !2ͷQCONFIG.INT SDB CBL SCP DDC >>>>A A A A A A A A A A A A 9999;;>=>> > >q?Z?ANBX>A A A A A GGGA A > V??DD>EDEGGA A A A A A tospqrVA A A A A ~77&-A 7ZY[EGACJJA A JJA A JJA A JJA A A m A A A XySEGMENT: RTERROR 123 COBOL PC 4567  ISR I I0QERROR ON OPENING FILE: ANIMATION OF ROOT PROGRAM INHIBITED - MISSING FILESaO $q$,!;,!Ù!;qz8O! !;,z;qyO! ͣͣW_͕qyO! ͣ͒qy#ng* x>  ~# y? oxE? J y? ox? zW!)N  F !>))b #}o|gs s  =X ~ og*6*9د2>C >ʢ ң 2E w#è yw# ñ #ý > w# /2>/<`i w:=2 #x >0w!)DM)) O = >* G|x*%D * D >:X `u ͠t**2> r #h *4*{zڟ :_>!  _>! z! { G xƐ'@'w# O*[ F#N#*xO!b q!vz͒q.?*!9"8"**_!)g)&^(** h":…ͫ*>2!"*"":ʤ:G:*N6 #=:*"{ozg"j*( !9"*%:_G:!>2#"$!X>:Xy*tX&!ѯXʔ&O! ~#fo!A6Pw! bxbklÆN#* N#* GO*- ҩGî* GO*- G`i*   /  X 7 (  5   x\ *- *[ */ # *1[ *#:32V#^#yxQ gyoV ##:=2- T ++++N#F DM|^#V# DM~w +w+w##w###q#p#ɡ<ʏ xG* F#N#F#N#~# N#*õ F#N#* ʿ F#N :A +} }|>C }! = [ !P !^6#GOHq#p#6#6 ## s#r*ws#r# s#r*_DM*Q|K}PDM*Z*h^2A ;ұ ͱ *j:TG}„|p#|2A ;xʱ #ʠÙ ʙ *j:TG}|ʙ ™ ÿ*\:bG|}ʙ x™ #**%}| #/w+ /w w# w ! # ?͙ # w + wi`F#NV#^M r#s0 S i`N^M I >ڈ BK c <, O2o&!9" !i,-v ! `ie :͋ *Z:QGOT]0ڦ :Ҧ ‡ y { *ú C7~* C7*4< 5#_^#V"PY= ! ** "`iOV#^F~GOx;G*' F#Nx;G* :/>3~2#F#N<*% 2*ó2*O~ó<<<<<C *4##:=IxG͋ ],͋ ! 4:*% +~*4####gLBKʶ*4 :!8IÒ,,ͼ )~ )~ ;xF#N#F#^#V#####:>, !~x:E!""!F#~#+ʠ^#V#N#FyOxG‹w#w#w#w#ä*yxڠ"" e*###V+^+"V+^*}|* DM 28 26 27́}<"9́"+"́~ "1́"!́" DḾ|gyy23́*!"#"%"'*~ ")*!~ "-*1"/*%~ "422<2 *:wɷ|g}o g o>!@t! 1!2"n!@|eo"p!  $*(! z1Yc ɯ2i<2h!"&":xGxGM*~LL&oL+)&o) :f>C !#~A #w#wË!:>Oç :;<!<V#^z<*##ÜO*$y=O! ~!a!/ú!f) 2y2͠ 2*͈̓~ wfxB#"B@2p̓*~`w#s#r#q#p*:w#:w:X:*DMkSAVE >2J:`i9"͊W"*6 "!.":~ͽw͐*%!ͧ *%*)b !3c ¡:c0*"**{z*|eo"c :c1*"*"!"".ͽe*"."!"".Ö:›*p\Ubk> #½>, :>*>*%C !jc"\ha"Z4 +m* *  !juou,xu?x&xxxuxMV vvv9?Bcv^ ov|vvvwwwgw}w*`iç `iV#^>2*z›ʜ<›! *22_!_ =ʯ<* ç >`i w>`i ~>`i c."%%w>`i c."%~%>`i !_2*F#N>1:y12>C>m:[::m>>>j*p|eo>t*~ͧ "!;ͧ ~*pU\͈*!V#^#:"**%ͽ*++ͽDMxyMD~+ z`i":"s#rͽ::2_>! j͈**%"*+^+V"'** Ow# wp:!Fқ#G_x>, $!@>3G* ͧ H 1 !*(1 ~ # !~@+#^#V*R*(+:G:_ȯ2[5ɯ2p62s6!Y"y2x2: 2t6! ͦ*#|+Vgo: 2t6"d6!`5"\5Gq qx2[5ʃw#x6 #6 #6 2o6!C5}lg"!I5}lg"A!+ ~#ʻ¯6#!+ w#w+6!+ ~##$^#V2i62j6i6͞~0+6͍*:p6 y6:02f6!i6!DM! X:i6=]͜* ͧ> "g6/ "5͇**`6"4$ s#r:b6r=͍*͍*> |!:s624>K):]6l:s6l)%ͫ%h) ͍*> |!Ë͍*:!"4:d6G24͍*ʰ:t6xҜxF24͍*:4=24O:4g怱o"4 !4~  ͜* ͜*#͍*_ ͜*4 #͍**4|F+"4h(*5T] x+5 ) [ >[ xQ BT]+Z E ~#} n Hy24:]6ʒ >2q6Ò ^#V#~"424Ò V#^#~24{ozg}o"4h):b6!}¨ *4:424"4ʷ ~( >K):\6*`6w!w):q6#À!:_6*_!:4!:e6>!M!"Z6 46 6 :ú~:_G#~Fu#~0u:u#~:u#y#~+:Gy~#AuQu~#  ~.ʙ ʙ}# u ~.º#~ ʺ} §ux:*Z6"Z6  6.#*Z6=5`iI5C5 w#>  *+:O:d6C:e6:Yͦ*MYͦ*M* >$y:d6~:e6rͦ*dÈͦ*rÈ*>$O:!46ͦ*͍*͍*ͦ*͍* z{÷͍*>C !p66\6:4ij(*4:4!#"4>K)*5 *4}G)r#>w#:4wͳ(͍*M!> |!*g6!o6~\!5~**`66:e6=:d60M!>2\6#*>2b6:]6=!‡$:\6ʻ!͵%")*!!)*!!):b6!U6"!T6"!S6"=!͵%:]6"+{ "~ !*4"!R6""4"4:\6'Oz^#͜*'"*:]6=>#$ &͞%͵%')*͵%:]6="?$:\6#͔#"#$Oz͜*"$ʜ" " w#"͔#:\6"ʻ"$O""#+~ " "+~ "6 "4)$ͧ'+~ #>#6 *4"4:424:f6E:d60Mͦ*E#ͦ**}|EE|=E!q' *1À>C ~.f f#U>/E*"\ʀ=!á*"V6`i"w6bk"`660#60###~#2\6~#>2s62s62]6~#2^6~2_6!9"X6!&V#^#"4V#^*V6"4 o ' 2b6}*`61$,!!!5"V"\$$L%'#>C 2q6:b6 ͊#w# ~:£++~Fʣ>#W~|z>|z>|> 2\6=1$ z=> z> :_6> 2\646:f6> #):o6 > <2o64 #:o6=2o6> )6 +~ >#6 )ͫ%)$ͧ'):[5OS# ^5ͦ* ͦ*#~O#"\5~$+ 6 +6 *4*4*\5zn#~#w# ^#"\5y2[5! ! F#N*V6 !#~2c6qzʣ#6 #×# #'''1$V"V"\$\$##2b6ͯ!R # B# æ*9O*`6!p#q>͊#:\6*~*:s62s6*X601#42#32#22#>#`iO ~#fo͞%͵%ͼ)$ͤ'%ͫ%?$)*͵%%& $ $ͤ'%G:s6$x $ͫ%):^6 $͞%͵%'%ͫ%):s6¶$-& $ڶ$%&$%&$͵%'%):^6$ &ö$:s6¶$-&$ $% $ö$ *:^6% &%@)<):4)})~*͍*F))͍*=)͍*F)̈́*}24>#*5p#=S)=>2424)%24"4*4##gzo{W>_&,$V :s6š)*`6 w#w#r#sG*4|}:4.-*4:4è)%è)!4p#6# )+%t):\6:]6):s6G2s6:4ij(~**g6!4/~# *:_6)*:2\6>#3*x>#:s6J**4##)}J*>2s6*`6͊#:\6!$F#fh"g64/ *"5͇**4&|,$!Ç**5æ*:e6ʫ*4Ý*ͦ***g6ͦ**g64/ * **2+9:+9 *!*7DM2+9*7W:7_*7o&,$,$ͥ&)%):s6$-&$ $% $$25!5"4!"4*4#'@%@*:b6==%l%-&l% $%%& $%)%l%-& $ $% $%&,$ͥ&ͫ%)*4"4:424%"424*4"4*4"4*4:4#ͥ&!5"4!"4ͧ'*5} %| %ɯ! "5!5"4!"4':c6>#}/o|/g*49&*4##0&!&<&.*`6^+V+~+Ġ&zX&x<:s6`&*4## Ġ&UlgW_ {{24|o{g"4ܠ&zĠ&ͼ)><>#*4*4}&|&ͼ)&:4_:4K)[):424d))'ͼ)':4E':4ij(*4#"424I'>27,*7#"727^)*7:7:97+~,7+>,:9X+!F-N+A+a+>ͣ&͚+F-X>,,:9ʊ+"F-ʕ+…+v+>ͣ&͚+F-…+27:9*7}|g:-9+}o:7+<+:7+}CONFIG INTarstuvw__c`` k ;  & TA)U^w:WRU COAAAA$.,,|(a,!7p#6# ‰,+|(-,:9:9̑,:,9G2,9:7l+7-* 9!7/~# ,:9,:29>ͣ&,x>ģ&:,9-*7##)}->$':4ij(ͼ)$'*4"424:s6h(&*4"424:4B'>K)E'h(ʼ&:4_>K)ͳ({'*4"4:4K)[):4_>K)&X>K)*4*4#"4z,$ž'{,$Z'ͳ({'ͥ&.(G:]6=x''|24E(BKô'ͥ&[).(''|24d)E(|'[)'|} ($  (+|'g !()(2r6:r6 (!*4DM2r6*5W:4_*4o>24d)*4#"424ͥ&*5:4:]6~()~(>K):d6ʟ(!͍*•(ˆ(ڨ(>#(͍*X>K)[):d6("͍*((½(>#(͍*(24:d6*4}|g:t6F)}o:42,9*9C&:9!$F#fh" 97/,"7@-*(|&!@-*7_-:9d-7V-_-ͻ,* 9_-* 97/, ## :V :VO: --)1><>=+** ERROR(. USER PC _: STATUS=2 D= T=U S=. .:0*#":F0:ISIS.CLI J. 6'616J. 0ISISI00:".V..0F IJ..*":͸0 0 b- :A k.k.0 .. 6+ @@0 o.e.G:ʐ:wÖx2p0ʹ#*©6?ëw˜0ï#6 ¹.0#*6?w0#6 #6" #~?  xDIR ERA TYPESAVEREN USERd!yO#< Ty#O 3߯21y_͸2y2ͽ:ܷ˜1͘A͌>>͌2^ :¥.!_~#fow]!v"!çREAD ERRORçNO FILE^: ! ~ 3#0 Wx x ހ ނ G ~ # 3x~#SAVE ggc``_ =xLLLLL4444 /-0̓/G/5/|20͚/|C0(/|}_/$ a/+|H/g v/~/2&:& q/!*DM2&*W:_*o2/-:ø01-00//ISISCLIg00.Py{0!0~#0À1!}y|zxʐyҀ{€Š3܀\X COPYRIGHTC) 1979, DIGITAL RESEARCH +LPTLST:LP:BB:CI:COCONPUN:TP:HPRDR:TR:HRPRN CON: CON: <>.,;:=?*[]s5-I -V = CONFIG.INT ^ BRͧ9!5‚#~Y‚#"T<ÆALL (Y/N)?^ Tʧ͘!6!~ڇ w4!Y~ʆ͌†t=ʆf ^ T 2o&) KNc0"+ HIT KEY TO EXIT:$6ʘ6s#r6ʵ6ʿ6w#w#^w#Vwÿ66s#r#PYs#r!6!:^#V+{667676=6_͌> ͒> Ò> Ò͘~#͌ì _2<ܯ2 ݇!2:2a{_:ʖ:>Ľʖ:=2–!B!6#5ʖ:Ľͬʧ )!F#xʺ~0wëw!" !~6ͽ:ý(!#͘*~ "޷"͌#>?͌͘ =_.:;<> Oޅo$>!Y2*O"ʉ@{z**~#~͆~w͂͆#^#V͈q* *%* ##* ^#V*4" !9"|*͂:QO*~*Z:#7 *Z:QO͠Oxy͆~w#N#F#^#V͊6*͂`i"T]*F}_|7!"F͈͒"͈ 7Oo&*||#^#{ 8O V#^#*#:3GG8z##B8+{#B8w#w#8##8 8!la8!Pa8T8!^F#N#> x8> w8+~>@W>w#>O>_ڦ8<_y_> O s#r#q#w#x8@8yBKm9P_ q#p (2&=:> &=<!2( F9:_*+ :m?>x*vF#Nf>xʀ>]>l94ʀ>##8BKʀ>ڀ>ڀ> V#^#0 N#F r+s>C >2W!U *) !q `ip#q *U*c"U"c#DM*Z "Z!"QPX~9# 9 y2-N#"+8 !-5!pbk)T]))))*+9^bk#N9^bk###7?~#N#Fm92(O! >j?>2Exw? :2./2!#œ?# ‘?"/"4y? O+ ʮ?:.G:?'w+ ?6}|>2*4*/ ͼ @>2E2!w# ?"@>'w+ @!~/w7>'w+ #@!E>w>2!w#w#~p# V@ w# b@!/x@7ˆ@ {@ѯs#r# ʒ@s#r#q#ʡ@  -@@  !$'5?0_z $(26z2 %05@E-D^#V!")ͧ ';';5:(OY9?9 d!:=; !:"+*)!(5;G;4N")*+`;_z^#W~r~;4y;5# Y;_Qx  ;{w!:"+d@;{_!8^''^+w@;^8 <9!"+A ͧ +;P+>;><'w<+>D<;^8 !"+:N<:D<2F9*+~0<#x2*w^@g)))){'g{'_|'W ;@?:*1*6! {ozg:3O:8=?*6:8O*1FOJA>W~'w+~'w AA+6*1+"1!35A>g<'o}'|'&B }'o|'gB x'G{'oz'&BW]&BO ~'w+ AB6 ;@??:!ͧ */~PҏB:3=B*4:8=BjB"4!84jB*/=*4ңB+"4 }o|gBgC?*/F*4+#~BB+"4!{zgC*4V#^hB:3Bw#sOCO_2G> hG:6~#GGx7G-XG2GG+:H~#XGCJG~R+~#JG>-2GGDXG~BBG+~#0G:GG:G!P6#p#q#6ҁG/w#6 s#rrC *h2H:AFD ^8 *Z>2H:QF> *QDM*Z~ GAڙ ZGҙ # xGÙ *Q*ZBHT8 *Q*Z:PBH+H%H+~DH~8H6H~#DH~#-BH+™ ~#0ڙ 9QHҙ zBHÙ p+qy͏ZHZIpIpIpIwJ.,$ *1NJA>'W>'w+>'?w+ COCxƙ'G:3*4<_O*1'+ BC-CxYCpûB#*4#"4B!ç !^":29G<2>O!"Cx>C C2G2Ego"A D rC !BE:9 $INSPECT    ҀҀأ @ҀCҀҀ LҀCҀC Ҁ @  ҀҀأ@ ҀC Ҁ Ҁ C ҀҀC ҀCҀ @ L<Jzn]eҀC Ҁ Ҁ C ҀAAAA$.,bk+~2" "?"\*Z"_>J2Aj>rC ;ErC <:BEɋEEEEEEEEEE_EE_EEE_E*h+~602F:>O*j*?*< $F!D!EʁE!"Eo}E$~#fo :9E:> äE:>+E>->0:8:7:9E!RCE>/!BD:E! +s+r_E:6+wE_E+~0E2FE_EFFFFFFFFFFFFVFFFw:9G:FGFx> F:E:CF:C<ȯO*:*h!D!zFtF!FopF$~#fo0ŒFq#FUF:D<+QʣF:ʣF6-:Cw:CO>0q#¯FUFyF:C*F> UFw#F}oUF$UF*:AO*h :6F6*# FO >+ K*? ɯ2ͯS!"N*C (K"CHI*9|+++:ͰKX:ͰKk`"K:KʂK:}K*H#~‚KMVhS:K:A*Z:ͰKҟKGX:ͰKҪKGk`"C~#GG~#=GK*#~`K#~ K:A?>2B*C"K̈́O:A\L:L*Q*ZM\L:JLÞL:B2A\L:KMV\M*\"~uL~2#"\K:AL*?:ڐL–L:ҖL*\jL:L:PB:BJL*Z*Q>2B=2:!9++"O͵S\L*\"?!"C!MLvSM:MvSG P"\}o|g"Z*>-Q|-QNQ{_zW!N S E*}o:g"**bk"SzpQͫOdQ*"Q"äQ{ŠQzʺQMںQB͵S*ZQ*\DMbk Q~Q͵SB Q W _ëQDM:I$R:U$R*3R*K3R{OzG*Q3R{_zWyx$R**S>2VMںQ"\*:<_WMG0 lgͫOZRZRdRzKRO*S `i:Q_:RWzʓR wS+ OS{R>0wS+*|ʪROSz”R"S !U6*|R~RG:<#RRR!~=*"Ng"K>2I2MMvS*Z1M:1M1M}*g""Z?:OS *&WM:WMek%M7!9"*Z*Q:BƒM2BM*Z:V‘M2VS:I¥M2UN*:MM:NM:OMM2M<2"N=M͂SM2I2ÃMM>2I:N:N͂SMM:OʃMOEʃM:EN:61NJRwPÃM02QN>2:N=ͫON*":=NNN=NzbObO:5OzONKSO3:I**}(SqSBS{2SzBS*DM*6*"*$:bS:bS!"!":A9!"*:K:L*$,]>*9 #2IZ> >2P>2P:SUS*L*Nq"L:KS:S:Gy2QT! TT:G:!QT:R:GQT!?T5T:GQT!!q#p#6ͦV:ʄTկGg:SN:pOT2OͫO}O>"Z*\~_ڗOW#^#:¢O##"\"Q*$:ҿO,:&?"*>O:g-O%":P:=POK:P>2O2!FPo:fP:ʔP:wP:ʼP:WQ:HP:R}ɯͯS*a"*j~2"\*h"Z*:JďS>2A*zʈPͫOҐPʐPWQBSͯS*Q{³Pz³P>2BͼP2BBOS ͯS*Q}o|g*} Q*?zPP{PPPBOSͦVUͦV:U!"L:K!V:*|:ͦV22!V*|ͦV!^W!VͦV:ʌU:G*N:O {U:K9:ʩU!V y¢U: +ŽV V[VyP]TN#S=˜V[V"W!V*W  CONFIG.INT  :CI: /:CO: ^:CO:  CIS COBOL RUN TIME SYSTEM (RTS) CONFIGURATOR V3.00THE RTS IS SUPPLIED WITH AN INTERACTIVE CRT PACKAGEDESIGNED TO BE USED VIA THE "ACCEPT" AND "DISPLAY" VERBS IN CIS COBOL.THIS PROGRAM ENABLES YOU TO TAILOR THE RTS TO YOUR CRTENTER THE CHARACTER CODES TO SWITCH ON,OFF KEYSTROKE REPLAY.**************************************************THE RTS IS SUPPLIED WITH COLUMN TAB STOPS IN COLUMNS:-08,16,24,32,40,48,56,64,72DO YOU WISH TO MODIFY THESE? YOU M XRUNZ CONFIG   (08@H d O   YX =AY SPECIFY UP TO 15 TABS. (NB A TAB IN COLUMN 1 IS '01' NOT '00') THE RTS PROVIDES THE FACILITY TO INCORPORATE ASSEMBLER CODE THAT MAYBE ENTERED BY YOU FROM THE COBOL "CALL" VERB.DO YOU WISH TO INCLUDE SUCH CODE?YOUR NEW RUN TIME SYSTEM NOW EXISTS ON YOUR DISCWHAT NAME SHOULD I GIVE THIS RTS? INPUT UP TO 15 CHARACTERS TO IDENTIFY THIS CRTIN THAT CASE WE MUST DECIDE WHERE IT IS TO GO.VERSION X.X REVISION YYY USER REFERENCE NUMBER AA/0000/AADO YOU WISH TO USE THE INDEXED SEQUENTIAL PACKAGE?PLEASE ENTER UP TO LOWING:- 'YES' 'Y' 'NO' 'N'INVALID RESPONSE ENTEREDENTER THE VALUE OF THE MASK TO BE AND'ED WITH ALL KEYBOARD CHARACTERS.DO YOU WISH TO USE THE ACCEPT/DISPLAY CRT PACKAGE?IS THE NEXT CHARACTER THE VERTICAL OR HORIZONTAL ADDRESS. (REPLY 'H' OR 'V')DO ANY CONTROL CHARACTERS COME BETWEEN THE TWO ADDRESSES?ARE THERE ANY TRAILING CONTROL CHARACTERS REQUIRED?WHAT CHARACTERS ARE SENT TO MOVE THE CURSOR TO THE TOP LEFT HAND CORNER?ARE THERE CONTROL CHARACTERS AVAILABLE TO CLEAR THE SCREEN?THE RTS WILL SEND A FULL S13 CHARACTERSDO YOU WISH TO USE THE DYNAMIC DEBUG FACILITY WITH THIS RTS?HOW MANY BYTES DOES YOUR ASSEMBLER CODE USE? (ENTER A DECIMAL NUMERIC STRING)PLEASE ARRANGE TO INCLUDE YOUR CODE AT LOCATION 0000H.THIS PROGRAM CONTAINS THE SPECIFICATIONS FOR THE FOLLOWING CRT'SA - ADM3A B - C - D - E - F - G - H - I - J - PLEASE ENTER THE LETTER AGAINST YOUR CRT IF IT IS SHOWCREEN OF SPACES THEN.HOW MANY LINES ARE THERE ON YOUR SCREEN?HOW MANY CHARACTERS PER LINE?IS IT POSSIBLE TO HIGHLIGHT CHARACTERS ON YOUR CRT?WHAT BIT SHOULD I SET? (ENTER 00 FOR NONE, 80 FOR MS BIT ETC)ARE ANY CONTROL CHARACTERS REQUIRED TO SWITCH HIGHLIGHTING ON?IS A SCREEN POSITION USED BY THE SWITCH ON CHARACTER(S)?ARE ANY CONTROL CHARACTERS REQUIRED TO SWITCH HIGHLIGHTING OFF?DOES YOUR CRT HAVE AN AUDIBLE ALARM?ARE ANY CONTROL CHARACTERS TO BE SENT TO INITIALISE YOUR CRT?(EG - SOME CRT'S CAN BE PROGRAMMN - ELSE TYPE ZARE THE ABOVE CODES PRECEDED BY 'ESCAPE'- EXCEPT THOSE WHOSE TOP BIT IS SET?DOES YOUR CRT REQUIRE INDIVIDUAL HORIZONTAL AND VERTICAL STEP CHARACTERSTO BE SENT TO IT TO POSITION THE CURSOR, OR CAN IT BE DIRECTLY ADDRESSED?PLEASE REPLY 'S' (STEP) OR 'D' (DIRECT)DO YOU WISH TO CHANGE THIS?MOVE THE CURSOR - UP,DOWN,RIGHT,LEFT - IN THAT ORDER.INPUT UP TO 16 HEX NUMBERS EACH OF TWO DIGITS IN THE FORM:- 01,0AINPUT UP TO 16 DECIMAL NUMBERS EACH OF TWO DIGITS IN THE FORM:- 01,12,35INPUT ONE OF THE FOLATICALLY PUT INTO 'PAGE MODE')INPUT 1 HEX NUMBER IN THE FORM:- 0AIS THERE AN INCREMENT TO THE BINARY ADDRESS VALUE BEFORE TRANSMITTING?INPUT THE INCREMENTS. GIVE HORIZONTAL, THEN VERTICALINPUT 2 HEX NUMBERS EACH OF TWO DIGITS IN THE FORM:- 01,0AINPUT A TWO DIGIT DECIMAL NUMBERDOES YOUR CRT AUTOMATICALLY ECHO KEY-INS TO THE SCREEN?DO YOU WISH TO USE ANIMATOR?WHAT CODE INPUT FROM THE KEYBOARD SHOULD THE RTS RECOGNISE FOR:-- CARRIAGE RETURN- BACKSPACE ONE CHARACTER- FORWARD SPACE ONE CHARACTER- BACKSPACE ONE FE' CHARACTER WHEN SENT?THE RTS WILL MASK OUT THE TOP BIT OF ALL KEYBOARD INPUT/OUTPUT CHARACTERS.CP#UCOO#&CL#C#C#C#Ҁؠ@ /ؠ` NO^C0` NOрG DF D@      "$&(*,ؠ1yNҀؠ2NҀؠEޠNҀؠ5$NҀؠ;ZNҀؠ1NҀؠ5ȠNҀؠ9NҀؠ&NҀ  .02468:<>@ؠE?NҀؠ NҀؠCNҀؠ,ʠNҀؠ NҀؠ/ NҀؠ! HIELD- FORWARD SPACE ONE FIELD- BACKSPACE TO FIRST FIELD OF ACCEPT (HOME)- COLUMN TABBING- ESCAPEDO YOU WANT THE RTS TO USE THE IO PORTS DIRECTLY?STANDARD PORTS ARE F6 FOR INPUT AND OUTPUT, F7 FOR STATUS IN AND OUTPLEASE SPECIFY YOUR PORTS - INPUT,INPUT STATUS,OUTPUT,OUTPUT STATUSPLEASE SPECIFY THE INPUT STATUS AND OUTPUT STATUS MASKS THE RTS WILL OPTIONALLY INVERT ALL BITS, IS THIS REQUIRED? INPUT THE REQUIRED CHARACTERSINPUT THE DISC FILE-NAME REQUIRED DO YOU WANT THIS CRT DEFINITION ADDED TO MY LNҀؠ- jNҀؠ- NҀؠ8 ƠNҀ  BDFHJLNPRTؠ1 NҀؠ? 1NҀؠ; QNҀؠL NҀؠ5 ڠNҀؠ? NҀؠ2 PNҀؠ2 cNҀؠ2 vNҀؠ2 NҀ  VXZ\^`bdfhؠ2 NҀؠ2 NҀؠ2  NҀؠ2 ՠNҀؠ2 NҀؠ2 NҀؠD NҀؠK SNҀؠG NҀؠH NҀ  jlnprtvxz|ؠ& 0NҀؠ: WNҀؠ4 rNҀؠ@ NҀؠG NҀؠ.0NҀؠ7_NҀؠEwNҀؠ1NҀؠKNҀ IST OF STANDARD DEFINITIONS? WHAT NAME SHOULD THE MODIFIED CONFIGURATOR PROGRAM BE CALLED?END OF CRT DEFINITION SECTIONENTER THE CHARACTER CODES TO SWITCH ON,OFF KEYSTROKE RECORDING.FILE OPEN FAILURE, PLEASE ENTER A NEW NAMECOPYRIGHT HERE THE RTS NORMALLY ACCESSES THE CRT USING THE STANDARD CONSOLE ROUTINES.ALTERNATIVELY IT IS CAPABLE OF DRIVING THE IO PORTS DIRECTLY.DOES THIS RTS NEED TO BE TAILORED?ARE ANY OF THE ABOVE CODES PRECEDED BY AN 'ESCAP ~ؠ8;NҀؠ2tNҀؠGNҀؠ:NҀؠ.*NҀؠ'YNҀؠ<NҀؠ2NҀؠ<ѠNҀؠ=NҀ  ؠ7LNҀؠ>NҀؠ#àNҀؠ<NҀؠ=$NҀؠ"bNҀؠENҀؠ3ˠNҀؠ9NҀؠ?9NҀ  ؠ6YNҀؠ;NҀؠ?NҀؠ0NҀؠ8NҀؠ<NҀؠ43NҀؠ8HNҀؠ*aNҀؠ/NҀ  €ĀƀȀʀؠ'NҀؠ0NҀ D0 @DC( /^B257 jؠ`T`@c<Kؠ©RIGHT (C) 1979,1982 MICRO FOCUS LTDJ$@@> L` NOC]UУ` NOҀ.ENTER THE FILE NAME OF THE RTS TO BE CONFIGUREDN9CؠO OC0Ҁ@Ġ/CIS COBOL TRAILER RECORD MISSING FROM INPUT FILEN9$FILEMARK THE FILE AND RE-ENTER CONFIGN9Ҁ@\U рأ@0Ҁ^FILE ERROR 1-XX. PROGRAM ABORTSN Ё!9خ 5ؠ ) x yʀؠCՠNҀؠBNҀؠ9\NҀؠANҀؠ<ؠNҀؠ!NҀؠINҀؠ<aNҀ  ΀ЀҀԀր؀ڀ܀ހؠ<NҀؠ>NҀؠ)NҀؠJ$NҀؠEoNҀؠ<NҀؠ!NҀؠFNҀؠI[NҀ99` OC@X OĮ@@)£@:E0@CgCģ@@£@GE7@C`h@@р@C@ OCgFF  P Z@, QD@ Q@C@BYESOţBY OţBNO y d0 Π d0 Рy d0 d0 d0 ݠ! !  @Uأ@ҁؠ#INCOMPATIBLE RTS VERSION - 4.5 ONLY N9أ@ cҁD`-UУ@N Oҁ`="THE FOLLOWING CRTS ARE PREDEFINED:-N9@@;ҁ GDD `$GCҁ= > =ҁ ؠGPLEASE ANSWER THE FOLLOWING QUESTIONS TO ENABLE ME TO EVALUATE YOUR CRT.N9D &'(UУ@D O@ҁ ?STEP ADDRESSING. PLEASE ENTER THE HEXADECIMAL STEP CHARACTERS TON9A*DU@@@4 OţBN O@C@@D Oţ@S O@C@@H Oţ@V O@C@H р ؠ OO@ C@Ҁ@ҀN H  DC@C@ OC@E@C@;@C@ؠ OOC CEҀҀC.CDҀҀ0Z:ADC ~рUeUTCU@gC,TҀCETҀ@gC+TҀCATҀCDTҀC-T~ҀC(TҀCTҀC$TOҀC1TҀCWTwҀؠ`UCTV@.U@ e@ e@Ѐ DhijkàHWHEN I SEND THIS CHARACTER SHOULD IT BE PRECEDED BY AN ESCAPE CHARACTER?N9@-UУ@Y O@ҁ@ A03! @@DDIRECT ADDRESSING MODE. PLEASE SUPPLY THE LEADING CONTROL CHARACTERS.N9@+UЁ@1UУ@H O@X@Y@Y@XA2-UУ@N Oҁ@+UЁؠA3-UУ@N Oҁ@+UЁؠAB-UУ@N Oҁ@2 @@ACDUhiҁ@ЁDD Z  ؠA7EU@@EhhA8EUEhhAF-UУ@Y O@@@BHIAUhAJAUhijkATDU@@2 hiؠAU-UУ@Y O@@Bb)-UУ@Y OĠA/AU@@ ZؠC -UУ@N Oҁ(@@A15! A ,UhKҁ*cҁ*C -UУ@N Oҁ*B-UУ@Y O`ҁ,AG-UУ@Y O`ҁ,`A-UУ@Y Oҁ,A0-UУ@Y O@U    GFGL00C9DC9Dؠ! ! @U 5 5 x ) 5 5yy 5 5'YOUR RUN TIME AKAUhALAUhAMAUhANAUhAOAUhAPAUh@Aa-UУ@N Oҁ@A%-UУ@Y O@ؠA5-UРA03! @@@N OҁAV+U٠hҁؠ@6UؠA4+Uݠhؠ.DO YOU WISH TO ALTER CRT ACCEPT/DISPLAY HOMING?N9.(RTS DEFAULT - HOME ONLY AFTER ACCEPT FROM CRT)N9@-UУ@N Oҁ@ 1DO YOU WISH THE CURSOR 'HOMED' AFTER EACH DISPLAY?N9@-UУ@Y OĠ@ 0DO YOU WISH THE CURSOR 'HOMED' AFTER EACH ACCEPT?N9@-UУ@N OҁSYSTEM HAS BEEN CONFIGURED/ ҁ.AWUРOB257 jB256 ؠ@UЮخ k0f7k #LYer)6BNZ'3@MZgs*S`mz ".:FR_#/<IVcp}}N k ;  & TA)U^w:WRU COAAAA$.,C) 1978,1983 MICRO FOCUS LTD. URN AA/0000/AA !P !ͧ 4@ Ġ@ ҁ@ ؠA9-UУ@N Oҁ A:AU@@h@@A;-UУ@N Oҁ AV+UѠhӠA<-UУ@Y O@A=-U@ң@N Oҁ AV+UCҁ @ DD  ҁ Z TؠA>-UУ@N Oҁ"@AU@@h;:ҁ BZX-UУ@N Oҁ AYWU@ УO CO C0ҁ$@\UؠO+D;== > ;@UCO.T ;/^ B256 ؠD^_ Q-UУ@N Oҁ&@BR -UУ@N Oҁ&ASDU@@4 @h LYer)6BNZ'3@MZgs*S`mz ".:FR_#/<IVcp}}N k ;  & TA)U^w:WRU COAAAA$.,C) 1978,1983 MICRO FOCUS LTD. URN AA/0000/AA !P !ͧ 4 02 N1 PIC 9999. 02 N2 PIC 9999. 02 ED PIC -9.9(12). * 01 CONSTANTS. 02 TX1 PIC X(17) VALUE "CALCULATION OF PI". 02 TX2 PIC X(12) VALUE "NEXT TERM IS". 02 TX3 PIC X(5) VALUE "PI IS". * PROCEDURE DIVISION. LA-START. DISPLAY SPACE. MOVE SPACE TO SCREEN. MOVE TX1 TO DI-TX1. MOVE TX2 TO DI-TX2. MOVE TX3 TO DI-TX3. MOVE 0.5 TO ED. IDENTIFICATION DIVISION. PROGRAM-ID. PI-CALC. AUTHOR. PF/TR. * ENVIRONMENT DIVISION. CONFIGURATION SECTION. OBJECT-COMPUTER. APPLE-II. SPECIAL-NAMES. CONSOLE IS CRT. * DATA DIVISION. WORKING-STORAGE SECTION. * 01 SCREEN PIC X(1920). * 01 DI-1 REDEFINES SCREEN. 02 FILLER PIC X(160). 02 DI-TX1 PIC X(160). 02 DI-TX2 PIC X(13). 02 DI-TERM PIC X(15). MOVE ED TO DI-TERM. MOVE 3 TO ED. MOVE ED TO DI-PI. DISPLAY DI-1. MOVE 0.5 TO PI. MOVE 0.5 TO TERM. MOVE 3 TO N. LOOP. MOVE N TO N2. SUBTRACT 2 FROM N2. MULTIPLY N2 BY N2. MULTIPLY N2 BY TERM. MOVE N TO N1. SUBTRACT 1 FROM N1. MULTIPLY N BY N1. MULTIPLY 4 BY N1. DIVIDE N1 INTO TERM. IF TERM < 0.0000000000001 02 FILLER PIC X(136). 02 DI-TX3 PIC X(6). 02 DI-PI PIC X(15). 02 FILLER PIC X(1415). * 01 DI-2 REDEFINES SCREEN. 02 FILLER PIC X(333). 02 DI-TERM2 PIC X(15). 02 FILLER PIC X(142). 02 DI-PI2 PIC X(15). 02 FILLER PIC X(1415). * 01 WORK-AREA. 02 PI PIC S9V9(14). 02 TERM PIC S9V9(14). 02 W PIC S9V9(14). 02 N PIC 9999. THEN GO TO HALT. ADD TERM TO PI. MOVE PI TO W. MULTIPLY 6 BY W. MOVE W TO ED. MOVE ED TO DI-PI2. MOVE TERM TO ED. MOVE ED TO DI-TERM2. DISPLAY DI-2. ADD 2 TO N. IF N < 100 GO TO LOOP. HALT. STOP RUN.  MULTIPLY N BY N1. MULTIPLY 4 BY N1. DIVIDE N1 INTO TERM. IF TERM < 0.0000000000001000010 IDENTIFICATION DIVISION. 000020 PROGRAM-ID. STOCK-FILE-SET-UP. 000030 AUTHOR. MICRO FOCUS LTD. 000040 ENVIRONMENT DIVISION. 000050 CONFIGURATION SECTION. 000060 SOURCE-COMPUTER. 000070 OBJECT-COMPUTER. 000075 SPECIAL-NAMES. CONSOLE IS CRT. 000080 INPUT-OUTPUT SECTION. 000090 FILE-CONTROL. 000100 SELECT STOCK-FILE ASSIGN "STOCK.IT" 000110 ORGANIZATION INDEXED 000120 ACCESS DYNAMIC 000130 RECORD KEY STOCK-CODE. 000140 DATA DIVISION. 000150 FILE SECTION. 000160 FD STOCK-FILE; RECORD 32. 000170 01 STOCK-ITEM. 000180 02 STOCK-CODE PIC X(4). 000190 02 PRODUCT-DESC PIC X(20). 000200 02 UNIT-SIZE PIC 9(4). 000210 WORKING-STORAGE SECTION. 000220 01 SCREEN-HEADINGS. 000230 02 ASK-CODE PIC X(21) VALUE "STOCK CODE < >". 000240 02 FILLER PIC X(59). 000250 02 ASK-DESC PIC X(16) VALUE "DESCRIPTION <". 000260 02 SI-DESC PIC X(21) VALUE " >". 000270 02 FILLER PIC X(43). 000280 02 ASK-SIZE PIC X(21)SPACE. 000570 DISPLAY "END OF PROGRAM". 000580 STOP RUN. DE = SPACE GO TO END-IT. 000480 IF CRT-UNIT-SIZE NOT NUMERIC GO TO CORRECT-ERROR. 000490 MOVE CRT-PROD-DESC TO PRODUCT-DESC. 000500 MOVE CRT-UNIT-SIZE TO UNIT-SIZE. 000510 MOVE CRT-STOCK-CODE TO STOCK-CODE. 000520 WRITE STOCK-ITEM; INVALID GO TO CORRECT-ERROR. 000530 GO TO NORMAL-INPUT. 000540 END-IT. 000550 CLOSE STOCK-FILE. 000560 DISPLAY VALUE "UNIT SIZE < >". 000290 01 ENTER-IT REDEFINES SCREEN-HEADINGS. 000300 02 FILLER PIC X(16). 000310 02 CRT-STOCK-CODE PIC X(4). 000320 02 FILLER PIC X(76). 000330 02 CRT-PROD-DESC PIC X(20). 000340 02 FILLER PIC X(60). 000350 02 CRT-UNIT-SIZE PIC 9(4). 000360 02 FILLER PIC X. 000370 PROCEDURE DIVISION. 000380 SR1. 000390 DISPLAY SPACE. 000400 OPEN I-O STOCK-FILE. 000410 DISPLAY SCREEN-HEADINGS. 000420 NORMAL-INPUT. 000430 MOVE SPACE TO ENTER-IT. 000440 DISPLAY ENTER-IT. 000450 CORRECT-ERROR. 000460 ACCEPT ENTER-IT. 000470 IF CRT-STOCK-CODE = SPACE GO TO END-IT. 000480 IF CRT-UNIT-SIZE NOT NUMERIC GO TO CORRECT-ERROR. 000490 MOVE CRT-PROD-DESC TO PRODUCT-DESC. 000500 MOVE CRT-UNIT-SIZE TO UNIT-SIZE. 000510 MOVE CRT-STOCK-CODE TO STOCK-CODE. 000520 WRITE STOCK-ITEM; INVALID GO TO CORRECT-ERROR. 000530 GO TO NORMAL-INPUT. 000540 END-IT. 000550 CLOSE STOCK-FILE. 000560 DISPLAY ORGANIZATION SEQUENTIAL. / DATA DIVISION. FILE SECTION. FD STOCK-FILE; RECORD 28. 01 STOCK-ITEM. 02 STOCK-CODE PIC X(4). 02 STOCK-DESCRIPT PIC X(20). 02 UNIT-SIZE PIC 9(4). FD TRANS-FILE; RECORD 30. 01 TRANS-RECORD. 02 TRAN-NO PIC 9(4). 02 TF-STOCK-CODE PIC X(4). 02 TF-QUANTITY PIC 9(8). 02 TF-ORDER-NO PIC X(6). 02 TF-DATE PIC X(8). WORKING-STORAGE SECTION. 01 STOCK-INWARD-FORM. 02 PRG-TITLE PIC X(20) VALUE " GOODS INWARD". 02 FILLER PIC X(140). 02 CODE-HDNG PIC X(23) VALUE "STOCK CODE < >". 02 FILLER PIC X(57). 02 ORDER-NO-HDNG PIC X(23) VALUE "ORDER NO < >". 02 FILLER PIC X(57). 02 DATE-HDNG PIC X(24) VALUE "DELIVERY DATE MM/DD/YY". 02 FILLER PIC X(56). 02 UNITS-HDNG PIC X(23) VALUE "NO IDENTIFICATION DIVISION. PROGRAM-ID. GOODS-IN. AUTHOR. MICRO FOCUS LTD. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. OBJECT-COMPUTER. SPECIAL-NAMES. CONSOLE IS CRT. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT STOCK-FILE ASSIGN "STOCK.IT" ORGANIZATION INDEXED ACCESS DYNAMIC RECORD KEY STOCK-CODE. SELECT TRANS-FILE ASSIGN "STOCK.TRS" OF UNITS < >". 01 STOCK-RECEIPT REDEFINES STOCK-INWARD-FORM. 02 FILLER PIC X(178). 02 SR-STOCK-CODE PIC X(4). 02 FILLER PIC X(74). 02 SR-ORDER-NO PIC X(6). 02 FILLER PIC X(73). 02 SR-DATE. 04 SR-MM PIC 99. 04 FILLER PIC X. 04 SR-DD PIC 99. 04 FILLER PIC X. 04 SR-YY PIC 99. 02 FILLER PIC X(75). 02 SR-NO-O IF SR-NO-OF-UNITS NOT NUMERIC GO TO INVALID-ENTRY. MOVE SR-STOCK-CODE TO STOCK-CODE. READ STOCK-FILE; INVALID GO TO INVALID-CODE. *VALID ENTRY, CALCULATE AND DISPLAY TOTAL QUANTITY IN TO CONFIRM MOVE STOCK-DESCRIPT TO CM-STOCK-DESCRIPT. MOVE "UNIT SIZE" TO UNIT-SIZE-HDNG. MOVE UNIT-SIZE TO CM-UNIT-SIZE. MOVE "QUANTITY IN" TO QUANTITY-HDNG. MOVE UNIT-SIZE TO TF-QUANTITY. MULTIPLY SR-NO-OF-UNITS BY TF-QUF-UNITS PIC 9(4). 01 CONFIRM-MSG REDEFINES STOCK-INWARD-FORM. 02 FILLER PIC X(184). 02 CM-STOCK-DESCRIPT PIC X(20). 02 FILLER PIC X(356). 02 UNIT-SIZE-HDNG PIC X(18). 02 CM-UNIT-SIZE PIC 9(4). 02 FILLER PIC X(58). 02 QUANTITY-HDNG PIC X(14). 02 CM-QUANTITY PIC 9(8). 02 FILLER PIC X(58). 02 OK-HDNG PIC X(5). 01 CM-Y-OR-N-MSG REDEFINES STOCK-INWARD-FORM. ANTITY. MOVE TF-QUANTITY TO CM-QUANTITY. MOVE "OK?" TO OK-HDNG. DISPLAY CONFIRM-MSG. ACCEPT CM-Y-OR-N-MSG. IF CM-Y-OR-N = "Y" PERFORM WRITE-TRANS. *CLEAR INPUT DATA ON SCREEN MOVE SPACE TO CONFIRM-MSG. MOVE "MM/DD/YY" TO SR-DATE. DISPLAY STOCK-RECEIPT. DISPLAY CONFIRM-MSG. GO TO GET-INPUT. WRITE-TRANS. ADD 1 TO TRAN-NO. MOVE STOCK-CODE TO TF-STOCK-COD 02 FILLER PIC X(724). 02 CM-Y-OR-N PIC X. 01 ERROR-MSG REDEFINES STOCK-INWARD-FORM. 02 FILLER PIC X(184). 02 ERR-TXT PIC X(20). / PROCEDURE DIVISION. START-PROC. OPEN I-O STOCK-FILE. OPEN OUTPUT TRANS-FILE. DISPLAY SPACE. MOVE 0 TO TRAN-NO. DISPLAY STOCK-INWARD-FORM. GET-INPUT. ACCEPT STOCK-RECEIPT. IF SR-STOCK-CODE = SPACE GO TO END-IT. E. MOVE SR-ORDER-NO TO TF-ORDER-NO. MOVE GET-INPUT TO TF-DATE. WRITE TRANS-RECORD. INVALID-ENTRY. MOVE "NO UNITS NOT NUM" TO ERR-TXT. DISPLAY ERROR-MSG. GO TO GET-INPUT. INVALID-CODE. MOVE "INVALID CODE" TO ERR-TXT. DISPLAY ERROR-MSG. GO TO GET-INPUT. END-IT. CLOSE STOCK-FILE. CLOSE TRANS-FILE. DISPLAY SPACE. DISPLAY "END OF PROGRAM". STOP RUN. NVALID-ENTRY. MOVE "NO UNITS NOT NUM" TO ERR-TXT. DISPLAY ERROR-MSG. GO TO GET-INPUT. INVALID-CODE. MOVE "INVALID CODE" TO ERR-TXT. DISPLAY ERROR-MSG. GO TO GET-INPUT. END-IT. CLOSE STOCK-FILE. CLOSE TRANS-FILE. DISPLAY SPACE. DISPLAY "END OF PROGR;***************************************************************************** ;* ;* ;* THIS IS AN EXAMPLE OF USER CALL CODE SUPPLIED PURELY FOR GUIDANCE OF THE ;* USER TO ENABLE THE MECHANICS OF CALL CODE INSERTION TO BE BETTER UNDERSTOOD. ;* ;* THE CODE IS DESIGNED TO BE A USEFUL EXAMPLE OF CALL, AND IF IMPLEMENTED ;* WILL ALLOW THE COBOL PROGRAMMER TO CREATE 16 BIT BINARY QUANTITIES FROM ;* UP TO 5 ASCII DIGITS, AND VICE VERSA. THE USE IS EXPLAINED IN MORE DETAIL ;* AT THE HEAD OF EACH ROUTINE. ;* ;* MICRO FOCUS HAS TAKEN EVERY PRECAUTION TO ENSURE THE ACCURACY OF THESE ;* ROUTINES, BUT CANNOT BE HELD LIABLE IN ANY WAY FOR ANY ERRORS OR ;* OMISSIONS IN THEM. ;* ;***************************************************************************** ;* ;* THE MODULE MUST BE LOCATED AT THE ADDRESS SPECIFIED BY CONFIGURATOR ;* WHEN THE RTS IN WHICH THE CODE IS TO RESIDE WAS CONFIGURED. (SEE OPERATING ;* GUIDE, CHAPTER 4). ;* BASE EQU 04404H ;REPLACE 04404H BY THE ADDRESS GIVEN ;* 164 - CALL CODE DOES NOT EXIST ;* THE USER IS AT LIBERTY TO PROVIDE HIS OWN CODE, BY PLUGGING IN ;* THE APPROPRIATE ROUTINE ADDRESS. ;* ;* SIMILARLY, OTHER ROUTINES MAY BE ADDED BY INCREASING THE NUMBER ;* OF ADDRESSES SPECIFIED. IF THESE ARE ADDED BEFORE THE MAXNO EQUATE, ;* THEN THE BYTE AT CALTOP WILL ALWAYS BE CORRECT ;* ;* ;* ;* ; ; ; ; ; ; ; ;***************************************************************************** ;* ;*ROUTINE: DECBIN ;* ;*CALLIN ;BY CONFIGURATOR. ;* ;* ORG BASE ;SET THE BASE ADDRESS ;* ;***************************************************************************** ;* ;* NOW FOLLOWS THE CALL CODE IDENTIFICATION TABLE. THIS IS A TABLE OF ;* ADDRESSES OF THE ENTRY-POINTS TO THE ROUTINES, PRECEDED BY A BINARY ;* 8 BIT ITEM SPECIFYING THE HIGHEST AVAILABLE ROUTINE NUMBER ;* ;***************************************************************************** ;* CALTOP: DB MAXG SEQUENCE: ;* CALL "01" USING PARA1 PARA2 PARA3. ;* ;*FUNCTION: THIS ROUTINE CONVERTS A STRING OF DECIMAL (ASCII) ;* DIGITS INTO A 16 BIT BINARY QUANTITY. IT IS VERY LOW LEVEL ;* IN THAT IT EXPECTS A POSITIVE DECIMAL VALUE ;* ;*PARAMETERS: PARA1 - ADDRESS OF LENGTH OF DECIMAL STRING ;* HELD AS 1 BYTE ASCII DIGIT (NOT CHECKED) ;* THIS ADDRESS WILL BE NO. 2 ON STACK ;* ;* PARA2 - ADDRESS OFNO ;HIGHEST AVAILABLE CALL ROUTINE. DW 0 ;CALL "00" (DOES NOT EXIST) DW DECBIN ;CALL "01" - DECIMAL ASCII TO BINARY DW BINDEC ;CALL "02" - BINARY TO DECIMAL ASCII MAXNO EQU ($-CALTOP-3)/2 ;LET THE ASSEMBLER DO THE WORK. ;* ;***************************************************************************** ;* ;* NB. ALTHOUGH THE USE OF CALL "00" IN THE ABOVE EXAMPLE WOULD CAUSE ;* THE RTS TO ISSUE THE FOLLOWING ERROR:- DECIMAL STRING ;* THIS ADDRESS WILL BE IN B,C ON ENTRY ;* ;* PARA3 - ADDRESS OF RESULT AREA. ;* SPECIFIES A 2 BYTE AREA ;* THIS ADDRESS WILL BE IN D,E ON ENTRY ;* ;*VALUES RETURNED: 16 BIT RESULT IN PARA3 ;* ;* ;***************************************************************************** ;* DECBIN: POP H ;GET RETURN ADDRESS OFF STACK XTHL ;GET ADDRESS OF I B,0H MOV C,A DAD B ;ACC + CHAR POP PSW DCR A ;KEEP COUNT JNZ DEC10 ;* ;* NOW STORE RESULT IN USER'S AREA. ;* XCHG ;PUT RESULT IN D,E POP H ;GET ADDRESS OF RESULT AREA MOV M,D ;STORE MS BYTE INX H MOV M,E ;STORE LS BYTE RET ; ;**********************************PARA1 ;PUTTING RETURN ADDRESS BACK. ;* MOV A,M ;PUT IT IN ACCUMULATOR ANI 0FH ;CONVERT TO BINARY PUSH D ;SAVE ADDRESS OF RESULT PUSH B ;MOVE STRING REF POP D ; INTO D,E LXI H,0 ;HL = BINARY ACCUMULATOR DEC10: PUSH PSW ;SAVE THE COUNT DAD H ;BINARY ACCUMULATOR *2 ******************************************* ;* ;*ROUTINE: BINDEC ;* ;*CALLING SEQUENCE: ;* CALL "02" USING PARA1 PARA2. ;* ;*FUNCTION: TAKES THE BINARY QUANTITY ADDRESSED BY PARA1 AND CONVERTS ;* IT INTO A 5 DIGIT DECIMAL (ASCII) NO. THE RESULT IS PLACED ;* IN THE AREA SPECIFIED BY PARA2. ;* ;*PARAMETERS: PARA1 = ADDRESS OF 16 BIT (2 BYTE) QUANTITY. ;* WILL BE IN REG B,C ON ENTRY ;* ;* PARA2 = ADDRESS O MOV B,H ; AND MOVE IT INTO B,C MOV C,L ; DAD H ;BINARY ACCUMULATOR *4 DAD H ; *8 DAD B ; *8 + *2 = *10 ; (IE. 8X + 2X = 10X) ;------------------------ LDAX D ;GET THE DECIMAL CHAR INX D ANI 0FH ;CONVERT TO BINARY CHAR MVF 5 BYTE RESULT AREA. ;* WILL BE IN REG D,E ON ENTRY ;* ;*VALUES RETURNED: ;* 5 DIGIT ASCII VALUE IN PARA2. ;* ;***************************************************************************** BINDEC: PUSH B ;GET VALUE ADDR POP H ; IN H,L MOV B,M ;VALUE INX H ; IN MOV C,M ; B,C LXI H,0 ;PUSH CONSTANTS PUS POP H ;ANY MORE CONSTANTS ? MOV A,L ORA H JZ CN50 ;NO - FINISH OFF PUSH H ;YES - RESTORE IT JMP CN25 CN50: MOV A,C ;INSERT UNITS ADI 30H ;CONVERT TO ASCII STAX D RET ;RETURN ;* ;* ;* END H H ; ON TO LXI H,-10 ; STACK PUSH H ; FOR USE LXI H,-100 ; DURING ;* PUSH H ; BINARY TO DECIMAL CONVERSION. LXI H,-1000 PUSH H LXI H,-10000 PUSH H ;* ;D,E = ADDRESS OF RESULT FIELD CN25: MVI A,30H ;SET TALLY TO ASCII ZERO CN30: POP H ;GET THE CONSTANT ;INISH OFF PUSH H ;YES - RESTORE IT JMP CN25 CN50: MOV A,C ;INSERT UNITS ADI 30H ;CONVERT TO ASCII STAX D RET ;RETURN ;* ;* ;* END  PUSH H ;RESTORE IT DAD B ;SUBTRACT FROM SOURCE OP JNC CN40 ;ITS GONE NEGATIVE INR A ;INC TALLY PUSH H ;REPLACE B,C WITH POP B ; NEW RESULT JMP CN30 CN40: POP H ;CLEAR CONSTANT OFF STACK STAX D ;STORE TALLY IN RESULT FIELD INX D ;INC RESULT ADDR POINTER :104404000200000B443044E1E37EE60FD5C5D12120 :104414000000F529444D2929091A13E60F06004F17 :1044240009F13DC21644EBE1722373C9C5E1462389 :104434004E210000E521F6FFE5219CFFE52118FC53 :10444400E521F0D8E53E30E1E509D257443CE5C129 :10445400C34B44E11213E17DB4CA6444E5C3494447 :0544640079C63012C909 :0000000000 62389 :104434004E210000E521F6FFE5219CFFE52118FC53 :10444400E521F0D8E53E30E1E509D257443CE5C129 :10445400C34B44E11213E17DB4CA64 ;***************************************************************************** ;* ;* ;* THIS IS AN EXAMPLE OF USER CALL CODE SUPPLIED PURELY FOR GUIDANCE OF THE ;* USER TO ENABLE THE MECHANICS OF CALL CODE INSERTION TO BE BETTER UNDERSTOOD. ;* ;* THE CODE IS DESIGNED TO BE A USEFUL EXAMPLE OF CALL, AND IF IMPLEMENTED ;* WILL ALLOW THE COBOL PROGRAMMER TO CREATE 16 BIT BINARY QUANTITIES FROM ;* UP TO 5 ASCII DIGITS, AND VICE VERSA. THE USE IS EXPLAINED IN MORE DETAIL ;* AT THE HEAD OF EACH ROUTINE. ;* ;* MICRO FOCUS HAS TAKEN EVERY PRECAUTION TO ENSURE THE ACCURACY OF THESE ;* ROUTINES, BUT CANNOT BE HELD LIABLE IN ANY WAY FOR ANY ERRORS OR ;* OMISSIONS IN THEM. ;* ;************************************************************************************* ;* 4404 02 CALTOP: DB MAXNO ;HIGHEST AVAILABLE CALL ROUTINE. 4405 0000 DW 0 ;CALL "00" (DOES NOT EXIST) 4407 0B44 DW DECBIN ;CALL "01" - DECIMAL ASCII TO BINARY 4409 3044 DW BINDEC ;CALL "02" - BINARY TO DECIMAL ASCII 0002 = MAXNO EQU ($-CALTOP-3)/2 ;LET THE ASSEMBLER DO THE WORK. ;* ;********************************** ;* ;* THE MODULE MUST BE LOCATED AT THE ADDRESS SPECIFIED BY CONFIGURATOR ;* WHEN THE RTS IN WHICH THE CODE IS TO RESIDE WAS CONFIGURED. (SEE OPERATING ;* GUIDE, CHAPTER 4). ;* 4404 = BASE EQU 04404H ;REPLACE 04404H BY THE ADDRESS GIVEN ;BY CONFIGURATOR. ;* ;* 4404 ORG BASE ;SET ********************************************** ;* ;* NB. ALTHOUGH THE USE OF CALL "00" IN THE ABOVE EXAMPLE WOULD CAUSE ;* THE RTS TO ISSUE THE FOLLOWING ERROR:- ;* 164 - CALL CODE DOES NOT EXIST ;* THE USER IS AT LIBERTY TO PROVIDE HIS OWN CODE, BY PLUGGING IN ;* THE APPROPRIATE ROUTINE ADDRESS. ;* ;* SIMILARLY, OTHER ROUTINES MAY BE ADDED BY INCREASING THTHE BASE ADDRESS ;* ;***************************************************************************** ;* ;* NOW FOLLOWS THE CALL CODE IDENTIFICATION TABLE. THIS IS A TABLE OF ;* ADDRESSES OF THE ENTRY-POINTS TO THE ROUTINES, PRECEDED BY A BINARY ;* 8 BIT ITEM SPECIFYING THE HIGHEST AVAILABLE ROUTINE NUMBER ;* ;******************************************************************E NUMBER ;* OF ADDRESSES SPECIFIED. IF THESE ARE ADDED BEFORE THE MAXNO EQUATE, ;* THEN THE BYTE AT CALTOP WILL ALWAYS BE CORRECT ;* ;* ;* ;* ; ; ; ; ; ; ; ;***************************************************************************** ;* ; THIS ADDRESS WILL BE IN D,E ON ENTRY ;* ;*VALUES RETURNED: 16 BIT RESULT IN PARA3 ;* ;* ;***************************************************************************** ;* DECBIN: 440B E1 POP H ;GET RETURN ADDRESS OFF STACK 440C E3 XTHL ;GET ADDRESS OF PARA1 *ROUTINE: DECBIN ;* ;*CALLING SEQUENCE: ;* CALL "01" USING PARA1 PARA2 PARA3. ;* ;*FUNCTION: THIS ROUTINE CONVERTS A STRING OF DECIMAL (ASCII) ;* DIGITS INTO A 16 BIT BINARY QUANTITY. IT IS VERY LOW LEVEL ;* IN THAT IT EXPECTS A POSITIVE DECIMAL VALUE ;* ;*PARAMETERS: PARA1 - ADDRESS OF LENGTH OF DECI ;PUTTING RETURN ADDRESS BACK. ;* 440D 7E MOV A,M ;PUT IT IN ACCUMULATOR 440E E60F ANI 0FH ;CONVERT TO BINARY 4410 D5 PUSH D ;SAVE ADDRESS OF RESULT 4411 C5 PUSH B ;MOVE STRING REF 4412 D1 POP D ; INTO D,E 4413 210000 LXI H,0 ;HL = BINARY ACCUMULATOR DMAL STRING ;* HELD AS 1 BYTE ASCII DIGIT (NOT CHECKED) ;* THIS ADDRESS WILL BE NO. 2 ON STACK ;* ;* PARA2 - ADDRESS OF DECIMAL STRING ;* THIS ADDRESS WILL BE IN B,C ON ENTRY ;* ;* PARA3 - ADDRESS OF RESULT AREA. ;* SPECIFIES A 2 BYTE AREA ;* EC10: 4416 F5 PUSH PSW ;SAVE THE COUNT 4417 29 DAD H ;BINARY ACCUMULATOR *2 4418 44 MOV B,H ; AND MOVE IT INTO B,C 4419 4D MOV C,L ; 441A 29 DAD H ;BINARY ACCUMULATOR *4 441B 29 DAD H ; *8 441C 09 DAD B ; *8 + *2 = *10 ; ;***************************************************************************** ;* ;*ROUTINE: BINDEC ;* ;*CALLING SEQUENCE: ;* CALL "02" USING PARA1 PARA2. ;* ;*FUNCTION: TAKES THE BINARY QUANTITY ADDRESSED BY PARA1 AND CONVERTS ;* IT INTO A 5 DIGIT DECIMAL (ASCII) NO. THE RESULT IS PLACED ; (IE. 8X + 2X = 10X) ;------------------------ 441D 1A LDAX D ;GET THE DECIMAL CHAR 441E 13 INX D 441F E60F ANI 0FH ;CONVERT TO BINARY CHAR 4421 0600 MVI B,0H 4423 4F MOV C,A 4424 09 DAD B ;ACC + CHAR 4425 F1 POP PSW 4426 3D DCR A ;* IN THE AREA SPECIFIED BY PARA2. ;* ;*PARAMETERS: PARA1 = ADDRESS OF 16 BIT (2 BYTE) QUANTITY. ;* WILL BE IN REG B,C ON ENTRY ;* ;* PARA2 = ADDRESS OF 5 BYTE RESULT AREA. ;* WILL BE IN REG D,E ON ENTRY ;* ;*VALUES RETURNED: ;* 5 DIGIT ASCII VALUE IN PARA2. ;KEEP COUNT 4427 C21644 JNZ DEC10 ;* ;* NOW STORE RESULT IN USER'S AREA. ;* 442A EB XCHG ;PUT RESULT IN D,E 442B E1 POP H ;GET ADDRESS OF RESULT AREA 442C 72 MOV M,D ;STORE MS BYTE 442D 23 INX H 442E 73 MOV M,E ;STORE LS BYTE 442F C9 RET ;* ;***************************************************************************** BINDEC: 4430 C5 PUSH B ;GET VALUE ADDR 4431 E1 POP H ; IN H,L 4432 46 MOV B,M ;VALUE 4433 23 INX H ; IN 4434 4E MOV C,M ; B,C 4435 210000 LXI H,0 ;PUSH CONSTANTS 4438 E5 PUSH H ;REPLACE B,C WITH 4453 C1 POP B ; NEW RESULT 4454 C34B44 JMP CN30 CN40: 4457 E1 POP H ;CLEAR CONSTANT OFF STACK 4458 12 STAX D ;STORE TALLY IN RESULT FIELD 4459 13 INX D ;INC RESULT ADDR POINTER 445A E1 POP H ;ANY MORE CONSTANTS ? 445B 7D MOV A,L 445C PUSH H ; ON TO 4439 21F6FF LXI H,-10 ; STACK 443C E5 PUSH H ; FOR USE 443D 219CFF LXI H,-100 ; DURING ;* 4440 E5 PUSH H ; BINARY TO DECIMAL CONVERSION. 4441 2118FC LXI H,-1000 4444 E5 PUSH H 4445 21F0D8 LXI H,-10000 4448 E5 PUSH H ;* B4 ORA H 445D CA6444 JZ CN50 ;NO - FINISH OFF 4460 E5 PUSH H ;YES - RESTORE IT 4461 C34944 JMP CN25 CN50: 4464 79 MOV A,C ;INSERT UNITS 4465 C630 ADI 30H ;CONVERT TO ASCII 4467 12 STAX D 4468 C9 RET ;RETURN ;* ;* ;* ;D,E = ADDRESS OF RESULT FIELD CN25: 4449 3E30 MVI A,30H ;SET TALLY TO ASCII ZERO CN30: 444B E1 POP H ;GET THE CONSTANT 444C E5 PUSH H ;RESTORE IT 444D 09 DAD B ;SUBTRACT FROM SOURCE OP 444E D25744 JNC CN40 ;ITS GONE NEGATIVE 4451 3C INR A ;INC TALLY 4452 E5 Acorn CPCPMDISC/M  0a :40¦t)\  ʦ,-7+¦tD_ f0ڦ8Ҧ0_z!~wz2z2`u-2D.** CIS COBOL RTS V. REV PRE-ASSIGNED LOAD POINT USED . URN /` c"!ͧ :02:02!`0w# !LJw#w!χw#w*U\!ɇ> !ɇ6/P7& };La*97&6 *6;p+q>p;Wu6:J#"r;p;ZҖ*p;DMr*6DM#xr;Z®ö*r;DM͵r;p;J+s#r>!p;b:6/H6:J#"r;p;Z*p;DMr!"p;r;p;ZҖ*p;DMr*6DM#xr;Z®ö*r;DM͵r;p;J+s#r>!p;b:6/H6:J#"r;p;Z*p;DMr!"p;åy:yxzͥy_ͥy+<}-xz*=y+++~ !}!}+~ ,}:!}"=yͥy:<}ͥy<}!9* y:7y!9" y!9* y27y!9" yͥy(…})|}>|}:7yz}:7yz}:Uy2Py2Vy:Pya:Vy}~*=y":y"=y:y22y>2y*Sy' : y}: y!}Ͳzxz Stack overflow!9" y* y!#y>F#N#< ~!9" y* y*:y"=y:q+p+< N~!9" y* yͥycʛ~ͩ}y~:Qỳ~:Rỳ~2HyU:HyUͩ}§~:QyU:RyU:2@yzxz*!"!(p#q!&6#6!6S "!6!~0xz:2*!"4!(p#q!&6#6T "4!~0xzva{ !ZH"J|͂!"+!|eo"-] :0¦!P|eo"Z!|eo"\4_ :40¦Ӈ2_222/2!~6#͝ ( (*E>2_!˄+R!c-]!c!΄͝Cʘ##Iʘ##AʘKʘ##Dʘ##Xʘc$z¦>2_˄{˄>2`u-˄2D.͝^#Vх"-+͝c͝!"Z!6=:>2@y0 Ɛ'@'O:Wy2Wyar+vfsx1brsu1$brwc$ar+vfsx1+v0010sx2:ablu1whlv"-wclv20sx5lu1>v20t(q+p+< !9" {*{{c̀ª:f{ͱ:g{ͱ2]{J̀:]{J̀؀:f{̀:g{̀:Q{2{{r A}~2g{+~2f*r6͝5*Z#"Zw 1!4t*:QGW:5V¦:z2b :0¦:(taz t ʝCOMMAND LINE PROCESSING ERROR *|ޅ}|*: 222_PRE-ASSIGNED LOAD POINT USED"$ANIM.V45" NOT PRESENT ON LOGGED IN DRIVE - ALL ANIMATION INHIBITED"=" NOT PERMITTED IN CONJUNCTION WITH "+A"##Iʵ##Dʵ##X`zÆ>22_^#Vf"W!"!6=6W*#!P !ͧ 4{:{2{*R{* { " {^"M{߀:j{̀>2U{>2U{0F Ɛ'@'O:l{2l{ar+vfsx1brsu1$brwc$ar+vfsx1+v0010sx2:axzxzxzxzxzxzxzxzxzxzzxzxz,xzxzxzxzxzxzxzxzxzxzxzxzxzxzxzxzxzxzxz|xz-~-~#||L}c}xz2|6I|%?xzxzxzxzxzxzxzxzxzxz}||||~-xz;@xzxzxzxzxzxzLzxzxzxzxzxzxzxzxz|xz|xzxzxz}}xz|z}|||}xz{xzxzxzxzxz~{}xzxze~xzxzxzxzxzxzx>Ûcis rr{!V8{m%s2Y2V2V!V6!V6 #6 2$Y>2V2#Y<2V2V!"V&͂c"V#V#^͂cz2VV#^͊m"V_m!V"Y:Y2V>2#Y2Ve~#~**H :#sͬs+#####s*ͬs?#ͬs7>C *"`6! ~t#ng!/yxs2D t2ѯ/t24t2*4" : !w#G:w#r#st*F*"F}_|st:tt:t:*Ht#wͥy$sz;]z|]z"Sy!z;z:UyUͲz:y|z!"y"=y"8y":y|2 U> U - error Debug Mark 3.1 ?>?U* yͥyv{!9" *͂*~`u s22J*ͧ :Kw#ͳsBu6:=#*F*~# Tu$ANIM.V45 O30w:ʄu:0ʔu‰up*~2K7>2"H~2##F#N###}o|g"%~ "4F#N###*% F#N+ "'* ux vv>^uW"*r#sɯv>"V#^V#^`iF#N+ DM*Ov}|~#Cvyoxg{z+ ~Wv`iN#F^#V6W tvW v`iO > M+#ʕv}ww"n&+~Av[vav{v v-v0v:v_#óv ƀFyOwqpsr*uʼ{g{xxz͉{͉{ ͥy2?y"d{p}{wʁ{fʅ{2Hyͥy2Iy{2Gyͩ}!Gy:Gy2Fyͥy2Hyͥy2Iy{!Gywͥy!Gywͩ}:Gy2Fyͥy!Gyw!Ky!My!Oyͥysʰ{pʴ{fʸ{0xz:xz0O!$y !Dy!By!7y͉{^+Vͩ}#:Hyxz_:Iyxzz~2Ryͩ}+~2Qyz:Rywͩ}+:Qywz:Ry2Ryͩ}:Qy+2Qyz:Ry2Ryͩ}:Qy+2Qyz:Ry2Ryͩ}:Qy+2Qyz:Ry2Ryͩ}:Qy+2Qyzͩ}z|+:Qyy|>27y>#:Ryq|`|27y`|27y`|27y:Ry/2Ryͩ}:Qy/2Qy!Ry4ͩ}+4!Ry5ͩ}+5:Ry7?2Ryͩ}:Qy2Qyͩ}7?|:Qy2Qy:Ry2Ryͳy |z"~n&+W~0"w:Aw#w AwAw#~ +AwAwy<_wyWw{Nw4sr~w`iz r#s**  /*OG ^=ʊwS#^ !0 `iF#NV#^!wr#s!S Ów:CI: :CO: 2w*p|eo"wͧ !t~wDM####*w͈@-xwͧ :w x7x!w4w`iGN#3x/x C5I5wwV#^*F! ~]x! V#^*F5xOG|x ax> #mx>wxsx*4:4xs#r#wxxsx242424~(*~*xx*x*`6~#~*`6T]60#60W*!x"X6!##iW*`:Yj!W"Y"`+F:ZLi*_#~@GipLi*_#6ci~w"_*_##^:`^i*`f:Y!Vw}i!Viʀi͑m ͂c*"Y~G####ʵi!9^#V;i##¦iG<*-Y:Yi:ZOi!Z:-YO :-YOi#i i  {_#z+w#jij+js#r#> j&+jͮj:`}j*`:`=!Ge_^#V*Y"`"Y+V+^>j2`+w+w*`"Yj:Zʐjgàj!#Yiʞj&àj&!"#Yͮjr!.q+pj!&p#q!( kj"*Y!ZFr*Y**YZ "Y2Z~>r!&r#s(*YV#^կr!(r#s2 Y:Z2ZBo2Y>Bo2Ycor! ##V#^*DM-cbo>!Y2YŠoo:Yªo>o>oêoʚo:Zªoro:Zªö́q Ûc:Zʳo>G>o:ZGo:Zoo:Yo.s>2 Y:Z2Z+pr~>̈́qÛcpopF#N+̈́qxÝcx2ZrZ ɯr!r:ZDp >{m*Ys#r: Yq>2Y͑m2Y&͂c#F#N*V͊m|o͂c:VoV#^͊m*V͊m|o:Zq:Vp!Vw#w#w#w##~w:V p:V pp!V6 #6 !Vw#w#w#w_mTm!Ve!V~#qm̀#N02cWy4zʝcy3˜c:YØc*͊mr#sr#sm~?kͬlO:YSk̀k;kr!V#^"#Ym~skͺl:Ylͺll*YOGPY:Y+++j*Y~ ڻk>"m:Yel"m##N#Fq#p>dkkl*Y+++:Yj*YTmee~#+Fl:Yl>3kBK"lͬlKBl*Y͌l 8l>"mekll^#V*Y+++:Yj~ gl>*Yxl|҄l"mel l+p+q+:Yw###w#w#wy#wx+++~5= O ^#V~4 O s#r:Yl>2Yl:Yl2Y!YVilW"Y+jk!V~#q>m̀k*Y:Zw#Nͷc+j%s!_0#@q 4qDqw+wocʄq͑mZq>Zqtqm~>2Y:Yl2YZqTm!Ve_m>2ZZ>r Zr *Y6!_*Yiʼqêq6#6#^#VmrzÛcVr*h_͊mNrBK*h_*_~ r<# y rzJrqzJr<#33q6# y%r*f_ >r=5r>{m>T]=Yr}hr$l&*f_͊mr}rVrVr*h_͊mr*_~r# x r*_>w# x²r2rr>2rr*Y!__͊m s:rs2Y͊c$ ++m ++OGyHO~w~wy O  O e͊c! +j!V{m!V>jWxʈm r#}m}o|g%s2Y2V!V> j:Z$q*Y~!қc2Vr ʛc!__͊mmÛcimm*Ys#r#qz nÛcs#r#!/s#r"e2V *Y~ˆnr! e~’c#~Ғc#V#^*ůr!^e>r! w#q#*͊mr#sënůr! e>r! eZ Z!ZZ ZZr!%Ye>r!e&*Y^#Vկr!&s#r 029DH PUB ANIMSW 024EH PUB ANMAP 024AH PUB ANMEM &Z*j_G 0392H PUB CDRES 0293H PUB CDSTT 0304H PB CICHAR 0305H PUB CFCD 02A4H PUB CLDOFF 02A0H PUB CLIOFF 02AH PUB CLLOFF 0288H PU!9"!Y*<2`*Y"`:Y2`*_#^#V*Yr+s+j2V2W*Y:,YO2/Y~wG#~2Y#6##*YeA!eDM!4Yee"0Y>3k"2Y+j!W{m!W:Yw#s#r#"Y:/YwG:Y#w4Y*Y"Y!eDM!W6#6#eexw+ exw# eee>j!W^#V#e*Y+V+^##ɯ2Y^#V+"Y*Y5Zf##~#Jfe!Y4*_+V+^"e!W:Yj+V+^+F"_!W"Yf*Y{meÈf*-Y*Y͊m͊m"Y!eDMee͘f"e!Y~5>dkÈf>*-YDM*Y!4Ye*_+V+^z!V:Yj+V+^*-YDM͊m!V"Y4Yee+"_~ëf%s2Ygfi!_~2Z"Y 2Z 2Z͂c:Z%az2Z!"_j"-Y##"Y2Y2Y2`:Zo)Oa^#Vmccb-caaTbzacea:ZڛcaaÛcocڛcwc:Z2Yža:ZObʯcf:Yʯaүcگc;b*-Yb>Ϳa*_}a#wocڛcwcf¯c)bocڛc͊c*-YMbfbb0>1÷c)b +4 b+~5b;b^#Vmc j>Ϳa*-Y͊m͂ccjeoc›cwcf¯cͿa^#V+emc&ͮjѯdkocʛcwc*Y!~b#~b!^#V;iڥcbr!#~ʪcͿac:`wc*Y^#V*-Yeoc›cwcf¯c^#Vmcj*-Y!"Y!|\c!,Yppɯ͂cz ͂c**YV#^*Y^#VÛc>9ͷc*!Y1ñc2ñc3>2ͷc*Yw#qͿaɯ2`́i*-Y͊m"Y!eDM+ e*Y*-YDM*Yes#r*Y4:,Yd:`d:`de:`.d2`Ϳa2`-eeje*_+V+^zʙd:Y!Vj*-YDM+V+^!V"Y*-Y͊m4Ye*Y!4Y:/YGe"Y+F"_*Y*2Y"ecfi>3k"V!V{m+j!V:Yw#s#r>#"Yw=#w#s#r#*-YDM4Ye*0Ys#r#e*2Ys#re_mɯSͦVUͦV:U!"L:K!V:*|:ͦV22!V*|ͦV!^W!VͦV:ʌU:G*N:O {U:K9:ʩU!V y¢U: +ŽV V[VyP]TN#S=˜V[V"W!V*W 01A5H PUB OTSTPT 0233H PUB ALMENT 0206H PUB ANFLG 0225H PUB APA 0234H PUB APAX 021FH PUB AWA 022BH PUB AWAREL 020EH PUB BKA 020BH PUB CALSTK 0237H PUB COMMA 0238H PUB CSIGN 0239H PUB CURAD 0208H PUB CURSEG 0236H PUB DPZ 0204H PUB DYNABS 0200H PUB ISRAD 014EH PUB PCHAI 01CFH PUB PREADR 0133H PUB PUTCHI 01F1H PUB RECOFF 01F0H PUB RECON 0139H PUB REFCUI 01F3H PUB R 01F8H PUB RPLOFS 01F2H PUB RPLON 0160H PUB RTSBLD 0194H PUB SEQON 0195H PUB SEQOT 0151H PUB STARTI 0154H PUB STOPI 01F7H 0231H PUB LSX 0202H PUB OVLAD 0209H PUB PCREL 020DH PUB PLEVEL 0200H PUB RUNMCH 023EH PUB SAVSZE 0207H PUB SFLAG 023CH PUB SVFCDP 023BH PUB SVFLG 0298H PUB @CALS 0242H PUB ADFLG 048BH PUB AMSG 024BH PUB ANCRT 024CH PUB ANCUR 0474H PUB ANFLS PUB STPFLG HR 01CDH PUB TABI 0187H PUB USRNM 0148H PUB VDINII 0100H PUB VECTOR 018BH PUB VERSN1 IDX 021DH PUB AFA 0229H PUB AFAX 0227H PUB AGA 022FH PUB AIARXL 0221H PUB AKA 022DH PUB AKARXL 0223H PUB ALA K*? ɯ2ͯS!"N*C (K"CHI*9|+++:ͰKX:ͰKk`"K:KʂK:}K*H#~‚KMVhS:K:A*Z:ͰKҟKGX:ͰKҪKGk`"C~#GG~#=GK*#~`K#~ K:A?>2B*C"K̈́O:A\L:L*Q*ZM\L:JLÞL:B2A\L:KMV\M*\"~uL~2#"\K:AL*?:ڐL–L:ҖL*\jL:L:PB:BJL*Z*Q>2B=2:!9++"O͵S\L*\"?!"C!MLvSM:MvSG P"\}o|g"Z*>-Q|-QNQ{_zW!N S E*}o:g"**bk"SzpQͫOdQ*"Q"äQ{ŠQzʺQMںQB͵S*ZQ*\DMbk Q~Q͵SB Q W _ëQDM:I$R:U$R*3R*K3R{OzG*Q3R{_zWyx$R**S>2VMںQ"\*:<_WMG0 lgͫOZRZRdRzKRO*S `i:Q_:RWzʓR wS+ OS{R>0wS+*|ʪROSz”R"S !U6*|R~RG:<#RRR!~=*"Ng"K>2I2MMvS*Z1M:1M1M}*g""Z?:OS *&WM:WMek%M7!9"*Z*Q:BƒM2BM*Z:V‘M2VS:I¥M2UN*:MM:NM:OMM2M<2"N=M͂SM2I2ÃMM>2I:N:N͂SMM:OʃMOEʃM:EN:61NJRwPÃM02QN>2:N=ͫON*":=NNN=NzbObO:5OzONKSO3:I**}(SqSBS{2SzBS*DM*6*"*$:bS:bS!"!":A9!"*:K:L*$,]>*9 #2IZ> >2P>2P:SUS*L*Nq"L:KS:S:Gy2QT! TT:G:!QT:R:GQT!?T5T:GQT!!q#p#6ͦV:ʄTկGg:SN:pOT2OͫO}O>"Z*\~_ڗOW#^#:¢O##"\"Q*$:ҿO,:&?"*>O:g-O%":P:=POK:P>2O2!FPo:fP:ʔP:wP:ʼP:WQ:HP:R}ɯͯS*a"*j~2"\*h"Z*:JďS>2A*zʈPͫOҐPʐPWQBSͯS*Q{³Pz³P>2BͼP2BBOS ͯS*Q}o|g*} Q*?zPP{PPPBO$06BHT?{@á!(5BIVcBOL RT$2@HVdr `A '6ETcr!@oGA$nxWy_;Ay;AxWy=A{=A}'o>g)))){'g{'_|'W ;@?:*1*6! {ozg:3O:8=?*6:8O*1FOJA>W~'w+~'w AA+6*1+"1!35A>g<'o}'|'&B }'o|'gB x'G{'oz'&BW]&BO ~'w+ AB6 ;@??:!ͧ */~PҏB:3=B*4:8=BjB"4!84jB*/=*4ңB+"4 }o|gBgC?*/F*4+#~BB+"4!{zgC*4V#^hB:3Bw#sOCO_2G> hG:6~#GGx7G-XG2GG+:H~#XGCJG~R+~#JG>-2GGDXG~BBG+~#0G:GG:G!P6#p#q#6ҁG/w#6 s#rrC *h2H:AFD ^8 *Z>2H:QF> *QDM*Z~ GAڙ ZGҙ # xGÙ *Q*ZBHT8 *Q*Z:PBH+H%H+~DH~8H6H~#DH~#-BH+™ ~#0ڙ 9QHҙ zBHÙ *1NJA>'W>'w+>'?w+ COCxƙ'G:3*4<_O*1'+ BC-CxYCpûB#*4#"4B!ç !^":29G<2>O!"Cx>C C2G2Ego"A D rC !BE:9 $INSPECT    ҀҀأ @ҀCҀҀ LҀCҀC Ҁ @  ҀҀأ@ ҀC Ҁ Ҁ C ҀҀC ҀCҀ @ L<Jzn]eҀC Ҁ Ҁ C ҀAAAA$.,bk+~2" "?"\*Z"_>J2Aj>rC ;ErC <:BEɋEEEEEEEEEE_EE_EEE_E*h+~602F:>O*j*?*< $F!D!EʁE!"Eo}E$~#fo :9E:> äE:>+E>->0:8:7:9E!RCE>/!BD:E! +s+r_E:6+wE_E+~0E2FE_EFFFFFFFFFFFFVFFFw:9G:FGFx> F:E:CF:C<ȯO*:*h!D!zFtF!FopF$~#fo0ŒFq#FUF:D<+QʣF:ʣF6-:Cw:CO>0q#¯FUFyF:C*F> UFw#F}oUF$UF*:AO*h :6F6*# FO >+{z**~#~͆~w͂͆#^#V͈q* *%* ##* ^#V*4" !9"|*͂:QO*~*Z:#7 *Z:QO͠Oxy͆~w#N#F#^#V͊6*͂`i"T]*F}_|7!"F͈͒"͈ 7Oo&*||#^#{ 8O V#^#*#:3GG8z##B8+{#B8w#w#8##8 8!la8!Pa8T8!^F#N#> x8> w8+~>@W>w#>O>_ڦ8<_y_> O s#r#q#w#x8@8yBKm9P_ q#p (2&=:> &=<!2( F9:_*+ :m?>x*vF#Nf>xʀ>]>l94ʀ>##8BKʀ>ڀ>ڀ> V#^#0 N#F r+s>C >2W!U *) !q `ip#q *U*c"U"c#DM*Z "Z!"QPX~9# 9 y2-N#"+8 !-5!pbk)T]))))*+9^bk#N9^bk###7?~#N#Fm92(O! >j?>2Exw? :2./2!#œ?# ‘?"/"4y? O+ ʮ?:.G:?'w+ ?6}|>2*4*/ ͼ @>2E2!w# ?"@>'w+ @!~/w7>'w+ #@!E>w>2!w#w#~p# V@ w# b@!/x@7ˆ@ {@ѯs#r# ʒ@s#r#q#ʡ@  -@@  !$'5?0_z $(26z2 %05@E-D^#V!")ͧ ';';5:(OY9?9 d!:=; !:"+*)!(5;G;4N")*+`;_z^#W~r~;4y;5# Y;_Qx  ;{w!:"+d@;{_!8^''^+w@;^8 <9!"+A ͧ +;P+>;><'w<+>D<;^8 !"+:N<:D<2F9*+~0<#x2*w^@<>=+** ERROR(. USER PC _: STATUS=2 D= T=U S=. .:0*#":F0:ISIS.CLI J. 6'616J. 0ISISCLI00:".V..0F IJ..*":͸0 0 b- :A k.k.0 .. 6+ @@0 o.e.G:ʐ:wÖx2p0ʹ#*©6?ëw˜0ï#6 ¹.0#*6?w0#6 #6" #~?  xDIR ERA TYPESAVEREN USERd!yO#< Ty#O 3߯21y_͸2y2ͽ:ܷ˜1͘A͌>>͌92^ :¥.!_~#fow]!v"!çREAD ERRORçNO FILE^: ! ~ 3#0 Wx x ހ ނ G ~ # 3x~# :=!ý: =xLLLLL4444 /-0̓/G/5/|20͚/|C/0(/|}_/$ a/+|H/g v/~/2&:& q/!*DM2&*W:_*o2/-:ø01-00//ISISCLIg00.Py{0!0~#0À1!}y|zxʐyҀ{€Š3܀\X COPYRIGHT (C) 1979, DIGITAL RESEARCH LPTLST:LP:BB:CI:COCONPUN:TP:HPRDR:TR:HRPRN CON: CON: <>.,;:=?*[]^ BRͧ9!5‚#~Y‚#"T<ÆALL (Y/N)?^ Tʧ͘!6!~ڇ w4!Y~ʆ͌†t=ʆf ^ T 2o&) HIT KEY TO EXIT:$6ʘ6s#r6ʵ6ʿ6w#w#^w#Vwÿ66s#r#PYs#r!6!:^#V+{667676=6_͌> ͒> Ò> Ò͘~#͌ì _2<ܯ2 ݇!2:2a{_:ʖ:>Ľʖ:=2–!B!6#5ʖ:Ľ!ͬʧ )!F#xʺ~0wëw!" !~6ͽ:ý(!#͘*~ "޷"͌#>?͌͘ =_.:;<> Oޅo$>!Y2*O"ʉ@)6 +~ >#6 )ͫ%)$ͧ'):[5OS# ^5ͦ* ͦ*#~O#"\5~$+ 6 +6 *4*4*\5zn#~#w# ^#"\5y2[5! ! F#N*V6 !#~2c6qzʣ#6 #×# #'''1$V"V"\$\$##2b6ͯ!R # B# æ*9O*`6!p#q>͊#:\6*~*:s62s6*X601#42#32#22#>#`iO ~#fo͞%͵%ͼ)$ͤ'%ͫ%?$)*͵%%& $ $ͤ'%G:s6$x $ͫ%):^6 $͞%͵%'%ͫ%):s6¶$-& $ڶ$%&$%&$͵%'%):^6$ &ö$:s6¶$-&$ $% $ö$ *:^6% &%@)<):4)})~*͍*F))͍*=)͍*F)̈́*}24>#*5p#=S)=>2424)%24"4*4##gzo{W>_&,$V :s6š)*`6 w#w#r#sG*4|}:4.-*4:4è)%è)!4p#6# )+%t):\6:]6):s6G2s6:4ij(~**g6!4/~# *:_6)*:2\6>#3*x>#:s6J**4##)}J*>2s6*`6͊#:\6!$F#fh"g64/ *"5͇**4&|,$!Ç**5æ*:e6ʫ*4Ý*ͦ***g6ͦ**g64/ * **2+9:+9 *!*7DM2+9*7W:7_*7o&,$,$ͥ&)%):s6$-&$ $% $$25!5"4!"4*4#'@%@*:b6==%l%-&l% $%%& $%)%l%-& $ $% $%&,$ͥ&ͫ%)*4"4:424%"424*4"4*4"4*4:4#ͥ&!5"4!"4ͧ'*5} %| %ɯ! "5!5"4!"4':c6>#}/o|/g*49&*4##0&!&<&.*`6^+V+~+Ġ&zX&x<:s6`&*4## Ġ&UlgW_ {{24|o{g"4ܠ&zĠ&ͼ)><>#*4*4}&|&ͼ)&:4_:4K)[):424d))'ͼ)':4E':4ij(*4#"424I'>27,*7#"727^)*7:7:97+~,7+>,:9X+!F-N+A+>!F->!p+,:9:+:>C "d6!+w#w##w#w#w>2+!+>}_|W~wG œ+x 2++7-F-+̈́,F-+F-+=-}27>ã&*7p#= ,=>2727~,|(27"7*7##gzo{W>_&&6 :,9S,*9 w#w#r#sG*7|}:7.-*7:7a,|(a,!7p#6# ‰,+|(-,:9:9̑,:,9G2,9:7l+7-* 9!7/~# ,:9,:29>ͣ&,x>ģ&:,9-*7##)}->$':4ij(ͼ)$'*4"424:s6h(&*4"424:4B'>K)E'h(ʼ&:4_>K)ͳ({'*4"4:4K)[):4_>K)&X>K)*4*4#"4z,$ž'{,$Z'ͳ({'ͥ&.(G:]6=x''|24E(BKô'ͥ&[).(''|24d)E(|'[)'|} ($  (+|'g !()(2r6:r6 (!*4DM2r6*5W:4_*4o>24d)*4#"424ͥ&*5:4:]6~()~(>K):d6ʟ(!͍*•(ˆ(ڨ(>#(͍*X>K)[):d6("͍*((½(>#(͍*(24:d6*4}|g:t6F)}o:4R*(+:G:_ȯ2[5ɯ2p62s6!Y"y2x2: 2t6! ͦ*#|+Vgo: 2t6̀+!`5"\5Gq qx2[5ʃw#x6 #6 #6 2o6!C5}lg"!I5}lg"A!+ ~#ʻ¯6#!+ w#w+6!+ ~##$^#V2i62j6i6͞~0+6͍*:p6 y6:0P+2f6!i6!DM! X:i6=]͜* ͧ> "g6/ "5͇**`6"4$ s#r:b6r=͍*͍*> |!:s624>K):]6l:s6l)%ͫ%h) ͍*> |!Ë͍*:!"4:d6G24͍*ʰ:t6xҜxF24͍*:4=24O:4g怱o"4 !4~  ͜* ͜*#͍*_ ͜*4 #͍**4|F+"4h(*5T] x+5 ) [ >[ xQ BT]+Z E ~#} n Hy24:]6ʒ >2q6Ò ^#V#~"424Ò V#^#~24{ozg}o"4h):b6!}¨ *4:424"4ʷ ~( >K):\6*`6w!w):q6#À!:_6*_!:4!:e6>!M!"Z6 46 6 :ú~:_G#~Fu#~0u:u#~:u#y#~+:Gy~#AuQu~#  ~.ʙ ʙ}# u ~.º#~ ʺ} §ux:*Z6"Z6  6.#*Z6=5`iI5C5 w#>  *+:O:d6C:e6:Yͦ*MYͦ*M* >$y:d6~:e6rͦ*dÈͦ*rÈ*>$O:!46ͦ*͍*͍*ͦ*͍* z{÷͍*>C !p66\6:4ij(*4:4!#"4>K)*5 *4}G)r#>w#:4wͳ(͍*M!> |!*g6!o6~\!5~**`66:e6=:d60M!>2\6#*>2b6:]6=!‡$:\6ʻ!͵%")*!!)*!!):b6!U6"!T6"!S6"=!͵%:]6"+{ "~ !*4"!R6""4"4:\6'Oz^#͜*'"*:]6=>#$ &͞%͵%')*͵%:]6="?$:\6#͔#"#$Oz͜*"$ʜ" " w#"͔#:\6"ʻ"$O""#+~ " "+~ "6 "4)$ͧ'+~ #>#6 *4"4:424:f6E:d60Mͦ*E#ͦ**}|EE|=E!q' *1À>C ~.f f#U>/E*"\ʀ=!á*"V6`i"w6bk"`660#60###~#2\6~#>2s62s62]6~#2^6~2_6!9"X6!&V#^#"4V#^*V6"4 o ' 2b6}*`61$,!!!5"V"\$$L%'#>C 2q6:b6 ͊#w# ~:£++~Fʣ>#W~|z>|z>|> 2\6=1$ z=> z> :_6> 2\646:f6> #):o6 > <2o64 #:o6=2o6> GOx;G*' F#Nx;G* :/>3~2#F#N<*% 2*ó2*O~ó<<<<<C *4##:=IxG͋ ],͋ ! 4:*% +~*4####gLBKʶ*4 :!8IÒ,,ͼ )~ )~ ;xF#N#F#^#V#####:>, !~x:E!""!F#~#+ʠ^#V#N#FyOxG‹w#w#w#w#ä*yxڠ"" e*###V+^+"V+^*}|* DM 28 26 27́}<"9́"+"́~ "1́"!́" DḾ|gyy23́*!"#"%"'*~ ")*!~ "-*1"/*%~ "422<2 *:wɷ|g}o g o>!@t! 1!2"n!@|eo"p!  $*(! z1Yc ɯ2i<2h!"&":xGxGM*~LL&oL+)&o) :f>C !#~A #w#wË!:>Oç :;<!<V#^z<*##ÜO*$y=O! ~!a!/ú!f) 2y2͠ 2*͈̓~ wfxB#"B@2p̓*~`w#s#r#q#p*:w#:w:X:*DMkSAVE >2J:`i9"͊W"*6 "!.":~ͽw͐*%!ͧ *%*)b !3c ¡:c0*"**{z*|eo"c :c1*"*"!"".ͽe*"."!"".Ö:›*p\Ubk> #½>, :>*>*%C !jc"\ha"Z4 +m* *  !juou,xu?x&xxxuxMV vvv9?Bcv^ ov|vvvwwwgw}w*`iç `iV#^>2*z›ʜ<›! *22_!_ =ʯ<* ç >`i w>`i ~>`i c."%%w>`i c."%~%>`i !_2*F#N>1:y12>C>m:[::m>>>j*p|eo>t*~ͧ "!;ͧ ~*pU\͈*!V#^#:"**%ͽ*++ͽDMxyMD~+ z`i":"s#rͽ::2_>! j͈**%"*+^+V"'** Ow# wp:!Fқ#G_x>, $!@>3G* ͧ H 1 !*(1 ~ # !~@+#^#V*A A A A A A tospqrVA A A A A ~77&-A 7ZY[EGACJJA A JJA A JJA A JJA A A m A A A XySEGMENT: RTERROR 123 COBOL PC 4567 ISR I ERROR ON OPENING FILE: ANIMATION OF ROOT PROGRAM INHIBITED - MISSING FILESaO $q$,!;,!Ù!;qz8O! !;,z;qyO! ͣͣW_͕qyO! ͣ͒qy#ng* x>  ~# y? oxE? J y? ox? zW!)N  F !>))b #}o|gs s  =X ~ og*6*9د2>C >ʢ ң 2E w#è yw# ñ #ý > w# /2>/<`i w:=2 #x >0w!)DM)) O = >* G|x*%D * D >:X `u ͠t**2> r #h *4*{zڟ :_>!  _>! z! { G xƐ'@'w# O*[ F#N#*xO!b q!vz͒q.?*!9"8"͉Z*" +*'/7?v":…ͫ*>2!"*""`+ʤ:G:*N6 #=:*"{ozg"j*( !9"*%:_G:!>2#"$!X>:Xy*tX&!ѯXʔ&O! ~#fo!A6Pw! bxbklÆN#* N#* GO*- ҩGî* GO*- G`i*   /  X 7 (  5   x\ *- *[ */ # *1[ *#:32V#^#yxQ gyoV ##:=2- T ++++N#F DM|^#V# DM~w +w+w##w###q#p#ɡ<ʏ xG* F#N#F#N#~# N#*õ F#N#* ʿ F#N :A +} }|>C }! = [ !P !^6#GOHq#p#6#6 ## s#r*ws#r# s#r*_DM*Q|K}PDM*Z*h^2A ;ұ ͱ *j:TG}„|p#|2A ;xʱ #ʠÙ ʙ *j:TG}|ʙ ™ ÿ*\:bG|}ʙ x™ #**%}| #/w+ /w w# w ! # ?͙ # w + wi`F#NV#^M r#s0 S i`N^M I >ڈ BK c <, O2o&!9" !i,-v ! `ie :͋ *Z:QGOT]0ڦ :Ҧ ‡ y { *ú C7~* C7*4< 5#_^#V"PY= ! ** "`iOV#^F~ screen image into FOREGROUND) (G = Merge screen image into BACKGROUND) (H = Display FOREGROUND) (I = Display BACKGROUND) (J = Display screen image) NOTE: (H & I & J display until RETURN pressed) FILE-NAME [ ] YØÞ`ÑC5I5=5Ù TûS]TU'UjUUUVUV,UNU (C) 1978, 1983 MICRO FOCUS LTDBQ BCO XY JVsXyc  (08@H J0p+qy͏>z=N HZHJ (F & G & J only) Press RETURN when complete  (H = Display FOREGROUND) (I = Display BACKGROUND) (J = Display screen image) NOTE: (H & I & J display until RETURN pressed) FILE-NAME [ ] y0=!z{w# % 0͓}*w#"͌ @0Eͷ~P !ͷ’͌!ͷªP}Qx!ͷ͓G@Qͷ y͓Gþ!ͷ ͓Q!ͷ͓Q͌Q!.ͷ6y#G͙Qà!2ͷQ͓͌Q!>ͷq eg͙Q:zSDB CBL SCP DDC >>>>A A A A A A A A A A A A 9999;;>=>> > >q?Z?ANBX>A A A A A GGGA A > V??DD>EDEGGFORMS2 V1.3 WORK PHASE SCREEN W01 WORK SCREEN SELECTION: SCREEN TYPE [ ] (A = Fixed text on clear screen) (B = Fixed text on last screen) (C = Variable data redefines last screen) (D = Variable data without redefinition) (! = Complete this FORMS run) Fixed Text allows: All characters Variable Data allows: X or Y to define alphanumeric fields 9 or 8 to define numeric fields edit chars to define numeric edit fields Press RETURN when complete le data without redefinition) (! = Complete this FORMS run) Fixed Text allFORMS2 V1.3 WORK PHASE SCREEN W02 FOREGROUND/BACKGROUND OPERATIONS: OPTION [ ] (A = Re-enter EDIT MODE) (B = Clear FOREGROUND) (C = Clear BACKGROUND) (D = Merge BACKGROUND into FOREGROUND) (E = Merge FOREGROUND into BACKGROUND) (F = MergeFORMS2 V1.3 INITIALISATION PHASE SCREEN I02 FILES TO BE CREATED: FILE COMBINATIONS [C] (A = DDS) (B = DDS & CHK) (C = DDS & CHK & Snn) (D = DDS & Snn) (E = Snn) (F = No files output) (G = DDS & Snn & GEN) DEVICE/DIRECTORY PREFIX (0-40 Chars) [ ] Press RETURN when complete  (C = DDS & CHK & Snn) (D = DDS & Snn) (E = Snn) (F = No files output) complete rwritten by start delim's W8 = Re-display data overwritten by end delim's W9 = Position cursor to current window end HELP option [_] (_ = Re-enter EDIT mode) (? = Display next HELP screen) (! = Abandon FORMS2 run immediately) Press RETURN whenFORMS2 V1.3 INITIALISATION PHASE SCREEN I01 FORMS2 PARAMETERS: DATA-NAME & FILE-NAME [ ] (1-6 alphanumeric characters) CRT lines [23] (22 or 23 or 24) SPECIAL-NAMES clause: CURRENCY SIGN [$] (ANSI currency signs only) DECIMAL-POINT [.] ("." or ",") Press RETURN when complete CHK output at next processing S2 = Inhibit Snn output at next processing S3 = Prompt for Snn file-name at next processing S9 = Line edit DDS output at next processing P = Display cursor position coordinates HELP option [_] (_ = Re-enter EDIT mode) (? = Display next HELP screen) (! = Abandon FORMS2 run immediatelFORMS2 V1.3 HELP SCREEN SCREEN H04 WINDOW COMMAND SUMMARY: W = Position cursor to current window start W1 = Start window at cursor line W2 = End window at cursor line W3 = Start window at cursor line, no delim's W4 = End window at cursor line, no delim's W5 = Display start window dey) Press RETURN when complete  S3 = Prompt for Snn file-name at next processing S9 = Line edit DDS output at next processing P = Display cursor position coordinates HELP option [_] (_ = Re-enter EDIT mode) (? = Display next HELP screen) (! = Abandon FORMS2 run immediatellimiters W6 = Display end window delimiters W7 = Re-display data overwritten by start delim's W8 = Re-display data overwritten by end delim's W9 = Position cursor to current window end HELP option [_] (_ = Re-enter EDIT mode) (? = Display next HELP screen) (! = Abandon FORMS2 run immediately) Press RETURN whenFORMS2 V1.3 HELP SCREEN SCREEN H02 MANIPULATION COMMAND SUMMARY: F = Invoke FOREGROUND/BACKGROUND manipulation Fx = Invoke FOREGROUND/BACKGROUND option "x" O = Turn on automatic WORK screen preparation O1 = Turn off automatic WORK screen preparation Cn = Insert n spaces at cursor position Dn = Delete n chars at cursor position In = Insert n blank lines before cursor line Kn = Delete n lines including cursor line An = Overwrite n lines with data of cursor line Un = Move cursor up n lines Vn = Move cursor down n lines HELP option [_] (_ = Re-enter EDIT mode) (? = Display next HELP screen) FORMS2 V1.3 HELP SCREEN SCREEN H03 PROGRAMMING COMMAND SUMMARY: G = Give datanames screen coordinates suffix G1 = Give datanames sequential number suffix Jn = Allow up to n consec. spaces in fixed text Mx = Interpret "x" as "space" S = Cancel previous Sn command S1 = Inhibit DDS & (! = Abandon FORMS2 run immediately) Press RETURN when complete  Kn = Delete n lines including cursor line An = Overwrite n lines with data of cursor line Un = Move cursor up n lines Vn = Move cursor down n lines HELP option [_] (_ = Re-enter EDIT mode) (? = Display next HELP screen) FORMS2 V1.3 HELP SCREEN SCREEN H01 GENERAL COMMAND SUMMARY: SPACE = Process the work screen _ = Re-enter EDIT mode ? = Display the next HELP screen ?n = Display the nth HELP screen Q = Re-enter WORK PHASE screen selection ! = Terminate FORMS run immediately X = Position commands at EDIT mode cursor * = Indicate Index Form's data area start NOTE: SPACE is the command to process the EDIT mode screen HELP option [_] (_ = Re-enter EDIT mode) (? = Display next HELP screen) (! = Abandon FORMS2 run immediately) Press RETURN when complete  TO WRITE-NEW-RECORD. RECORD-NOT-FOUND. MOVE "RECORD NOT FOUND" TO COMMENT. MOVE "NO" TO END-OF-FILE. NO-CURRENT-RECORD. MOVE "NO" TO CURRENT-RECORD. CLEAR-DATA. MOVE SPACE TO RECORD-DATA. PERFORM SET-UP-SCREEN. PERFORM SET-UP-RECORD. GO TO SAVE-RECORD-AREA. WRITE-NEW-RECORD. WRITE INDEXED-RECORD INVALID GO TO RECORD-ALREADY-EXISTS. IF STATUS-2 = LOCKED GO TO RECORD-ALR GO TO CLOSE-FILE. CLOSE-DOWN. DISPLAY SPACE UPON CRT. CLOSE-FILE. CLOSE INDEXED-FILE. EXIT-PROGRAM. EXIT PROGRAM. STOP-RUN. DISPLAY "RUN TERMINATED" UPON CONSOLE. STOP RUN. * SET-UP-FILE-NAME. SPLAY SPACE UPON CRT DISPLAY "FILE ERROR " STATUS-1 "/" DECIMAL-NO UPON CONSOLE EADY-EXISTS. PERFORM CHECK-STATUS. MOVE "NEW RECORD WRITTEN" TO COMMENT. RE-ESTABLISH-LOCK. READ INDEXED-FILE INVALID GO TO RECORD-NOT-FOUND. IF STATUS-2 = LOCKED PERFORM DISPLAY-COMMENT GO TO RECORD-LOCKED. PERFORM CHECK-STATUS. SET-CURRENT-RECORD. MOVE "YES" TO CURRENT-RECORD. NOT-END-OF-FILE. MOVE "NO" TO END-OF-FILE. SAVE-RECORD-AREA. MOVE INDEXED-RECORD TO SAVED-RECORD. PERFORM SET-UP-SCREEN THRU DISPLAY-RECORD. DISPLAY-COMMENT. DISPLAY COMMENT AT COMMENT-POSITION. GO-TO-ACCEPT. GO TO ACCEPT-FROM-SCREEN. CHECK-STATUS. IF FILE-STATUS NOT = ZERO MOVE STATUS-2 TO BINARY-CHAR MOVE BINARY-NO TO DECIMAL-NO DISPLAY SPACE UPON CRT DISPLAY "FILE ERROR " STATUS-1 "/" DECIMAL-NO UPON CONSOLE IF STATUS-2 = LOCKED GO TO RECORD-LOCKED. PERFORM CHECK-STATUS. GO TO CLEAR-COMMENT. END-OF-FILE-REACHED. MOVE "END OF FILE - RETURN WILL TERMINATE" TO COMMENT. MOVE "YES" TO END-OF-FILE. MOVE SPACE TO RECORD-KEY. GO TO NO-CURRENT-RECORD. REPLACE-RECORD. IF CURSOR-POSITION = END-OF-DATA GO TO AMEND-RECORD. IF CURSOR-POSITION = START-OF-KEY GO TO AMEND-RECORD. MOVE "Y INDEXED-RECORD. MOVE "DUP" TO CURRENT-RECORD. GO TO NOT-END-OF-FILE. SEE-IF-UPDATE-ATTEMPTED. IF CURRENT-RECORD = "DUP" GO TO RECORD-ALREADY-EXISTS. IF CURSOR-POSITION = END-OF-DATA GO TO RECORD-ALREADY-EXISTS. IF CURSOR-POSITION = START-OF-KEY GO TO RECORD-ALREADY-EXISTS. IF STATUS-2 = LOCKED GO TO RECORD-LOCKED. CLEAR-COMMENT. MOVEES" TO CURRENT-RECORD. GO TO SEE-IF-RECORD-EXISTS. UPDATE-RECORD. IF CURRENT-RECORD = "LOK" GO TO WRITE-NEW-RECORD. IF CURRENT-RECORD NOT = "YES" GO TO SEE-IF-RECORD-EXISTS. AMEND-RECORD. REWRITE INDEXED-RECORD INVALID GO TO WRITE-NEW-RECORD. IF STATUS-2 = LOCKED MOVE "EXISTING RECORD LOCKED" TO COMMENT GO TO DUPLICATE-RECORD. PERFORM CHECK-STATUS. IF CURRENT-RECORD = "DUP" SPACE TO COMMENT. GO TO SET-CURRENT-RECORD. RECORD-LOCKED. MOVE "RECORD LOCKED" TO COMMENT. MOVE "LOK" TO CURRENT-RECORD. GO TO CLEAR-DATA. SEE-IF-NEW-RECORD. MOVE SAVED-RECORD TO INDEXED-RECORD. IF DATA-CHANGED = "YES" GO TO WRITE-NEW-RECORD. IF CURRENT-RECORD = "DUP" GO TO WRITE-NEW-RECORD. IF CURSOR-POSITION = END-OF-DATA GO TO WRITE-NEW-RECORD. IF CURSOR-POSITION = START-OF-KEY GO MOVE "RECORD REPLACED" TO COMMENT ELSE MOVE "RECORD AMENDED" TO COMMENT. GO TO RE-ESTABLISH-LOCK. SEE-IF-RECORD-EXISTS. READ INDEXED-FILE INVALID GO TO SEE-IF-NEW-RECORD. IF STATUS-2 NOT = LOCKED PERFORM CHECK-STATUS. IF DATA-CHANGED = "NO" GO TO SEE-IF-UPDATE-ATTEMPTED. RECORD-ALREADY-EXISTS. MOVE "RECORD ALREADY EXISTS WITH THIS KEY" TO COMMENT. DUPLICATE-RECORD. MOVE SAVED-RECORD TO 01 CURSOR-POSITION PIC 9(4) VALUE ZERO. 01 INDICATORS. 02 CURRENT-RECORD PIC X(3) VALUE "NO". 02 END-OF-FILE PIC X(3) VALUE "NO". 02 KEY-CHANGED PIC X(3). 02 DATA-CHANGED PIC X(3). 01 COMMENT PIC X(40) VALUE SPACE. 01 FILE-STATUS. 02 STATUS-1 PIC 9. 02 STATUS-2 PIC X. 01 BINARY-FIELD. 02 BINARY-ZERO PIC X VALUE LOW-VALUECORD-EXISTS. IF DATA-CHANGED = "YES" GO TO UPDATE-RECORD. IF END-OF-FILE = "YES" GO TO CLOSE-DOWN. IF CURRENT-RECORD = "NO" GO TO SEE-IF-ANY-MORE-RECORDS. IF CURRENT-RECORD = "DUP" GO TO REPLACE-RECORD. IF CURRENT-RECORD = "LOK" THEN IF CURSOR-POSITION = START-OF-DATA GO TO SEE-IF-RECORD-EXISTS ELSE GO TO SEE-IF-ANY-MORE-RECORDS. IF CURSOR-POSITION NOT = START-OF-KEY . 02 BINARY-CHAR PIC X. 01 BINARY-NO REDEFINES BINARY-FIELD PIC 9(4) COMP. 01 DECIMAL-NO PIC 9(3). 01 LOCKED PIC X VALUE "D". / PROCEDURE DIVISION. START-UP. DISPLAY SPACE UPON CRT. PERFORM SET-UP-FILE-NAME. OPEN I-O INDEXED-FILE. PERFORM CHECK-STATUS. MOVE SPACE TO INDEXED-RECORD. MOVE SPACE TO SAVED-RECORD. PERFORM DISPLAY-FORM. GO TO GO TO SEE-IF-ANY-MORE-RECORDS. *DELETE-RECORD. DELETE INDEXED-FILE. PERFORM CHECK-STATUS. MOVE "RECORD DELETED" TO COMMENT. MOVE SAVED-KEY TO RECORD-KEY. GO TO NO-CURRENT-RECORD. SEE-IF-ANY-MORE-RECORDS. START INDEXED-FILE KEY > RECORD-KEY INVALID GO TO END-OF-FILE-REACHED. IF STATUS-2 NOT = LOCKED PERFORM CHECK-STATUS. READ INDEXED-FILE NEXT. NO-CURRENT-RECORD. ACCEPT-FROM-SCREEN. MOVE START-OF-DATA TO CURSOR-POSITION. PERFORM ACCEPT-RECORD THRU SET-UP-RECORD. IF RECORD-KEY NOT = SAVED-KEY MOVE "YES" TO KEY-CHANGED ELSE MOVE "NO" TO KEY-CHANGED. IF RECORD-DATA NOT = SAVED-DATA MOVE "YES" TO DATA-CHANGED ELSE MOVE "NO" TO DATA-CHANGED. MOVE INDEXED-RECORD TO SAVED-RECORD. IF KEY-CHANGED = "YES" GO TO SEE-IF-RE CURSOR IS CURSOR-POSITION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT INDEXED-FILE ASSIGN FILE-NAME ORGANIZATION INDEXED ACCESS DYNAMIC RECORD KEY RECORD-KEY STATUS IS FILE-STATUS. DATA DIVISION. FILE SECTION. FD INDEXED-FILE. 01 INDEXED-RECORD. 03 RECORD-KEY.  CHECK-END. MOVE "N" TO W-REPLY. DISPLAY SPACE UPON CRT. DISPLAY "CHECK-OUT completed" AT 0101. DISPLAY "Repeat? [N] (Y=Yes)" AT 0201. ACCEPT W-REPLY AT 0210. IF W-REPLY = "Y" GO TO FORM-CHECK. IF W-REPLY = "y" GO TO FORM-CHECK. DISPLAY SPACE UPON CRT. DISPLAY "END OF FORMS2 CHECK-OUT" UPON CONSOLE. EXIT-PROGRAM. EXIT PROGRAM. STOP-RUN. STOP RUN. @YĚ6P@V 166ҀدV18р"+1VV@YҀ6P@9 166ؚ2P )@YăB1122Ơ@2р!g` ţ@Xţ@Yţ@xţ@yҀрد266р"+N1ҀRfҀр"+"eؚ2P@. )O)OP;@YҀ As_-+  G : Z !  - %  `v9tp3Um B;] / PROCEDURE DIVISION. FORM-CHECK. FORMS2 COM:wxyzFORMS2 I51{FORMS2 I52/|}~FORMS2 I53* / PROCEDURE DIVISION. FORM-CHECK. !#>M$p4I Q"+!  F ! !Q!g!"Z#2"$A$p#|$$=LN-1 fAAAA$.,~F$v)66р"+N1ҀRfҀр"+"eؚ2P@. )O)OP;@YҀ As_-+  G : Z !  - %  `v9tp3Um B;]唃V0ZrҀؠ` @YҀ@NҀ@S@AҀؠ` 2==u2=1Aؠ`0  0Ҁؠ`0  0ҀAk@Y1101Specify alternative file id [1180]` 11130112=2=1A` sW` 0515v /1015 ؠ£@YS@Yį0Sz@AҀ` Ҁ@MҀ@RҀأ@DĠ@A5E+أ@D5p+S++@Yp+@NS؀0f0^0b@N0@YįB0Ġ[+ د1Ҁ@. g+[+!Ҁؠ))h+!+r@. ~ؠ@1;〠0"0Z0NfR@3Ѐȣ@YҀأ` 0Vد1VV@YăB1ҀN1Ҁ` ҀRfҀҀأҀ@9ţ@8V18Ҁأ@3Ҁؠ@Ṇ` ţ@Xţ@xţ@9ţ@Yţ@yţ@8Š@Yأ@YҀأ` Ҁ` O)EFILLER07ZVV0ZҀأ@8Ҁ@9ҀÑ$P@9 )أ@Y<v180@*Ҁ"1` 0820!WORK SCREEN VALIDATION in progress1020DO NOT press RETURNد1&Ҁأ` Ġ` @XҀ@xҀ@9Ҁ@YҀ@yҀ@8Ҁ@4Ҁ@ZҀ@zĚ@Z Ҁ@*ҀҀ@+Ҁ@-ҀҀ@BҀ@bĚ@B Ҁ@/Ҁ@0ҀҀ@CҀ@cĚ@C Ҁ@RҀ@rĚ@R Ҁ@DҀأ@0Ҁ"80V80&Ҁ!(أ` Ҁؠ@2 أ@1@Y#+#ؠ@Yͣ@9Ҁ@8Ҁ Ҁؠ` 'L362VZ@Y$دZ0Ҁ2P@9 )@YĚ6P@9 1661ZZ122!ؠ`@Ỳ362` 'L@Y$0Vؠ@NΠ@NأĠ@9Ҁ@9ţ@8Ҁ`р"+@9Ҁأ@ZҀ@*Ҁģ@YҀ@YҀ@+ģ@YҀ@YҀ@-ģ@YҀ@YҀħ@dĚ@D ҀҀأ@YҀ@*@9ţ@8Ҁ@*Ҁأ@YҀ@YҀ1bbد0Ġsj@*Ġ@*Š@* Bģ ` Š@Y@*Ҁ؂s` #z101 #z5nد1nn?n0?100J ʘ ` Ę  킣vҀأ@YҀ@Yįb33ҀB@*؀0b` OPA01#Wff1Ҁ +[ + Ҁؠ+ Pj"أ@IҀ@M"أ@JҀ 5 0@J "ؠ@? "` ؠ @AҀyҀ b ؂v01OyfҀ@1Ҁ؃hҀ@1Pj<Hدʓ0Ҁ01vv*POO)ʒ***ƂЃ*د1*ҀPO)OPOOyOy` ĠO)OyҀ b ؂OyfҀ@1Ҁ؃hҀ@1Pj<؂ʀ<ؠv#z@H ` '뀀1: `śÑ) Ñ)@AрԀ؀101 #zv<دʓ0Ġ@P<ʩ@aĠ@AҀ@BҀ@bĠ@BҀ@cĠ@C@CĀ1Ҁ@dĠ@D@DĀ0Ҁ@!o@?!"@?أ@YҀؠȣ@AĠ@B @R@C @M@BĠ@A@B +!` Ā0Ҁ؀11@10Z@0` @AҀ @BĠ`  @C  @BĠ` أ` Ҁ` 1> @M`  1v08@A u  As_-+  G : Z !  - %  /QOr~1F3ѓ1Ġ@L<ؠ <أ@YvnvB1BB80BBxBB<دʓ1Ġ@M<ʓ0Ġ@A<؀0NfRأ@YҀ@NҀ@AҀҀد1€1IFORMS2 H00 ؂E   PK1!+#. . )%/+#0.B%i060$^@_16221622@_Ҁ@-Ҁ@!@?į1!@?"{؀0ؘ:)` Ҁؠ '뀀1:` IFORMS2 W02 ~ 蘃~ ` Ř~ ؘ 阃 ` Ř  ꘃ ` Ř ر08ʓ0Ҁfvvʒ؃ҀhPO` Ś@1PPOO11؃ҀfPO` Ś@1P` O11ؘvPOO)ʓ0Ҁj80802ʒ؃xҀlP2P ) )1122؃2< @JҀ @jҀ @OҀ @oҀ @PҀ @pҀ @XҀ @xҀ @?Ҁ@YҀ @WҀ @wҀ @SҀ @sҀ @GҀ @gҀ??`ɠ@? kدʓ0Ҁʓ1Ҁʓ2Ҁʓ3Ҁʓ4Ҁʓ5Ҁzʓ6Ҁ~ʓ7Ҁʓ8ҀҀ؃vhрvfv^1^^ʓ3Ҁрz|؂^"80""1""Ҁ؀01xfv<؃vfрxҀn2P` )122ؚvPO)OؘvPOO)ʓ0Ҁpxxʒد80ҀrPP ) )11د80ҀtP` )1ؚvPO)Oر08ʓ0ҀvЃЃ2Ҁxʒ؃vҀx2PO` Ś2@1P2POO1122W؃2vҀv2PO` Ś2@12P` O122vhvb1bbʓ4Ҁр~؂v&80&&؀80xhv<ؠ@0寐f1Ҁ^**POOy*POO)O)` b ^Oy<دf1^O@1<ؠ@0惡hҀb**POOy*POO)O)` b bOy<؃hbO@1<v100J =-<دx80ăvĀ77x79xvقكݯ1ݜ݂vz1zz80z؀01xfvأ@1рz|@1р~Ҁؠv#~;/#~v0#~__ؠ`-`< @*Ҁ @MҀ @mҀ @FҀ @fҀ @_Ā0 ` Ā0 @-Ā0A??Ā0 `Ā0 @0Ҁ @9Ҁ ` Ҁ @UҀ @uҀ @VҀ @vҀ @IҀ @iҀ @KҀ @kҀ @CҀ @cҀ @DҀ @dҀ @AҀ @aҀ @QҀ @qҀ @! @_< @-ؠ©RIGHT (C) 1979,1982 MICRO FOCUS LTD-؂0د116ҀR  uJ$ꠠ-yK!!&! !.)-"yKIFORMS2 I01 IIFORMS2 I02 IIFORMS2 W01 I`   렠렚A]?렢렗?_?B顷렙롍렞ᡷ㠙㡍㠞%T` 66ؘ` ҀT11ҀVؘҀXҀX`0 ʯ 0Ҁlؠ`0 ʯ 0Ҁnؠ21A 0Ak@Y"أ@YҀp+ҀfؠAGN!-ؠ` ` @YĂhb1hh@1 rAs_-+  G : Z !  - %  (mcL;i| OVERLAY-  fAAAA$.,~F@-ҀX@aҀV@zҀX؀0nد1nn0641??????0641دn50`ؚ` 111ҀZ` ` (ةҀ\@a(@z(؂%د22ï24ǂҀ^0nد1nn0841??0841n5*`ؠ@4Ҁ`؀0nد1nnZ?Zn5t`ؠ  $@.ţ $@,Š $1541Zl $@,Ġ@.؂СhЁՂЃ&80&&ؠ©RIGHT (C) 1979,1982 MICRO FOCUS LTD-؂RTVXҀROOOOOOOOOOOOOOOOOOOOOOҀROOOOOOOOOOOOOOOOOOOOOOOҀROOOOOOOOOOOOOOOOOOOOOOOO؀1рZ\؀2рZ\` 0101؂^`bҀ\ؘPOO)ҀdؘPOO)ҀdؘPOO)أO)` O)1^ؘz 瘃z ` Řz&jؠ@C Ԡ` ' `  렠렗:9999999WN@ᡷ'ؠ @!@Q!@q!Ҁbؠ@? 2@GĠ@Y@Y@Y@YҀd@N@N@N@N@A@F@FҀf@E @Y@N@N@BĠ@Y@CĠ@Y@BƠ@Y@Nؠ' );` uң@YĠBGENBCHKu@Sأ@NҀh`00Ҁjؠ`00Ҁhؠ21A0Ak@Yأ@NҀf,D!   H(aH@`@s@@Hu@Q@T@w@t@@H_@H@ 7 K@ svHB B@LB!   H@ خ UmHq^c  : n sfT.eSt{T\ak\ET2~! START-PRO START-PRO AAAA$.,6!`@ svHB B@LB!   H@ خ UmHq^c  : n sfT.eSt{T\ak\ET2~! START-PRO START-PRO AAAA$.,6!dKҀH ^DҀ\KҀH`0ؠ`Ҁ\أ`ҀHsMDsCs@sKm/1ҀrdKҀHc^ ^:Ҁd )RTS ERROR NO. - S(top run) C(ontinue)O8 F7ge@BiCSĮCCҀ\C D .WARNING - Next instruction is implied STOP RUNO8BiҀ\ؠ/BREAK-POINTS - S(et) U(nset) C(ancel) eX(amine)O8iSUCҀ8KEЀ@KҀBЀB@DF@-XC-XM@L@8@Ѐ>7@Ѐ@C@TҀH bdT  vdf hOC(mCҀf(b b6Ce@Cd  c6fCd@Cd  dp9pD QCvҀhC0QҀH/8/QR@uҀj@v Ҁ\@vؠ]MONITOR - S(et) U(nset) N(ame)O8iUNSH@v ~j J/ 1D Cv@vҀ\ I` Ҁ\ @Mln@MUT@.MCM  MCҀnDW d9WQ @uҀjj/ J1ؠ%(Mؠ%(M@MCMHҀpţDMKҀH@MCMҀHKDM ЉfDTDT @TԠрJL  HHHNPRTNPRTҀHEҀVE @DYLDD@@K tcobL1ECYLCCҀXC ҀXҀZE 18ҀLKE @9Ҁ\@@CҀ^ UZOOM - space-bar(halt)O8bҀ^@ 'GO - 1-9(speed= ) Z(oom) space-bar(halt)O8 Gb CҀ^MCMҀ^@?K 6`EKCKEM@@ ]TILL NEXT IF - space-bar(halt)O8bҀ^ $SINGLE STEP PERFORM - space-b^@xр c   r)\@xр @y2 ?@y K n  n :%l00 @r`^C{m   HCy_C   HoHCy 6C`C{E H  8@PUb@ؠ( & /+ /)@ҀҀ+` -`Dt@+e\p(\-^(\vC0`b@d`& /dHdHbb`  R  RC0 RC0|@HB} |C0L@ 7(,,0,,cM(2Cy @ @ @@@@B BD DD`MD 1BMB BLB B B BBB@D DLD 1 | @H@D @wD @wJB(rk-pnts) D(isp) E(xec) F(ind) L(evel) M(on) P(-c) Q(uery) S(creen) U(ser)O8b `-O8U ^ؠ` O8U @P s @PC(E s =1H 8ifC0`0=CI>C0Š` O8 UDM K/@=M/0=E=H/  //M L@ =D Rؠ%,P@ D à L@ @B2n@jB2H@fB2 ^hҀ nfҀ^h^%,PfLf \lҀKPjҀ \lj@Ҁ\DX \Ҁ @B jx  ,xujLj\%,P@(ЀO \+\/ЀҀ\@ v v \@L\ \)0 ^@ v v ^@m` \&L^CCxH C \/C0 `//Db^^\ `\ `/CxҀ /) /+ҀCz/2&/02/C~=/DX!\= //MM LDM <@CK/L/=>1?  =>1? lҀ&/L/ K ^>=?1@@w@OI PD PDDW PWECҀ( KC/: C@[ C`{ - (lhQCYҀ*WKYKDK$c`Ҁ*e dC-Xd@$cҀ, `% f$ bPMDM oKB@C@@ oKC(vb(xdCЀ. H@ b6 6f 6fC E D @@M oKN hC N hNK J@L@ ~E  B sx B@A@$aKCE@KrҀ 3KMDKC+aH #J^q+K(?tK& @K& KtB DKCK@K&#J^+Kab@KC @B C0Ҁ"@K&@K&Ҁ$KDK6H@K& c @B @Cy@ s  F s| F@@F BFKFCK@KAK vz JB JDKB|H@ @BCy @} BBHB 4  P.CBL DDC SDB SCP I K@2 C#ɠCPb#C#GC^#C#ŠCP#CP8#UCR#&CR #^CR #CR #CR #!CR#bCR #ҀؠQFILE NOT PRESENT -8ЀЀخC0` ;KؠRINSUFFICIENT MEMORYO8Cz   ^C{   C|   C}  P !C ~C0  bC   `zؠ;K^@zؠΠ;K@{ؠ;K@|ؠP;K!@}bC0Š;KOO` N8 8if@~ؠҠ;K@V   m        P C0     Cz^C0Š` Ic*`c `C{C|C}.!C~=C0b` ObObIc*c CQLL ^#^Dr ^ 3rVH\H CIS COBOL ANIMATOR V1.0 002 12/07/83,12:00 COPYRIGHT (C) 1981,1983 MICRO FOCUS LTDURN / / $mͬ\ !xFB!F\<!FB! F*#\:`!BFB:}s:~sv! F:}2:~22h\™m:G:O x2 2~y2 2}\!Ó`ʪ: 2: 2͓2 2 :2:2::2:2ͬ:2}:2~\"2|2k\X 4 4;N#y_F4# M!G~Œxv#e!G~Œxhʐ#{Ò>!GO~¨+ y™>!>ʽ6#=ñ:2:2: 2 !P b  (C) 1978, 1983 MICRO FOCUS LTDBQ BC :CI: /:CO: ^   4469 END  ;YES - RESTORE IT 4461 C34944 JMP CN25 CN50: 4464 79 MOV A,C ;INSERT UNITS 4465 C630 ADI 30H ;CONVERT TO ASCII 4467 12 STAX D 4468 C9 RET ;RETURN ;* ;* ;* !4w_#~ ʸ A:4~~# ¼ > \ ?ʻ w# !ͼ ? !ͼ !)ͼ !ͼ :5͡ :6:6͡ :7FILE FOUND;PROCESS BEGUNFILE NOT FOUND;RUN ABANDONED5FILE IS MAX.SIZE THUS NO FURTHER RECORDS CAN BE ADDED5ERROR WHEN WRITING CIS COBOL EOF RECORD;RUN ABANDONED/CIS COBOL EOF RECORD SUCCESSFULLY ADDED TO FILE-FILE CLOSED;PROCESSING SUCCESSFULLY COMPLETED'ERROR DURING FILE CLOSURE;RUN ABANDONEDOPEN FAILURE;RUN ABANDONED$ERROR DURING DISK READ:RUN ABANDONED!CIS COBOL EOF REC ALREADY EXISTS. RUN ABANDONEDFILE IS EMPTY;RUN ABANDONEDCIS COBOL FILEMARK PROGRAM V2.0!9"1!F\2h !%FB }G!hOq4\7y7 y2h2$m:kd:hv=2h2$m! F!4FB!FB:k=2|\ʜ!OFB:k2|`!tF!FB2 :k22:h<22h$m͓2 ʹ:k=2:h<2h