)mmm@mmmnm[4 [[_\x2y2*~22##^#V*"4 ͞?=:<2*####"s["*":2:2:2s[*"> 2[**##s#rë[*####~w[**#####:w#s#r*":2:2**""!Fwp!FwpG*>রw*>G#N!X~**͑\*͐\*͐\*y͐\*{s#r#*r*p4 *"r͞?BÞ?*:G:w#:w*s#r}o|g͎T>7*| ʟ_"*"! ~ ]=]#\N#~#^#V" 6]! ͓<=K]#%]͗V*4 \e x>[]2v*""B""*"Ó]***\++++*#4 ھ]++~‘]+~’]###*\"ѯ*P*#s#r"**\r]WNLCA3Me )~R(}-|/zwrD^ vVv`]tBpfk6[tZv|v'DpL+w"z|"3}(v1~j1R7A 5dDO6Xa^b )fSyh@j!{ "x*"*]"*a":2{:2|*p"yv:N,ʍ^!T^"2!N6(NQK>=͋a!6 !6͕.L͞?:!.__)_:__ ._:@OCͬ ._>}iB!a"@*͞?*"]:2a:{2:|2*y"pU *"*w4 4_!a"w"*P#"P>iB !9*4 !"! 65`_&:a_*".L(C͞?K:_2*"]!a6U_2(C:$`*c|$`.L"]22go"cK2O2!":N@`d_2o_:2E2!"s`͓E͓N͓D͓/> ͗V_<͎T:E2͓)`(`,`/\=~`\͎͎T:N,x:N=`:T^> ͗V:E2͎T ͓\Ã`\͎:<aG:Iax<6~!~D~"r~.B2v&~=9ȺUjw2}¼j<HHZu}v/iS+6\qg>Zmn~@~%~x~h}ƷN}5<}./}@:/! ^#V#<b>b>b>b>h]p`!b9i`!~b>h]p!`͒v!YE͙g2#`sb`!b9i]pL`!b6iT!~b>h]p`!*`s#r*`"U!*`s#r7Z.990 12.0 0 20 1 1 0 1 1 4 1 2 (80A1)Qbb(2X,4A1,5X,A4)(' INPUT IS A COMMAND ')(20A4) E(80A1)bb(' *ERROR*',2X,I3,' FIELDS MISSING')(' OUTPUT BUFFER '/80A1)"bb!Lf6ib!Hf>h]p!"bbb!b͆f*b}2be*b}=2b¦d*b"b!"b*bT"b*bb~*bw*b#"b*b#>>cb!Lf9iT!Jf>hT!Ff>h]p!"mmm@mmmnmg"c*b"c*b"!c!"b*cT"b*cb~*bw*c+"c*c+"c*b#*!c{zd#c!Lf9iT!Hf>h]p*b")c*b#"b+cb!b͆f*b}2be*c#"c"b*U! ́h*b~og"c*b"c*b"!c!"b*cT"b*cb~*bw*c+"c*c+"c*b#*!c{ze-e*U"b*c*b~og{ozg}?2b.f*U~og*c{ozg"b/c!Lf9ib!Ff>h]p!*bs#rEfSc!Lf9iT!Hf>h]pPIUlZnZpZ (80A1)(' NO WORD FOUND ')(' KK= ',I10)"Of"Qf>!SfSw*Qf~2Xfog"`f*`f+*Of~!Wf2bff*`f#>P>f!Q*Qfs#r6g:`f2Yf:Yfog"f*f+*Of~!Wf2bf g*f#>P>f*`f*Qfs#r*f+*Sfs#r*Qf~#fo{ozg#*Ufs#r+h@gͳvr]WNLCA3Me )~R(}-|/zwrD^ vVv`]tBpfk6[tZv|v'DpL+w"z|"3}(v1~j1R7A 5dDO6Xa^b )fSyh@j! ~͙~#gg> 2!ST"!OP" ! " g-~LUX)!"dhXuͱhhxh|WhWhPh)+~#foo&)#PhO_yW!~/woG}_}W}Oͱh͞v||DM!>))җh =h!~7w?##wy7O**"">h>h>h>2ewyw~#fo"yw"~*"~:i͆jh%rhͅ}>22<2Oi>2>i2<>i>222~#fo"!"~~#+]i!"!9##"h:~igo"""ìi!>Sw*~#”igo"*~#¢igo"*~#fo"222222~go""~@v*|i͗r*"(qͅ}2~2~<2:>o/u@mj j> 0swi:/0s<6~!~D~"r~.B2v&~=9ȺUjw2}¼j<HHZu}v/iS+6\qg>Zmn~@~%~x~h}ƷN}5<}./}jw# j*~+"~|j<*k>G!~60#=u!4:0wu0k"~:dk w+Tkw!~|yk}yk!4#"|/W}/_*">2~:ZnXt:G:kx2~"k:k2͗p:k0p!~5k2 pl**DM*pm+|l""Es**Fp*#"*+"|##mEs!:~O5fm:~kmkm*~ ~ 2!~q>]m> ]m@mym !4pm:mmm@mmmnm!~4:o:;n}o:~g"0t!m=uv:=^n=inͅ}:og"go""2>2Xt:"k:2~2͗p͠oànpm  n>00ڱn:ұn02>ɯ22͠o-n>2n+n͠o0t!~5!4go:.n>22go:mE oDo͠o+o-"o>2~͠oy2!~5!4͐nPoOx Eoͅ}> G0o:~xZo/<2G!~wÀm͖n:goCpuusju:!w#wŒosj!:wgopm ʠo:2͠oZnFoTZn>2pmo0t!~o>T>Fw> #w#w#w9j> o> o>O}2O!nv:ii=_^#V ^#V p0p*|o!~5ƒp:*p!50p*F#"p!~!!r]WNLCA3Me )~R(}-|/zwrD^ vVv`]tBpfk6[tZv|v'DpL+w"z|"3}(v1~j1R7A 5dDO6Xa^b )fSyh@j "IN'qGp*#"#hq*#"#~'nqEs:=q!4!"r2Es*+"|Es*PHU=(20A4)(20A4)7Y-X7Y(18A4)(' DATA BASE INITIALIZED ')(' THIS IS THE DATA INPUT GENERATION PROGRAM')(' PLEASE ENTER MODE OF OPERATION ')(A4)(' INPUT MODE')(' DISPLAY MODE')(' EDIT MODE')(' END OF DATA INPUT GENERATION PROGRAM ')(' YOUR OUTPUT FILE IS FORT09.DAT ')W3~U!9YTi!"U!"U*U))"U*U!P͟h*U"U*U!5Y>h*U#>>(W*U#>>"W{p!"VV!9YTi!"U*U))"U*V!P͟h*UY"U*U!5Y>h*U#>>W{p*V#>>uW!"V VV!9YDi!"U*U))"U*V!H͟h*<6~!~D~"r~.B2v&~=9ȺUjw2}¼j<HHZu}v/iS+6\qg>Zmn~@~%~x~h}ƷN}5<}./}`*V+}2VY*U~og"UWhXXXYhXV!;YWi{p!IN"UͳZtXV!;YWi{p!DP"UtXV!;YWi{p!ED"UtXV!;YWi{pV!;YWi{ph P(' SPECIFY INPUT FORMAT...')(A4)(' SPECIFY LEVEL OF PROMPTING...')(' ICMDPT ',I3,' ISBGRP ',I3)(2X,' FORMAT ',I3,'LEVEL ',I3)YY(' ICONFG ',I10,' TEXT POINTER',I10,' # CARDS ',I10)(' CARD NO. ',I3)9(20A4/)(18A4/)(80A1)(80A1/)u(' *ERROR* COL41 ON THIS CARD MUST BE BLANK')nZpZ(' CLEAN BUFOUT')(' END OF INPUT')(' EXIT INPUT MODE')!">Y*>YHU"@Y> *@Yw*>Y#>P>ZBY!4`Wi{p^Y!4`TiT!0`>h{p!"bY!"dYdY!bY`*dY+}|C  a ) Ge,}w{yv$tqBol`jg~e c`+^[IYVgTQOMJ2HEPC`WiYgY!0`>h{p*gY+}2fY[*%"U*gY++}2fY\*'"U*gY+++}2fY$\*)"U*gY}2fYA\*+"U*U"@Y~og"Y*@Y~og"YY!4`WiYU!0`>h{pZ!4`Wi*U"@Y*@Y!0`>h{p*U~og"Z!">YZ!4`Wi!">Y*>Y))"@Y*Y!P͟h*@YY"Z*Z!0`>h*>Y#>>\{p*Y#"Y*>Y#*Z{z\*Y+}2fY®]*U"@Y~og"Y*@Y~og"Z!"!Z#Z!4`Wi!">Y*>Y))"@Y*Y!H͟h*@Y"Z*Z!0`>h*>Y#>>Z]{p*Y#"Y*!Z#*Z{zK]!">Y*U~og"bYWhJ^l^o^^^!">Y*Z!4`Ti!"Y*YT"@Y*@Y!0`>h*Y#>P>]{p0Z!4`WiT!2`>h{p0Z!6`WiT!2`>h{p:_ltal|clnelhgllil>xklmlolpql@tldEvl$xlzl=}ll4mNmmm7mΒmmh^ md m$H mmQmm}m|!mrm(mEm.m8mrmF!m#mn%m'm">Y*U"@Y*>Y!͟h*@Y~og"lZ!P"nZrZlZ!IUͤf!"vZ!">Y*lZHU"@Y*vZ! ͟h*@Y~og"vZ*lZ#"lZ*>Y#*pZ{z_*U"@Y*>Y!͟h*@Y@~og"xZ"Z:vZ*Zw*>Y#*jZ{z^*>Y#*Y{z]0Z!6`WiIU!2`>h{pzZ!4`Wi{p!">Y*>YHU"@Y> *@Yw*>Y#>P>_*U~og"U}2fY`A\Z!4`Wi{pZ!4`Wi{pP bYdY('1 ILLEGAL COMMAND, PLEASE RESPECIFY ')(A4)bYdY(' K=',I4,' IVALUE=',I4,' FLAG= ',I2)(20A4/)('1 EXIT ',A2,' ,YES OR NO ? ')(A4)('1 PLEASE ENTER CORRECT INPUT')"9`";`!"=`*=`))"?`!TͰv*?`ͽg2A`Ka*=`#>>`B`!bWi{pj`!bTiT!b>h{p`r`!bWi*9`"n`Y0[n`]D_1a&c$e,gsh{p`!bTi`!b>h{p`!bWi`!b>h{p!`Ͱv!YEͷg2A`‘b`!bWi{pj`!bTiT!b>h{p`!*;`s#r*=`"U!*;`s#r7Z.990 12.0 0 20 1 1 0 1 1 4 1 2 (80A1)Q"bb(2X,4A1,5X,A4)(' INPUT IS A COMMAND ')(20A4) E!(80A1)bb(' *ERROR*',2X,I3,' FIELDS MISSING')(' OUTPUT BUFFER '/80A1)"bb!jfTib!ff>h{p!"bbb!bͤf*b}2ce*b}=2cd*b"c!"c*cT"c*cb~*cw*c#"c*c#>>c c!jfWiT!hf>hT!df>h{p!"c*c))"c!TͰv*cͽg2ctd*c#>>?ddc!jf&THW FILTER HHLHLHHLHLHH )mmm[4 [[_\x2y2*~22##^#V*"4 ͞?=:<2*####"s["*":2:2:2s[*"> 2[**##s#rë[*####~w[**#####:w#s#r*":2:2**""!Fwp!FwpG*>রw*>G#N!X~**͑\*͐\*͐\*y͐\*{s#r#*r*p4 *"r͞?BÞ?*:G:w#:w*s#r}o|g͎T>7*| ʟ_"*"! ~ ]=]#\N#~#^#V" 6]! ͓<=K]#%]͗V*4 \e x>[]2v*""B""*"Ó]***\++++*#4 ھ]++~‘]+~’]###*\"ѯ*P*#s#r"**\^WTZOCE4 OP-~:y-} |khzYw rv+v u!8mKtvtuU0zpx!wzf_ |e/}.~\o!PP 4DO XEF^bP"fyh j!{ "x*"*]"*a":2{:2|*p"yv:N,ʍ^!T^"2!N6(NQK>=͋a!6 !6͕.L͞?:!.__)_:__ ._:@OCͬ ._>}iB!a"@*͞?*"]:2a:{2:|2*y"pU *"*w4 4_!a"w"*P#"P>iB !9*4 !"! 65`_&:a_*".L(C͞?K:_2*"]!a6U_2(C:$`*c|$`.L"]22go"cK2O2!":N@`d_2o_:2E2!"s`͓E͓N͓D͓/> ͗V_<͎T:E2͓)`(`,`/\=~`\͎͎T:N,x:N=`:T^> ͗V:E2͎T ͓\Ã`\͎:<aG:Iax¸~` ~ȖB~p~BtV@s7Z8TPjnw`}6FpF}Jwj2|T7R^s?HRo~fA~8~~Yi}N}H2<}/}@:/! ^#V#<b>b>b>b>h]p`!b9i`!~b>h]p!`͒v!YE͙g2#`sb`!b9i]pL`!b6iT!~b>h]p`!*`s#r*`"U!*`s#r7Z.990 12.0 0 20 1 1 0 1 1 4 1 2 (80A1)Qbb(2X,4A1,5X,A4)(' INPUT IS A COMMAND ')(20A4) E(80A1)bb(' *ERROR*',2X,I3,' FIELDS MISSING')(' OUTPUT BUFFER '/80A1)"bb!Lf6ib!Hf>h]p!"bbb!b͆f*b}2be*b}=2b¦d*b"b!"b*bT"b*bb~*bw*b#"b*b#>>cb!Lf9iT!Jf>hT!Ff>h]p!"mmmg"c*b"c*b"!c!"b*cT"b*cb~*bw*c+"c*c+"c*b#*!c{zd#c!Lf9iT!Hf>h]p*b")c*b#"b+cb!b͆f*b}2be*c#"c"b*U! ́h*b~og"c*b"c*b"!c!"b*cT"b*cb~*bw*c+"c*c+"c*b#*!c{ze-e*U"b*c*b~og{ozg}?2b.f*U~og*c{ozg"b/c!Lf9ib!Ff>h]p!*bs#rEfSc!Lf9iT!Hf>h]pPIUlZnZpZ (80A1)(' NO WORD FOUND ')(' KK= ',I10)"Of"Qf>!SfSw*Qf~2Xfog"`f*`f+*Of~!Wf2bff*`f#>P>f!Q*Qfs#r6g:`f2Yf:Yfog"f*f+*Of~!Wf2bf g*f#>P>f*`f*Qfs#r*f+*Sfs#r*Qf~#fo{ozg#*Ufs#r+h@gͳv^WTZOCE4 OP-~:y-} |khzYw rv+v u!8mKtvtuU0zpx!wzf_ |e/}.~\o!PP 4DO XEF^bP"fyh j! ~͙~#gg> 2!ST"!OP" ! " g-~LUX)!"dhXuͱhhxh|WhWhPh)+~#foo&)#PhO_yW!~/woG}_}W}Oͱh͞v||DM!>))җh =h!~7w?##wy7O**"">h>h>h>2ewyw~#fo"yw"~*"~:i͆jh%rhͅ}>22<2Oi>2>i2<>i>222~#fo"!"~~#+]i!"!9##"h:~igo"""ìi!>Sw*~#”igo"*~#¢igo"*~#fo"222222~go""~@v*|i͗r*"(qͅ}2~2~<2:>o/u@mj j> 0swi:/0s~` ~ȖB~p~BtV@s7Z8TPjnw`}6FpF}Jwj2|T7R^s?HRo~fA~8~~Yi}N}H2<}/}jw# j*~+"~|j<*k>G!~60#=u!4:0wu0k"~:dk w+Tkw!~|yk}yk!4#"|/W}/_*">2~:ZnXt:G:kx2~"k:k2͗p:k0p!~5k2 pl**DM*pm+|l""Es**Fp*#"*+"|##mEs!:~O5fm:~kmkm*~ ~ 2!~q>]m> ]m@mym !4pm:mmm!~4:o:;n}o:~g"0t!m=uv:=^n=inͅ}:og"go""2>2Xt:"k:2~2͗p͠oànpm  n>00ڱn:ұn02>ɯ22͠o-n>2n+n͠o0t!~5!4go:.n>22go:mE oDo͠o+o-"o>2~͠oy2!~5!4͐nPoOx Eoͅ}> G0o:~xZo/<2G!~wÀm͖n:goCpuusju:!w#wŒosj!:wgopm ʠo:2͠oZnFoTZn>2pmo0t!~o>T>Fw> #w#w#w9j> o> o>O}2O!nv:ii=_^#V ^#V p0p*|o!~5ƒp:*p!50p*F#"p!~!!^WTZOCE4 OP-~:y-} |khzYw rv+v u!8mKtvtuU0zpx!wzf_ |e/}.~\o!PP 4DO XEF^bP"fyh j "IN'qGp*#"#hq*#"#~'nqEs:=q!4!"r2Es*+"|Es*PHU=(20A4)(20A4)7Y-X7Y(18A4)(' DATA BASE INITIALIZED ')(' THIS IS THE DATA INPUT GENERATION PROGRAM')(' PLEASE ENTER MODE OF OPERATION ')(A4)(' INPUT MODE')(' DISPLAY MODE')(' EDIT MODE')(' END OF DATA INPUT GENERATION PROGRAM ')(' YOUR OUTPUT FILE IS FORT09.DAT ')W3~U!9YTi!"U!"U*U))"U*U!P͟h*U"U*U!5Y>h*U#>>(W*U#>>"W{p!"VV!9YTi!"U*U))"U*V!P͟h*UY"U*U!5Y>h*U#>>W{p*V#>>uW!"V VV!9YDi!"U*U))"U*V!H͟h*~` ~ȖB~p~BtV@s7Z8TPjnw`}6FpF}Jwj2|T7R^s?HRo~fA~8~~Yi}N}H2<}/}`*V+}2VY*U~og"UWhXXXYhXV!;YWi{p!IN"UͳZtXV!;YWi{p!DP"UtXV!;YWi{p!ED"UtXV!;YWi{pV!;YWi{ph P(' SPECIFY INPUT FORMAT...')(A4)(' SPECIFY LEVEL OF PROMPTING...')(' ICMDPT ',I3,' ISBGRP ',I3)(2X,' FORMAT ',I3,'LEVEL ',I3)YY(' ICONFG ',I10,' TEXT POINTER',I10,' # CARDS ',I10)(' CARD NO. ',I3)9(20A4/)(18A4/)(80A1)(80A1/)u(' *ERROR* COL41 ON THIS CARD MUST BE BLANK')nZpZ(' CLEAN BUFOUT')(' END OF INPUT')(' EXIT INPUT MODE')!">Y*>YHU"@Y> *@Yw*>Y#>P>ZBY!4`Wi{p^Y!4`TiT!0`>h{p!"bY!"dYdY!bY`*dY+}|C  a ) Ge,}w{yv$tqBol`jg~e c`+^[IYVgTQOMJ2HEPC`WiYgY!0`>h{p*gY+}2fY[*%"U*gY++}2fY\*'"U*gY+++}2fY$\*)"U*gY}2fYA\*+"U*U"@Y~og"Y*@Y~og"YY!4`WiYU!0`>h{pZ!4`Wi*U"@Y*@Y!0`>h{p*U~og"Z!">YZ!4`Wi!">Y*>Y))"@Y*Y!P͟h*@YY"Z*Z!0`>h*>Y#>>\{p*Y#"Y*>Y#*Z{z\*Y+}2fY®]*U"@Y~og"Y*@Y~og"Z!"!Z#Z!4`Wi!">Y*>Y))"@Y*Y!H͟h*@Y"Z*Z!0`>h*>Y#>>Z]{p*Y#"Y*!Z#*Z{zK]!">Y*U~og"bYWhJ^l^o^^^!">Y*Z!4`Ti!"Y*YT"@Y*@Y!0`>h*Y#>P>]{p0Z!4`WiT!2`>h{p0Z!6`WiT!2`>h{p:_ltal|clnelhgllil>xklmlolpql@tldEvl$xlzl=}ll4mNmmm7mΒmmh^ md m$H mmQmm}m|!mrm(mEm.m8mrmF!m#mn%m'm">Y*U"@Y*>Y!͟h*@Y~og"lZ!P"nZrZlZ!IUͤf!"vZ!">Y*lZHU"@Y*vZ! ͟h*@Y~og"vZ*lZ#"lZ*>Y#*pZ{z_*U"@Y*>Y!͟h*@Y@~og"xZ"Z:vZ*Zw*>Y#*jZ{z^*>Y#*Y{z]0Z!6`WiIU!2`>h{pzZ!4`Wi{p!">Y*>YHU"@Y> *@Yw*>Y#>P>_*U~og"U}2fY`A\Z!4`Wi{pZ!4`Wi{pP bYdY('1 ILLEGAL COMMAND, PLEASE RESPECIFY ')(A4)bYdY(' K=',I4,' IVALUE=',I4,' FLAG= ',I2)(20A4/)('1 EXIT ',A2,' ,YES OR NO ? ')(A4)('1 PLEASE ENTER CORRECT INPUT')"9`";`!"=`*=`))"?`!TͰv*?`ͽg2A`Ka*=`#>>`B`!bWi{pj`!bTiT!b>h{p`r`!bWi*9`"n`Y0[n`]D_1a&c$e,gsh{p`!bTi`!b>h{p`!bWi`!b>h{p!`Ͱv!YEͷg2A`‘b`!bWi{pj`!bTiT!b>h{p`!*;`s#r*=`"U!*;`s#r7Z.990 12.0 0 20 1 1 0 1 1 4 1 2 (80A1)Q"bb(2X,4A1,5X,A4)(' INPUT IS A COMMAND ')(20A4) E!(80A1)bb(' *ERROR*',2X,I3,' FIELDS MISSING')(' OUTPUT BUFFER '/80A1)"bb!jfTib!ff>h{p!"bbb!bͤf*b}2ce*b}=2cd*b"c!"c*cT"c*cb~*cw*c#"c*c#>>c c!jfWiT!hf>hT!df>h{p!"c*c))"c!TͰv*cͽg2ctd*c#>>?ddc!jf 2[**##s#rë[*####~w[**#####:w#s#r*":2:2**""!Fwp!FwpG*>রw*>G#N!X~**͑\*͐\*͐\*y͐\*{s#r#*r*p4 *"r͞?BÞ?*:G:w#:w*s#r}o|g͎T>7*| ʟ_"*"! ~ ]=]#\N#~#^#V" 6]! ͓<=K]#%]͗V*4 \e x>[]2v*""B""*"Ó]***\++++*#4 ھ]++~‘]+~’]###*\"ѯ*P*#s#r"**\6ls-pݛl7f[#K/EP0  }"q#,|HW}V~B>~rme}}{H r ){ }vl}v~~N}ܥ||tl&}41L]\fm p.s(Uuvv'w~w!{ "x*"*]"*a":2{:2|*p"yv:N,ʍ^!T^"2!N6(NQK>=͋a!6 !6͕.L͞?:!.__)_:__ ._:@OCͬ ._>}iB!a"@*͞?*"]:2a:{2:|2*y"pU *"*w4 4_!a"w"*P#"P>iB !9*4 !"! 65`_&:a_*".L(C͞?K:_2*"]!a6U_2(C:$`*c|$`.L"]22go"cK2O2!":N@`d_2o_:2E2!"s`͓E͓N͓D͓/> ͗V_<͎T:E2͓)`(`,`/\=~`\͎͎T:N,x:N=`:T^> ͗V:E2͎T ͓\Ã`\͎:<aG:Iax¸o0y{zxn5qb[> \R=fv.^2k64Xr!L~ ~2%I}R}?p|HmF|*|ޑ| |2|@:/! ^#V#<b>b>b>b>h]p`!b9i`!~b>h]p!`͒v!YE͙g2#`sb`!b9i]pL`!b6iT!~b>h]p`!*`s#r*`"U!*`s#r7Z.990 12.0 0 20 1 1 0 1 1 4 1 2 (80A1)Qbb(2X,4A1,5X,A4)(' INPUT IS A COMMAND ')(20A4) E(80A1)bb(' *ERROR*',2X,I3,' FIELDS MISSING')(' OUTPUT BUFFER '/80A1)"bb!Lf6ib!Hf>h]p!"bbb!b͆f*b}2be*b}=2b¦d*b"b!"b*bT"b*bb~*bw*b#"b*b#>>cb!Lf9iT!Jf>hT!Ff>h]p!"mmm mmmg"c*b"c*b"!c!"b*cT"b*cb~*bw*c+"c*c+"c*b#*!c{zd#c!Lf9iT!Hf>h]p*b")c*b#"b+cb!b͆f*b}2be*c#"c"b*U! ́h*b~og"c*b"c*b"!c!"b*cT"b*cb~*bw*c+"c*c+"c*b#*!c{ze-e*U"b*c*b~og{ozg}?2b.f*U~og*c{ozg"b/c!Lf9ib!Ff>h]p!*bs#rEfSc!Lf9iT!Hf>h]pPIUlZnZpZ (80A1)(' NO WORD FOUND ')(' KK= ',I10)"Of"Qf>!SfSw*Qf~2Xfog"`f*`f+*Of~!Wf2bff*`f#>P>f!Q*Qfs#r6g:`f2Yf:Yfog"f*f+*Of~!Wf2bf g*f#>P>f*`f*Qfs#r*f+*Sfs#r*Qf~#fo{ozg#*Ufs#r+h@gͳv6ls-pݛl7f[#K/EP0  }"q#,|HW}V~B>~rme}}{H r ){ }vl}v~~N}ܥ||tl&}41L]\fm p.s(Uuvv'w~w! ~͙~#gg> 2!ST"!OP" ! " g-~LUX)!"dhXuͱhhxh|WhWhPh)+~#foo&)#PhO_yW!~/woG}_}W}Oͱh͞v||DM!>))җh =h!~7w?##wy7O**"">h>h>h>2ewyw~#fo"yw"~*"~:i͆jh%rhͅ}>22<2Oi>2>i2<>i>222~#fo"!"~~#+]i!"!9##"h:~igo"""ìi!>Sw*~#”igo"*~#¢igo"*~#fo"222222~go""~@v*|i͗r*"(qͅ}2~2~<2:>o/u@mj j> 0swi:/0so0y{zxn5qb[> \R=fv.^2k64Xr!L~ ~2%I}R}?p|HmF|*|ޑ| |2|jw# j*~+"~|j<*k>G!~60#=u!4:0wu0k"~:dk w+Tkw!~|yk}yk!4#"|/W}/_*">2~:ZnXt:G:kx2~"k:k2͗p:k0p!~5k2 pl**DM*pm+|l""Es**Fp*#"*+"|##mEs!:~O5fm:~kmkm*~ ~ 2!~q>]m> ]m@mym !4pm:mmm mmm!~4:o:;n}o:~g"0t!m=uv:=^n=inͅ}:og"go""2>2Xt:"k:2~2͗p͠oànpm  n>00ڱn:ұn02>ɯ22͠o-n>2n+n͠o0t!~5!4go:.n>22go:mE oDo͠o+o-"o>2~͠oy2!~5!4͐nPoOx Eoͅ}> G0o:~xZo/<2G!~wÀm͖n:goCpuusju:!w#wŒosj!:wgopm ʠo:2͠oZnFoTZn>2pmo0t!~o>T>Fw> #w#w#w9j> o> o>O}2O!nv:ii=_^#V ^#V p0p*|o!~5ƒp:*p!50p*F#"p!~!!6ls-pݛl7f[#K/EP0  }"q#,|HW}V~B>~rme}}{H r ){ }vl}v~~N}ܥ||tl&}41L]\fm p.s(Uuvv'w~w "IN'qGp*#"#hq*#"#~'nqEs:=q!4!"r2Es*+"|Es*PHU=(20A4)(20A4)7Y-X7Y(18A4)(' DATA BASE INITIALIZED ')(' THIS IS THE DATA INPUT GENERATION PROGRAM')(' PLEASE ENTER MODE OF OPERATION ')(A4)(' INPUT MODE')(' DISPLAY MODE')(' EDIT MODE')(' END OF DATA INPUT GENERATION PROGRAM ')(' YOUR OUTPUT FILE IS FORT09.DAT ')W3~U!9YTi!"U!"U*U))"U*U!P͟h*U"U*U!5Y>h*U#>>(W*U#>>"W{p!"VV!9YTi!"U*U))"U*V!P͟h*UY"U*U!5Y>h*U#>>W{p*V#>>uW!"V VV!9YDi!"U*U))"U*V!H͟h*o0y{zxn5qb[> \R=fv.^2k64Xr!L~ ~2%I}R}?p|HmF|*|ޑ| |2|`*V+}2VY*U~og"UWhXXXYhXV!;YWi{p!IN"UͳZtXV!;YWi{p!DP"UtXV!;YWi{p!ED"UtXV!;YWi{pV!;YWi{ph P(' SPECIFY INPUT FORMAT...')(A4)(' SPECIFY LEVEL OF PROMPTING...')(' ICMDPT ',I3,' ISBGRP ',I3)(2X,' FORMAT ',I3,'LEVEL ',I3)YY(' ICONFG ',I10,' TEXT POINTER',I10,' # CARDS ',I10)(' CARD NO. ',I3)9(20A4/)(18A4/)(80A1)(80A1/)u(' *ERROR* COL41 ON THIS CARD MUST BE BLANK')nZpZ(' CLEAN BUFOUT')(' END OF INPUT')(' EXIT INPUT MODE')!">Y*>YHU"@Y> *@Yw*>Y#>P>ZBY!4`Wi{p^Y!4`TiT!0`>h{p!"bY!"dYdY!bY`*dY+}|C  a ) Ge,}w{yv$tqBol`jg~e c`+^[IYVgTQOMJ2HEPC`WiYgY!0`>h{p*gY+}2fY[*%"U*gY++}2fY\*'"U*gY+++}2fY$\*)"U*gY}2fYA\*+"U*U"@Y~og"Y*@Y~og"YY!4`WiYU!0`>h{pZ!4`Wi*U"@Y*@Y!0`>h{p*U~og"Z!">YZ!4`Wi!">Y*>Y))"@Y*Y!P͟h*@YY"Z*Z!0`>h*>Y#>>\{p*Y#"Y*>Y#*Z{z\*Y+}2fY®]*U"@Y~og"Y*@Y~og"Z!"!Z#Z!4`Wi!">Y*>Y))"@Y*Y!H͟h*@Y"Z*Z!0`>h*>Y#>>Z]{p*Y#"Y*!Z#*Z{zK]!">Y*U~og"bYWhJ^l^o^^^!">Y*Z!4`Ti!"Y*YT"@Y*@Y!0`>h*Y#>P>]{p0Z!4`WiT!2`>h{p0Z!6`WiT!2`>h{p:_ltal|clnelhgllil>xklmlolpql@tldEvl$xlzl=}ll4mNmmm7mΒmmh^ md m$H mmQmm}m|!mrm(mEm.m8mrmF!m#mn%m'm">Y*U"@Y*>Y!͟h*@Y~og"lZ!P"nZrZlZ!IUͤf!"vZ!">Y*lZHU"@Y*vZ! ͟h*@Y~og"vZ*lZ#"lZ*>Y#*pZ{z_*U"@Y*>Y!͟h*@Y@~og"xZ"Z:vZ*Zw*>Y#*jZ{z^*>Y#*Y{z]0Z!6`WiIU!2`>h{pzZ!4`Wi{p!">Y*>YHU"@Y> *@Yw*>Y#>P>_*U~og"U}2fY`A\Z!4`Wi{pZ!4`Wi{pP bYdY('1 ILLEGAL COMMAND, PLEASE RESPECIFY ')(A4)bYdY(' K=',I4,' IVALUE=',I4,' FLAG= ',I2)(20A4/)('1 EXIT ',A2,' ,YES OR NO ? ')(A4)('1 PLEASE ENTER CORRECT INPUT')"9`";`!"=`*=`))"?`!TͰv*?`ͽg2A`Ka*=`#>>`B`!bWi{pj`!bTiT!b>h{p`r`!bWi*9`"n`Y0[n`]D_1a&c$e,gsh{p`!bTi`!b>h{p`!bWi`!b>h{p!`Ͱv!YEͷg2A`‘b`!bWi{pj`!bTiT!b>h{p`!*;`s#r*=`"U!*;`s#r7Z.990 12.0 0 20 1 1 0 1 1 4 1 2 (80A1)Q"bb(2X,4A1,5X,A4)(' INPUT IS A COMMAND ')(20A4) E!(80A1)bb(' *ERROR*',2X,I3,' FIELDS MISSING')(' OUTPUT BUFFER '/80A1)"bb!jfTib!ff>h{p!"bbb!bͤf*b}2ce*b}=2cd*b"c!"c*cT"c*cb~*cw*c#"c*c#>>c c!jfWiT!hf>hT!df>h{p!"c*c))"c!TͰv*cͽg2ctd*c#>>?ddc!jf&THW FILTER HLLHLHLLHLHLLH )@m[4 [[_\x2y2*~22##^#V*"4 ͞?=:<2*####"s["*":2:2:2s[*"> 2[**##s#rë[*####~w[**#####:w#s#r*":2:2**""!Fwp!FwpG*>রw*>G#N!X~**͑\*͐\*͐\*y͐\*{s#r#*r*p4 *"r͞?BÞ?*:G:w#:w*s#r}o|g͎T>7*| ʟ_"*"! ~ ]=]#\N#~#^#V" 6]! ͓<=K]#%]͗V*4 \e x>[]2v*""B""*"Ó]***\++++*#4 ھ]++~‘]+~’]###*\"ѯ*P*#s#r"**\psp=͋a!6 !6͕.L͞?:!.__)_:__ ._:@OCͬ ._>}iB!a"@*͞?*"]:2a:{2:|2*y"pU *"*w4 4_!a"w"*P#"P>iB !9*4 !"! 65`_&:a_*".L(C͞?K:_2*"]!a6U_2(C:$`*c|$`.L"]22go"cK2O2!":N@`d_2o_:2E2!"s`͓E͓N͓D͓/> ͗V_<͎T:E2͓)`(`,`/\=~`\͎͎T:N,x:N=`:T^> ͗V:E2͎T ͓\Ã`\͎:<aG:Iax>H|s|(}UM}]H~v/R~T Fz|#9r1nrt:kdZP$ZHanTz{{8pcQM\\fvfk)5TsjtM~Ă ~I}N}lp|F|(*|>|` |`|@:/! ^#V#<b>b>b>b>h]p`!b9i`!~b>h]p!`͒v!YE͙g2#`sb`!b9i]pL`!b6iT!~b>h]p`!*`s#r*`"U!*`s#r7Z.990 12.0 0 20 1 1 0 1 1 4 1 2 (80A1)Qbb(2X,4A1,5X,A4)(' INPUT IS A COMMAND ')(20A4) E(80A1)bb(' *ERROR*',2X,I3,' FIELDS MISSING')(' OUTPUT BUFFER '/80A1)"bb!Lf6ib!Hf>h]p!"bbb!b͆f*b}2be*b}=2b¦d*b"b!"b*bT"b*bb~*bw*b#"b*b#>>cb!Lf9iT!Jf>hT!Ff>h]p!"@mg"c*b"c*b"!c!"b*cT"b*cb~*bw*c+"c*c+"c*b#*!c{zd#c!Lf9iT!Hf>h]p*b")c*b#"b+cb!b͆f*b}2be*c#"c"b*U! ́h*b~og"c*b"c*b"!c!"b*cT"b*cb~*bw*c+"c*c+"c*b#*!c{ze-e*U"b*c*b~og{ozg}?2b.f*U~og*c{ozg"b/c!Lf9ib!Ff>h]p!*bs#rEfSc!Lf9iT!Hf>h]pPIUlZnZpZ (80A1)(' NO WORD FOUND ')(' KK= ',I10)"Of"Qf>!SfSw*Qf~2Xfog"`f*`f+*Of~!Wf2bff*`f#>P>f!Q*Qfs#r6g:`f2Yf:Yfog"f*f+*Of~!Wf2bf g*f#>P>f*`f*Qfs#r*f+*Sfs#r*Qf~#fo{ozg#*Ufs#r+h@gͳv¿psp 2!ST"!OP" ! " g-~LUX)!"dhXuͱhhxh|WhWhPh)+~#foo&)#PhO_yW!~/woG}_}W}Oͱh͞v||DM!>))җh =h!~7w?##wy7O**"">h>h>h>2ewyw~#fo"yw"~*"~:i͆jh%rhͅ}>22<2Oi>2>i2<>i>222~#fo"!"~~#+]i!"!9##"h:~igo"""ìi!>Sw*~#”igo"*~#¢igo"*~#fo"222222~go""~@v*|i͗r*"(qͅ}2~2~<2:>o/u@mj j> 0swi:/0s>H|s|(}UM}]H~v/R~T Fz|#9r1nrt:kdZP$ZHanTz{{8pcQM\\fvfk)5TsjtM~Ă ~I}N}lp|F|(*|>|` |`|jw# j*~+"~|j<*k>G!~60#=u!4:0wu0k"~:dk w+Tkw!~|yk}yk!4#"|/W}/_*">2~:ZnXt:G:kx2~"k:k2͗p:k0p!~5k2 pl**DM*pm+|l""Es**Fp*#"*+"|##mEs!:~O5fm:~kmkm*~ ~ 2!~q>]m> ]m@mym !4pm:@m!~4:o:;n}o:~g"0t!m=uv:=^n=inͅ}:og"go""2>2Xt:"k:2~2͗p͠oànpm  n>00ڱn:ұn02>ɯ22͠o-n>2n+n͠o0t!~5!4go:.n>22go:mE oDo͠o+o-"o>2~͠oy2!~5!4͐nPoOx Eoͅ}> G0o:~xZo/<2G!~wÀm͖n:goCpuusju:!w#wŒosj!:wgopm ʠo:2͠oZnFoTZn>2pmo0t!~o>T>Fw> #w#w#w9j> o> o>O}2O!nv:ii=_^#V ^#V p0p*|o!~5ƒp:*p!50p*F#"p!~!!psph*U#>>(W*U#>>"W{p!"VV!9YTi!"U*U))"U*V!P͟h*UY"U*U!5Y>h*U#>>W{p*V#>>uW!"V VV!9YDi!"U*U))"U*V!H͟h*>H|s|(}UM}]H~v/R~T Fz|#9r1nrt:kdZP$ZHanTz{{8pcQM\\fvfk)5TsjtM~Ă ~I}N}lp|F|(*|>|` |`|`*V+}2VY*U~og"UWhXXXYhXV!;YWi{p!IN"UͳZtXV!;YWi{p!DP"UtXV!;YWi{p!ED"UtXV!;YWi{pV!;YWi{ph P(' SPECIFY INPUT FORMAT...')(A4)(' SPECIFY LEVEL OF PROMPTING...')(' ICMDPT ',I3,' ISBGRP ',I3)(2X,' FORMAT ',I3,'LEVEL ',I3)YY(' ICONFG ',I10,' TEXT POINTER',I10,' # CARDS ',I10)(' CARD NO. ',I3)9(20A4/)(18A4/)(80A1)(80A1/)u(' *ERROR* COL41 ON THIS CARD MUST BE BLANK')nZpZ(' CLEAN BUFOUT')(' END OF INPUT')(' EXIT INPUT MODE')!">Y*>YHU"@Y> *@Yw*>Y#>P>ZBY!4`Wi{p^Y!4`TiT!0`>h{p!"bY!"dYdY!bY`*dY+}|C  a ) Ge,}w{yv$tqBol`jg~e c`+^[IYVgTQOMJ2HEPC`WiYgY!0`>h{p*gY+}2fY[*%"U*gY++}2fY\*'"U*gY+++}2fY$\*)"U*gY}2fYA\*+"U*U"@Y~og"Y*@Y~og"YY!4`WiYU!0`>h{pZ!4`Wi*U"@Y*@Y!0`>h{p*U~og"Z!">YZ!4`Wi!">Y*>Y))"@Y*Y!P͟h*@YY"Z*Z!0`>h*>Y#>>\{p*Y#"Y*>Y#*Z{z\*Y+}2fY®]*U"@Y~og"Y*@Y~og"Z!"!Z#Z!4`Wi!">Y*>Y))"@Y*Y!H͟h*@Y"Z*Z!0`>h*>Y#>>Z]{p*Y#"Y*!Z#*Z{zK]!">Y*U~og"bYWhJ^l^o^^^!">Y*Z!4`Ti!"Y*YT"@Y*@Y!0`>h*Y#>P>]{p0Z!4`WiT!2`>h{p0Z!6`WiT!2`>h{p:_ltal|clnelhgllil>xklmlolpql@tldEvl$xlzl=}ll4mNmmm7mΒmmh^ md m$H mmQmm}m|!mrm(mEm.m8mrmF!m#mn%m'm">Y*U"@Y*>Y!͟h*@Y~og"lZ!P"nZrZlZ!IUͤf!"vZ!">Y*lZHU"@Y*vZ! ͟h*@Y~og"vZ*lZ#"lZ*>Y#*pZ{z_*U"@Y*>Y!͟h*@Y@~og"xZ"Z:vZ*Zw*>Y#*jZ{z^*>Y#*Y{z]0Z!6`WiIU!2`>h{pzZ!4`Wi{p!">Y*>YHU"@Y> *@Yw*>Y#>P>_*U~og"U}2fY`A\Z!4`Wi{pZ!4`Wi{pP bYdY('1 ILLEGAL COMMAND, PLEASE RESPECIFY ')(A4)bYdY(' K=',I4,' IVALUE=',I4,' FLAG= ',I2)(20A4/)('1 EXIT ',A2,' ,YES OR NO ? ')(A4)('1 PLEASE ENTER CORRECT INPUT')"9`";`!"=`*=`))"?`!TͰv*?`ͽg2A`Ka*=`#>>`B`!bWi{pj`!bTiT!b>h{p`r`!bWi*9`"n`Y0[n`]D_1a&c$e,gsh{p`!bTi`!b>h{p`!bWi`!b>h{p!`Ͱv!YEͷg2A`‘b`!bWi{pj`!bTiT!b>h{p`!*;`s#r*=`"U!*;`s#r7Z.990 12.0 0 20 1 1 0 1 1 4 1 2 (80A1)Q"bb(2X,4A1,5X,A4)(' INPUT IS A COMMAND ')(20A4) E!(80A1)bb(' *ERROR*',2X,I3,' FIELDS MISSING')(' OUTPUT BUFFER '/80A1)"bb!jfTib!ff>h{p!"bbb!bͤf*b}2ce*b}=2cd*b"c!"c*cT"c*cb~*cw*c#"c*c#>>c c!jfWiT!hf>hT!df>h{p!"c*c))"c!TͰv*cͽg2ctd*c#>>?ddc!jfTHW FILTER HLLHLHLLHLHLLH