[comp.binaries.atari.st] v01i041: more -- text file viewer

koreth@ssyx.ucsc.edu (Steven Grimm) (04/27/88)

Submitted-by: braner@tcgould.tn.cornell.edu (Moshe Braner)
Posting-number: Volume 1, Issue 41
Archive-name: more

To judge from mail I've been getting, it is time for a repost of MORE.TTP.
This is a little utility to print text files to the screen or a printer.
See the doc file, or invoke MORE with an empty command line for brief help.
I have replaced the desktop "SHOW/PRINT" thing (ugh!) so that when
I double-click on a document it is shown via MORE.  To do that I
modified the desktop.inf file.  The last lines of it now say:

...
#T 00 07 02 FF   BLACK HOLE@ @ 
#F FF 04   C:\BIN\MORE.TTP@ *.*@ 
#D FF 01   @ *.*@ 
#G 03 FF   *.APP@ @ 
#G 03 FF   *.PRG@ @ 
#F 03 04   *.TOS@ @ 
#P 03 04   *.TTP@ @ 

Works like a charm.  I just wish MORE would work from inside the Laser C
shell -- I don't know why it does not.  The source code is in assembly,
e-mail if you are interested.  The following includes docs and MORE.TTP.

- Moshe Braner

<braner@tcgould.tn.cornell.edu> <braner@crnlthry.BITNET>

---------- cut here ------------
begin 644 more.arc
M&@A-3U)%+D1/0P      O0@  )@0&G5I,A /   ,#10D:/)$2A$75*A  0&B
M!4,K9>3,2?/&#8@8+F@$#)@@"(@V==C02=,"3ATY<-[,*0/"3!HV94K*2>.&
MSILZ=$#@?)F&3AX7'(>\@9-GYADT.6/DP'$#A)@\()JH1,-2B)PP;B("%0@E
M8ILT<R96! $6Q)FK-<N0 6$3Q)BA4+&NK;.2!4<Q.$&X>9.S[4HV;%J^D0,"
MCIPW+NELW2AP2A8G3Z!,23)%!^,$;0:SW%*R"V<S(&[2<0G3<PL[IL68)F-Z
MCNDQIMN,,$UG=LN79=R$:5/F<DF&HDWV?5-X9EK"*,B4,1,F)!T=;(G/&2.G
M3.X4'%N !K'2S=K@>=N2[BWP-$/#-'.^K7DX\!@T822"L!-13)B1;;*+82BF
M>I@U(+!1T1D!TE3&'-&!$(88HH%@ PYNO<%&'6VX,4=V:Q67'@ADW"0&3"W,
M 4<88ZB5'8+<K9$&'*'11Q@<$9DQV'T4N9'=& SE1D=$&AX7(7L21J@<@BBT
M@54=80"6!W;ER:8@&6MA!4(9>-!Q58#+Y62D'&?0%!IH(T0X8847EE?;E'B,
MZ!U;"R+H5QIZL!1F<LLU)Q((.*0  @HP) A3&/0I.$<+8#%YF535N4 ''2RB
M5Q."8;!%94[C)4@'5=Q19YT;+/2XHQR=#D9636]PA!5?5!$VG@L,)9&386_8
MD<:0/]+G1AHZ9EI=;BT\%:*FN<V'ZQTTG<$1"C2-,2$9Q8)0G:QEW/&EI%6R
M!5].\"$X77LP?6<&:-MNFD*G<G%D1WP4T04"?'*0\191GC8XU$@5S<%J5)HI
MRJB";,Q!W'T[M@$''6Z6*M <:+PA[1V#D2'3&R6&U2P*9;AP!JLQS)'3%0WK
M.1Z"7D9*UX(P"29'&XL)A&C%B[)85J0G4/'$%"W0\=^!)<6W6QF?SG%"<6^<
MM5NG:;A0,5E]W5QF CV!;*&5=8Q!KX4M'=:&M2R=\%8;1J[)AH$GW&N$U5AS
M>. :-L%AET =UO%A3,JF,0: 8UW*$D$&(:006>MU:K=%.O)H=V$Z\]8S1^D1
M-SBS20;MU!MXB$TVS B7 =@)?N<!(P@B9%:="((!IK") CU5]HA7&1[1''Y3
M99%A!R+(@Q0\G^2&#RDGD 1H>=PTJAUOK,&2YRSO2^RE>A&'^LX]*YA3DFP0
MG1.Q@''$K(ALA!$7=PG+D=/7&D\[^-9=._QU5H2GSC./\]9H[V5/H+^\ZH2]
MS,8=VB.8E5IJ03>X;KP1'Z8JU18QD"<!CMH1&>ZU.VO=ARQNPE1%V "5^:V/
M,+VKPY1\5#>J<(1\<BE05EKWP!U5JU+4"XP!N:<PBW20)>'*S582$#\8 LL-
MV@E)8%+H%)9<#P[9RX-:R+6FP?$F+&$X TLZER](#$ $,\R"[\8@I;\5)W8@
MF%WMY'"[!*V$)149GF9$6(9.\6 *(RJ1#Z+#D2^6+2O5BJ$;S*!#,PJ!1&L0
M$8G*L$:_6*=L,CH9C^38 H[0$3"A(@P/BC"=-:) 5#R(@@_TU)8XU*$G]Y*B
M!JEHD23YZXIAR2(2WL";/AHL 6J@$(O:,C@#=LD-MW(#@1 #2-S<"PK5"24/
M1EG*T+BA1 HZ0QB\9!..I%)@EL)4;KQ52YC<ZPJN<U[9EBE EE0J@QSAH1N-
M&+LD+I&:M!P/%!FB2;=4,9JPTR4CQ^"#8T%2DN/*XAWGID<U)E*4I.1C[JB@
M/./T98"X <$)9/2&G[W04SQ"P>"6!QC+%68P=&!2 GRR.296IR$L(N@X04 %
M3-TA825#X4M4R)($J@4$QTL83C@R(KJ4T2EYR>!'M*<@!GGO=/YL$#$Q]14H
ME<QTZ9R(+#FRR$9FTG=&BDN__@6ET-B-,.VKER_+!D*O&<@R"N!( D00(M#Y
M144LL@$9(66&3TW)15"Q09],^#T#$:F8 DD ""!1@#F M46"PQ2,Y!!(&HW%
M2\S!H8S8L)81[34%,]SJ:;RJO#"$<CU6"M)[=":UU5GK,'4XBDY^"1]9JB6Q
M<RT "I[P5&*M!&MQN6AU@+C'M:24.VD\D L,)9!R<I)?G^P:DI3TI,+ZDT>0
M;8^0#K2GBEW,9 HR9$74TUDE(I8A\:,J*<M'1K9H;HDM&,-&F7"?B'2*>/J"
M0S9'"C2!Y42F@60+P[C#,P31\BU#NE<1?(05J$SV*I65"$=DBK^:M"Y80<TB
M[>A@.]PQ! 55.*U0@,2&%C0A0<E:%DN",(4A)"$)'WR#<BXR@]DRI*/63(-$
M<K*2Z9%WA=W)B1"*8(2"%*&9+"F+2<FPMHE*\*GLS4D0C$"%(DBA4^FD$,F@
MTI9<\@RGZ1$<<3(H!Y96QPP1J<Y:E,,<YWBJ61K+@S,OTT"9AJ&I7 6-1A/$
MY AQ+83G>^G@P&-BP)A%<:<<7*4&^H:"CDIC9?AR-76UJ= 09J&_E<.].EH6
ML'#$I8<D"^]\U]_A> II4ST5CK<F'._Z6=$@P*9 4AF^1B=H/2YZWD4TU@*.
MM>LV)6N+E"ALX22@NF+PPW%4J0:H86;O;9WZ*,]2E>F;G."B"6P6*S$EQQJ;
M%%27CM1XR%4=K&J5JV)@K%/\ R !R7*LY!)U/6,,FI1(#-<]I,,=-J75T+YE
M3%2SP0P4M*8;U.!>1ZCS6M++L'8]+&)")=#'$LM5,D@[@0)MV]M@V]J?H2!2
M'\)*M0VDH++R*,_O*3==V4I&Q#Z[9B.0-I74M!:;B:%@"N)0&KX5D5P1BPS(
MN]0Y#RA72!B RG;*"0[NA8(3C.!G9?D?A0R(;..RBJMTH $4)=IR Z  Z#  
M'2=+U"\TJ4DL+@2-Q^?@/ZJDMJ2.70D9)&Z 2V%6L\,N::#W)*KQZ,FQ(&#U
MA4&0@]E>7#;2_G*4L%36%FSIE=,*T[DI1#6*6>SG=H^!#$1@\:P:/@%3R">:
M=@-$EE1U+6FF^F42\)OL8FE1$=%JS6@ -*&A;$1+HSR+0M20-M2@\ZESP1@T
MOQ_MH!0.BJK6'6#?H=4K !H(34]212Y45%       *$&  "8$+9T$?SW!P  
M#& T  !P@!0 2!94O % ($@^  $0,(O4[ 6"%PV$G/G! X 2)T&>O / 0 D@
M,PR%+6D' )"$#F8@!-%GH$L8ANYN$I &AJ&M) \)FIH2!$('!@-!G'& %$""
M,PB:MCC#  .P*,G^H1-"H2< ;$37V#/:-$P9 @22-IUB1L&5H 7L]?R'K>F0
MMF\'%L W%UE3(GCA\IN+JVD3,PYN%B Q YA>?7-)-:6"6#&$QGKIS85$<B 4
M,PQF\#M(P(" N7Z:&C%#0_2_?P--.QR(0$G8@43()CT# 8P"W0! C 'P#PH$
M8$(@8/T'SRN)IE8"Z_4WET93(2C_L<@+P " N2*XPM!!P)@:#AJ1Y*&MA", 
M'B"A/%("9 V  8XP=S<@),?  _CTQ]YX!#AR!@@S$> )4/\%.,1- [B2("D,
M E";$ _>YXEZM''BG@8@<?%(>NL)Y9X3\<T'!$H#R#!"4 C80ALR)/YGBGL]
MI$B??0-(H)\!!!P1%( 0;'"& 3<)0 08]@A)&S,H+"'$$4(4P,!Z L0F %0)
MZ@"A!D(8P8L> \##A@)P@)"D!5(8 08\8;HG@'L!.-$$%BJ>X4&2VC1E)  "
MZ'(EH%J:@0 20$S@6'<(8%! +LN4@4"2))PQ$!\:<,!  0 T<.2F "A@A@2Z
M$' &&@RDY2DWJ89ZAC5@: %J F9X,-X =IQA0IHW!2!*FS 8@ 0P@.@S !F(
MTF>&.F"X H$. XAA**@?B"& 'B \.X 59U@ JE(*,.#=$F\H, 4C8$@@+@ _
MN,$ ! 7T"D:;<^FA+0YG8-"J I8& $ZKGD*$3:\R]!0 -+VJ(,41,/@'0 '\
M'-DK!PN/)X _#  !*$H N,/ $0!@T 8 _L@STP!:)"D ! X;@ !40I3H,AA(
M0F0-HDT%T"\M34'0+RM-.6 &%7"X  (3<BPA##"<!1/+:!8R(X8!LT6="S)C
MD' N Q2$VA8#+'3ZFJ%;=]V &>1$@<P_XDC!"->N!GC$3 +8TRLC,<>F0$_^
MJ-'4$;56*)$1+3-@!C;9P&C++5(+$"4<%X"AB!(MBTH<&0)VQ\ 41S3%P5)-
MY9"=$W"<1IP9-W7'-P9T,](K"D[4,5X ^ECJCP$?OS=R/_[P$>] #$3AS#_Z
M3-E3/^[ T4#J:"J0.@&QRZ!# -BH@8*B_Y'"(4&DO- 1) ,$\,/TQ+@'!$@B
MD622?0<!$#OEL2%@!@5( )*Z*TK(+( 9!IAD*0!RB!T('(8 9)S!!FN@P?8D
MXCV(#&1\ <"#>WZ OI&4!!!K,,(9B!")7,Q(<,PX CT0X!% Q$X(0.". 100
MNR7 2 E&D1AQP,"D066I._MCG3X"<(?4"8%O(-FA'U)G@]1I8'86.(,"?L"N
MCO@ )'BZB3_@= :0N.< (*'"(V+'Q!^(KR,#L).(8F<1]R0@1%NLPTW^(0\E
MW$4$=H#"&J&!LX%PP P$X$KL$&45.?SN'\2(PC+^00XPL$,(1)"# -8(M('\
MZ1]OH\W_7-"4/_S/!$T)& "$T!00C.P?UK %$2SU#VAD ! :DP(1UNB'N0A#
M":,D#B^FD)N.3(HX:H! 1]1$'#'HTD)KU,)</+%&*?S2><11@A!HH+$3 D$(
M!Z! !XB"!$'D$0 P6 ,$&" $I[A! < 8C0*@(00H' ,,Y%#" <X CMA9Z" -
MR!(D$/":!B@@ 4- 0QCD, <0T.$-(("#',H AS*X@0PZ $&G[IG/??;SGR!0
M$QP*>M"$+O2>*.!!$>8P!A_X$Z!S^"<<4J#0!FP@344X* C>8 80F"$-;"@#
M"#80AXLF@ I/F ((RB '.;Q!#B%0Z$D]^=,RN !\0HV#29<  )INH A-+8(]
M[QDS$#3A#7- @TR%((<PN(&G"4B %7@ZAS2\P0T@B($+:##5!+0@3>![0QWH
M (>Y?C2@<DB#&^C 4WNZM:5RI<-+8QI1B ZV#'YM@1TB.H:STL&G;!"./OD)
M COP5 QAH$,:VI!8,414# ,-PQI P(:S'H@->BW#'!)+AHB20:YBB&D+Y@"'
M,(RA#&1(;#]!,(<UI"%-;["L' +*4S/\-+-F=4-BQQ!1@_)UN(W=*V2%\P8R
MJ#:Q;1B!FLC0VIB:@0Z>W.<9]+K2EHX@L730[AS* %XZA,&S9=6#3"&J713 
MH ?K5:E[/3N&R<XA!6TEC0%LX ,(0( "%)" ! P@ PD@V  &,/"[*$  !% @
BP@X0@@)DH0($N  !.(" RR"@@*F)P $D!D&$$2 !   :    
 
end