[comp.sys.ibm.pc] File display program

dalegass@dalcs.UUCP (02/16/87)

Here's a handy little program I wrote that I use quite a bit.  What it does is
display a file on the screen in 1K chunks.  The bytes are written directly
to the screen, so all control characters, etc., are shown.

'show filename' will start the displaying of the file.

space, or '+' will move to the next block
'-' or '=' will move to the previous block
'0' will move to the first block (start of file)
'9' will move to the last block (end of file)
RETURN or ^C will exit the program

This program requires the CGA (video ram @ b800), as it writes directly
to the screen.


***************************************************************************
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


!!!!!!!!!!!!!!!!!!!!! uuencoded - cut here !!!!!!!!!!!!!!!!!!!
begin 600 show.com
MZ6H.58OL@\3Y5HM&!#T"`'0?N`$`4.B%`EFX7!10Z+(!63/`4.AV`EFX`@!0
MZ&<06;AQ%%"+7@;_=P+HP`2#Q`2)1OF%P'46BUX&_W<"N',44.A^`8/$!.@\
M$.DL`>@)`L=&_0``QT;[```SP%#_=OW_=OO_=OGH"0.#Q`B%P'0#Z>H`,_:!
M_@`$<S[_=OGHQ`-9B$;_*N0]_P!U%;@@`%"X`+A0B\;1X%#H0@2#Q`;K%8I&
M_RKD4+@`N%"+QM'@4.@K!(/$!D;KO#/`4+@/`%#HX@&#Q`3_=OW_=ONXC110
MZ.\`@\0&Z`8"ZVF#?OT`?`EU"8%^^P`$<P+K"8%N^P`$@U[]`.MCZV3'1OT`
M`,=&^P``ZU6X`@!0N@``N```4E#_=OGH6P*#Q`C_=OGHS@)9)0#\@>+__XE6
M_8E&^^LJBU[Y]D<&"'4)@4;[``2#5OT`ZQ8]#0!TKCTM`'2-/3``=*8].0!T
MK>O6Z?W^_W;YZ%D$63/`4+@/`%#H-P&#Q`2XDQ10Z$H`65Z+Y5W#58OL5HMV
M!%;HF`%9@_X*=0BX#0!0Z(L!65Z+Y5W#58OL5HMV!(`\`'0-B]Y&B@>84.C,
M_UGK[K@*`%#HPO]97HOE7<-5B^Q6BW8$C48&4%:XCP)0Z+D'@\0&7HOE7<-5
MB^R#Q/]75HMV!(M^!J'(%(A&_XO&N00`T^`+QZ/(%(-^"@!T"($.R!2``.L&
M@2;(%'\`@WX(`'0(@0[(%`@`ZP:!)L@4]P"!)L@4_P"*1O^87E^+Y5W#58OL
MH<@4B^5=PU6+[(/$_U:+=@2AR!2(1O^)-L@4F%Z+Y5W#58OLZ!L`,\!0N-`'
M4/\VR!2X(`E0Z.X`@\0(,\"+Y5W#58OL,\!04.@A`(/$!#/`B^5=PU6+[+@'
M`(-^!`!T`[AP`*/(%#/`B^5=PU6+[%=6BW8$BWX&@_]0?`._3P"#_AE\`[X8
M`(O&AN`JP`O'4#/`4%"X``)0Z(L`@\0(,\!>7XOE7<.T`,T6Z"``@#[&%`!T
M"CV``',%4.@K`%C#M`'-%G4$N/__P^@!`,.$P'0#*N3#AL2$P'0*/`-U`RO`
MPPR`P[C^_\-5B^Q6BW8$@>;_`(/^('P7,\!0N`$`4/\VR!2+Q@T`"5#H&@"#
MQ`C_-L@4B\8-``Y0Z`H`@\0$B\9>B^5=PU6+[(M&!(M>!HM."(M6"LT07<-5
MB^R#Q/Q75HMV!(!D!O?V1`8$=!JX__]05NB=`H/$!(7`=`FX__]>7XOE7</K
M&8M&"CT!`'41@SP`=`R+1`(K!)DI1@895@@SP,=$`@``B03_=@K_=@C_=@:*
M1`>84.@F#8/$"(/Z`'\'=0<]``!R`NL%N/__ZZ\SP.NK58OL@\3\5HMV!+@!
M`%"Z``"X``!24(I$!YA0Z.X,@\0(B5;^B4;\]D0&!'0.BP0K1`29`4;\$5;^
MZQ&#/`!T#(M$`BL$F2E&_!E6_HM6_HM&_%Z+Y5W#58OL5U:+=@2+!#M$`G)4
M]D0&&'0)N/__7E^+Y5W#@&0&^X-\!`!U!5;HE@)9_W0)_W0$BD0'F%#H+`R#
MQ`:+^(O'/0``?Q*X$`"%_W4#N`@`"$0&N/__Z[^+1`2)!`/'B40"BQS_!(H'
MF"7_`.NI58OL'L5>!(L''UW#58OL'L5>!(H')?\`'UW#58OL'HM&",5>!(D'
M'UW#58OL'HI&",5>!(@''UW#58OL5NCP`8OPA?9U!S/`7HOE7<-6_W8&_W8$
MZ`4`@\0&Z^Q5B^Q75O]V".BA`%F^RA2`/`!U#L<&EA8!`#/`7E^+Y5W#_W8&
M5NB,"(/$!(7`=`6#Q@7KVO]T`_]V!.@=!X/$!(OXB\<]__]U!#/`Z\Z+QXM>
M"(A'!\9'!@&+P^N^58OL5HMV!HL$.T0"<A.+1@0E_P!05NBE`(/$!%Z+Y5W#
MBT8$BQS_!(@'F"7_`.OL58OL5K[X%('^_!5S#(O&@\8-4.@(`%GK[EZ+Y5W#
M58OL5U:+=@0S_X7V=0FX__]>7XOE7<.`?`8`=#_V1`8$=`VX__]05NA%`(/$
M!(OXBD0'F%#H[@I9"_CV1`8"=`?_=`3HK@)9]D0&('0._W0+Z`D+6?]T"^B:
M`EDSP,<$``")1`*)1`3&1`8`B\?KH56+[%=6BW8$QP:F%J\&]D0&$'0)N/__
M7E^+Y5W#]D0&!'0LBP0K1`2+^%?_=`2*1`>84.A1"H/$!CO'=!*`3`80,\#'
M!```B40"N/__Z\B+1@8]__]U$8!D!OLSP,<$``")1`(SP.NO@WP$`'4%5NAI
M`%F+1`D]`0!U'K@!`%"-1@90BD0'F%#H_`F#Q`8]`0!UJHM&!NE^_XM$!(D$
M`T0)B40"@$P&!(M&!HL<_P2(!Y@E_P#I7_]5B^Q6OO@4@'P&`'02@\8-@?[\
M%7(',\!>B^5=P^OHB\;K]56+[(/$_E:+=@2*1`>84.A%"UF%P'02QT0)`0"+
MQ@4(`(E$!%Z+Y5W#N``$4.A_`%F)1OZ%P'3?QT0)``2`3`8"B40$Z]Y5B^R#
MQ/Q75HMV!(M$_B7^_XE&_BO&B4;\.T8&=@N+1@:)1OP#QHE&_E;H-P%9_W8&
MZ#4`68OXA?]T)CO^="+_=OQ75NB%"H/$!J'<%CO&<A`[1OYS"RO&B]@#WZ'>
M%HD'B\=>7XOE7<-5B^R#Q/I75HM&!`4#`-'HT>")1@2#/MP6`'42QP;:%MH6
M@0[:%@$`QP;<%MH6QT;Z``"+-MP6B7;^.S;\%75>_T;ZBT;Z/0$`?E/'1OP`
M!/]V_.AR"EF+^(O'/?__=0@SP%Y?B^5=PXO&!0(`.\=T#(D\@0P!`(-N_`*+
M]XO^`W[\B3S'!=H6@0T!`(D^_!6+7OZ+!R7^_SO&=0*+\_<$`0!U2HEV_HL$
M)?[_B_CW!0$`=0:+!8D$Z^V+QRO&B4;\.T8$<B@[1@1V$HO&`T8$B02+V(L'
MH]X6BQR)/XL$H]P6@0P!`(O&!0(`Z73_BP0E_O^+\.E"_^EG_U6+[%:+=@1.
M3O<$`0!U"+C__UZ+Y5W#@23^_XDVW!8SP.OO58OL@\3\5HMV"(M&"CT$`'40
MBUX$BP>+5P*)5OZ)1OSK(XM&!CT``'X/BUX$BP<KTHE6_HE&_.L,BUX$BP>9
MB5;^B4;\QT8*``"+1@8]``!](O=>!H-^_@!_"'4(@W[\`'("ZP_W7O[W7OR#
M7OX`QT8*`0"+1@:9B]J+R(M6_HM&_.CV`XO8BH<`%DZ(!(M&!IF+VHO(BU;^
MBT;\Z.0#B5;^B4;\"]!URX-^"@!T!$[&!"V+QEZ+Y5W#58OL@<0D_U=6BW8$
MBWX&QT;Z``"+1@B)1OR+WT>*!YB)1OZ%P'4#Z98"/24`=`/I=P+&AC+_`,=&
M^`$`QT;V(`#'1O00)XO?1XH'F(E&_CTM`'4.QT;X``"+WT>*!YB)1OZ+1OX]
M,`!U#L=&]C``B]]'B@>8B4;^BT;^/2H`=1>+7OR#1OP"BP>)1O*+WT>*!YB)
M1O[K+\=&\@``BU[^]H<3%@1T((M&\HO0T>#1X`/"T>`#PP70_XE&\HO?1XH'
MF(E&_NO6BT;^/2X`=52+WT>*!YB)1OX]*@!U%XM>_(-&_`*+!XE&](O?1XH'
MF(E&_NLOQT;T``"+7O[VAQ,6!'0@BT;TB]#1X-'@`\+1X`/#!=#_B4;TB]]'
MB@>8B4;^Z];'1O`"`(M&_CUL`'40B]]'B@>8B4;^QT;P!`#K$8M&_CUH`'4)
MB]]'B@>8B4;^BT;^ZVG'1NX(`.L3QT;N"@#K#,=&[A``ZP7'1N[V__]V\(V&
M,O]0_W;N_W;\Z,;]@\0(B4;LBT;P`4;\ZU"+7OR#1OP"BP>)1NQ0Z,T"68E&
M\.M$BU[\@T;\`HL'B4;^BT;^C9XQ_XE>[(@'ZR`]8P!TX3UD`'2B/6\`=(@]
M<P!TO#UU`'2%/7@`=(?KTHV&,O\K1NR)1O"+1O`[1O1^!HM&](E&\(-^^`!T
M4(M>[(`_+70%@#\K=2.+1O8],`!U&_].\O]&[(H'F%#_UED]__]U";C__UY?
MB^5=PXM&\O].\CM&\'X5_W;V_]99/?__=06X___KW_]&^NO@QT;N``"+7NR`
M/P!T(8M&[CM&]'T9_T;LB@>84/_663W__W4%N/__Z['_1N[KUXM&[@%&^H-^
M^`!U(8M&\O].\CM&\'X6N"``4/_663W__W4%N/__ZX3_1OKKW^L4_W;^_]99
M/?__=0:X___I;/__1OKI6OV+1OKI8/]5B^S_=@:X`0-0_W8$Z`<`@\0&B^5=
MPU6+[%=6BWX&@>?S`('/`#WW1@8``G0#OP`\,\!0_W8$5^B'`8/$!HOPB\8]
M__]U&_=&!@`!=!(SP%#_=@2X/`!0Z&<!@\0&B_#K&_=&!@`$=!16Z"$$6<<&
MEA83`+C__UY?B^5=PX/^`'PC]T8&``AT$[@"`%"Z``"X``!24%;H#02#Q`A6
MZ&H%68B$P!:+QNO.5RO_A=)Y"/?:]]B#V@!'A=MY"_?;]]F#VP"!]P$`Z#D`
MA?]T!_?:]]B#V@!?PU>_``"%TGD(]]KWV(/:`$>%VWD']]OWV8/;`.@.`(O!
MB]/KS^@%`(O!B]/#A=MU'CO*=Q-0B\(KTO?QB]A8]_&+RHO3*]O#]_&+RHO3
MPU=6B_&+^U)0A/]T#HK-BNN*WXK$BN**UBKVT>K1V-#KT=F$VW7T]_&+R/?F
MB]I0B\'WYP/8B].+P5M9*\M;&]IS!0/.$]](*])>7\-5B^RY_W_K!E6+[(M.
M"/Q65XMV!(S?CL>+?@:LKG4*A,#@^"O`7UY=P[@``'(#0.OT2.OQ58OL_%>,
MWX['BWX$B]\KP+G_?_*NB\<KPTA?7<-5B^R+1@2$Y'4"AN"`_`IR)U8&@/Q'
M=0B+5@B+=@;K!HM."(M6!LTAC,('<PBCEA:X__^+T%Y=PXM6!LTA)?\`7<,`
M````O0``A>UU`HS=+HP>:P^+'@(`*]V!^P`0=@^-G@`0C,`KV+1*S2&[`!".
MQ2:,'J06L033XR:#/KP6`'07)J&^%M'@)HL>N!;3XSO8=P*+V('#[!?ZCM6+
MX_N%VW4#N___)HD>H!8F@SZ\%@!T-R:+-KH6B\-`)J.4%M/F`]YS`[O__R:)
M'J`6@\,/T^N,P`/8C-@KV(S%CL"T2LTA<P:X_@#IDP".Q?R_VA:Y[!<KST'1
MZ>,$*\#SJXX&+``K_[G_?R:*)8#\/706A.1T!/*N=/"*#H``*NV^@0"X`0#K
M"2O`JHOWC,>.WU".Q2:+/I065^,(K(3`=`.JXO@JP*J.W4>!Y_[_B3Z4%HD^
MG!;'!IX6[!>#/KP6`'4$B3Z>%J&>%@,&OA:CGA:,'I@6C`Z:%N@P`.L"6%BT
M3,TA+O\N:0\`````+H\&K1`NCP:O$!_H!0`N_RZM$%=6RU6+[#/`B^5=PU6+
M[%=6BW8$,\!0Z)$"6:+`%K@!`%#HA@)9HL$6N`(`4.A[`EFBPA:+1@9`T>!0
MZ(T"6:/@%HO8QP>H%HM^!HD^XA;1YP,^X!:`/"!T!8`\"74#1NOS@#P`=$V+
MWT='B3?_!N(6N`(`4.A3`ED]__]U&K@.`%"XJ190N`(`4.AS`(/$!KC(`%#H
M1_]91H`\`'04@#P@=`6`/`EU"(O>1L8'`.L"Z^;KH<<%``#_-N`6_S;B%NA\
M[X/$!#/`4.@'`%E>7XOE7<-5B^S_%J86_W8$Z/[^68OE7<-5B^RT/XM>!.LN
M58OLM$"+7@3K)%6+[+0_ZP55B^RT0(M>!("_P!8`=`Y=@/P_=`3_)M86_R;4
M%HM6!HM.",TA<P:CEA:X__]=PU6+[+0^BUX$S2%S"*.6%KC__UW#*\!=PU6+
M[+1"BD8*BU8&BTX(BUX$S2%S"*.6%KC__XO07<-5B^RT08M6!,TA<PBCEA:X
M__]=PRO`7<-5B^Q7M%:+5@2,WX['BWX&S2%?<PBCEA:X__]=PRO`7<-5B^Q6
MBS;J%X7V=3"X!`%0N.064/]V!.@L_X/$!HOPA?9T#X"\XQ8*=0A.H-@6B(3C
M%L<&Z!?D%HDVZA<[=@A^`XMV"(7V=`Y6_W8&_S;H%^AT`(/$!@$VZ!<I-NH7
MB\9>B^5=PU6+[%=6BWX&BW8(B\9.A<!T,(O?1X`_"G4FB\<K1@90_W8&_W8$
MZ,+^@\0&N`$`4+C9%E#_=@3HL?Z#Q`:)?@;KR3M^!G02B\<K1@90_W8&_W8$
MZ)7^@\0&BT8(7E^+Y5W#58OLG/Q65XS?CL>+=@2+?@:+3@B,P(S:.\)U%SO^
M=!]R$?T#^0/Q3T[VP0%T`:1/3NL&]L$!=`&DT>ET`O.E_%]>G5W#58OLBUX$
MN`!$S2%R#_;"@'0*]L(#=`6X`0!=PRO`7<-5B^Q7BT8$BSZ4%H7`?08K^'(6
MZP0#QW(04.@7`%F%P'4"B\=?A<!=P\<&EA;X_[C__^OP58OLBT8$0"3^.P:<
M%G)P@SZ\%@!U&(O<*QZ^%CO#<U^CE!8#!KX6HYX6*\!=PSL&H!9W"SL&E!9R
M!:.4%NOK4(O8N00`T^N!X_\/@\-!@>/`_U,&C-D#V8X&I!8K'J06M$K-(0=;
M6'(6HY06]\,`X'4-N00`T^.)'J`6*\!=P\<&EA;X_[C__X7`7<-5B^R+Q"M&
M!*.^%EW#1FEL92!N86UE(')E<75I<F5D(0H`<@!%<G)O<B!O<&5N:6YG(&9I
M;&4@)R5S)RX*`"4P-6QX`%!R;V=R86T@8GD@1&%L92!'87-S+"!4<G5R;RP@
M3F]V82!38V]T:6$L($-A;F%D80H`````!P!R`````'(K``(`=P```0-W*P`"
M`V$```$)82L``@EX```!!7@K``(%`````````````````0```0``````````
M``$!``$````````````!`@`!````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M````````````````````````````````````````````````````````````
M``````````````````````#:%MH6,#$R,S0U-C<X.6%B8V1E9@```"`@("`@
M("`@(#`P,#`P("`@("`@("`@("`@("`@("`@D$!`0$!`0$!`0$!`0$!`0`P,
M#`P,#`P,#`Q`0$!`0$!`"0D)"0D)`0$!`0$!`0$!`0$!`0$!`0$!`0%`0$!`
M0$`*"@H*"@H"`@("`@("`@("`@("`@("`@("`D!`0$`@`.P7````````````
M````__\``,<0`%1O;R!M86YY(&%R9W,N```!``$````(````````````````
.``````````!C$L@2"@UM
`
end