[comp.sys.atari.st.tech] Environment setting

jeroen@plato.phil.ruu.nl (Jeroen Scheerder) (01/28/91)

Since ENVIRON from atari.archive refuses to work for me, I've
rewritten a source by Julian Reschke I found somewhere in a magazine.
Because of the shortness (< 2k) I include it in this posting: the following
uue file contains an archive, containing:

 PERMSSN  UID GID    SIZE  RATIO     STAMP    NAME
----------------- ------- ------ ------------ --------------------
rw-r--r-- 117/6100    259  68.3% Apr  6  1989 ENVSUB.S
rw-r--r-- 117/6100   1207  52.5% Sep 18 22:20 SETENV.C
rw-r--r-- 117/6100    520  75.1% Sep 18 22:20 SETENV.PRG
rw-r--r-- 117/6100     50  90.0% Sep 18 22:20 SETENV.PRJ
----------------- ------- ------ ------------ --------------------
 Total    4 files    2036  61.2% Jan 28 11:39

It uses XBRA id GENV, as you see the source is included.
----- Cut Here -----
begin 644 SETENV.lzh
M*EPM;&@Q+;$    # 0  F0B&$B  "$5.5E-50BY37=%5 )*;.B2D@74 U!?C
MY7O@/N_W[P@#Z_KX__6 5_:P+G#Z/@M>UXMUS\SEJ^NQ+&^NP2;'@GY_BW@U
M$_L@LN\N-Q>QKJM[9$Z?@>^$5[0>@<VU"R5]\AW3UWDYW>YO3O! QMY"<,(.
M-5!I]7>/7+05O0?^75Y<.$>!M&?\VLR>6!BHA'7LB@V&^L'E3".NO%,F5*(4
M?9]>%E]>'(,#%9#*=DH>="#<'SI469M;X)N)1<E%AE44*1WKE%!1$0 J?"UL
M:#$M>@(  +<$  ""LC(5(  (4T5414Y6+D-:N%4 =('V)J2!=0#4%]WMLSEL
MKS>CW]9?_H"^O^_=Y^?C: +W_VUG5K7.'A8F+3I5JNONK7O_ #\*^#R/!V[[
M==3E7()TL7RG012^E@=B3!F[R^A"C[WAE.;36SP7VMM%,0)%4>NXLG6\<RIV
MCOS90HQ])0W F+F)&WT]K)OL@M*,/S\'>[[T\?CA,RYM,-@YF%CD!,MNT84A
MPDP8#1!+SA3G&Y?<5=,)#^INRA2,/Q@@E%A/_G/$OOI0F(1U,A>;>"5&'7&U
MI%)B#"=[U$2_GK0JQU8++!H$I7T?\K\^_$ZRQV_V.\D,]!L[]V", 4%70#=Z
M<)D&_,1&IV6MV*C=C)M<+FU'@"$&CZA0-; N^8D 6(M2'!6PR!OY#C;V)6\.
MO[O&]HM3N(Q^]8?E(FV'MZCN(=@1Y4KN4'AY_UMUTG5#\1.:^25\;@"/[?&%
M]IOC@KM^04(<A5"7[^PU.13@S\#4=_2\<:9"!XR8]Q?CG-'N5W;;&J[HX/)6
M:)5E'?CTZ5G34EIZ5[]KOD(SDMH"G[FGLN6ZX5>JPCI:Z1_2M+MDA,%G<%O=
MR%SGWK+"*?0<Z0O5E=16N;/>(W!?!J])[18IV.F^IQH-.ZQ36OH$;B(&HK78
MG)9L[9L1*P)-E4?K&'1U1B3M2EY:LI>!)FC\[_AH7$SI0=_)1);?3*6L05[*
M>3#L:_Z^&NHQOA>#[354,MDW9&UDCHRA*_S*)WH37(MR8[I>:-NH0O,-<82U
MFQ/S6)I=MPD7-@(B<BJ*1I 49HKC,.REPRT\F+-U@7(I8C$]31I[&K<!2=[A
M)U(QL\WE6$!T *8\8"JG22@O&7%DYS>&R?.ZOA$IA>LZ,"_C-D>99(5S"!4L
M%"UL:#$MAP$   @"  ";LC(5(  *4T5414Y6+E!21PA450"F@?8FI(%U -07
M]FFQF'C0[!@N]%]^.C -) #"OKN\ML/W7*<V%C1#VD:G6_D775M2?6!GSS$<
M$R.X"?"Q=M) O4F\RDTG.L=9.QHUPVCH)X#U$JD5Y!.C6>40K+717:P@U@M/
M73 8R7G'3>7<9[$J[E03EV<@?E:G07Y>/MH71?"V!,YE8-;VD8G5 W]9!VHA
MGN@C@TEU53BY8X[6E#MU%-W]I' A@ZO)>,A;9(-I910WWIIH+_5-X\G#Z:F 
MPZE +H_S ;=0?&S-& ].*!#XG]U9T1KX4-Q14[AFM,/1VF3$[ZOB(?R<WCJ]
M>E!)[/?8M7!3/VR.D%'$_*3Z^" KUOB1&QG/E)XK?N(]0_>^0@0G4OPBP.$@
MX^C(&QW,*ZAMP34?\;!<+_?.5M#OP^2/%I_I1((/!_WGUDV#ZQ?4J4S0_1N#
MJ?.EFXS=,O:=.3+['/F\+O9W3<Q$@:/6ON<R9>Y]W2K+1<5WNQ+R('AN1^PX
M@T@V]5@Y>KF$K6>#3?%0EW\A+8D$%[([2OD*%E3FT"P@+6QH,2TM    ,@  
M )2R,A4@  I3151%3E8N4%)*'9!5 )B!]B:D@74 U!?O]'P8G:\6Z[G>Z>9R
AW)O+N0!W/MVHP*XOAYV!7MVMM31AW%#MV.QU:^=9@,  
 
end