[comp.binaries.atari.st] v00i060: bin:all:uue;arc SAMTRMAC - desk acc vt52 emulator w/features

atari-sources-request@imagen.UUCP (05/06/87)

Submitted by: sun!hplabs!polyslo!sgstree (Samuel Streeper)
comp.binaries.atari.st: Volume 0, Issue 60
Archive-name: samtrmac



+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=
[Editor's Note]

This is a nice replacement for the Atari terminal.acc desk accessory.
It does a vt52 emulation and allows such added features as autodial
and program execution from within the emulator.

+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=

James,

samsterm.acc is a desk accessory vt52 emulator that
has a phone directory and redials untill it connects. Also
has text capture ability, printing, can toggle screen colors 
and monochrome 50 line resolution, and supports mouse control
of the cursor while doing remote editing. I added code so that
when you use the UNDO-Disconnect command it should reset the 
serial port if it had been locked up by garbage on the line.
(That code is courtesy of Martin Minow, and I haven't been 
able to verify that it works, as my serial port hasn't locked
up the last few days...)

---------------------- cut here -----------------------------

table
 !"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin 644 samtrmac.arc
M&@A304U35$5232Y!0T, 410  )0.DK@67C ;   ,8#0  *!!'0!( T@,E&'Ma
MH ,G^0X.8 !QH 8W2_3]\\>@#<1_^LP0Z-((#+U-_ 8&  "B#0 ,(EQBF-8.a
M  <0+0!0F +HC8$)(*(@^\>O)0 (.&WR%()!*%$4+B%DJ\DA11.B3]@15>$2a
M@9-6  PXT37 W@\> \=2 (#DW,:S (+ %> D")9'(- ^$ *$IQE^3+[]^>>Da
MSD$7&[( >+.!S 8D Q,?)-!8,B3*9B*7&0CCH P:*P5 &0"  ( "80$<X(< a
M0@(("@ L ,  0H,$_P D )![T" U=]2( 4X)5"SCQ8Z?7DX:4H'F!!0TV*!Da
M YPJ;LB\ 4%G>QD\:>B  $&&^W8R:>:,>>/&39DQ=#;$D0Y@3I@V<^B4D=/&a
M!9DP= !@G1EIL%$&"/;AIQ]__@$(@AMOB&?&&W5D%X)\ A:Q01DJ7 ;"%/?-a
MP=U^;:3A1AAL@*#"AT=,@> ;9M!QQQMRK"%BA]$U8,=^<Z3!'@@QN###&"R a
M@$89;, !PAIEY '"A'* 8&)^<M0!GX]NS*& =!O8(2 38X0!!QUUR'$@@0:>a
MV$89.@C(!IH'HFAF&&0X^5UZ=,P1 @@ < E'F&.6>2![&%H' J!DF@D"C&9@a
M*-UZ=;!1'H3BC3&G?D\6N!F72DRQ7QHH@@ 'C96R1^ 990*(I0Y;-@ "#./%a
MD(,,,, J1AAUD"$=D./E8$.MN\HP'@TX .OJ#.-]9BP(-,1**PR[UC#>#,#Za
M*0> 9?R (0"R@K"$K[426ZNR,,3P+ C4PI!8#(PYAL1X*-+1@AWFG7&&@2*Na
MQP:-NX(0;PM1=F<OOBVQ]\88:,CQQII&IG$&&B"8J:6K_K(AKY("WUN&B'#(a
M8>*"_?[;1KT:B]@&A7,<.$:9<_!+\;_YFNJPH"*F['&HH\I!1\@6MU >E.2!a
MFN*:;M31[Q@D$XRHH"#TNS'2*6<GHAASKM%OA=J!<&>>33>@P'ING"KHSS0"a
M>>ZMN18)H:AA>$Q''KLBA ,(8H0W1Y$Q(-B=DG73420>[+T N!EF2*? A_=]a
M2(>99<"QWZXQS( 0"%>4<2(=")=Q8! [NK!K$2D.$88:[!4IN@N]TBI##&E9a
M,= /!XS5 !Y!L',.,RFTA4SMW$"0.S<,O*  $GKP8P%<&M3%Q2-PL54\/' Ya
M41<4CR@!A!D8F* #/[X/L8X ZBS"P!  9- & 3:@A4$.0W!C0 I.J*-/$_KPa
MHX 2K'Q_A@US$<^/+7#IP?0>\0(6G ,9+T +  90@A\  "X_J,LW4H(0!L" a
M!>Z#!A\ $()P("$05@ # 7C BSVQ@ WR.\L__J%"%O)@A7!1!%P" )<#P.4!a
MTIN@1!Q @B\@@0WOH,</WV&/(>ICB/B0G3&\D1((Y  ([X#'#U_' FKP07:4a
M6-X3WR$/,.BFB$#DQ1"),40QAG&(P!BB,(1P!C8.T1ALC&,;YRC'.I[A!RQXa
MAR]FR$>T0& L#+ $$P' @R=60P$S'(L#L$"%1Y3QD6<$HCK@@L@\LD-V^!@Da
M!2YXR#/HA@T7?(<Q8+%!%)R! %Y,@!="Z0Q8 %$>F4F %,:2 #/D@ WKT, [a
MT''+=7#@'>:@)2CF,I8(.*&1*0#"-N11NVHP('?;<(<0C@ &"X" !<M$PC&@a
M<0@0  $"2&%#-*%Q# @ 0@I'8, 1# ".-I"C+1L!A0)  0 3(($%:    H0@a
M3GSD8 W_D 8W!," -7#K']80B1'Z&01][ ,)81B(/?#P0+000'J-?"(W*@H a
M 22R"7>QWAE ,!=B@K1Z0/"D #C@P#XNT E-6)X2B* &("AA#?U@Q2DC"@!^a
MN#0 , UI2F7A4KJ<U 8 D"<P-OB'EJ+%HV@9 $R7!XH$@$$&/PTJ2CWY#SX4a
M5:M(72H FLI1J+XTIH\P!E.50 @V0( #PY!"(73!BX$LP!5K($!$#X #)1" a
MJS[XP0":!Q>IHM6+_V"!4SM:V*D^HC O0 !<$J"\Q]8!!BOX!SEDD%ESA",)a
M@@!"83"K6<[^(YAU@,L&7&K8Y?W  *QU;&%*^E2M%N:F.36#/C#;#U.8 PE/a
MW(8_>(L*!K!!GP,5R6_!( !T %>9_ @#*(*K#QL$P!;BY,<94* &"E@BNT08a
MPA2&P .T""$,CHC",H@"!@E\=QO\F,(@RAN7B'95O2"Q 3;U@5WAGD$%:K# a
M>_T1WO'25W2\X0)^]='> <N7OD2P+Q(6/%L_PL4#TKM+^C:2@O8A8,$J? =<a
M.I!ARPKA%' !065?   VPN4A3KB+-X%P#@#PX0 M1H5.A" (0J   !X00CX]a
M8(1OI%AY3U "&R$ EPC$%JV% 0<BI$Q*MIR!"E6&PI6KW(0M;W )7@: &#P9a
M &M4^07WJO($/ D 750Y V0F1)5E$.<J@T"EP*CR!U2*@BJ'P9,%P(07^X&)a
M],4%#! PM!# H !##T&$AB:":I_LVL&BA891=>R@P6#<CF[T#"*PPP!D\,)_a
M\"4,-$ +J5<(@P&$004R:#$0PD "&1B@U6'P !@PL&I3SYH"UC.# 4A]@#LPa
M5PA!.#4J = /#?R AAR-G1.65YA."V"CF>F' . G/R7TTPQ<:.@]3!#1WBYTa
M&_B@IPC24)H0L!L)_["'NP' A'^H(P8;1$! \7U0:^!; (#X!S;*;0C0"$$ a
MTA "_>P!#AX$P@!6V%-#[4&-<HMAXMXHMQ9RD.^!@D$+$U=&N97<SW([ 33Ba
M2(($!+!P5#@<XN-1-[L1,&]XRYO=];[W!B&P[PUB *'X1HW )XZ'<AM@XH*(a
M*#_\P?&C#/2$\O,B/UAEFG](708*($)N9AI@PD85+A60'E6MVE,*R-/KC$5+a
MV*?]""_NPQ]*YP6WYZ</>X! &GP8C\.AKH^&XL,%2K>$TJUA@KC4'0!*G_(Ba
MP+$(6VS0!2K=[0"J'(!LL^/$1P["\I*I#GL ( ?ZY(T^6F "'!! %P88A$1Da
M8 M<G)X-^A  Z.\A^A84L/.9Y\(3W.X'<?M Z2Q0.AL8  0 P$ DR :##JH<a
M V&3&@ ! (,+YNS\IX)!!%6>0?5+4\TJTV#[!V!TE6M@!B \/P$I6((Z_"'6a
M!Y0#"1G!!QF.H(][.$$%LWA=J5O(?[3(\-+/=D,Y1$$#X  F@$+^X$7ZX X1a
MM0^L,'?T4P\0@'=Z%PA\UU#TP(  L ^&X&WN8P84T%#UD H-2#OZ0 _HT(!Pa
MX$4 H \@P 8'Q 6(T("WLH&BX .&1P_,T(!4  ,'  @;! +/%P:P$ 0&!0#:a
M( ULX#Y%>%P   U^   XZ D;% ;K\ 28AQ8JIGF/P'GVH (PB ST-0!\ 0$=a
ML%B8=E;+$P7.\ _L0%\/ %\2$0';< QE>(8<E8:M]0ALZ(:E=WK64%< < ),a
M!H"7IE4BY0%?=5)B15:TI8;,\U0?)538@P"@MQ(@$0#;U7JO)PL-J :()0:Wa
M9Q9:B&1@@  --0_D$%'ZP 9>E ^RD'[K-XJY]P1SUW0'L WV0'_T( (900\Fa
M0#_TH (\X %%H _S( \5, 705P%5<!K$,P_F<&1LEX4L45E>^(>Z$(@2P0./a
M"%0G%6PTD%7AF%**:(@=I56-N%AFM8><J MLP NT6(I<^(V(F%(8$(V 0(W+a
M<X#KQW=>A _BT(=6( 6+( 6-, 7B9 _']0](@%@R((O^P%9K8(+TX"\ D ]Ta
M0'_R0 \OL "45%D!0@$K 'UG( 54( @J( 3;L Q"4 '-0SSR0 W1,T#!I@"Ia
MJ \1E0\Z  :\$)-Z( \ A!8\8)- \ 8JH%$$<$+ HP< @ B\L$(#D8JKF)$,a
MX(\)" !)% 8.$ 8PD(KA  ;JD(KL  ;D4$# \P(%@$?<0 !P(5I!H$,59#ULa
M( !A@ !,R0!..5L8Y)9HX0-U<1?(((@K5!@-)0^P$%'X0 N*20^P4%<\=08:a
M (0L465D<$I>= ]5F0]ZL).<D)G8@'9FM7;+ P-HL0&*:0:F"0!FH)A>P%9La
M8 #V10=A0 F!,1A5)4_35$TO.$[E! $B@$WRH$W2T$U!8$[HI$[LY$Y5A4?Oa
M<$FZ0 !HT$C."9T$8 ?4F4?N,!8(( Z-Q$9C00"^T$BK67D 8 \&X ,?X 1>a
M4!CN:04;(01NL!%@L$DNL!%2,)_^, Z 4#OKP C0  PP4%<!P !NT"<;X4Y-a
M)P#K,%U ! _OX X_E$M#)*&XQ C<"0*#1!'M60=. )_^ !<7I0L'P J-1'P=a
M)6RK"0$BM)H(T - \!9Y-(UYA X_<)_^($=C,0!:,$@*L$7LX)PTNDLW&I]Wa
M9$D[R@8^RIZ%D0))T Q&D )*T Q"( (L1@"KB0Q.4*5L *4DT*5"4!C0UU$!a
M$  "4*;09Z8!X!P'H0 K,:8#@!H%@!II>J9'<0!JVJ9K.@!GJJ9J>AEGBA 'a
MP0"!6@ &4*8$L*<#X*<$<*8(@*:0<*@(D0!KBF.G$0 #L*@"8*>0< ($0!H(a
M0!J'JD\K\:BE4::+NA*HL:?+D::N"@D9L*D'L0$%H*HK@:9H*@"H,:IVBJ8&a
M@!K.@:MD2J9L"@D08*::NJ8&X*IF^J$@D0,'B@#58'PNH$^08&-]$@PI,0 -a
MY0^,( ((  )!$*#CV@+PI@\]L$$!0)\>\" @(06N !+@) ,X.@Z!T$Q/& Q(a
M  @P<$[Z::"ED:#:4$#4X =CX0\N<!<71 VNP*0>"J+XFCO4( BU0PW@(+&&a
M4+&^(+&*4+&N(+&.4+&B(+&24+&:(+&64+&"(+%^$)*Z\ ^,] BWQ+!6M+!7a
MU*$?.A#0JD_4X L[JP#4  P[RP#4( P[ZP#40 P["P'48 P[*P'4@ P[2P'4a
MH P[:P'4P P[BP'4X P[JP'4  T[RP'4( T[ZP'40 T["P+48 T[*P+4@ TIa
M<* D0 VBL+,H0 W:L+,J0 W< !<9<+#6T$@/ @ L  .L0 VP4+BUDKBR4+@Ta
M@+C40 N%6RR):PN%RP.2BPN%"P22JPL+V[ XZSJ?%ZT].[=]8K=P,0('2PB-a
MY+ YRU%-<+!R0+C1*KF+>Z 6Y+B%"P&22[D'NDF7&[JP2[H[BP ]^[-!.[1%a
M>[1)N[1-"Q=D<+ >\+JCJ[.FZ[,'"K1"J[O->Z!(J[0'RK3& !=E,!;]X [6a
M^Y[8R[-[A!9F@+Z#^UC76[KN"Q=G@+[C2;_L:[_(J[VI"PQP@0;H"PJV2QNXa
MV[N2^[C!^[N%BP&2:PO$6[_'V[-PL0;H2P;K^["O4ZU>H0L"H PGZ@:JIT]Na
M<&L*! :*Z,%P 9AD00-W\43.H =G@,(KU*(*5+P=K$]PP00[NDC\^[ ;\9&Ua
MXPS(8$_5A%E](E8#< 8(\)%C 0 J<!?6D!(4  (+4,3( *[2((@%0 NP$ AMa
M$)H>/!;_X J-9 )?H,, \)$F$*U0K L 0 1"5<.F><.U4I(*(%80< 8*\ (Ea
M*1:Z$ #X<!="8%"(5)(4\;(LT$@B9<-6AZ4*I,9LW!8!  %OK$]*O,<;- !Fa
M@ !W;'4#@0DN, &>L IAL<EB!0AG8 6JO$$"H**E!@9V\,JE<0:%V%&8I\A1a
MC ;4 SN '!8_P,MDH0?40WPK),LW# 0" %!_T"<^B 3 $ VH[ !@0 (%)1$,a
M\ 8L=6E*3 !$  32S&+#3!M1S '4<P+%9X"H; "'7!JK26_?@ " 4+S_( \ a
MBQ (P :'\T*7P8(A6JT.<*/Z] +5BDCF-18!H @^V@(QR@\,  B3T0;A>I_\a
MP(+2P$<>;(UA.LA@T- QB@\EM=$HEM"#; 0@_0_T + KX0!FX  @<)_X  VNa
MT"<.W2?7#+ "   N#=/W20\T;=/%IP!@X  P(-!.G!?_\,]B$--] @OQ2@]Oa
MX %(,)_RX-0*<*U13<XLC!:B)<?@L*$NYL$&W2=PT=$ H P^&M&3T07 (%8!a
M(,,TW,]+C4I$O4]L,,-8S<9E+5EHD011[ C4-KKQJ9]@8 )'O1'ET)_LT Q*a
M$* P  &P$*TOG=C^L-BUX]@!*@10D)\; ;#UY@]M( WV'*('X ,>G*X!  ,;a
MD=E*( )(( WNL!&^H&4&@ 5(, O(8 ;V  ,_)@#JZ;!."J522J4I\ 7- )A.a
M( )=:@1?2J4%E-Q-^J11.J5"<-S2'03,[:5@&MV 60?#7=U4.D0CB]PJ\$/-a
MH (B\ %Y(1%SL*7;[=Q@VK^HBP#-X *H"P'-8 -.#0'04%<(H07)U PZT'1Da
M\ ZBP$_O0 I-MP#O@ J%RP Y  7OT+ O"PH1CK@57CON,+)(<-^UPPX>OM_^a
M.>(Z4#OM,.(RP,9-5P8(KN"DH."H<+P5;L98P,9@T"S1"D[[6F4*\-)PT0#$a
M]+(8(&/1"J_ZQ./[6%9F#  *6ZT,, 6Z&VS @.,84+@(@.2M 0'[NE@CZ@_2a
M\.2T(>6T$6S<8.58KN5*OE@%<+"D(.91/N77<^:$/9PU!@.9K  DL 2UPQ+Fa
M&F\&6L((8 ;'(]!Q_ \TL#P] +[T"7U,8*""D!N#7N@\?>A@H.B,GI4!X *0a
M[@_Z1.@$[0"'#@>8SM.-?LDML 0@(9]O4<:ZT _(X,C7,Q"FP(*4  $2T.,;a
M].,#80A-H]4@466+ 02_#@#Q>D3 X-#W;- @P>SR0-!^#0!?W0_.L*%R+<U0a
M?<].',HLB H7-,/1H)_,;@\))!$>U=72CKZ88.U ,,,H*@!V/,MTX-G^( 6*a
MT#3*SF "8._%O@B3S=.;\0]D@&A8; ,";0R$^0_0, @D0.Q9;>P@(<W*+@_,a
MK@_.#NUOB;XVP.XSC.WQ*@_Q?L.^RP+@KI_\-,.6'1@,   .BXNZ. 3L8,0Ba
M0$$$( ,I 0 S/QDVKQLVKWHY?QD[C_,T'_0_7_/\8*8]+_0ZSP\[7?1$/_1'a
M+P!)[_1,#P#2P \%@ <<M]/.8 R%,1X@HB D,AX#,01/X 1M$A=5@ 5IW]E4a
MD/9><Q %( #+"AH(4T%-4U1%4DTN1$%4 +D   !I#M9T DL& 0  #$&H$('2a
M0$&8%&/"L $!YPV;/"X@$0!1@X:-%C)NS(@! M*!@F)2P DC)PR9-'/*@! Ca
M9@Y%&C%:P) 1 T?'CPHZ>BA(!J%"A@[S@!@AP\7+BQEC</18L$R*,'1(I@$Qa
MYHT<.!T'Q*0! T>+&S1J8+1!0P:(@F92Q*D3Q@V=.FVHOG'CYF7,&3-JV&2Ja
MX$P*,B37@)B3AHQ*B15IM*@8(\?-@FA23*%3QDX9(R=<LG29N$6.&V0?*P :a
M"%-!351234%#+D1/0P"-!@  E XG5A3A!@L   PJ0)!Y,Z9.FS)NZ(2AD^:-a
M&Q!FWL@!,2=,FSETRLAIXR+,F#$@5#10,'**18P:.7H$F68."#IHRH!866;.a
M'(EY0-C1.*?APS=F0)B\F'&C"Q!4T+2<^;'F33DY1Y9I4X?-PIHS==*I(>-Ea
MRC1NPK"9Z88,"#1A7-X\",)-FC$RS9196$<.5C9IULAL\Z;.')EC'-*1\X;-a
M2* O8X(H*.<I"(=GWV!T"7,AQ3IPX$BD ['JV#EC["+TNA&L6!!3JR[TZ6)Da
M$LYB;U[.O-EE&!!PT#B422:-W3%T<(*XDP8F",POWX"000-U0CEI:AZ]$O-Aa
MGKX"TX@=>=N-03$:68 H/CP-F[%ZR\ !8;>W6+!GCB<T/Y[SF3)T;"]VZ*8,a
M<)_BA5%68@AQQX9&G%U71WG&W49''?T=E=128P@( GC'_65&5>,]Q!<94^%&a
MV!ERG)2890.U]08=(\V!F69R<-:>=GBY<8:$BN6V6W:_!0?5>/IEA =G9I@Ga
M$W'&P2136 >-!,()%1&5D@MD+'0"669%B9)1*Y5W'@ALO/'&&A!)E-A211XXa
M$V=BB/G@>I"-I"1[;O+HGX\Y(39GFRMF-\<:."ZUU&T8E9C&&6AP)B211F+9a
MHG)MA)$3AF7TEI%92*)!5DX8"5BE'&8MBIJE9IIYAT1FP4$87#:9F1:8#IW!a
MG4ODH:6?&PZU,%!!!R4$PH=EX"A3H74 5Y=,>BI6I4(0-4HA= Q5:)@"$4WDa
M8E,V;3B6>S7&YRF0,[D4T7EOW#&'#B.-U-R!=!25W7LV4C08?&62>T>E%^94a
MH1S0A7$?>_C5Y<8+-<951J6M*8!<<,LUA]"\6 7F1D\8T0O42#'4 "9^[H((a
M&G1P, 39N&'>:Y88.66<W1GD_15''0C!]5A0<^K8GY-M?:=1O27CB_)B8?"Ka
MW;]V/2C'P 5#=# 9"9=T4E%M>#D66"#B0>!?N.G67\YM@-=8O@1NW"Y/3X9Qa
M0@LGX'&E; I*/9*J;X@1AAALY'2'@(HJ!]88;-0!XF5C:&HAU658#5;8'H>6a
M1LBL@>#$BC)5IFA,+0Y6K-'(!N4D) _8L!A:)0+'T^8/S-!5X$%[5-0<I)O^a
M>>JB-Y:N E1A=&%<A?5L5N&JUWU4%M@1]R7<<M.=4W_X,@Q'&*$JYEW7.Q<*a
M'^L*9$K1&P?!1*^"$P$;]:&XVN42"GCI1='RK*8@GAAU<)9&4&W[-2SZ6('7a
MXK$GPO:E]#;:9E?849+)@6P$DZ8I( F1@4/D%+.BF$Q$+G01WTS^%S<[-,0Oa
M$"%,U.84$S:LIU=U.$H2@H(K.HCG+S)YWTC:5J&'W <VNF&#69(E$[B1R"(Za
MX8E/AJ.4P)WE57/ "Z+H4+=?240FA<O(Q-*PDY'LRB /6XU##(A '-KE0&FAa
ME_9<8L,210V(H"O#W>PBPA/L!#?MRTJ8.*.G-+ %+ PK#G<&]#X0Q ]KY'E9a
M<61R&S&0)PDG,$L8,O,;[62D/N.!7U\"21&$F(4$&F-8DQ2P$'0I  20.$ ,a
M9@") 8#@"@A92. .!H(@["1AF#Q $<8RA#"HP2'B:>51<B #&,@@!K,#9-1*a
M"((SO$&+RGDA>]ZB*>MM<7UI)(_P/@.'NOP*60]AF##G-!(S"&@,T9G(3AKCa
M$Y?T!39J">,8@P4"+'@/7'"PBAOZDR4QN2%A1CC86,P@FN3@)BV440H71^3%a
M"?9E0 RC9W3*8IL!R>]K).H+'.:0,"A@$6OI6<\6FZ6FX+S0@0S2E):@QL/1a
MM*TWTF/?(8MC0".8:4Z,N>"YD*)/$;WAAE&[&Q?3:%'\8-28BFE"&<Y@D3!8a
M;0C[:0,<C"2'A"6EAOS$X:#8P!?;/<PW92@B6)*&SZD8;S\@$@],^H(H VZSa
M)Y")@0MD )(28J4%D B!:V9"!A"UDRV!^1O#YE0%)Q#A"2T@0DLDUA_@!#52a
M Y(->3(R&0!JA$9OVPR6$HG(I81I#'HQ"W+( #-[SJ&9T.F+2W@J![G]"S)Sa
M*MA(6J:;JIA%?/@Q;+_& B,Z!,HE<3W2J^X +26"K0E!8\A#F@"6<K%@CH)Ta
M2=\@.YR^R/"'9R1/&SAUV-.T]H=S<,,).//8R!YG/3UQ@\RJV-9*R0DMG(GMa
M"96C2Q5QQD7_NT-,E#01,_&2/'812Q$'@A4(5;<^+NCD[(+@!GUAKU?Y.6$=a
MSG"?BCED#N(Q$_OB8Y?6^H^/A/2/(1$V.TP68"@P&\L4!G,P!<IA)!H     a
-                 )?6a
 a
end