[comp.binaries.atari.st] v00i059: bin:all:uue;arc SAMSTERM - a vt52 terminal 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 59
Archive-name: samsterm



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

This is a simple vt52 terminal emulator with some nice features like the 
ability to execute programs without leaving the emulator. The only problem
I had with it is that when using it from within a command shell the cursor
was not restored upon exiting the emulator.

The cksm for the arc file is:

bytes =     5504(     5529)   cksm = 1687   samsterm.arc

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

James, here are some programs I wrote that you may want to 
distribute. Following is samsterm.prg, a small terminal program
that lets you use the mouse on your ST while using remote
editors like vi. Also dials the phone and redials until it connects,
can run other programs, and has a few other nice features.

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

table
 !"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin 644 samsterm.arc
M&@A304U35$5232Y$050 N0   %8.;;8"2P8!   ,0:@0@=) 09@48\*P 0'Ga
M#9L\+B 1 %&#AHT6,F[,B $"TH&"8E+ "2,G#)DT<\J $"-F#D4:,5K D!$#a
M1\>/"CIZ*$@&H4*&#O. &"'#Q<N+&6-P]%BP3(HP=$BF 3'FC1PX'0?$I $#a
M1XL;-&I@M$%#!HB"9E+$J1/&#9TZ;:B^<>/F9<P9,VK89*K@3 HR)-> F).&a
MC$J)%6FTJ!@CQ\V":%),H5/&3ADC)URR=)FX18X;9!\K !H(4T%-4U1%4DTNa
M1$]# +0'  !7#A, R[M##0  #" @$5 ! L24,&WFT"DCIPT(,F_&U&E3Q@V=a
M,'32O'%34$4#!1\/)ES8$$2:.2#"@"#9)HV;,&Q P)'SYHP<A"#,O)&S$DV9a
ME!?EI#%(Q04()&78P#&),HR=,&G8A!'#ILQ',7E H$E#)Z.;,SU_^E0*8DV9a
MK!A3NLF:D:+1('1 * PCATX=."SD(E3(L(V+F6#9O'FS9LY'G3SI^)2)9N-/a
M-Q/%,'R(4:69J#]/S-G+T@49C"?4DC%IQF3<DS+EE)E3D<Y'P6'(H%3\$TYCa
M-S_9G#QM\0T(BFUVYC%*92O*RU69IEQ9!D]<Y#_#N!G=)DS6JS_+D.&J'<0=a
MKFC4LFT>5SO7G4:3T$&I4$Z=,795*Q\C-.,8F#EWRGT_9O4<,W6P\=%V,+ETa
M1E[2C89:&,>]P89@=\RAPT<#IH%?>P;J  (-(%35%4,-/OC&'=UA!0)]+[!Aa
MQD>T/61A3!1!IJ%T64'6AF0\O5%::T*M=N)&<^QF( @Z?A30 RK%4$.'97S(a
M$QFKT9<&''3HIY.()(YFHDI&0O* DBZ>P15CCH%@(X[Y85DB6B!T^0"**KI a
MH0+%_41@3!A^=:)T($AV8AT*O=&2'MTA!D(>;]3!4W!0^@4"%7G D<9]#V:%a
M:!W>126@ E4Y]=.8#((0!!5$0)$?3W $R)J+!>JIWZA$4''J2F7>::"<(-'Ia
MDWRHJ083&S7ZIEM+<549%I-?*49D:2W:5J9N"FFHGG(N08G'FA^=$$9HBM%4a
MQQGAG:!': GV>=9&9!B51:*9/NB==,7ZYM(8;-0!94^H5=N<21S1=E@:9BQ4a
M$9-./A2E4%2B!P(*=:96TTT.0;2:&R?$)1AA0(&0Q1-52,&OM7EQ]1&E;,RVa
MV&5R*$0D;B!H>T)>+;(V!KHK9R8&N=/)Y1MBBN4UAV\MZHO'1Z@9>FF.=W $a
M:!DNI##GM*C9P5!6:;0!QTX76=136F5(+4=6/&:%AJ<@S" #P20UA1*4<T@Ia
MV6A3O2$UKD9 5:]\QE;GTD4NX<L>'>[!I^A/W[D[4]>M'3O3PSB909-#B\/!a
M$+ 5MGH&KA\]P;*.Q[Y!I49NH(2:L<V5(=%"RRUN$T+$&:?<T@#&=(=/'%WZa
MKD4L^K;T<@LY!X)Y5>;($W0KW12Z&9.I#G&FBB5:'AY<#=DB2R[!A"L*^JD!a
MZ'/ZM0@@1YQ#-"17+D R0 H@&)%&RJ?%Q6!AI!W*+F[:Y7[BV%_]U"*49H01a
M8%QPP @:TE.:S8RD+]3JUV(,:*?UF2YX:#'93SZB/)S8[CMS"(^QW%,[=E4Ga
M6'$9F]1H=3_IG$%_B^&?_]@ 0 $24'YU^$CI3A<=AZW.(;HQ"PABH) OW&$Ga
MHW&<H-3R!MH\R8'P$4Y>&D,BK^7E@IKZB CUYYLQX.^$QU+A_V0B0)UMK7U[a
MXLAE<L85M?UL#!9:2! Q,X?K):$TMML.&2@6%RN:\%-T"%E<?AB@T31'<O Aa
MX1A'0QN']"UF"&F@:I+XM8^$RH!\:4C3YG0%VL%P3^Y2204-R1'I%'%7+EHDa
M!)_HP>V9"P1> QL>X* ;--(!5V^\I/'T<L"2"#%B0AEA&&:4,PSZA)"^F6$=a
M4,=#.O@0B#EY7)L40(9<_F0,&K)=&TR),I79,7]9+$/_MAA 91D+FESX2)WZa
MY9LY )(K;%G,)DF)*3I$RBJY"D@#P%G,8\HA78!YVD,V4C%\Z0F:]?SA/?\Ba
M!["@YH^M'%-%$@6NO+A!/ZBA9P\%2H:/H. [S1OFL0@*%O*T!G23S)5((NF0a
M,DQ3*@MIBL'&@$HZU.!LU'N)[, # ADL23>XF0."R,B1X#S4BH^;H +$)#4)a
M$NES&UG6<FH @PZYY"=V<*D,WL+"%I3T)53Q48N"L[MR 4XZ_]E)0ASYFT2Ma
MBEZ36@._C-6B,, A<D+!R&,B,QG.221E^@F.U&*T'J,\#8[LNM-RSL00GW$&a
M@6=X@X_VYAO_5:D%@F44TT PK<+%Q"QE6,I'5&,K/;6(L#RI@T6BLIR9N0$Wa
M\ &=<J"T$/AT1S\T*LM9E'.X.; F7>)4E-*6TB([.&@BT2'C'C6E,]'"K9-2a
M*<GL!M8BTZ(V(TE%376@A#DZ!1-Z<8$D2Y8XIBHX@0A/6,EW^F,4)'#%*P:-a
MRT;ZDYK5M 8E4%262F(40P7,;E+A^=6(X,LN8VVG;1MYKFA^-%K(E"$OL N0a
M=RQI._H!LT^^6@.+%N/<!ZI6#!J]#QT[5)-EE69U_8D=L*J;!*UX+CNI5,R0a
MDK(JU+Q!#';0"*#*-X"%83@N)<Y@HM@PFC4\] [F<M(/G):K(0B*KSK=SQE.a
MJ!#0H81$;)@91=)%6<!B:I!^8TY#JA>3!+,A+R5^WQ<_8CO6Y(P$2\K;9)-Pa
M@A&:,W$J$8QGJT:X^HPOCP,&6)8W24&:%'4_8^B/;6-'V7;%1#6=6A5*)^.Ua
M( %)+E6+"EV E1+VC$TU=Z +/#$:'CQ(UB$H^-E&T%>N3TY&Q5])LN3D,#8Xa
MJ+0Z]-E9&-"H&W?JC")M$>HA3S;,P547"HG^B9GAYJZ9R4$UYD171=A;I0G%a
M$Q(*$$D=DF(0P)4ALPSID@)B, /S@> *%<&(%:\MJKEINP@Q&4(8U+"1O*C;a
M*#F0 0QD$(./ !H(4T%-4U1%4DTN4%)' *<,  !6#N*U)2E0$@  #& T   0a
M01@ 2!94/'F2;V $8"]X#(2 Y8=$#4Z"<'ED<6#$@0PT='22$<HC)4#,.#"1a
M8Z(<=8MF#!NX !( %6T $ #1 @ #:*T 4  *@(,!0 ,# !C1C*:@:+F<0HL*a
M (*<HP<'$&!*TQ#4KE@!@ #P@FR#C@ Z*LGXC5]6!DJH6CW#HJ. CSY%2NQ1a
M\M&+E@ 6"/KK\D=:B3_8NH4T@ $H!:!N(F&!!@ "(7E 8IC1[I\TFJ 8Y(SQa
MSYH9 T8R^\0 0J)/<F$ !'!C\=^_VK=YV.ZHJ&. C@<Z/B#9-JL#/(=UDJ3Ra
M: 8PFJ+L+G\TXGE@/020 NBSU/H"/SQX 2C0@P\ !P $E,]J8+U2!-T6#U"0a
MI&%@;# D0F#!+0JR?_R LD!D(%2&  SB)2> ;TXT@<5)0)P!@EW2.0CA&>GAa
M8)AO'0W0X$9*$*$&$$JTT0\K9Q 06P!(<"A1  T^B-(9LKB87HR/V # 8P( a
M < ?&TJTH$0>-K$1* F (8.-,%HX(P#_\&&C #CJV../0:;7X8>/"##$CTH0a
MP@8$' PC12$,%#+0!_BLH:)E-BE! (;_^/## &AM:>0C8$!9EX)Z;N1$'65Ua
ME$!&@M8!0PO_D",#H^:$DX0@0 RZ:*./_F/.H&&8,T,P-%&"VPLZ(. .J0BHa
MTU$!Q,G'P*"CE@H-JLRLVNI;!N0!PEB!4=(:39*$(0FL$FU@8Y$;_6# L5P2a
MJZ60. Y:XHEFZ+-H/Z:8@X1S-'%S+2H,9(8 :&80H"T8 J"SK7?>Q/:/$]P&a
M!HX- =BBV@+>G.&"&AA8<J\W1 PQQ1 \2"2$NX!$L<P_^H!!@;\T>3/%( 4#a
M$(2[:BC,L V +0".O=WJRR_$@7$3\, 5#^$N$1HW_/"]W$Q<,1'NNM"RLQ!Ta
MY %)#]J@FS\CS'2?QOC4]DY''?#\R*#@(-(T SXB<0894 , Q=15-X&UCTMLa
M#8 8& 8 3]4N8&@ !56_< 8=54^ (0"R5)U!V)94+0/=5;> H0#,5 T"A@/Ha
M4O4'>YM0=1AF.]-G/VSX;#$8$#@N!!@*.#X$& 0X3D1'QKX8*$=X>DXDEXO3a
M$&YZT)UA@.,#8.YX #+H]H\00(2A@42QVP;# &% ( , M(>A@ P&[!X& 7WRa
MX\\/OR5W $F)GBX =&8 P \Y2JC&  9FL/%K8)C$U@\BJ6D6F0AIZ!1"^DC\a
M8\_Z ##QCSHQF(> 9_4#0)HU]0L R#_8$)\9:!  (0A &D+X5*AR%0)>+<!7a
MKEE L #0#QY\;P&<$)\,9N"6<04&%,F#PP7#1T$.8$8SXO,  <61! D(0(&]a
MRM6N0G6^]"$ ?NU[7_KD1S_S0 !_YL% :>I7 "AAXX(3Y <T+IA!ZQF#@U4!a
M3?((H  "0*E/^^"' HCP#P"$2 T6R!.1.E(!Z#T"25CTQF/$^"P E-$)&\$Ba
M,F+##T]\SP'6H",<Z,@/$P  '(L ) .^5#:=.(".H-A=U0)0O7ZX0PBGZ @(a
M$$4=[]@! "T9%\-:P)*!$$ 7!AA$5F1@"ZI\D@WX$$!+[@$E?;2 ,(&Q@R01a
M]00L4H&.*KBC%V*313HBHFHP*)<0@@ &'50M!J>)G6S X *[)5-(8!!!U6;Pa
M3)V P0)5HT$U#T"YJM7 ##Q09@*N](!R(*$^ WD .8Y@'P<8 06S& ANYBD[a
MWG#H-Q(9CA.*PYA# F ?ONB3/GP1)C8@(#8#D 9"]?&]!OB E[O\ISH0\)P"a
M5"T/9M!!0XG!2R.8P#R!(<4+%M 1!5"2#D)9@6RH( @4""$;RQ "!?"R %-Ta
M9 >45 (@S*"'A@*"EPSX*$U$2E*)F%0CCT I!50: ):Z%*8R'6%L]$$.)%U#a
M/@)0@ML4P( )B"5%4E@$&.3Q$4@08*0TM:EK.K($Q60% CHU@P<>\ST&P 8 a
M^@ A /)ACH8R8JJ2Z-,_>NJ:!J!BJH3@)03 H%"\VM$U#+#%5.&0/9K8Q P2a
MJ*LQIAI1?:BC3P'82<<$P86?XE4)4[4& 'P$ F6& 19!6,- S"&->]D$MFP8a
MB#;\   ?Z.0(  C#.IXP53) <I9(K0Y-[("">PFB8@.@'9FRA$\ (.L147#&a
M/]A1L0=D0SX1R,8QI,L!ZGXNN]OMI$Y *4H G"!GHI,-CF;D@2GAZ$I  M3Ha
M]D2A%\TW)1Q 0$N4PK  T*64GM1%;O\!BZG20K!:@.4"9"F126JDE@# AR=Ba
MDP]+] D?EI PA<5"2ZX$1A%0/ !(U"!4GR0!!2!E0!14$&,M\* #$Y@&2% Pa
M 6J A 5X8< )9@G'1QRWPI14;BS5^\E09H4'_96ODU*BH?@V2481JF]\J60Aa
M_&9I2-;E$H+7NV!=B!BYR1(2@Z9\!@P$N0A$WH@*[J6(/MU#%NA50EBEP(@Ia
M:$\-"]:!8#G0T !F& EADNU!Q%)8<,0&'SAH\0*(6M*3IE0V4W/J2V-* ;2Da
M=21]08E*&BJ/V-P#'X*EA:<CJ%8 \"#40'@##N*U $>PX%Z&T,- "&&;@=Q1a
M :8&QJ.98&I_],D>_@B#!<( A#MR0+#DN*,+!*L-"1OB!07X0<<<T9%*!8&?a
MC4%);G4BO%MW1=>PVG9'?)"1!PF $ .Q#:< < _"@H0-IB8VO;'! *3$!@ 2a
M6JU8JD:&MP&;WG8XMAT>+0=3J^'8:F CF-^XD?P 8 .QL0<^+&Z&C,/#U$(Ha
MZ$ ._@\L($P(9\C(03BP@2P<A  ;J-[%RW 0 _P.$C/X@S]LH_,?\.,!\/@ a
M/WZ CS_ XP#@ /H'P/$#8!P $ \XCT_2P@^=[X > SAZTH'Q 7@, !P'<#K4a
M@3$ 0 P   ;0R4$*,(<PM&$.="B#'-K@ C*$ :4 (&!ZH'!V*Q8Q[0?@!P(@a
MD  (*" P/H%  Q+0Q01 "0"#&(0:[J &,4R>$J"(1>:+H?F!%+&(9X=$ 4)?a
M@ -LH A5< ,9W@ ".K"^#'A( QT4T  %D*'UK"=#&N8PAC>XP0UE& ,=0! &a
MU8.@]VZ@0QK<4(<RT+[XNGH#'= @=Q"LH0RZ<OWQ?:]\YM/\XD4@0AK"X+TVa
ME('Y"J#]0,R0!C:4 01M?WO<YU[WNX/ #=('@1G>4 ?5AV @I[<!9: "9@4"a
M4^!V<P "5"!W;;!\Y <"N30%1S %\/<&9D '=_ &<K &"4B 5-0 =B!W<Y &a
MO@<",> ",3 #+% @9< &(G1]NK)_<@ "RP=W<E 'PD>";C 'Z=< &W!)I[<Ka
M18 'P5<'<0<"4" ';S &93 '/$A[1,!Z><!_]U<&97![VC<&:%!\9_!^T_=^a
M9% &'5<';#!\>S1]/P "6^ &70  M:< L%>$<:<#;IA^<J>$<K""9X@&]Y=_a
M6LB%5S@0;QB'8V"$[W>'&KB":"![Q&=]V%>'<)A\U;>';N!V9:!1%Y<%,  "a
M&Z $ S$&80 '=% '<O!^[.=^E6A^=+@!;'"*[T=^I1@&9* KL+=[=# '#00 a
MM+<!< "*HDB*[^=[&Q ' "A"OCB*I0@"%F@&PSAR#=![9'A[^#=\8Q"+1^B*a
M^I,#(+ $.6 #,  #-( #WR@#-/"-,2 #WP@",_"-IS<%<C=^W@,'&DB-OL=^a
M9T"*=Z>#.M"#(+"))I@#Z+B)8A &=4 &M&>"N]*-WWB0,K KX;B0#:".NT*.a
M$ D"-+ KYUB1-; KZP@#/5B*R.@&^J>!?7A\6^@&7:A^IZ< NT)^=- "=H![a
M9W &[I> O<<&&GB0Q%>&+3"#KC>3-0D";>![2X@&2FA^!9(&9\"'I<B#$;F3a
M+RE"/TF330@"<" 'RS=_.NF2+= &,DF5"3B4=3 '[U>(<C '.?F47&F3]:B4a
MP)B 9(F5#RB/<C![:LF3MR>#(*![#VA^Z'>7+XD'($"(AIB 5_D&9]!P;:"3a
M8_"507F,P @".MF$C4F6JI> 8A"+:Z"3_;=Z@QE[M]B#R&>/P)B7))F1 DF0a
M9+""^&>588"5=) '!\D8.  "8B![<["",0!_KB="MTD'*X@'OO<"PFD&9D![a
MZ6> ;F> =%"*90 '<G>0*<@8(' %YW=W6FB%(! $(>@"!UD$WJ,R:N![*Z@Ra
M+I"0Z"@#,7 0C ()M@$)/?F<5EB7">A^== &89" O<88!&  $B !"& 4!L  a
M!@ "#.  !N !"("@..  #" " : ".F  1'"@"H  "H !%&  &6H"P$ $%ZH a
M-(  ',H Z0<!"* "7*4$-* "%H %!@ $&*  'B !-(H"'.  #D !%RH!'D "a
M!H *&N  ),H8)&H &* %'N  $N  AD<"$L 8!N  &I!^"%"E @$: .:-&Q!Fa
.WL@!,2=,FSETRLAIXR(%a
 a
ends