[comp.sys.atari.st] a convenient terminal program

sgstree@cad.Berkeley.EDU@polyslo.UUCP (Samuel Streeper) (12/06/86)

I am passing along a terminal program that I wrote that netters may find
useful. I don't have posting priveledges so I am sending it here.

SAMSTERM.ARC contains a short document, an example phone directory,
and samsterm.prg, a terminal emulator with mouse support, 50 line mono display,
very simple command line interpreter, and a few more features.

                                          Samuel Streeper


square brackets -> []
------------------------- cut here --------------------------
begin 644 samsterm.arc
M&@A304U35$5232Y$050`N0```'0+B0("2P8!```,0:@0@=)`09@48\*P`0'G
M#9L\+B`1`%&#AHT6,F[,B`$"TH&"8E+`"2,G#)DT<\J`$"-F#D4:,5K`D!$#
M1\>/"CIZ*$@&H4*&#O.`&"'#Q<N+&6-P]%BP3(HP=$BF`3'FC1PX'0?$I`$#
M1XL;-&I@M$%#!HB"9E+$J1/&#9TZ;:B^<>/F9<P9,VK89*K@3`HR)->`F).&
MC$J)%6FTJ!@CQ\V":%),H5/&3ADC)URR=)FX18X;9!\K`!H(4T%-4U1%4DTN
M1$]#``<&``!T"XH"O@X>"@``#"`@$5`!`L24,&WFT"DCIPT(,F_&U&E3Q@V=
M,'32O'%34$4#!1\/)ES8$$2:.2#"@"#9)HV;,&Q`P)'SYHP<A"#,O)&S$DV9
ME!?EI#%(Q04()&78P#&),HR=,&G8A!'#ILQ',7E`H$E#)Z.;,SU_^E0*8DV9
MK!A3NLF:D:+1('1`*`PCATX=."SD(E3(L(V+F6#9O'FS9LY'G3SI^)2)9N-/
M-Q/%,'R(4:69J#]/S-G+T@49C"?4DC%IQF3<DS+EE)E3D<Y'P6'(H%3\$TYC
M-S_9G#QM\0T(BFUVYC%*92O*RU69IEQ9!D]<Y#_#N!G=)DS6JS_+D.&J'<0=
MKFC4LFT>5SO7G4:3T$&I4$Z=,795*Q\C-.,8F#EWRGT_9O4<,W6P\=%V,+ET
M1E[2C89:&,>]P89@=\RAPT<#IH%?>P;J``(-(%35%4,-/OC&'=UA!0)]+[!A
MQD>T/61A3!1!IJ%T64'6AF0\O5%::T*M=N)&<^QF(`@Z?A30`RK%4$.'97S(
M$QFKT9<&''3HIY.()(YFHDI&0O*`DBZ>P15CCH%@(X[Y85DB6B!T^0"**KI`
MH0+%,?03:JK!Q$:-ONG64EQ5AL7D5XH169IBJ.FFD(;J*><2E'BL^=$)882F
M&$UUG!'>"7J$EB`(DN6Q$1E&9?%&'=Y%%=,=T@'JFTMCL%$'E#VA]FAS)G%$
MVV%IF+%014PZ^5"40E&)'@@HU)E:33<Y!-%J;IP0EV"$`05"%D]4(46ND.;%
MU4?W/3C;8I?)H1"1N(%`Z0EYM<C:&*.BFYD8GDXGEV^(*9;7'+ZU>"L>'Z&&
M&`BBUI'C'1S5P9H+*<S9*&IV,)15&FW`L=-%%O645AD1RY$5CUFAX=1/,\@0
M+$E-H03E'%)*-MI4;T0LIP)&0"6K?(%6Y])%+M7*'AWNP6?P3]\]F!K'K0DZ
M$[,XF4&30TO#P=">%1;XU<P?/9&NCH*^0:5&;J"$6J#-E2'10LLM;1-"Q!FG
MG,)E`+BJ3QP5[%VK+/H&]W(+.0>">57FR!-T*]T4MAF3J=ULJHJ=6AX>7`W9
M(DLNP30S"OJIH?!S^K4(($=<0S0D5RY`,D`*(!B1AKFGQ<5@8:01?*J996B7
M]XDB?_53BU":$4:`<<&!$1KIE;;92'TYJNMBQ_^TG6KP"9?2N#]]I#A.=G\W
M1WB!NE?W[-7Q&9?($:_DVQBYG['[8KW_SD;PPQ<O>QT?E7UV=,NN[9!N9H$0
M@T)?N,-.1N.T-SA$.F^@S9-69[;`Y2$OC2%1Q_*2/55]A'R[.U_ZUN>\N+D/
M?H7BE\9:=R+IY.11IDD9O\9@H840$#-SN%P22F.W[9`A6G%!GW349QIOQ46`
M`1I-<Z0&'_.=T%ZT<4C/W(40YS$P>A[["(/T@KR&,&Q.5Z#;_$IH-)5<3XD<
M0:`"700]!U(0?)L#U4\Z]C$\P$$W+*3#S&:X1<-1D2\E*:"SA%*^,,S(7MKS
MR6C(%JG[^0^``I0#`9_6)@60@8\_&8.&[-:&-);K7#K4G:#:!SR9#,^(DN3"
M1^JD*]_,@8A<8<MBOGA&5-$A#U*;4T`:$,K_T2&``_R+',[@L(=L1%JU^LJ)
M=&!+7"I2EV!!S1#A.*:*G$I3>7&#?E!32T0.\",H^$[CZ@"HQ2#S;\YI#=BN
M"!(%B`2/#BE#):6RD*8,:PP@L`,=:F`RRKUD5>`!@0R6I!O<S`%!]NI9<*2)
MOJ=53P%BBACUB/2UC1AJ.36`08=<LL9YRN`M[VM!.E]"%1^U*#A[^Q30I/.?
MG21$BK\Y%6M.!,<UY"I0+0H#'*(F%(P\)C*3X9I$S*6?X$0L1NLQ2B\;([6_
ML1%1PDS*2E'S!C'802,**]T`D"4&;H(@"7)I3!#+(LT[J-%)/VA8.8=@0*#^
M<S]G4)]"P'96%"`MC#^Z2W*X5M4QP&Y@;?@8&=Z#$;"ACD1L@!=%2/41*%2%
M03]AC;WT]",YJ.:4HZI(?\PWH7(&Q)P(J4-2#`*TVDE-#EU20`QF8#H07*$B
M&$%?[4`0!)F%M@@Q&4(8U+"1O,C6*#F0`0QD$(./`!H(4T%-4U1%4DTN4%)'
M`!8*``!T"^$!28;6#P``#&`T``#P0`<`2!94/'F2;^`#'"]X#&P`[8=$#4Z"
M<'ED<6#$@0JT='22$<HC)4#,#(1@(L=$=>H6S1@V,($Q%6T`$`#1`@`#:*T`
M4``*@(,!0`,#`!C1K*:P:+F<0HL*H(&ZHP<'$'@!X$6#C@`Z*LGXC5]6!DJH
M6CTST$5'`1\!A.S8H^2C%RX!)!"&]^6/L!)_D#4+:0`#4`J$Y`&)9899!#6Y
M@9"HUYH3J@+X7!XH`!&#(#$`J`0`P<ABN8W-$H@\>2`#;IL!9+;X[Q]MVSQJ
M=U34,4#'`QT?D"R;U8$0(AT)D*3RQ""#(K)'(QC74"^WM\L?C0!64Q<!I`#Z
M+.6NUQ<H`"J0L$`#``$/7@`*].`#P('L^5D-X%>*H!OA`0HD49T"&,`@$00L
M<!,%,O_P`\H"YX'`'@(PP`>8;+TYT006)P'!%@`BO(7=AAVR)8`*?_76T0`:
M;J0$$6H,I(02;?3#RH<(Q#8`!2I*%("&'*+$UC^J]"@;D(_8``!B`@`!P!\I
M2B3`BBT^`DH"8`Q$@Y$_DB@D`/_`8:0`2"K9Y)-18B@1BTVX2,"02@@P!)H#
M@$5EFX]D^<^6%TZY9I5.U/&#;Q<>0-)&@7+540(9(5H'#"W\0XX,D9H33A*"
M`!$HI))2^H\Y@<;6V0S!U*3,;2_H<``#J1Z`0$<%#/<?`X&BJH,![J1J@#JP
MRGJ6`7F``(*IK>F%C*B:"2K1!D:RN=$/!C0+:!TTVJC2/_I`VH\IYB`Q`WD)
M>*,M*@PL!IEUTG6;I4[H>`LN.*):\FU-XM@0@"VG)0#.ASC$"(`'EN0+#A%#
M3#$$#Q()(2H]42SS#S[K8A!P3>!,,0C"``2Q<,,/VY!7`N+@6Y,W_/H+<+[>
M$&PPQD-L[##$`TF,LL48$^'RPX&"@XC.##B)Q(=F]`P`%$`+W4313BZ!-`!B
MF"B`T"]\R(?0$WRHB]`9L!4`*T++H#773K9@HA5"@\`6`1X(_0%;`W`A=!AG
M0Y-E/WC8(%$0ZUI@-P!"K.O`WD.L:\#>R"TK+9X_U.GCG1O-K<-SLGVHP-X#
M"+YW`#+D]H\0FF+FAD29UP8#BY[+P'?GG+DA@P&CB^I&EOS0`[D`*O'#CA*G
M*8#%:'84FX`SR)K&V'DBI*%3",8C\8\]R`/`Q#_JQ$`?`O]((ST`,?QCC?0"
M`/(/-J(B0D,`0@@@C1"DF@IL",/JI8SOQV+&A^_2(.M8>Y'![H;OP,NO&&/A
M&Y\XDB`!`:3/?<`2EJF(9SP$-$]YS#/>\Z)''PA4[WH8T)[T"@`F;,`/6?2S
MGUD@D#\`[$,?"EC-/[*T#WDH@`C_`,"+_(4!.ZVI(Q4XE)6P9$)I(,:&:@)`
M#IW0.!/R0E2@*)8"T(`L$4D)228`@*B,`8Y%5'%T0@N`2OKA#"&<HB,@:)1V
MP"4+`+@$,MAJ04L&0@!=&&`069&!+:C21C:`"1\"<,D]P*2/%O1%+[(`8Z.>
MP$(@%*L!-FBBE$;$(01PIP!"R\-H#$F9!AQ1?B:@CU[(\8(%=$0!8J2#4%8`
M@`!801`H$$(VEB$$"L0E`>;HR`[$J`1`C$81A\0#LC)9$TYZ4B*@U,@C1$D!
M4IH2E:ID)07XAZPK7>,_`E!"U5;"@`D`P&P#08`4%J&G7$D$$EM9P"MC29F.
M+&$P68%`+4=#`L04ZS7(RI(^K'!(0L033&HX)"@4&40RD4A/Q$#B.Q,I/R<>
MB41"@X%TA("W@3A!:#$8C0(R5\IU^:!K$J6H`-;E`J'-(*,2(<"ZTN8D&H`4
M``?PF]!J,!H?4#0!9WI`.9`@H($L``Q-J,X"J($"6PSD-D#5W&Y4Y!N)",<)
MQ"F,`Z:8I7S`0:"488`KD(6[FAAC-!YXIR_XZ:>#<FA=@@#!QX3!!4!PE9&/
M`("30$#1,,`B"&L8B!:DD2]CO-6.4A3"(7P``!3D2Q@8&P#G(,"!-!45`,YZ
M1!2<\0]V8.P!!#@"`,*PCB=DXS\1R,8Q!EO8"QTVL8MM+%,!@(^I8B:)E%D`
M.\[Z1(0B)0P#^1`2U'I-H9'A0[3"C#&RA`\Q':@C'B`)A^SV#W^,@"9ZL07'
M\$&;=W2D`\)]Q&CQ`00@=G6(&S$0`#8@*B]HUPS=G:(0SI"1@UA@`UDX"`$V
M,)H-E&$@Z(W"L"`QT8/,X`_^J`U^?\"/!\#C`_SX`3[^`(\#@,._'P#'#X!Q
M`$`\H#X^"0L_\+L#>@R@P`<&Q@?@,0!P'(#!#@;&```Q```80"<'*<`<PM"&
M.="A#')H@PO($`91;K<("A!6&-A`AQ;TC@YO.,,9V%"&.8!@#&]@PQODH(`&
MZ)C'+9`#"(`L9"(;N0UO<,,;QH`&.;RA#6604!K.@`80R*'(37YRC^$PY2`/
MN<@@@(,<TN"&%S/9R2#8<8_;T.8JPQG+=9A#F,=0!SG,8<EISC.4C8QD-YAA
MS(6&LZ#GO.,X+YD.B=9S"\@``C,L&01D2$.EP>R&.F0:RG@`01GP4`9"O]C(
M<@ZR'%B<Z"*/`02"=@,9C"R&,X=A#8FN@Z[?H&H\I($.<U!`DQO]Z#-$FM.>
MEG(,9``#&(!`#&&H`QE8``(MQSD,<Z9#'M)<&!Q<^]ASX'8,<`UD-HOAV-S&
M0Y9?(&\SF*')R@;!%%BL;SJ<N0QP@'&:8S"#PH#@"F5P0XVY7(8P!\$.97!!
MFHO`!A`,(0QJR#*W+^X"8>6`VC((30QR`((EY,`&U:8!#JHM`QI4>]K5!L$,
MJKV!(E1AV&TN]K'QS6D@@SH-<VBT&UI-ASSK^LA9I@.=ZU"&)H?!#<%Z`QW0
M`&,0K*$,P?)YHY5>ZO?>>`HP%G7%X7!II#L:TK-6>I9UH&PG6QL$(Z>VM;&M
M[8%['.4P2+,,A*7R:J=Y!L)JN=^=3`-AP3SO3JZ!L&:>]R:?F0Z%WE^TNTUL
M+C_]#$UOP(V)('80D-K431[(HXF,:Q:[&,8RIG'1M5QT3PN;#"&`;Q'<JP)P
MZMOT(*`"ZNE<:17H^PA3P/4;S$"'.RQY#4:N/0&:#'%#IR'+<'<!#'+`;:JS
M@<U7#];DZ>QB.=1A#&IW0[*;O`$[W%A816"UJ\,,!2^/H<CC;P`1B)V'-]2A
MVPWO>>71</DP3SW,9%`&9I!M//9M4_<#(+`%;M`%5:%LJ]9J=?!B!M$`#B@'
M7B8'W`8'-59FK'=D_.<&F$<&$^&`ZA>!809C%UA]QY9G5H=U#:@`"6=G!H@&
M"@=F.C!?D0()M0$)409P#2<'R`8"1%8';1`&1E8;64$`!B`!%(``1F$`(.``
M#F``%H``!J!45F@`/N``#*`"7``-!G`K@\,`$F``!H``#E`8#*``!I"&AD$-
M#J!L$L"&!J`"#&"%X(0`;*B&"*`"5S@`"(`$9D@!'L`"9>@!9N@!%)"(=8B(
M;,B&%F"&<F``++"'`$*%"``"$(`$=(@"&F`!'L"&```:````````````````
M````````````````````````````````````````````````````````````
9````````````````````````````````````
`
end
----------------------and here------------------------------