Path: wuarchive!cs.utexas.edu!sun-barr!newstop!male!panarthea.ebay.sun.com
From: koreth@panarthea.ebay.sun.com (Steven Grimm)
Newsgroups: comp.sources.atari.st
Subject: v03i037: sre -- Run programs when gulam is started up
Keywords: arc, uue, C
Message-ID: <1456@male.EBay.Sun.COM>
Date: 31 Mar 90 04:12:39 GMT
Sender: news@male.EBay.Sun.COM
Reply-To: buchanan@cs.ubc.ca (John Buchanan)
Lines: 132
Approved: koreth@panarthea.ebay.sun.com

Submitted-by: buchanan@cs.ubc.ca (John Buchanan)
Posting-number: Volume 3, Issue 37
Archive-name: sre

start, run, execute

A set of programs to make gulam execute a command issued at boot time.
They are somewhat of a hack but they work.

I wrote these programs about a year ago.  The main purpose is to provide 
a start up menu for the ST.  There seems to be some weird contortions here,
but these seem to be necessary to get gulam to do something upon start up
and then not repeat it the next time gulam starts.

I have included my start.inf file for the purposes of further examination.
We have been using this program for a year with no problems.

start allows the automatic execution of commands upon startup, then depending
on wether the shift or control keys are pressed the user is presented with
a menu.  Using a program called run and a shell script called execute.g
you can make gulam execute a variety of commands depending on the menu
selection. 

	john.

table
 !"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin 644 src.arc
M&@A-04M%1DE,10    #_U@   &T4[C52+$X!   ,(T T";.FC)DT;,J ,/-&z
M#H@Y=,+(H>,"CIPS(" -:*" XQ C3((<F0*B!X@604X2(5)$2)4C)ZT,F4+$y
MHQ&0(DF:1,F18Y J5)Z4!#%&!Y<P=>B\Z:D@#!LV.AY&G%CQ(@@Y==Q4/<,1x
MHD2*%L]$]4IU#,<$8\: (('B8\B1*4Z^D?IU*]VR3#EBU1I61X*]+LPJ0*N6w
MK=N<<5O,!1SV:M; "9BF<>/UZ=BI% 437MOVYMLIB>>2!6MU=."S;>S<)8V1v
M[<^@*5"K9FS5-= G*;C0QL,1&@A254XN0P!,10    #_;P$  &T4-C.2'?L!u
M   ,(]*X&<.F#IDR('C,H4,FS1L7:'PT4#!Q#)HP<D <J<,F3!LD;]J4V1)#t
M!HXN('J $%%&!Q<N9SAZ%+&CXL6,1M*P*>/$X\B2)VLJ:!-&( @40>2<^3+Ds
M31TW=%@D70KEC4 Z9>2DF'@5Q%2F3J$*M8@1A(JO5:]FW=)%Z,0$>]X:2<*Dr
MB%DS<%BH,/,&3ADW*%((3= U34H0,0:G,7,4K56H:V-TV0(#90^5)UJ<V*H@q
M =RW"1;*&0,G#XJ-'3^&+,/"!%*E7])"ED-RLN04@D$;[B%C<((^;^? D7/5p
M#(J<.WN*9"&BQ)R7=%R<$<$"M4>0(G-W7HP"!=X>?/T"1L[3)_,[(G!?=E*%o
M"1/.GN-V3C"\. H133F2 >'F#1T0??T%P@G.G<"%&]21IUP9VGE6!AYIT(%"n
M# W^]A9?&:&P0QH\?)6?6&FLL )\">!%'%3&X<6<<P=2YYA:M*7118-F$/3&m
M'&5X!T>#P"D &@A35$%25"Y#      #_^@X  &T4 #%A=8P=   ,+U0T4# Pl
MP10Z8>30<3%&Q\""4.2\.2,G3)LV9>3H *'D#1HW((34&8,FC!N3#Q481$BGk
MSAP="4! (@"ECA@V:<: (/.F39@T;E*J>)%R!- Q;.J0*0."QQPZ9-*\<8'&j
MQT"C;I J9<KCS1PQ0,E0M:H J]:E3>W0J2%C[-6E9H RA5.FS!HQ*,; 20$Bi
M 0H5*/*6E -"10J]*5*\+1/7S=PW:\K@U<MB3 J_@ 4G+'QX;P_+BQLS)1*$h
M2A C29@422"""Y<P=>B\<?TTX4*@9D2$E@O"2! F4U8G@+';,0@J4JH(#^$;g
M>)&4 ^GDH0L7Q%,Y(^F *+BG(,G-)S%NH0&CRP[O@T' 26BQ#)V,<[;$D('#f
M?,'KV4&,Z>G3#9G"CN%!QWDJ];'?12:106!TTY51'7YC:,<=>IO1D08=;)2Qe
M!0[E$9@ A-H=V-]_*LC&DX<@@H"1&W5\488;=,B1!X!E"/C%BG5XV >.+L(Hd
MXX(*!%3C>W* E"*/+\8XHPH^L<'&&V.@D,(.0PUTY(LM)BEC86B4$<9_/8#@c
M1!5,,$'@E2SVJ&1A8]0A!V%ACEGFF3'F)V*"A0W!WQ=(>$D&"WGNV>:;! *Eb
M'8_[U0$C"&'" .1 /@$EY80J?4=8&AX:"@((390QQQQAG,%4F,T%Y^&0&8&$a
MFFJ%F?$&76Y(Z>&J1;0*AX>6@B!&'6:8D=&&'=Y79X0J8JGFEBH,"J>89)I9z
MD*810>GI'$"=\46G+#+:VV^FII1 &F8$9@8<C+H**PJDF48K"R+((4)BC,;9y
MK&(J)=!=O7/ (8>AX>[::T;LZED'&_^Y\89VC?U7PAP@<.&&""RD>UIJ14Q9x
M4 )FA($0&RCXZZL<%M=;XX4HQ!!R @GTX:T39=QQ+98HB'"0;760^Q2ON9U<w
MT!UHI)$A"F:(2L<<'>,,,(<LC)M""#W(R01?%]^+,K@@%/VO'%N4%R\()W!Qv
MP@GT)@#) %*/334*(73Z::AEA#U3V00,D6%"?/94AJP%S92$&W; 5\873\1Zu
M\DSZ\ALS%'//P90<?H) 1\\,8[2VJ"#@^?B+ZC'^J</O>DCXOC"&*X(4[KD)t
MDFSZO0$C4'64X3#G@Q.P=]]R* YXKWBK-)/*N@^@-JB4AXF<<IX/4'CH,2\,s
ML0D>_QI#%X,/P/O49E3=1AY?7#=&&W!8_3&[(TQAFA140&Q#"CTTZO8 9QS\r
M!@@S*_0RBQY^6[WWOVK---<CG """2;0E=&PIK\P=>UK(%@?RUQ6!!_E 7\@q
MJQ_O!A(_.LRO#@Y1R=E^Q[:PV>MBN:(#L.Q3+RAXY0M#<-,<WB '%," !3*Hp
MP<D2,#N_ 4YP]3L>'407D6F!@'$M*9+CWK>?U;&H#"X8&P@Z=[$:UNYO3\#=o
M#(5&-#K,<'I$>,,%2W:R+GU)6T[S4$! ,(0NC6$-0[1.74! -9/,Z W5NUSJn
M?/0&-H @,GE@6$+FHCG%D8@H&M067>R"%QC@H0@Q$,+3,G6_-(!@?S#@RQB#m
M,,<8U?&.99A1&ABFKVDYJ#" 1-F]+L8SG]TM:.XA6O/DP *D*8UI3H-:[\HVl
M@+-=+WLQVE[W5@F^(3S!"<AY A/,AS[UY8T [4.=GF"$0M59D@W%X]TR+3A-k
MB; A@R@KY<]0.30(MO*%2GNDO,JT/EJ>;959ZX(X^0<V$(PQ"6<P&.-2=Y$Dj
M,:Q*NB, W, %P72NLVMT %O>"E"V D1K#-.JU@5[,+PB>*X "]SB*@=7@.G-i
MI QL4-Q ]^!.%8  GO)DRJLLI#J&W>%": #!&V*3-P/@")]B*P _#YI0-U@+h
M6W5PFP$BVD E09"B%B6 1:5W,3,@Q2NGW$O]RO@&I&[QBAT% 26+^$Q,:I*3g
M??PD3#&JT7J-LE[:/"45O>G*O:PSEGDC6UIMB3WM<<^;(AB!+X$I!6$2,WT@f
MB.0QD_F^:7[!"5JL9AV!)+9:W@^=!62G)#T*4A8R143V!.4Q]]FO ?IS?P 5e
MJ.X(.E":?DJA.&5H<APZT(CB]*</#2I7R[#1J#9VGB.5BAM,BE*5LE1W+L42d
M3"$ATW!YEEHVO:!.>>I U XTJ$.5IC/_&EAG6A,F8ROJ414'-*5>C*E./>T5c
M"S)!!=S2K=V; POHP((TT"M7\>G">+= 0DUABE+?6I0:/.0JPJ! #3UPE!IXb
M@"DUK& %'CQ;?-2@SOV)D,#K Z+IJC;@+K3@P-#SD(*+Y,*3=7<@IH79',Z;a
MGO1Z2&IG\R*8QOFTB_$3!2+65I.>%"5JZ:$,<$0!DAP(KZ4U;5YII>7>+K1%z
M$;-@PSM(P#MGFQ'MR!%',BE  G8[ &5I2\1!%K)'I^ >_;B)<8N"PQL,E9&^y
M,'EZ"5AM6C.VL9@)C& @,)AVPN D*&F,*1AI POSP$25B+E>)U96"WP0( LBx
M.4PKAA(*7 SC<,U822E0XO[0.LNT.CE,>N;SD&Z$I2!/D@QV, E"K?RF)"TYw
ME&/;L05/JZP?3TG*8AH2I["$LB]?[,Z%)3.;S;Q2-*NY<FT>PYN+)6<9U3EEv
M*1'U%K5L*%-;:5B',I:6ED1L&!$(O>PE4$ &LC?%*:1RQ<J6H=XG1YP\I7+^u
M8:,;+I0&-J?AQ8[KDGJV#"/X;$<!,)6:]N#PP&;38<_A*8.I/63O/9OH?23Ft
M-[OO+6D;_9E9<^(N=!1 7)]N>"#0)N&T%0 4:Z\YS2T#P;+%C3HY_AL$WJ;#s
M0.)-(<(PP<UL:":"_#.>8%4J/2?7=<JAP!Z,$"D^\ZF/APZR+SB@L(5 %AL!r
MQLCS-)!+CF,@S*<+,@4XX,2"3)#+H%D0<S:K?$141_D7:%X1F\/G9,+NJ8Q0q
M4/64ZVGE?RK[UFONGJ_K*-CCMJ#8'WAVK'.]/3?G\&;JGB#VLN#N7J]=M <Rp
MQH%D,=U,"4.$ZL!F$-R!A6B$(^(W5?$BCSR4\D8V/4=4&+6GD% %\?R5M17Io
M?Q/V;*)_4_H8+4H3ARLO5_;W&WBB8C:S>-#G+G1>^).@&L,2Q[,L[) OE.;9n
MEZ'5H![ O!]8^MF_ =_M80'?_7/JM"X?]F^2/4_VO)ZNM[UV?V=[WHO7_.T7m
M7#L!3RN883TV67-,!&<NV,%PS>)=QWG.OP:VG3/*6J^2LF<_DWIR@&^JMFCSl
M@FJH$6XO\A^2%W)+UVB](X#:(H $*"#1Y'J!08'G5WNYAGLO%F-W0GU\86.Lk
M-S9[('R,%7?%MQ3(EU82&"8:V&?%<WTQ&'W31P;5USLTJ'6?-X ^T'UX!Q_Aj
MYWWCYX(\&'L;F'Z]LW[\-V8:,VOP5VORMV:Y9G]ET&MTMETJH7 $H0!-]W1?i
M$'6.,74W.(1!6#MZ1QCI)7V\QW+J!7C?YV&$YU'O1CI!=#KJ=H/@]A]R!(<Wh
M=WGPY5XL,%_/DE\>$E:!$1]IH$YXE5E\P0=\P&!;L(A;XS]@<QE$%R-&!W)^g
M4BT/.#7_%60S,4:E]![6L1X(U8(J@5^.LC, >#>#-HD%9D!<$%!\ 4"22(F8f
MQ35\,39CI"?T5EA,AHNQJ(L]T#4P<(FH-C:7HXHH<X-;X%\KT 4]H(C_91XHe
M,T9C$X)DX(S02&#:@HPG<'KWHXC4>(Q<D(R7,8H>105=,D][Y(SV(G1CE " d
M)8]^"!_IA([)&&5CE(^U@X_BIX_/PX_CF(T>-393\#X3Y@;RV)!<)(H#<#'=c
ME0"(6(R,2(NV" *0F(L9R36\B(E3IHGDLC>ZXAYW4!<."5/?$HKTZ%&ER!3Yb
MHGC']X %@5\Q<(BOB)'_E(Y@@X(R,0# ."/-^(D) ) #=HW5.(G7Z(\).0!(a
MZ8Q(&8V,R#4^*9':6 !X(I4#*7A:$R:: 3+WU0(FXY1!:01I@ >3MQ\KM2B6z
M E-@1D$D^7.#EH;6,7@J,48-B6W742V.5UM)!P)[UC P8!W<5A+: 04U4@8Zy
MP1.>4GPATA-.]Q-N0'(:M"COI1+U535I8(CFR#1=XP;CF ;_=3+F:)!O5Q9Px
MP1M/8 1&$!Q4D  S\)(JU2N*@S LE&UUX&6 -!#893O:%8B8V0,Y^2QNB09;w
MAE"$I2P] &7/<C^/1F(>U) >4A!RXR5R4#<8D3NH%A&:LE)&IFX6@B%, 5,Zv
M)#HRX0$5M"GB SO\!CH[%#/IZ05^0)_V69^O\S G,P7(Z3*?MT(M=#*(J"P>u
M)#4)<)[)@X,@H#SE51E(.)X9,D.DN0+U\VB<YH-]1FGT0Y$0<4+_R4(NQ (Qt
ML *DV9JO6014<#((*@*(XR6*HW'M1AARQ")M( 9=MA^=EB^J$Q4VE49R% 9Ps
MH"^OLB^[1A+)Z3INP 4#$03A=CD@T4F?,GD\( 4H6@52X 0^8%4.XP._9J0Yr
M,2H@< 3NX01U4*,9P9V(& *"<:0@D*6%B8M>NFG\E1A1<S$F- <HI$(@^D(Eq
MZIJP.4,K6@)C #'(" ,W #;UXT2V$SC<>:#P*3I%\":Y205;$BJ4Z9Y-Q#<Vp
M%$7A JB/>CB)PQ1)TF4S6J8V2A@XJCE:YA]^V7'J!J1"6CA%BIQ?VC!)NJ1-o
MVB5/VD=22J548*58JJ5NP*4S=*=Y6CM[6EXK, ,K8*)_NE1SDYU%4$>-.@>Zn
MY@:B4P)DL#QQVC825!!9M$7=.D-<.!!B2@=D:J8!6A!C9(<+)D=Q43O:0:.Gm
MJE)XR!1  0>Q 7*\89GQI1V9F0"YLC=BJ"'D04(),%8$*Q>GQEMC=*Z3AQ/&l
M,38P)6#6:A+ALK".P2[:NCSFM3\F<S$0&4FB.'0>!5AI9JI=YBJ*0@8P!9'Fk
M)8H%,$99\)@T"@(L&VZ252"&IT6D1JL(12^:TJUBQ%C<DR$K$IZ/!;0B%4?Jj
MAF3^ZEXHHGF'ABQJUR=?,K7802S<&!-L<F6$=;6-$R;.J9D@VIDYF08\0+03i
MNHX#,$8)R(?JMG%&*;9?T@-V2P85Z&>5YAVC!X-:A[5ZZP.FYXJF5#5.9H#Dh
M!)1%@ >,&1M,(4?+9I0&NJ*-^[@6TJ,+LZ!SP#D.FGU\%GTF@'T^"(2!MV'Rg
M$6%7 2[^P1@@0 1%( 15< 0H8Z>+&24O%&GY]KFEVY7BQ:*E@00]D(YU-@(+f
M""X@=&60AH0RR*$\NX4*X'YU"7$=AI<?I!(K6AL*L1$+X[E 5A C0P<1R84)e
$,! : &60d
 c
end
