Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!ucbvax!agate!saturn!ssyx.ucsc.edu!koreth From: koreth@ssyx.ucsc.edu (Steven Grimm) Newsgroups: comp.binaries.atari.st Subject: v04i086: nutshell -- Get back to a shell from a GEM prog Keywords: arc, uuencode Message-ID: <6877@saturn.ucsc.edu> Date: 14 Apr 89 02:06:41 GMT Sender: usenet@saturn.ucsc.edu Lines: 204 Approved: koreth@ssyx.ucsc.edu Submitted-by: t19@nikhefh.hep.nl (Geert J v Oldenborgh) Posting-number: Volume 4, Issue 86 Archive-name: nutshell This is a little utility which I thought so obvious somebody must have written it - but I could not find it. It is an accessory/program that basically gets a command and does a system() call with it, either using the _shell_p mechanism or Pexecing the shell. This means that you can use all your favorite shell commands inside any GEM application. The source is available on request. [It has been posted to the sources group and will appear shortly. -sg] User options are denoted by '<-' in the data segment (not/clear screen, where is shell, what is home). The mouse handling is not perfect, but I do not know a better solution. table !"#$%&'()*+,-./0123456789:;<=>? @ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_ begin 644 nutshell.arc M&@A.55132$5,3"Y!0T, N!8 (H29I?GC 4> ,8#0 %!!T, ^ 8J0#;0z M (B!! ! .@ &#$2)"WQ &@""2A4I0IZT& *"!R0"($"8>2,'1! J0:0D:3&%y M"@A(!:2485,FS)PR(&+<+(!B2 H0.'" $,*231@W9%(F<4.GC!PW8>BD>8.5x M3I2L D#""C D@&8 .^L'Q!H #**M T!!+P .T/@% !Bw M 31$P'@ X.<"R L$+Q;\4 Q@,@ E3H(\>8<73@ A08+L!40# BT^8#R< 7$:v MC(LS&B1@.&.!1@ J0HCQ>>#/DS 13VQ/$2(!6Q1E__@).44'Q)0@93C0"D$&u MGY 4 (\+\-@>AE\2-)DEP($#+D7"<@CT?./C(B[+$ \<9+K((P?A',,K$#Ht M#$H@3D"2WWZ(G*$ " *2-] #-AA&1.9O: #/H!<($?9@Q$2!'YG 6($[I$s M( H-@)!WQD!V!-$A !88 H,$($8@3@U " >680 ,<_8'@1(QPT F""$D"(%PARQ8HM)M/.//DU,Z@"%=)F!0!"6"J.G/3"X\)<9SLA0X85F6,! &U3^o M(TR& IB !KC2A"$._^, V(![(!H U@$" $K_YP:B&&G[H#P 'R&O N! @!@@2T@>B -"@@,H8&S((+0[##8@ & ]W^\ZTN#KA3K@;E=JV*M B$/KH#P!0[V[;-+KZ @-)2*SDJY6)P^N,G^B- WO^(g M@P0PDFNQ A*BCP% /_!P+H"YF>NR@"N/2PY$Y=KW@PWG@V$0_@*66-0/,DQ\f M(RRA$D:F*(LH2'H6+C##$!AD( $SX &*_@'.Z8'#5X,1 AH>!8^3( ($"! e M#!10T:*:X1G)@4,(:K"19\!@!QDD<('!< Z@GN4-R1GA!-C#A^2\ ,-_T ,.d M^X#&&A0XO??\ Q_.T0(20(0 %=3L9H.1'##@4 80$4 $*B0!?H!H@'@@P%2c MR,X91! $=;2GBL9PXJ96A2$'T,"! 1B"%\WA'! I0!J ,L$7!$6HGE51&#B$b M1A[.0HH>[M%"N-!"$D#PQPO 0EZ^^,&J4*'(LZA""&> I"0CN9$@P&$ SV+'a M9O!R1)SIC'0R()2A/N"#S?Q#'B9 P@]JQ(#]68 %:@1 9JX!-@AD(PK)2 X*z MEJ ")@BA IE:E"&>Q8!Q40!0A; V((:!D$,:09#!#B# x MM7U X'NN ( 1 ( -@@) $@8%A4$+:H>%.K2@$'VH0W$@48H"8P@60]D20)0 w M6UA$ ((0@1) L%%=)$ 5*8O$,BPX,FKD8AEG, <2BH 2I!T9&JXJ4FAD81Yv M#*278!##2\_@A92N% $C0\5,1\:&7?;REV PPBV:008A3*$)<$"J+@3 !##@u M(!?-& ,-I(#5(8Q,"6!0P53-X ", H /.DT #SZ*@+5FT(M@&!G7MIH9BW&,t M?&)=_,,:$0;1/[A1QP9H&QEP4("V127L =@ i M &W+MK6!,84A*&$(ZI6V*,\! 1YLQA_F0 $27&F((W &&;'LA$X-H(D^Z[0 h M]GC7)PT #0L (@C7B*4H;&D&?@QA1178!L4MK@X L&+C)EB5'KR !$"! 0)Rg M>( PAK"$CLLB C6 (D'09[Y^JD-ZH!"R3$0RV%L_.+[ <;/.UZ.C?=YXT* f M !*NT"@-$@08*]0% MR!A20E!0e MH>B-@\>072(#^"0".&$V"',#P)*H&1$9H4P3X.'L(!@O @!1F#/D#C.3 # =d MG'X!-_0)#JDL/ $@ ($

$;8- "D ]&#BQ\B,FJT#<(&&#Y;("!"$"WT'8/c M%M*10D@7!/!&$-B1G8/A0IFV$)8?WF ##C0#V 0 8&L1R#+R'J6J^Z,C.,b MKI<-H'X<$'>J%1 9$112#R(0#PL@,!L?K%H"&<@1^,] UD 0+TF2 (%C@5^a M3RDA EL$,AC$08L G($=0&X4&+#!@ P H R N4$ ]Nv M< !!D Y^(B@F,&UUD(#?,GT6= 98@P11H @,H H#(7-FIX%.MX)?V#:UD Q\u MDX9KV(;TX"0M*"&6D01$^ 1@P (,( F#6(AFD#4K8.%EY,+L),]"8)@X YR1"AUEQWG@0"S@ SU! #X<"(!o M8 U]& W ( ,)0 ,(@ "# 0!G $(\#WG)P$1$ )3P$SZ$#2X4)8#X89MDY9Kn M:96H( ( H Z)@ Z)(#.68"@_X %,D YXP __@ U( Z!.9B%^0^PD)B+29B&m MB0B0*9B2R2.5R9B&B0.9>9E*IYB669C^@ Z=*9IO 9J:Z0^84)K\X ]PP)K^l M@ 2P"0*=B0&MV6N*B0&2P _?,P6!D"'_8 ?U4Y@RT&11\@_D@ 2&AR0A$ )1k M@ S)(0S",@ R P_/D9:XE!P 1@Y@:3.AL48*F4FJF&1ZF=B@&RB@"\N):$LI9Ez M( %VJ@"R0*WTP!W:J@3A!ZXQR:UU 20D # @!,H*P& ("4/( &0H !28@ y MH .08 X D44+,VD+,TP+-20@! @ !DV 4.P $8+0IR[1?&1$I2P!+*[44x M"[5?*1$^\ ^0 /9(0!*6P &< (D !:>P *L ,T .\ 0$ $2, $44 $6w M< $8D $:L $\ $@$ (B, )::P!GF[9KV[9O&[=S6[=WF[=[V[=_J[6%v M8!DZ\Q+SD6J5H1@>"(("^P(!\!CX81F8H1F>[D L%&BBX'XHP"?JQC6U 15IVNJ& "]RZ-.T 0@*+R\Z[M.t MX 14\ 0(HKR>JQ@FT+S)2Z2JJ!B8Y+S0&RC8N[QFU[S/JVOAIG@CP!!_H0)Ps M< $ A@;G.Q T,1A*0 Y8R-3G!V#(<6#(24#(!$.,!@;$98#4 #o M40!B_,57')80< !GS,5:3,5G_,96_#UM# D1@,79L1%;,\4$,,4!$'=N;'92n M["=3G+)MG !\C,>#',:#,0!^+ "!# DU0 !;[">3; !A^9V"#!%3''=A*<9Wm M/,EES,D'X<4BX,@240(%T,EA6<55+ ">;,DDO,IA:0!EK,:K',M=>\A;# D6l M$ #?$W=RC,AX;,4'L80=6,0=;X09!X0(P$!^6U!(Q -!k MD0,XD /Q40<_ 0(GP 9O< (@0 =O )E@ =I0 < 0 8ZP 5SL,Q;Y@)P( 0P #D+!%,h M$ ,R, ,T4 ,V< /=C,0I02C)3,_5: 9R4 :F10(/,=-M$ 9;]@;:4P5S$ 9Gg M<-#=PM3D/ ;JC =T( =A\ 70K =EL 5K( 1= !;G0<>?2)GD ;.K"Q;, -=f ML 5PY005K_1!XT )8d M?=)ND 8\DQ5HT , \ 50( 100-LP8-,XK=,\G0-!( 1#0 1%,% Q<016T -#c ML!$_ G^Q]H $*I%P 1,0!BL_1"U/05TL 93D 9@#0YP%Q%+[=$200"B ' ;<2%6<15WMA&D '<%\05!0 =%P,YT8 4/OA'\L=YIP 93D =S@.$0C@A4z M =AH-V630=S@1,E'@9% !4#L>)26UI:/05E< 93(.,(0./)?.,Y7MX,0 19y M<>(^+N,0(.1T0.0X+N,4( 1S, . L-\_T=]3O>)^3 5C@.)RX,X&v MP>*9GN2;#@.=3@!B4 1M =S/A"C#@:8KNET( .C;@JM#NIT0 .C;@VSGN(Su M,.K0D.N;7@.CK@V^3@EQAP'03@=1t M.NWHK0(A78T.#N&^PA)M\ 5DD 9A<-\2@ ]-8-5./1#H[@)@+0=OX-7+?-\)s MH ES, ;M[09W\-\!K@IP@,QSL-4>?=_AU<]D,/!RX-$93FPL,-5TH/ %#W<%r MX %%309;MYPYP"64-1S(!$%4W1-E[L\&[PH*/P9P\$?W_0"6o MP-=JS_9PQP"L< 1EL-5EH ?N#G?%H?!N, :G#@#WS4\.#='EW? 9E^_[/N -n M;P$H,/ 280"-/P%IGQ5[OQ$.H ]0@ 8@SO(_@>ZHT-=TL%HG@?B,L!)R,.Y,m M70;W/0$HT 3SO/!N2;EI,3PON?P=LX.C6CP"\[(L,Y;W=5,W?@F0.!PP 9?D :KQ?2 i M0.!PP 9?X-%I@.[F, 7;ZO7_CPL?SQ-T4!4&CP@0[09U\ 5%?0:MKP,+SA)Ph MA_CQX/OA?_AP9P$J4 9M30?D_ ;W'0#((/%N(#-,+PQE8 =4T?UJCN[L /':g MS_$,H/TIG09,?_YLP.AO< 8LS_2L< 9<;0;=W\^MSP3KO-5=#O"$#PDV9.W- F'DC!T2;-W7Fz ME"G3 DT8.F7DS'$! @22,';*@,@#L>$<-&78L %Q)PT=-&G<@ @#XDB1)C/Ay MP&&39LS%-&]DTA$8HH$"HT3*S!DC)PT<.D#=Z#!JU$D=.E-0J@1A!T0,%S! x MH)@!HT6;,'):Q,B!(T<*$&D2.GE"92:(DRG9< 21A([#C"GSP$T81F9,C'+,w MA!DCv M',XH-F(9@C%!&#T"A?7*P@2/U&$3I@T+AV'RB!'Y)K7&%'M1] 7A4R:4,GC*u MC.&,>6;".WF/B[D*XF7%3 EU$89A27TTD4LH>3@97G!s MU<9.96SH!E1N6)8:"*MAYMI?\A465QOH13;99E5=E56)+6UU1AHAC0313%NYr ME%!L]['D$DPCVH33@SOU]%-0&W4TG44)+==@>AA]=IN3+R$H$F^^*BT-(q M$801=<&QV!IAG%&&>.2=!!$;!-W!T!IDSH="<4%99E1S*#U7TW#%><=27GM-p M=]X=3=&!D6$R45&''&*\T<(0(&C6HID@M/EF79V)V88+ ^9G5) KZ0A"IV4:o M.).#8S VQQP,"8:"&U?YYL)B8[R5GZTTP2''&V<4B..OP6+F@K)G0)>>$A'Yn M56.+C26(W:5S1.4"50HTD6*O(,A11AQUI*&NBG3,,=51"EB%57=@<9VUE:VR[IB$&&W?>->"'?E%1!A:W$H0H;4:YT1Q#0$7$AF!BI&&9LLPZl MFU!UZ4H&0ADA80I7O+"I*Y$;C.V%H4B?_;1=N'J(=)Y1871*W@U+[(6$?2AGk M=-P=(I:\XZ@N%301&80I=-#)>-!1( A+"'C74.J2JF(=Z8F!UG'YO8AF=[ 6j MU!P(9+3J1A[FC=K22Q#Y%0/0"JDKTH8/R9''7DV\\5E--Z5'9817NI&0&MF6i M%P: 2/YF1QAI$'?PWN?ZO5<0-%I$&< *,01"LSUW/"K?Z!IEQK(X2IE3E1)&h M-0>>?EGLU^IOX(@1'BY8"L=Q^7IIV(D(PSNFJ"XF:-08N9_E!AE&D8"<2F]Lg MYX91&$Y:^4IG0?ZBO3]NY7)&1L6\,]9'(6\)U!C>$02\=R5Y"e M*&C!E5A,#@';F.'DT)20)"0H(D3:EVABD#L0;DH0LM*$9%(S.<2+;!Y*T-E*d M!* RP,%#S;E@>IBWHF6M)#2_+0-@+8;W?\$6(0IV&5;C-%:VVX%c M-RB=06892L\=DL/%%[X.<3-TTE8L4B3'#*E(=7B-^8Z6* Y%C0H(;%G(&I4Ob MGFUE#G+*(@KRH)3C) $$:[#8'8Y#!G?1(0_0(1<2&L08'6P-+7Z)HUU<=S@9a M1@5!($(82 "(.O:AH J4<1@( T6J5($F;'4P@QEH(Q&_.,8',@C+$ABIE#5,z M2PYG. X=QB &0-+@E\$$ 14$PH:$D,$.:4"FOA;2-6J>A0XOJ"$=6& 4%T!By M "DXCC9! #[,"#,/#)I>?:PG%IGXP"LW"&=YT.F?-QP'.TU[42=C%Q3#/2]Rx MZ*EEJ."PERP*:8-;C%1 $;U\5K9Q?8@+&)I+0/H@Lv M@V?JYX4J',<+=?&3' !E*R0J3P$[5,E>C""9,:010$-%BTCDM*LQV8H$4#""u M&\3)4!"9K3?=V="V;A2ZAA@EHF:(R6;,4-6K"G6#4-F*4M>0$!0X00@3<@)ZG,"'*8G-U-P6",Y8H3*-:@X(F$>\33[r MR?-$<0YQC(T-;W.<#\ZD:V,X20O^(Y*8IDX!ZIJENF &0!0@=S^V.D$(RG "q MU!I!=&T83EYC$MSF 2]X)3FH4@X*-9-NR4ROI !RT$"1-CEE.:K&CG1,0o M)#]*LFGN1-+(_LDT;[D#$T0ENJ!0A6M4-#$=6@1S&Y1Z^"U/V%:D59:2#)-J*<)T'-9;\:73Jl M I&MZC,JGN50J,\MLZ["=3D%G::5G@&-:.#BY\00N9W-L:2S&CF'-1S')_))k MF.J"LDT0R*]NQV&#LF*M+./P1UTH>=!Q'D)8%#CU3&C-2PI0*P7)4 ;',C'*j MM_XL1)"1#D<.#2 #=X6N\]"D*:7FF*@:&*G02:9/3T+0SA1PFG#U$P5?@<%;i MG./3;ND-D3$I-$WWF;@WTZL%:O,H&RR)@HB66IC$-.9QEJ#9D-+FM= \2$92h M8$D\6M'9(E-CK$SVA%T:I2.%Z>)FBB:3=S4G0,@SHZ]AQH8Z-')4N>WQ6]+&g M% /-QW4J3+8".H)/%B6OB3'DIQO2C&_P/([?J$R#*G$D [", >#(9#@(BKTTf MRP3!"5G0X[,E3B"7@R#H0X_8Q R\ID"@4@&--B^$YC0 AG,8 8Qa M\(@5F5"&-$1TK/E+"0A@<(,8M #^-U #,5!T^;,60$ 9:X 29H &+H 2!"5Gz $1@$: %"&y x end