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/	TZ;: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