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