[comp.sys.ibm.pc] SHOW.COM for CGA & MONO

dalegass@dalcs.UUCP (03/11/87)

A short while ago I posted a program call 'show.com' which showed a file
in 1k chunks; since then I have had several requests for a version 
that works on the monochrome card.  Here's a new version which works with
both.


***************************************************************************
Dale Gass, Dalhousie U., Halifax, N.S., Canada

UUCP:   {seismo|watmath|utai|garfield}!dalcs!dalegass.UUCP
     				       or dalegass@dalcs.UUCP
        ...!dalcs!dalcsug!dalegass.UUCP  or dalegass@dalcsug.UUCP
CDN:    dalegass@cs.dal.cdn
CSNET:  dalegass%cs.dal.cdn@ubc.csnet
ARPA:   dalegass%cs.dal.cdn%ubc.csnet@CSNET-RELAY.ARPA



!!!!!!!!!!!!!!!!!!!! cut here (not really necessary) !!!!!!!!!!!!!!!!!!!
begin 600 show.com
MZ94.58OLM`_-$#P'N`"X=0.X`+"+Y5W#58OL@\3Y5U:+1@0]`@!T'[@!`%#H
MF@)9N(@44.C'`5DSP%#HBP)9N`(`4.A\$%FXG110BUX&_W<"Z-4$@\0$B4;Y
MA<!U%HM>!O]W`KB?%%#HDP&#Q`3H41#I0`'HC/^+^.@9`C/`4+@1`%#H6P*#
MQ`2XN110Z&X!6<=&_0``QT;[```SP%#_=OW_=OO_=OGH!`.#Q`B%P'0#Z>0`
M,_:!_@`$<SC_=OGHOP-9B$;_*N0]_P!U$K@@`%!7B\;1X%#H0`2#Q`;K$HI&
M_RKD4%>+QM'@4.@L!(/$!D;KPC/`4+@/`%#HXP&#Q`3_=OW_=ONX]A10Z/``
M@\0&Z`<"ZVF#?OT`?`EU"8%^^P`$<P+K"8%N^P`$@U[]`.MCZV3'1OT``,=&
M^P``ZU6X`@!0N@``N```4E#_=OGH7`*#Q`C_=OGHSP)9)0#\@>+__XE6_8E&
M^^LJBU[Y]D<&"'4)@4;[``2#5OT`ZQ8]#0!TKCTM`'2-/3``=*8].0!TK>O6
MZ0/__W;YZ%H$63/`4+@1`%#H.`&#Q`2X_!10Z$L`65Y?B^5=PU6+[%:+=@16
MZ)@!68/^"G4(N`T`4.B+`5E>B^5=PU6+[%:+=@2`/`!T#8O>1HH'F%#HS/]9
MZ^ZX"@!0Z,+_65Z+Y5W#58OL5HMV!(U&!E!6N+H"4.BY!X/$!EZ+Y5W#58OL
M@\3_5U:+=@2+?@:A0A6(1O^+QKD$`-/@"\>C0A6#?@H`=`B!#D(5@`#K!H$F
M0A5_`(-^"`!T"($.0A4(`.L&@29"%?<`@29"%?\`BD;_F%Y?B^5=PU6+[*%"
M%8OE7<-5B^R#Q/]6BW8$H4(5B$;_B39"%9A>B^5=PU6+[.@;`#/`4+C0!U#_
M-D(5N"`)4.CN`(/$"#/`B^5=PU6+[#/`4%#H(0"#Q`0SP(OE7<-5B^RX!P"#
M?@0`=`.X<`"C0A4SP(OE7<-5B^Q75HMV!(M^!H/_4'P#OT\`@_X9?`.^&`"+
MQH;@*L`+QU`SP%!0N``"4.B+`(/$"#/`7E^+Y5W#M`#-%N@@`(`^0!4`=`H]
M@`!S!5#H*P!8P[0!S19U!+C__\/H`0##A,!T`RKDPX;$A,!T"CP#=0,KP,,,
M@,.X_O_#58OL5HMV!('F_P"#_B!\%S/`4+@!`%#_-D(5B\8-``E0Z!H`@\0(
M_S9"%8O&#0`.4.@*`(/$!(O&7HOE7<-5B^R+1@2+7@:+3@B+5@K-$%W#58OL
M@\3\5U:+=@2`9`;W]D0&!'0:N/__4%;HG0*#Q`2%P'0)N/__7E^+Y5W#ZQF+
M1@H]`0!U$8,\`'0,BT0"*P29*48&&58(,\#'1`(``(D$_W8*_W8(_W8&BD0'
MF%#H)@V#Q`B#^@!_!W4'/0``<@+K!;C__^NO,\#KJU6+[(/$_%:+=@2X`0!0
MN@``N```4E"*1`>84.CN#(/$"(E6_HE&_/9$!@1T#HL$*T0$F0%&_!%6_NL1
M@SP`=`R+1`(K!)DI1OP95OZ+5OZ+1OQ>B^5=PU6+[%=6BW8$BP0[1`)R5/9$
M!AAT";C__UY?B^5=PX!D!ON#?`0`=056Z)8"6?]T"?]T!(I$!YA0Z"P,@\0&
MB_B+QST``'\2N!``A?]U`[@(``A$!KC__^N_BT0$B00#QXE$`HL<_P2*!Y@E
M_P#KJ56+[![%7@2+!Q]=PU6+[![%7@2*!R7_`!]=PU6+[!Z+1@C%7@2)!Q]=
MPU6+[!Z*1@C%7@2(!Q]=PU6+[%;H\`&+\(7V=0<SP%Z+Y5W#5O]V!O]V!.@%
M`(/$!NOL58OL5U;_=@CHH0!9OD05@#P`=0['!A`7`0`SP%Y?B^5=P_]V!E;H
MC`B#Q`2%P'0%@\8%Z]K_=`/_=@3H'0>#Q`2+^(O'/?__=00SP.O.B\>+7@B(
M1P?&1P8!B\/KOE6+[%:+=@:+!#M$`G(3BT8$)?\`4%;HI0"#Q`1>B^5=PXM&
M!(L<_P2(!Y@E_P#K[%6+[%:^<A6!_G86<PR+QH/&#5#H"`!9Z^Y>B^5=PU6+
M[%=6BW8$,_^%]G4)N/__7E^+Y5W#@'P&`'0_]D0&!'0-N/__4%;H10"#Q`2+
M^(I$!YA0Z.X*60OX]D0&`G0'_W0$Z*X"6?9$!B!T#O]T"^@)"UG_=`OHF@)9
M,\#'!```B40"B40$QD0&`(O'ZZ%5B^Q75HMV!,<&(!?:!O9$!A!T";C__UY?
MB^5=P_9$!@1T+(L$*T0$B_A7_W0$BD0'F%#H40J#Q`8[QW02@$P&$#/`QP0`
M`(E$`KC__^O(BT8&/?__=1&`9`;[,\#'!```B40",\#KKX-\!`!U!5;H:0!9
MBT0)/0$`=1ZX`0!0C48&4(I$!YA0Z/P)@\0&/0$`=:J+1@;I?O^+1`2)!`-$
M"8E$`H!,!@2+1@:+'/\$B`>8)?\`Z5__58OL5KYR%8!\!@!T$H/&#8'^=A9R
M!S/`7HOE7</KZ(O&Z_55B^R#Q/Y6BW8$BD0'F%#H10M9A<!T$L=$"0$`B\8%
M"`")1`1>B^5=P[@`!%#H?P!9B4;^A<!TW\=$"0`$@$P&`HE$!.O>58OL@\3\
M5U:+=@2+1/XE_O^)1OXKQHE&_#M&!G8+BT8&B4;\`\:)1OY6Z#<!6?]V!N@U
M`%F+^(7_="8[_G0B_W;\5U;HA0J#Q`:A5A<[QG(0.T;^<PLKQHO8`]^A6!>)
M!XO'7E^+Y5W#58OL@\3Z5U:+1@0%`P#1Z-'@B48$@SY6%P!U$L<&5!=4%X$.
M5!<!`,<&5A=4%\=&^@``BS96%XEV_CLV=A9U7O]&^HM&^CT!`'Y3QT;\``3_
M=OSH<@I9B_B+QSW__W4(,\!>7XOE7<.+Q@4"`#O'=`R)/($,`0"#;OP"B_>+
M_@-^_(D\QP54%X$-`0")/G86BU[^BP<E_O\[QG4"B_/W!`$`=4J)=OZ+!"7^
M_XOX]P4!`'4&BP6)!.OMB\<KQHE&_#M&!'(H.T8$=A*+Q@-&!(D$B]B+!Z-8
M%XL<B3^+!*-6%X$,`0"+Q@4"`.ET_XL$)?[_B_#I0O_I9_]5B^Q6BW8$3D[W
M!`$`=0BX__]>B^5=PX$D_O^)-E87,\#K[U6+[(/$_%:+=@B+1@H]!`!U$(M>
M!(L'BU<"B5;^B4;\ZR.+1@8]``!^#XM>!(L'*]*)5OZ)1OSK#(M>!(L'F8E6
M_HE&_,=&"@``BT8&/0``?2+W7@:#?OX`?PAU"(-^_`!R`NL/]U[^]U[\@U[^
M`,=&"@$`BT8&F8O:B\B+5OZ+1OSH]@.+V(J'>A9.B`2+1@:9B]J+R(M6_HM&
M_.CD`XE6_HE&_`O0=<N#?@H`=`1.Q@0MB\9>B^5=PU6+[('$)/]75HMV!(M^
M!L=&^@``BT8(B4;\B]]'B@>8B4;^A<!U`^F6`CTE`'0#Z7<"QH8R_P#'1O@!
M`,=&]B``QT;T$">+WT>*!YB)1OX]+0!U#L=&^```B]]'B@>8B4;^BT;^/3``
M=0['1O8P`(O?1XH'F(E&_HM&_CTJ`'47BU[\@T;\`HL'B4;RB]]'B@>8B4;^
MZR_'1O(``(M>_O:'C18$=""+1O*+T-'@T>`#PM'@`\,%T/^)1O*+WT>*!YB)
M1O[KUHM&_CTN`'54B]]'B@>8B4;^/2H`=1>+7OR#1OP"BP>)1O2+WT>*!YB)
M1O[K+\=&]```BU[^]H>-%@1T((M&](O0T>#1X`/"T>`#PP70_XE&](O?1XH'
MF(E&_NO6QT;P`@"+1OX];`!U$(O?1XH'F(E&_L=&\`0`ZQ&+1OX]:`!U"8O?
M1XH'F(E&_HM&_NMIQT;N"`#K$\=&[@H`ZPS'1NX0`.L%QT;N]O__=O"-AC+_
M4/]V[O]V_.C&_8/$"(E&[(M&\`%&_.M0BU[\@T;\`HL'B4;L4.C-`EF)1O#K
M1(M>_(-&_`*+!XE&_HM&_HV>,?^)7NR(!^L@/6,`=.$]9`!THCUO`'2(/7,`
M=+P]=0!TA3UX`'2'Z]*-AC+_*T;LB4;PBT;P.T;T?@:+1O2)1O"#?O@`=%"+
M7NR`/RUT!8`_*W4CBT;V/3``=1O_3O+_1NR*!YA0_]99/?__=0FX__]>7XOE
M7<.+1O+_3O([1O!^%?]V]O_663W__W4%N/__Z]__1OKKX,=&[@``BU[L@#\`
M="&+1NX[1O1]&?]&[(H'F%#_UED]__]U!;C__^NQ_T;NZ]>+1NX!1OJ#?O@`
M=2&+1O+_3O([1O!^%K@@`%#_UED]__]U!;C__^N$_T;ZZ]_K%/]V_O_663W_
M_W4&N/__Z6S__T;ZZ5K]BT;ZZ6#_58OL_W8&N`$#4/]V!.@'`(/$!HOE7<-5
MB^Q75HM^!H'G\P"!SP`]]T8&``)T`[\`/#/`4/]V!%?HAP&#Q`:+\(O&/?__
M=1OW1@8``702,\!0_W8$N#P`4.AG`8/$!HOPZQOW1@8`!'045N@A!%G'!A`7
M$P"X__]>7XOE7<.#_@!\(_=&!@`(=!.X`@!0N@``N```4E!6Z`T$@\0(5NAJ
M!5F(A#H7B\;KSE<K_X72>0CWVO?8@]H`1X7;>0OWV_?9@]L`@?<!`.@Y`(7_
M=`?WVO?8@]H`7\-7OP``A=)Y"/?:]]B#V@!'A=MY!_?;]]F#VP#H#@"+P8O3
MZ\_H!0"+P8O3PX7;=1X[RG<34(O"*]+W\8O86/?QB\J+TRO;P_?QB\J+T\-7
M5HOQB_M24(3_=`Z*S8KKBM^*Q(KBBM8J]M'JT=C0Z]'9A-MU]/?QB\CWYHO:
M4(O!]^<#V(O3B\%;62O+6QO:<P4#SA/?2"O27E_#58OLN?]_ZP95B^R+3@C\
M5E>+=@2,WX['BWX&K*YU"H3`X/@KP%]>7<.X``!R`T#K]$CK\56+[/Q7C-^.
MQXM^!(O?*\"Y_W_RKHO'*\-(7UW#58OLBT8$A.1U`H;@@/P*<B=6!H#\1W4(
MBU8(BW8&ZP:+3@B+5@;-(8S"!W,(HQ`7N/__B]!>7<.+5@;-(27_`%W#````
M`+T``(7M=0*,W2Z,'I8/BQX"`"O=@?L`$'8/C9X`$(S`*]BT2LTANP`0CL4F
MC!X>%[$$T^,F@SXV%P!T%R:A.!?1X":+'C(7T^,[V'<"B]B!PV88^H[5B^/[
MA=MU`[O__R:)'AH7)H,^-A<`=#<FBS8T%XO#0":C#A?3Y@/><P.[__\FB1X:
M%X/##]/KC,`#V(S8*]B,Q8[`M$K-(7,&N/X`Z9,`CL7\OU07N688*\]!T>GC
M!"O`\ZN.!BP`*_^Y_W\FBB6`_#UT%H3D=`3RKG3PB@Z``"KMOH$`N`$`ZPDK
MP*J+]XS'CM]0CL4FBSX.%U?C"*R$P'0#JN+X*L"JCMU'@>?^_XD^#A>)/A87
MQP88%V88@SXV%P!U!(D^&!>A&!<#!C@7HQ@7C!X2%XP.%!?H,`#K`EA8M$S-
M(2[_+I0/`````"Z/!M@0+H\&VA`?Z`4`+O\NV!!75LM5B^PSP(OE7<-5B^Q7
M5HMV!#/`4.B1`EFB.A>X`0!0Z(8"6:([%[@"`%#H>P)9HCP7BT8&0-'@4.B-
M`EFC6A>+V,<'(A>+?@:)/EP7T><#/EH7@#P@=`6`/`EU`T;K\X`\`'1-B]]'
M1XDW_P9<%[@"`%#H4P)9/?__=1JX#@!0N",74+@"`%#H<P"#Q`:XR`!0Z$?_
M64:`/`!T%(`\('0%@#P)=0B+WD;&!P#K`NOFZZ''!0``_S9:%_\V7!?H9N^#
MQ`0SP%#H!P!97E^+Y5W#58OL_Q8@%_]V!.C^_EF+Y5W#58OLM#^+7@3K+E6+
M[+1`BUX$ZR15B^RT/^L%58OLM$"+7@2`OSH7`'0.78#\/W0$_R90%_\F3A>+
M5@:+3@C-(7,&HQ`7N/__7<-5B^RT/HM>!,TA<PBC$!>X__]=PRO`7<-5B^RT
M0HI&"HM6!HM."(M>!,TA<PBC$!>X__^+T%W#58OLM$&+5@3-(7,(HQ`7N/__
M7<,KP%W#58OL5[16BU8$C-^.QXM^!LTA7W,(HQ`7N/__7<,KP%W#58OL5HLV
M9!B%]G4PN`0!4+A>%U#_=@3H+/^#Q`:+\(7V=`^`O%T7"G4(3J!2%XB$71?'
M!F(87A>)-F08.W8(?@.+=@B%]G0.5O]V!O\V8ACH=`"#Q`8!-F(8*39D&(O&
M7HOE7<-5B^Q75HM^!HMV"(O&3H7`=#"+WT>`/PIU)HO'*T8&4/]V!O]V!.C"
M_H/$!K@!`%"X4Q=0_W8$Z+'^@\0&B7X&Z\D[?@9T$HO'*T8&4/]V!O]V!.B5
M_H/$!HM&"%Y?B^5=PU6+[)S\5E>,WX['BW8$BWX&BTX(C,",VCO"=1<[_G0?
M<A']`_D#\4].]L$!=`&D3T[K!O;!`70!I-'I=`+SI?Q?7IU=PU6+[(M>!+@`
M1,TA<@_VPH!T"O;"`W0%N`$`7<,KP%W#58OL5XM&!(L^#A>%P'T&*_AR%NL$
M`\=R$%#H%P!9A<!U`HO'7X7`7</'!A`7^/^X___K\%6+[(M&!$`D_CL&%A=R
M<(,^-A<`=1B+W"L>.!<[PW-?HPX7`P8X%Z,8%RO`7<,[!AH7=PL[!@X7<@6C
M#A?KZU"+V+D$`-/K@>/_#X/#08'CP/]3!HS9`]F.!AX7*QX>%[1*S2$'6UAR
M%J,.%_?#`.!U#;D$`-/CB1X:%RO`7</'!A`7^/^X__^%P%W#58OLB\0K1@2C
M.!==PP!&:6QE(&YA;64@<F5Q=6ER960A"@!R`$5R<F]R(&]P96YI;F<@9FEL
M92`G)7,G+@H`1F]R=V%R9#H@<W`@*R`]("`@($)A8VMW87)D<SH@+2`@("`@
M16YD<SH@,"`Y("`@($5X:70Z(#Q2150^`"4P-6QX`%!R;V=R86T@8GD@1&%L
M92!'87-S+"!4<G5R;RP@3F]V82!38V]T:6$L($-A;F%D82X@("@Y,#(I(#@Y
M-2TR-3<Y"@`````'`'(`````<BL``@!W```!`W<K``(#80```0EA*P`""7@`
M``$%>"L``@4````````````````!```!`````````````0$``0``````````
M``$"``$`````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M`````%075!<P,3(S-#4V-S@Y86)C9&5F````("`@("`@("`@,#`P,#`@("`@
M("`@("`@("`@("`@(""00$!`0$!`0$!`0$!`0$!`#`P,#`P,#`P,#$!`0$!`
M0$`)"0D)"0D!`0$!`0$!`0$!`0$!`0$!`0$!`4!`0$!`0`H*"@H*"@("`@("
M`@("`@("`@("`@("`@("0$!`0"``9A@```````````````#__P``\A``5&]O
M(&UA;GD@87)G<RX```$``0````@``````````````````````````(X2\Q(*
!#6UA
`
end