mike2@lcuxa.UUCP (M S Slomin) (11/07/86)
Below is a uuencoded form of a public domain 'lint'-like program
I picked up along the way. It checks for the most obvious errors
(mismatched braces, etc.) but hardly qualifies as a true lint
program. Nevertheless, it is better than nothing. It may be of
some use, so here it is:
-------------------------------CUT HERE--------------------------
begin 700 lint.exe
M35I``!<``0`@`"P!__\@`O(:``#Z'```(`````````#['```````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M``````````````````````!5B^R#Q/I75L<&Z`H``,<&Z@H``,=&^@$`@WX$
M`79JBW[ZT>>+7@:+&8`_+75;N`(`4(M>!O\QZ&L<@\0$A<!U!/\&Z@JX!0!0
MBW[ZT>>+7@;_,>A/'(/$!(7`=0;'!N@*_O^X"`!0BW[ZT>>+7@;_,>@Q'(/$
M!(7`=0;'!N@*_O__1OK_3@3KD,<&R@H!`,=&_```,\#'!N0*``"CX@K'!LX*
M`0#'!M`*``#'!M(*``#'!MP*``"CX`JCW@JCV@JCV`K'!N8*``"#/N@*_GX&
MQP;H"@``,\!0Z&4,@\0"@WX$`74.QP;,"EH&QP;L"@``ZT6X"P!0BW[ZT>>+
M7@;_,>@]$8/$!*/,"H7`=1V+?OK1YXM>!O\Q_S>X#0!0N&<&4.BF$8/$".E#
M"(M^^M'GBUX&BP&C[`KH6PB+\(O&N?__.\%U`^F-!H,^Z@H"=56AU`J)1O[K
M1_]V_E:X(@!0Z,H1@\0&BT;^B]#1X`/"T>"+V/^W2@GH-0R#Q`*+1OZ+T-'@
M`\+1X(O8_[=."?^W3`FX+P!0Z)01@\0&_T[^@W[^`'^SB\;I$@;_-LP*N"``
M4.A>%(/$!(L>[@J#/PAU#(,N[@H&@R[4"@'KZXL>[@J#/P=U#8,N[@H&@R[4
M"@'H>0[I[07HK0>+\+@]`#OP=!?_-LP*B\:Y"@`[P74#N"``4.@-%(/$!.G'
M!8L>[@J#?_H%=`:#?_H&=3_H=P>+\+@]`#OP=#/_-LP*B\:Y"@`[P74#N"``
M4.C7$X/$!+@!`%#HP0F#Q`*%P'0._S;."KA&`%#HU1"#Q`3I=07H-0>+\(O&
MZ=T!Z"L'B_"X9@`[\'0#Z9X`_S;,"NBL$H/$`HOP]H1U!P-T`^F(`/:$=0<$
M=`/I?@#_-LP*5NAT$X/$!+@$`%#HF`J#Q`+HYP:+\(O&N2``.\%T![@*`#OP
M=0+KZ;@H`#OP="BX`0!0Z#8)@\0"A<!T#O\VS@JX?0!0Z$H0@\0$@R[N"@:#
M+M0*`>L*N`4`4.A("H/$`O\VS`J+QKD*`#O!=0.X(`!0Z`,3@\0$ZQ?_-LP*
MB\:Y"@`[P74#N"``4.CJ$H/$!.DM`>AD!HOPB\:Y:``[P70#Z;<`Z%,&B_"+
MQKII`#O"=`/II@#H0@:+\(O&N6P`.\%T`^F5`.@Q!HOPB\:Z90`[PG0#Z80`
M_S;,"NBP$8/$`HOP]H1U!P-U<?:$=0<$=6K_-LP*5NA^$H/$!.C[!8OPB\:Y
M(``[P70'N`H`._!U`NOIN"@`._!T'K@!`%#H2@B#Q`*%P'0._S;."KB=`%#H
M7@^#Q`3K"K@&`%#H9@F#Q`+_-LP*B\:Y"@`[P74#N"``4.@A$H/$!.L7_S;,
M"HO&N0H`.\%U`[@@`%#H"!*#Q`3K3/\VS`J+QKD*`#O!=0.X(`!0Z.\1@\0$
MZ#(,ZS#_-LP*B\:Y"@`[P74#N"``4.C3$8/$!.L7/64`=,8]:0!U`^D6_CUW
M`'4#Z=7^Z]#I=`/H-`6+\+@O`#OP=!K_-LP*B\:Y"@`[P74#N"``4.B4$8/$
M!.E.`[@!`%#H>P>#Q`*%P'02_S;0"O\VS@JXP`!0Z(L.@\0&Z2L#_S;,"NA[
M$(/$`HOPB\:Y7``[P71`N"<`._!T%%#_-LP*Z%X0@\0"B_!8B]8[T'0BN`$`
M4.@H!X/$`H7`=`[_-LX*N/``4.@\#H/$!,<&V`H!`.F;`/\VS`KH)A"#Q`*+
M\/:$=0<$=3/_-LP*Z!,0@\0"B_"+QKDG`#O!=!RX`0!0Z-L&@\0"A<!T#O\V
MS@JX$`%0Z.\-@\0$ZU7_-LP*Z.`/@\0"B_#VA'4'!'0?_S;,"NC-#X/$`HOP
M]H1U!P1T#/\VS`KHN@^#Q`*+\+@G`#OP=!RX`0!0Z(0&@\0"A<!T#O\VS@JX
M-P%0Z)@-@\0$N"<`._!T(/\VS`I6Z&P0@\0$,\"#/MH*`'4#N`$`H]H*QP;8
M"@$`Z1$"_S;,"NAA#X/$`HOPN/__._!U&K@"`%#H*P:#Q`*%P'0*N%\!4.A#
M#8/$`NM.N`H`._!U+(-^_`!U&S/`4.@%!H/$`H7`=`[_-LX*N),!4.@9#8/$
M!,=&_`$`_P;."NL4N%P`._!U#;X@`/\VS`KH]PZ#Q`*X(@`[\'6%QT;\``#I
MC@&#/M0*`'0GBQ[N"J'0"CM'`GT;,\!0Z*D%@\0"A<!T#O\VS@JXS`%0Z+T,
M@\0$N`$`4.C'!H/$`NE3`;@!`%#HZ0>#Q`*+'NX*@S\(=0R#+NX*!H,NU`H!
MZ^N+'NX*@S\'=0V#+NX*!H,NU`H!Z*<)Z1L!@S[4"@!T)XL>[@JAT`H[1P)]
M&S/`4.@V!8/$`H7`=`[_-LX*N.T!4.A*#(/$!+@#`%#H5`:#Q`+IX`"X`P!0
MZ'8'@\0"BQ[N"H,_!746@R[N"@:#+M0*`;@'`%#H*@:#Q`+K$XL>[@J#/P9U
M"H,N[@H&@R[4"@'IH0"#/M0*`'0GBQ[N"J'0"CM'`GT;,\!0Z+P$@\0"A<!T
M#O\VS@JX#@)0Z-`+@\0$N`(`4.C:!8/$`NMGN`(`4.C]!H/$`NM;ZUD*`"``
M(0`B`"<`*``I`"H`.P`\`#T`/@!;`%T`>P!]`%X"7@+F`<(%J`2X!O,&7P2J
M`>8!#`+F`3(';`=%!H`&>`<&C,F.P5>_>@>Y$0#\\J\FBTT>7P?_X>EB^?\V
MS`KH+0R#Q`*#/M0*`'YNN`(`4.@9!(/$`KAG!E"X+P)0Z`$+@\0$BQ[N"O\W
MZ*<%@\0"BQ[N"O]W!+A&`E#H%`N#Q`2+'NX*BP?K%/\&W`KK'_\&X`KK&?\&
MW@KK$^L1/0$`=.<]`@!TZ#T#`'3IZ^V#+NX*!H,NU`H!ZXN#/MH*`'49@S[<
M"@!U$H,^X`H`=0N#/MX*`'4$,\#K`[@!`(E&_H7`=0>#/N(*`'06N`(`4.AZ
M`X/$`KA;`E#HE@J#Q`+K+8,^[`H`=!RX9P90_S;L"NA/"H/$!+AG!E"X90)0
MZ$$*@\0$N&@"4.AG"H/$`H,^V@H`=`JX;0)0Z%8*@\0"@S[<"@!T'KBL`GX#
MN*0"4/\VW`KH.PF#Q`)0N(P"4.@Q"H/$!H,^X`H`=!ZXW0)^`[C5`E#_-N`*
MZ!8)@\0"4+BT`E#H#`J#Q`:#/MX*`'0>N`H#?@.X`@-0_S;>"NCQ"(/$`E"X
MY0)0Z.<)@\0&@S[B"@!T$(-^_@!U"K@2`U#HT`F#Q`*X9P90N`H`4.@>"H/$
M!/]&^HM&^CM&!',#Z0WWH>0*@S[B"@!T`[@"`%#HCA6#Q`)>7XOE7<-5B^Q6
M_S;,"NB)"X/$`HOPN"\`._!T`^F1`?\VS`KH<PN#Q`*+\+@J`#OP=!/_-LP*
M5NA(#(/$!+@O`%Z+Y5W#H<X*H]8*H=`*H](*N`$`A<!U`^E/`?\VS`KH-PN#
MQ`*+\+C__SOP=1^X`@!0Z`$"@\0"A<!T#O\VU@JX1P-0Z!4)@\0$Z1T!N"\`
M._!U4/\VS`KH_@J#Q`*+\(O&N2H`.\%U+3/`4.C'`8/$`H7`=![_-M(*_S;6
M"O\VT`K_-LX*N'@#4+AG!E#H:0B#Q`SK"_\VS`I6Z*0+@\0$Z<,`N"H`._!U
M6_\VS`KHIPJ#Q`*+\(O&N2\`.\%U.:'0"CL&T@IT+D@[!M(*="<SP%#H8`&#
MQ`*%P'0:_S;0"O\VT@K_-LX*_S;6"KB]`U#H:`B#Q`KK<?\VS`I6Z$$+@\0$
MZV&X"@`[\'5:N"``._!U!O\&T`KK+[@)`#OP=1>AT`H%"`"Y"`"9]_G1X-'@
MT>"CT`KK$;@*`#OP=0K_!LX*QP;0"@``_S;,"N@)"H/$`HOP]H1U!Q!UL?\V
MS`I6Z-X*@\0$Z:?^N"``Z9#^N`H`._!T!X,^R@H!=7#'!LH*``"X`0"%P'1C
MN"``._!U!O\&T`KK2+@)`#OP=1>AT`H%"`"Y"`"9]_G1X-'@T>"CT`KK*K@*
M`#OP=1+_!LX*QP;0"@``QP;8"@``ZQ'_-LP*5NAK"H/$!+@*`.D@_O\VS`KH
M<@F#Q`*+\.N6N"``._!T![@)`#OP=37_-LP*Z%8)@\0"B_"X(``[\'3MN`D`
M._!TYK@*`#OP=!'_-LP*5N@="H/$!+@@`.G2_>E3_XO&Z<K]58OL@\3^@S[8
M"@!T!C/`B^5=PX,^Z@H`=%2AU`J)1O[K1O]V_K@'!%#H^@:#Q`2+1OZ+T-'@
M`\+1X(O8_[=*">AE`8/$`HM&_HO0T>`#PM'@B]C_MTX)_[=,";@1!%#HQ`:#
MQ`;_3OZ#?OX`?[2#?@0"=0['!N8*``#'!N(*`0#K:X-^!`!T,,<&X@H!`(,^
MY@H`?04SP.EU_X,^Y@H)?!7'!N8*__^X*`10Z'@&@\0",\#I6?_K-<<&Y`H!
M`(,^Z`H`?04SP.E%_Z'F"@,&Z`JY"0`[P7P5QP;H"O__N%`$4.A9!H/$`C/`
MZ2+_@S[L"@!T'+AG!E#_-NP*Z/<%@\0$N&<&4+A\!%#HZ06#Q`2#?@0`=`ZX
M9P90N"H`4.AA!H/$!(-^!`!T!O\&Y@KK!/\&Z`JX`0#IU?Y5B^R#?@0`=0['
M!NX*2@G'!M0*``#K"8,&[@H&_P;4"H,^U`I`?":X`@!0Z)C^@\0"A<!T#O\V
MS@JX?P10Z*P%@\0$N`,`4.B0$8/$`HL>[@J+1@2)!XL>[@JAT`J)1P*+'NX*
MH<X*B4<$B^5=PU6+[(M&!.FE`+AG!E"X?0!0Z,8%@\0$Z:,`N&<&4+@I`%#H
MM06#Q`3ID@"X9P90N%T`4.BD!8/$!.F!`+AG!E"XG`10Z`<%@\0$ZW&X9P90
MN)\$4.CW!(/$!.MAN&<&4+BL!%#HYP2#Q`3K4;AG!E"XL010Z-<$@\0$ZT&X
M9P90N+8$4.C'!(/$!.LQN&<&4+C&!%#HMP2#Q`3K(3L.N`W:#<D-ZPW[#2L.
M"PX;#CT)`',(D]'C+O^G2P[KSXOE7<-5B^R#Q/PSP,=&_```B4;^BQ[N"HL'
M.T8$=1>+1P([!M`*=0Z#+NX*!H,NU`H!B^5=PX-^_`!U.?]&_HM&_CL&U`I]
M+8O0T>`#PM'@BQ[N"BO8H=`*.T<"?Q>+!SM&!'4.BT<".P;0"G4%QT;\`0#K
MP8-^_`!U`^FR`+@!`%#H%OV#Q`*%P'0;_S;."KCS!(-^_@%^`[CQ!%"XS010
MZ!T$@\0&BT;^_T[^A<!T<K@!`%#HX_R#Q`*%P'0KN&<&4+CT!%#HQP.#Q`2+
M'NX*_S?H;?Z#Q`*+'NX*_W<$N`8%4.C:`X/$!(L>[@J+!^L4_P;<"NL?_P;@
M"NL9_P;>"NL3ZQ$]`0!TYST"`'3H/0,`=.GK[8,N[@H&@R[4"@'KA(,N[@H&
M@R[4"@'IO0"+'NX*BP<[1@1U58M'`CL&T`IT0#/`4.A1_(/$`H7`=#.X9P90
MN!@%4.@U`X/$!/]V!.C>_8/$`O\VT`J+'NX*_W<"_S;."O]W!+@V!5#H0`.#
MQ`J#+NX*!H,NU`H!ZUV+1@3K%/\.W`KK'_\.X`KK&?\.W@KK$^L1/0$`=.<]
M`@!TZ#T#`'3IZ^VX`0!0Z-K[@\0"A<!T);AG!E"X5@50Z+X"@\0$_W8$Z&?]
M@\0"_S;."KA\!5#HUP*#Q`3I0OY5B^R#Q/[H,?F)1OZY(``[P70&@W[^"G4"
MZ^N#?OYE=`/I10'H$_F)1OZ[;``[PW0#Z34!Z`/YB4;^N7,`.\%T`^DE`>CS
M^(E&_KME`#O#=`/I%0'_-LP*Z',$@\0"B]B)7O[VAW4'`W0#Z?P`]H=U!P1T
M`^GR`/\VS`I3Z#@%@\0$BQ[N"H,_!W4*@R[N"@:#+M0*`8L>[@J#/P1T'[@!
M`%#H!ON#Q`*%P'0._S;."KB'!5#H&@*#Q`3IC0"AT`H%`@"+'NX*.T<"?26X
M`0!0Z-CZ@\0"A<!T%?\VS@J+'NX*_W<$N*$%4.CE`8/$!NM9BQ[N"HM'`CL&
MT`IT3#/`4.BG^H/$`H7`=#^X9P90N.4%4.B+`8/$!*'0"DA(BQ[N"CM'`GX.
MN&<&4+C[!5#H;P&#Q`3_-LX*BQ[N"O]W!+@*!E#HB@&#Q`:+'NX*@S\$=0J#
M+NX*!H,NU`H!N`@`4.B!^X/$`NMC_S;,"HM&_H-^_@IU`[@@`%#H.@2#Q`3_
M-LP*N"``4.@L!(/$!(L>[@J#/P1U-8,N[@H&@R[4"@&+'NX*@S\(=0R#+NX*
M!H,NU`H!Z^N+'NX*@S\'=0V#+NX*!H,NU`H!Z#3^B^5=PU6+[(/$_HM&!(-^
M!`!]`O?8B^5=PU6+[%;H40.+\(7V=0BX``!>B^5=PU;_=@;_=@3H!0"#Q`;K
M[%6+[%=6_W8(Z)H!6;XL!NL#@\8%@#P`=0_'!O@'`0"X``!>7XOE7</_=@96
MZ!$*@\0$A<!T`NO9_W0#_W8$Z)L(@\0$B_B+QSW__W4%N```Z]"+QXM>"(A'
M!XM>",9'!@&+1@CKO%6+[(M&!*,X"(U&"%#_=@:XZ1)0Z*4%@\0&B^5=PU6+
M[/\V.`C_=@3HDP"#Q`2+Y5W#58OL5HMV!(`\`'0?_W8&B]Y&B@>84.AS`(/$
M!#W__W4(N/__7HOE7</KW+@``.OT58OLC48&4/]V!+AU$U#H206#Q`:+Y5W#
M58OL5HMV!(`\`'0:B]Y&B@>84.@:`%D]__]U"+C__UZ+Y5W#Z^&X"@!0Z`,`
M6>OO58OLN&<&4/]V!.@'`(/$!(OE7<-5B^Q75HMV!(M^!H/^"G495[@-`%#H
M&P"#Q`0]__]U";C__UY?B^5=PU=6Z`4`@\0$Z_!5B^Q6BW8&BP0[1`)R$XM&
M!"7_`%!6Z)H`@\0$7HOE7<.+1@2+'/\$B`>8)?\`Z^Q5B^Q6OEH&@?Y>!W,,
MB\:#Q@U0Z`@`6>ON7HOE7<-5B^Q75HMV!+\``(7V=0FX__]>7XOE7<.`?`8`
M=#_V1`8$=`VX__]05N@Y`(/$!(OXBD0'F%#H5`M9"_CV1`8"=`?_=`3H5P-9
M]D0&('0._W0+Z&\+6?]T"^A#`UG&1`8`B\?KK56+[%=6BW8$QP8,".P3]D0&
M$'0)N/__7E^+Y5W#]D0&!'0MBP0K1`2+^%?_=`2*1`>84.C#"H/$!CO'=!.`
M3`80N```QP0``(E$`KC__^O'BT8&/?__=1.`9`;[N```QP0``(E$`K@``.NL
M@WP$`'4%5NCF`%F+1`D]`0!U'K@!`%"-1@90BD0'F%#H:PJ#Q`8]`0!UIXM&
M!NE[_XM$!(D$`T0)B40"@$P&!(M&!HL<_P2(!Y@E_P#I7/]5B^Q75HMV!(L$
M.T0"<E3V1`88=`FX__]>7XOE7<.`9`;[@WP$`'4%5NAT`%G_=`G_=`2*1`>8
M4.C\"8/$!HOXB\<]``!_$K@0`(7_=0.X"``(1`:X___KOXM$!(D$`\>)1`*+
M'/\$B@>8)?\`ZZE5B^Q6OEH&@'P&`'03@\8-@?Y>!W((N```7HOE7</KY[@`
M`,<$``")1`*)1`2+QNOH58OL@\3^5HMV!(I$!YA0Z%$)687`=!+'1`D!`(O&
M!0@`B40$7HOE7<.X``10Z*X`68E&_H7`=-_'1`D`!(!,!@*+1OZ)1`3KVU6+
M[%:+=@:+1@0]__]T!XL$.T0$=PBX__]>B^5=PXM&!/\,BQR(!XM&!.OM58OL
M@\3\5U:+=@2+1/XE_O^)1OXKQHE&_#M&!G8+BT8&B4;\`\:)1OY6Z#T!6?]V
M!N@U`%F+^(7_="8[_G0B_W;\5U;H2`J#Q`:A/`@[QG(0.T;^<PLKQHO8`]^A
M/@B)!XO'7E^+Y5W#58OL@\3Z5U:+1@0%`P#1Z-'@B48$@SX\"`!U$L<&.@@Z
M"($..@@!`,<&/`@Z",=&^@``BS8\"(EV_NL'BP0E_O^+\#LV7@=U8O]&^HM&
M^CT!`'Y7QT;\``3_=OSH30I9B_B+QSW__W4)N```7E^+Y5W#B\8%`@`[QW0/
MB\=`B02!#`$`@V[\`HOWB_X#?OR)/,<%.@B!#0$`B3Y>!XM>_HL')?[_.\9U
M`HOS]P0!`'6+B7;^BP0E_O^+^/<%`0!U!HL%B03K[8O'*\:)1OP[1@1R*#M&
M!'82B\8#1@2)!(O8BP>C/@B+'(D_BP2C/`B!#`$`B\8%`@#I<?_I/O_I:_]5
MB^Q6BW8$3D[W!`$`=0BX__]>B^5=PX$D_O^)-CP(N```Z^Y5B^R#Q/Q6BW8(
MBT8*/00`=1"+7@2+!XM7`HE6_HE&_.LCBT8&/0``?@^+7@2+!RO2B5;^B4;\
MZPR+7@2+!YF)5OZ)1OS'1@H``(M&!CT``'TB]UX&@W[^`'\(=0B#?OP`<@+K
M#_=>_O=>_(->_@#'1@H!`(M&!IF+VHO(BU;^BT;\Z.T#B]B*AV('3H@$BT8&
MF8O:B\B+5OZ+1OSHVP.)5OZ)1OP+T'7+@WX*`'0$3L8$+8O&7HOE7<-5B^R!
MQ"3_5U:+=@2+?@;'1OH``(M&"(E&_(O?1XH'F(E&_H7`=0/I<P(])0!T`^E5
M`L:&,O\`QT;X`0#'1O8@`,=&]!`GB]]'B@>8B4;^/2T`=0['1O@``(O?1XH'
MF(E&_HM&_CTP`'4.QT;V,`"+WT>*!YB)1OZ+1OX]*@!U%XM>_(-&_`*+!XE&
M\HO?1XH'F(E&_NLQQT;R``#K"8O?1XH'F(E&_HM>_O:'=0<$=!>+1O*+T-'@
MT>`#PM'@`\,%T/^)1O+KUHM&_CTN`'56B]]'B@>8B4;^/2H`=1>+7OR#1OP"
MBP>)1O2+WT>*!YB)1O[K,<=&]```ZPF+WT>*!YB)1OZ+7O[VAW4'!'07BT;T
MB]#1X-'@`\+1X`/#!=#_B4;TZ];'1O`"`(M&_CUL`'40B]]'B@>8B4;^QT;P
M!`#K$8M&_CUH`'4)B]]'B@>8B4;^BT;^ZVG'1NX(`.L3QT;N"@#K#,=&[A``
MZP7'1N[V__]V\(V&,O]0_W;N_W;\Z,+]@\0(B4;LBT;P`4;\ZU"+7OR#1OP"
MBP>)1NQ0Z+`"68E&\.M$BU[\@T;\`HL'B4;^BT;^C9XQ_XE>[(@'ZR`]8P!T
MX3UD`'2B/6\`=(@]<P!TO#UU`'2%/7@`=(?KTHV&,O\K1NR)1O"+1O`[1O1^
M!HM&](E&\(-^^`!T)NL#_T;ZBT;R_T[R.T;P?A;_=O;_UED]__]U";C__UY?
MB^5=P^O<QT;N``#K`_]&[HM>[(`_`'0>BT;N.T;T?1;_1NR*!YA0_]99/?__
M=06X___KRNO7BT;N`4;Z@W[X`'4CZP/_1OJ+1O+_3O([1O!^$[@@`%#_UED]
M__]U!;C__^N;Z]_K$_]V_O_663W__W4%N/__ZX?_1OKI??V+1OKI>_]5B^S_
M=@:X`0-0_W8$Z`<`@\0&B^5=PU6+[%=6BWX&@><#`('/`#WW1@8``G0#OP`\
MN```4/]V!%?HK`6#Q`:+\(O&/?__=1SW1@8``703N```4/]V!+@\`%#HBP6#
MQ`:+\.L;]T8&``1T%%;H_@-9QP;X!Q,`N/__7E^+Y5W#@_X`?"/W1@8`"'03
MN`(`4+H``+@``%)05NCJ`X/$"%;H80-9B(0>"(O&Z\Y;5P:,SX['B_N+V='C
M_/*O)HM)_`=?_^%7*_^%TGD(]]KWV(/:`$>%VWD+]]OWV8/;`('W`0#H.0"%
M_W0']]KWV(/:`%_#5[\``(72>0CWVO?8@]H`1X7;>0?WV_?9@]L`Z`X`B\&+
MT^O/Z`4`B\&+T\.%VW4>.\IW$U"+PBO2]_&+V%CW\8O*B],KV\/W\8O*B]/#
M55=6B_&+^RO;*^VY(`#1X-'2T=71TRON&]]X%$#B[^D4`-'@T=+1U='3`^X3
MWWGLXO`#[A/?B\U>7UW#58OLN?]_ZP95B^R+3@C\5E>+=@2,WX['BWX&K*YU
M"H3`X/@KP%]>7<.X``!R`T#K]$CK\56+[/Q7C-^.QXM^!(O?*\"Y_W_RKHO'
M*\-(7UW#`````+T@`H7M=0*,W2Z,'O@<BQX"`"O=@?L`$'8/C9X`$(S`*]BT
M2LTANP`0CL4FC!X$"+$$T^,FBPX*"(7)=`TFBQX&"+$$T^.!P_(*^H[5B^/[
MA=MU`[O__R:)'@(()HLV"@B%]G1*)HLV"`B+RT$FB0[V![D$`-/F`]YS`[O_
M_R:)'@((@\,/N00`T^N!X_\?C,`#V(S8*]B,Q8S>CL:T2LTA<PRT2LTA<P:X
M_@#IE@".Q?R_.`BY\@HKST'1Z>,$*\#SJXX&+``K_[G_?R:*)8#\/706A.1T
M!/*N=/"*#H``*NV^@0"X`0#K"2O`JHOWC,>.WU".Q2:+/O8'5^,(K(3`=`.J
MXO@JP*J.W4>!Y_[_B3[V!XD^_@>A"@B%P'47B\2+'@8(A=MU`[L`"+D$`-/C
M*\.C``B,'OH'C`[\!^@7`.L"6%BT3,TA+O\N]AQ5B^RX``"+Y5W#58OL5U:+
M=@2X``!0Z,P`6:(>"+@!`%#HP0!9HA\(N`(`4.BV`%FB(`B+1@9`T>!0Z,\"
M6:-`"(O8QP<."(M^!HD^0@C1YP,^0`B`/"!T!8`\"74#1NOS@#P`=$V+WT='
MB3?_!D((N`(`4.B5`ED]__]U&K@.`%"X#PA0N`(`4.B4`(/$!KC(`%#H7_]9
M1H`\`'04@#P@=`6`/`EU"(O>1L8'`.L"Z^;KH<<%``#_-D`(_S9"".CVX(/$
M!+@``%#H!P!97E^+Y5W#58OL_Q8,"/]V!.@5_UF+Y5W#58OLBUX$N`!$S2%R
M#_;"@'0*]L(#=`6X`0!=PRO`7<-5B^RT/XM>!.LN58OLM$"+7@3K)%6+[+0_
MZP55B^RT0(M>!("_'@@`=`Y=@/P_=`3_)C0(_R8R"(M6!HM.",TA<P:C^`>X
M__]=PU6+[+0^BUX$S2%S"*/X![C__UW#*\!=PU6+[+1"BD8*BU8&BTX(BUX$
MS2%S"*/X![C__XO07<-5B^RT08M6!,TA<PBC^`>X__]=PRO`7<-5B^Q7M%:+
M5@2,WX['BWX&S2%?<PBC^`>X__]=PRO`7<-5B^Q6BS;P"H7V=3"X!`%0N$0(
M4/]V!.@L_X/$!HOPA?9T#X"\0P@*=0A.H#8(B(1#",<&2`E$"(DV\`H[=@A^
M`XMV"(7V=`Y6_W8&_S9(">AT`(/$!@$V2`DI-O`*B\9>B^5=PU6+[%=6BWX&
MBW8(B\9.A<!T,(O?1X`_"G4FB\<K1@90_W8&_W8$Z,+^@\0&N`$`4+@W"%#_
M=@3HL?Z#Q`:)?@;KR3M^!G02B\<K1@90_W8&_W8$Z)7^@\0&BT8(7E^+Y5W#
M58OLG/Q65XS?CL>+=@2+?@:+3@B,P(S:.\)U%SO^=!]R$?T#^0/Q3T[VP0%T
M`:1/3NL&]L$!=`&DT>ET`O.E7UZ=7<-5B^R+1@2$Y'4"AN"`_`IR)U<&@/Q'
M=0B+5@B+=@;K!HM."(M6!LTAC,('<PBC^`>X__^+T%]=PXM6!LTA)?\`7<-5
MB^Q7BT8$BS[V!P/'4.@,`%F%P'4"B\=?A<!=PU6+[(M&!#L&_@=R:(L>"@B#
M^P!U$SL&``AS68O<.\-S4Z/V!RO`7<,[!@((=P8[!O8'=^U0B]BY!`#3ZX'C
M_P^#PT&!X\#_4P:,P0/9C@8$""L>!`BT2LTA!UM8<A:C]@?WPP#@=0VY!`#3
MXXD>`@@KP%W#QP;X!_S_N/__A<!=PU6+[(O$*T8$HP`(7<,````M=@`M<0`M
M<P!R`"5S.B!#86XG="!A8V-E<W,@)7,*`"5C("5D.B!T>7!E(``L(&EN9&5N
M="`E9"P@;&EN92`E9"X*`$%S<VEG;FUE;G0@:6YS=&5A9"!O9B!E<75A;',@
M:6X@8V]N9&ET:6]N86PL(&QI;F4@)60N"@!"860@:68@*&YO(&-O;F1I=&EO
M;BD@;&EN92`E9"X*`$)A9"!W:&EL92`H;F\@8V]N9&ET:6]N*2!L:6YE("5D
M+@H`3&EN92`E9#H@0V]M;65N="!C;&]S92!W:71H;W5T(&]P96XL(&EN9&5N
M="`E9`H`0F%D(&-H87)A8W1E<B!C;VYS=&%N="!L:6YE("5D"@!"860@8VAA
M<F%C=&5R(&-O;G-T86YT('=I=&@@7"!L:6YE("5D"@!"860@8VAA<F%C=&5R
M(&-O;G-T86YT('=I=&@@7#`@;&EN92`E9`H`17)R;W(Z("<B)R!Q=6]T960@
M<W1R:6YG(&YO="!E;F1E9"!B>2!E;F0@;V8@9FEL92X*`%=A<FYI;F<Z("<B
M)R!Q=6]T960@<W1R:6YG(&YO="!E;F1E9"!B>2!E;F0@;V8@;&EN92`E9"X*
M`$EN9&5N="!J=6UP<R!B86-K=V%R9',@;&EN92`E9"X*`$EN9&5N="!J=6UP
M<R!B86-K=V%R9',@;&EN92`E9"X*`$EN9&5N="!J=6UP<R!B86-K=V%R9',@
M;&EN92`E9"X*`%5N8VQO<V5D(&)R86L@870@14]&.B``(&]P96YE9"!O;B!L
M:6YE("5D+@H`4W5M;6%R>3H*`#H@`"!/2PH`"4]D9"!N=6UB97(@;V8@<VEN
M9VQE('%U;W1E<RX*``DE9"!T;V\@9F5W("5S(&)R86-E<RX*`&-L;W-I;F<`
M;W!E;FEN9P`))60@=&]O(&9E=R`E<R!S<75A<F4@8G)A8VME=',N"@!C;&]S
M:6YG`&]P96YI;F<`"25D('1O;R!F97<@)7,@<&%R96YT:&5S97,N"@!C;&]S
M:6YG`&]P96YI;F<`"5!O<W-I8FQE(&5R<F]R*',I+"!B=70@;F\@;F5T(&1E
M;&EM:71E<B!I;6)A;&%N8V4N"@!#;VUM96YT(&]P96YE9"!L:6YE("5D('5N
M8VQO<V5D(&)Y(&5N9"!O9B!F:6QE+@H`3F5S=&5D(&-O;6UE;G0Z(&QI;F4@
M)60L(&EN9&5N="`E9"X@($9I<G-T(&]P96XZ(&QI;F4@)60L(&EN9&5N="`E
M9`H`26YD96YT(&]F(&-O;6UE;G0@8VQO<V4@9&]E<VXG="!M871C:"!O<&5N
M.B!L:6YE<R`E9"P@)60L(&EN9&5N=',@)60L("5D"@`E9#H@='EP92``+"!I
M;F1E;G0@)60L(&QI;F4@)60N"@!/=&AE<B!E<G)O<B!M97-S86=E<R!B96EN
M9R!S=7!P<F5S<V5D+@H`1G5R=&AE<B!W87)N:6YG(&UE<W-A9V5S(&)E:6YG
M('-U<'!R97-S960N"@`Z(``J*BIS=&%C:R!O=F5R9FQO=RP@;&EN92`E9"X*
M`&EF`&EF+6-O;F1I=&EO;@!T:&5N`&5L<V4`=VAI;&4M8V]N9&ET:6]N`"=.
M54Q,)P!-:7-S:6YG(&-L;W-E<B5S(&1E=&5C=&5D(&QI;F4@)60Z"@!S```)
M36ES<VEN9R!C;&]S:6YG(``@;W!E;F5D(&QI;F4@)60N"@!-:7-M871C:&5D
M(&EN9&5N="!O;B!C;&]S:6YG(``@;&EN97,@)60L("5D.R!I;F1E;G1S("5D
M+"`E9"X*`$UU9&1L92!D971E8W1E9"!A="!U;FUA=&-H960@8VQO<VEN9R``
M(&QI;F4@)60N"@!%;'-E('=I=&@@;F\@:68@;&EN92`E9"X*`$1A;F=L:6YG
M(&5L<V4@+2T@8F]U;F0@=&\@=W)O;F<@:68_("`B:68B(&QI;F4@)60L(")E
M;'-E(B!L:6YE("5D+@H`5W)O;F<@:6YD96YT(&9O<B!E;'-E`"`H;6ES<VEN
M9R!I9C\I`"X@(")I9B(@;&EN92`E9"P@(F5L<V4B(&QI;F4@)60N"@!R````
M`'(K``(`=P```0-W*P`"`V$```$)82L``@EX```!!7@K``(%````````````
M`````0```0````````````$!``$````````````!`@`!````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M```````````````````````````````````````````Z"#H(,#$R,S0U-C<X
M.6%B8V1E9@```"`@("`@("`@(#`P,#`P("`@("`@("`@("`@("`@("`@D$!`
M0$!`0$!`0$!`0$!`0`P,#`P,#`P,#`Q`0$!`0$!`"0D)"0D)`0$!`0$!`0$!
M`0$!`0$!`0$!`0%`0$!``4`*"@H*"@H"`@("`@("`@("`@("`@("`@("`D!`
M0$`@`/(*`````````````````````0`!``!('@!4;V\@;6%N>2!A<F=S+@``
A``````````````````````````<@;"`*#0``````````
`
end
-----------------------------END PROGRAM----------------------
Disclaimer: The program was obtained from BBS sources some
time back, has no copyrights, and is presumably in the public
domain. As far as I know, it is public domain.