[comp.binaries.mac] Bomb Shelter INIT 1.0

bytebug@dhw68k.cts.com (Roger L. Long) (11/03/90)

[Bomb Shelter INIT 1.0]

Bomb Shelter is an INIT that give you some protection from System Bombs.
System Bombs occur when a program goes out of control due to programmer
error and crashes the machine.  The Macintosh brings up a dialog box
that says "Sorry, a System Error has occured" with two buttons in it:
Restart and Resume.

Unfortunately, the Resume button will only be enabled if the application
you are currently running specifically enables it.  Most don't.

Bomb Shelter makes sure that the Resume button is always enabled.  
Clicking on the Resume button will cause the current program to 
terminate and put you back in the Finder.  Once there, you should save
any files you may have on a RAM Disk and then Restart.

Bomb Shelter is completely within the public domain, as is its source
code which is included.

---
(This file must be converted with BinHex 4.0)

:%%*[E@)J8fKPE(4PFLjcDA3!8dP8)90*9#%!N!3EFJ#3"'NH8dP8)3!&!!!EFR*
-BA8"q!#3!aBSJ!)!$%*[E@)J8fKPE(4PFJ#3-dP1594#6de6)!#Lq&r(S[KNM3!
!"C)!N!B%8J#3"#a1!*!)cV-!!!3)#)$!UB!$$JCF"i!E+))!i+%)3!C%`e`3iCd
)--FL0fN3!6!3mUD0'""6d*4K3kH-($3#3XUF5E1Q6CQMSZ6k),1!*""8mX!T!c5
-'$CP&#4aBqI0'U*,bZ4C!#@-Qj8JNV4X-dFT8kG3T5U)QJH%NcGhXXiKB150'cS
,KU#aHSDSNc"YbL"S8QE1R$"ejcL3!2[Qc4bLI2d#,Z1Jb&ZA)+Vk[I0'$TN%3C!
!bU%$iN5C0JV14NicKJj"4f!F"%cL*!N9N6+$k2[RcNNFff!##KLL$i!C%BK#SAL
")*8N'$a5l6PPK$F!*c,i1FN((,Pbf3"NQ$SLj03,(LR4rZ!4-"8S*CG!I$PM`6N
-i1G"TBMX""))23"%J%S#5S@61UR3Sm3V"CQ"J'crf2-#%JACjQ!F02dA8!"ZT,C
DDkpC&"+#lS5!6!,1j"B!%R!!m%)#-3!MJ&PeP!L'25*mSCjm6Xc'6S`cqMHE1%j
Bi3mT5*`c!!3qZ!!!!LmdX)3l2fEa#"*j*$'%%b2mF)"jkTQ!"!J)R"%31dLimBm
FU,J4jMpfS2)'$cJN`-)iALKJ"!3Km)*(!LkBB3#EES)K!31i9&8('`VJS5HE#[J
"KJ"m)!#$#rmS%J8323$a$cf2rS-)0%C8qSmmQG*MJ+AJH!T2T[+-#J!)RYTMJ"%
!S"#$-@l#+5HGXq,j`J*1k2+2%d+)U8q`rq!$"kZ@qZ-T2h!3i+Nj3EMc$cT$5)X
2#0PJLe)3k!!!5!Y)r#21QH1+LFHCq*`*chJ!$0!G+Zbd-)@ij*jjVTMTLVNZH3'
mbmkZ[IS$ckkTM(*QQRfSm!86hb!!M"0Hr$F&%NpF`CTVl!)5X$982#*K3#+%3**
*++R%%Q3aZ!!$#'+8&B3EC-K44PTAV$3''NB'"-*!J"!d3-S`9*!!5J`jj,"bbb#
m(22-)06-aXd%HF#ccd"2!$6,,X-X-mdfSd%3!3Ke'p!"&lm'd8!6%S5f3'S6*%$
2!#J!L@i2i8%!%3!B3J5XJ@"J%5#)2!3%'V8-J%m')"K1!"#'$`$+!ri)!-%2rr4
-Z5)!r,%2-*Rh`rNrri!$`$rqL%kkkD@2(RVRR'[11H@@9`l!"rq-cFq%m*cGGYU
mY`[h!R1h@rF"a14pK$%!"2+"k)!m)MS3Ep4Mq2+'(`"-iip(2VRXPfIq6q[IUfl
kkU#2Ellhi,r1[Hbdfijl5"`)m8368kKYK"4&`!S4)&*5'4,FDc-)3K3#!)CdJ"X
X-)!R#-)"!#J$!'6$%%'%%*il%!4BmkYI3,4J"jI-J@eQQ%-HjS#IJ2MKI[NML#,
k0`+#@%))6L!#%`JL#YJ!!!S3kF!f5%%3#@K)%J$3)3N#!MVGJ%f(24-!k#`L!"8
%F4ZX%-J5!5!!*mLNL&3XN3jI!iJT#J!26q5$Yl`iL#H5BBcrX-J!$[&%*N4JC#G
*b8TD)SHXB-J"&Fc+'0`#JL'mJ3aP!!!$&%*[E@)J8fKPE(4PFL"5C@&N)%eP!*!
V9%9B9%e69d3!!+,iCS@Lq'D'!*!'"08!N!B#rJ!!H)m!N!DY@3Y+mV2F&cYaFV#
,ZS95&"T+QU,9"e8SP*,jLQ9$&%SbPdiTp9@Um,(E4Eb'TCDl3@bkh3&6XbA$TG1
VhCBV*CC!bKqA`6fPkNNQ3Zd(QQXI'l4dj*'82bj6fPkR!Z[S&h6HdYfdYIYN&qT
DAU2kRRUGY@dEEYei`pq[K"0RlQYmB-I5iSVbKqmG)[A@%(m+3ri"&H[l+(j&Lr`
#+pIf82b,`je8l%p2VadJC&IaSd[&EmBHk$Y)TmkllMMT!b+pqTp4)6UHIFLP25p
ch[9d`2FAlAR[DPF"h"6q5!BaHSrAjJY)'q80rlQYmP%AaM"#)+9eq!4AVqeN5%m
e,`je86FmCl!A2fa(bVG`CF$iA+l25Y8[UHICk9AlLNNEdm-*G6@pS+9lR[Ck9Al
mUhF(f!T6`G"I,ITVP6Fq'(h2HSip!FYK"m89kT[G9%dlS,T8c!aZ3qZ$#$PT3Ad
ebTTF,aIY8&IcJfaH,r"(DHj0@pcl+(jI"2DAUBT*'82bq#Hd[8lePkA+UElQYqj
lfHP9qr+Yh"m#kdB84I6A+Qji[fhS$TB'0i2h2HcdU[hj9Zi2X"5RFY5hh2HkU*T
hadJC&IlMhU2!e[HTjmHYm89q5ZPm$pchYb"jkQ,p[$G[ZHTXVLL[+F9TRbA(hUB
[K#QPa4A[8AQZ2[Jq[CY$9fi!TI8mrFp2Xp+e5m8NQ0Q&0pc!Zp4FYerS%[HFGFm
G6Y4YmBqTh8"dX$'m(lR[Ck9UPr+Yh"bZ&pAA9D8&eT5'#iSURDPF"h"6pamij3r
HkQUIU2f)5Af*JkIHX[5j96H++TjUQIc3-IIR'NEB[MEIG#*8HpcaIY&#L9``qjl
m!L[ApP$mZ`TFi[VmPcm(XVLL[HS[P[A+QqilS1`1ZpL%PJBhB#ja@qQPDTB'0LN
NC3r,i*l5p6JAG$akEHd&f!ZB(lR[(VP3(I1(U"bZTF#i@A++SlHk-pl%`G2Y2QZ
2[!h8VRZI!rF`,i,VK`KI`K6F8NM@0[S&+NND$c6@2MGSkFJ!!Jj#EfeL)&0SC@a
dCA)ZBf9KC#"0C3#3+e4&@&4,38K-!!#LpET5S[KN'J#3"JD!!*!'!iF!!!Gb!*!
'@[d[9)!B3E#J`B-)%bTFb,$KL!B0K,aT)`E%&$4Pf0!T)`H%Q$`JJVJK)kI-(4"
A-Sj"!j%+QM4c3#4aNS3+L$YKBYk4NiE14MFJ`Y!"33FML**akT5C-r50'4"c*TB
"i44%'j!!Fp#%+BQc*)JkFcM1FG%JbG!jDGV!B3-5MY#95d&m5H+Q*j%dBGLm14-
cc%J3DGb%P81R,`JT5qZd+30&cTXaJ*m@j9LQ!8`h*jUkQ6S(6TNaDFbN+81'E!1
A8a(28FcB-@5dDYQ#)2-QVPqj4I$dT2,QBNBfTKd+(djF1!J9,b!f'%'QM1M0#C3
dJC+JHJ)BH'J8-C*MHI2RC4,3YBYA,emUFX,!ZBiR5)iE3T5h#4-B4BS'HaSNb0P
'IrlUE*344R9!c"''(D3G`8)3-HLA3"Y[)1J#'`N%!3-,)+$!i(h9IB(B'"&bK)4
IC!6S))358QJK#bfJ-!88(#E`"4&Pd"('5UUp8BFFBe6@3%!J32%@'M,94FGGHHd
9%h)39BIL9!Q--0k4j5Q*RRSX%!'$JemF8H19F!4""NP,cC'!%d9F3F866c$4C!)
"$TJ!%'r`G-D85*Shai)01KPLP0*"`B+'-D5``SNK6PMKKB6HKbL#)%5*CjART3G
(PPX#+##"EY'adU4*mV9JTM*1mD@PBT)jKjPSUXQQQcm+4-3E4"Ped4XR*3%L8#!
fGeab$Sl"KKb+Y[KLM%mU1X)*Ypja!SXZ`[KS'5lF%H@&aNVESCGdj,KMM`i@4SH
Ld5+E+)APVM#UJf+8%3H"Fkb4"Kc01KJR['MJ1S38I%kVk)U0FSQ%%fp!XH-CPA@
)""12VH%[ZKDQX'jeDX`K4`)D`Q"ZLR0QT5qr&JTXX"`)#eb&'hU0iA!$"FT,Elj
h[%RB(-S"@Gc01"Ih+d4!)N%CB$(Tf*&UV!AT'QNl6X8Nbd3[eYKMEhk4ffkpBF3
''c8,P22@A#HdFk`Jq1`96&6Y#%+R+a&&+kKkIJd%fQL`VH5EiLT+3lRX3MGRAL@
&38BHG$'99i"N[(R[R%fhpYM%$jkl+!Yh(`X4%(`,q(IJ0Pj0fZ4eTR'RNAR1lD!
EEm!aHZQRQmkcePfhc[AA3%jK)aeT[%C(R@%Jl,D"#**a4(9NM+%S$0B"#3898UK
GGNHp+TeFJ6$[#lc`&"*IAFp[X%&'6*0C",1ZEr$kKUpDM46JcJRdd8!I!J!13Qp
YBL"6D'9XG'9b,VPPB@3J6@8!N#Y38Np+5d&)6!!!S[@dZk,iC*3!!"-)!*!'#UX
!N!4Y)J#3#'LU!!!%#!JJJUH!%!i+9)0!"!JT)Gcm-`C!`3XA%cr`%1LN98-`+KL
`!5#JSKN4$S5mD5-'a"3dCGM3+52(45if*3RUh-QcTmqI2%G&b4@#j`3%5Y`!%%R
NaB+1!@5KQ&,P#BL42Pj!%(,Q"`X!2&!Ci[(9!+H4!Q"mJ'4NSiq[#MbKp@@%MB)
I,TCbGCUUQe1SZX"JQ2UfSPb55SkmZCZA`Gi&ICPm``$-L4F3AlJmF3+Y54BU4D!
NF6,&LC9rdT!!R"Z!S`-IJ3%(`!0+ZlEYflKckpl0ZlI[hm#$#ap1[,MaimL6+er
1[,Rcjp#M5jp1[ETehIJ)!ZX*KMH"i`*3"#LCFb$"lVZr'`m!C$cXJ2c1Hcr1"B0
lRHJ"`1N*K5!)!"6mX&%!6P"#`&d$TJ)2!4i)+*!!JJ6)i'!!%$Sa)B5%A,JJ+4S
5B%b(jQKi3)-*cKD3!(V*"B!&!!-!S0jS59#a9!3UXH356$,4"!+-903Ad$m`!'$
,6K!!X)'2!!!T**&')URNN!!k&ANN"Mm'#59"8MTT*C069VPNP%e5QH5@B(BjjTG
BKZRPP3LTH5DE!'3TjT0FDSPQQfE5@DDGF-Uj*T'1VG655c(0*%FCFEUTCjTjNXN
SRd6b+-3668`"!"3"!"*3!0)3T%"Y3HMcMcX%iH1%2J#)F#S!(UcU`USqV'V&USL
X5XUU`UcU$@BbB%!$"V"JF88brqLM"&Iq1!%2#2c`kLZ`Q!aEl,&R*,ZX2Xlq#SX
3ELJ!54"Y'!!0%%(-PKB%e5SE%!J[Z2K#%#k+d#i#,hcKSQSEN3#!#3%J)33a`k!
!J!Vp&S&--G33iDm33J!6$$5#5!D@#"mi83HllX*,J,`!d'X[!DV&!)!6ZJ$!LF5
-8'`aaJ5m'qqmpGjlMXJN!m!(#!'JV2,&lEDX-FFHbdacb5cSA$(2'ErFFF`Jcca
bb3cJE,6&5J#L"JG+"+)'!d3!3N3J0B2`YF9Gefa"ef2ANE8D#SaGXJ&Peq(#4NR
q)`XJBaJJJRiMe`(,)@)`!%J`5!!K!`"#!&'iaE)!VN&HL4FqH1&)(1%$!*8l%J`
-"e3Z``%@kmZ[1)L)NdMMBZ!c1$#(b$#!--#i-%$PcJ"6Z65(P)'!*)+)38$D8`!
""MN%)G!aR3GiHLN!"K$8[%i+S1L6m3#8J!BheBI"3IEB-aqN6SIr"XNNrj@J24!
"39-p'1MXC,kqjJYXrPIQ"fNq$GRMN!$p4ZDMEci4f80#pTL3!,hqQ%p'jPZ4qEL
3!,hZQ)m-f80$pNCL[[fBM`lC`d2fAQ-q6CQ2%0P$42BBN6e)C)m5fF0%pML429"
NMa6C3dAf@*%p@'52&YR$4ICiNEhYQ)mBf80'pTL42I@CMaVC`dEea%$#%SK"IQ'
JKkB!J,rh!#!"#AM22lE)a5f#`KA#+!Q9FL+!*$3K#%13!"%#QK#'-9""$Q'!`a`
!)!G""!5#m#N*&VAB45k+!KpNd!#VhK-"38bU#8)!3%S%GD0#dF3&Bb")!%$"L@D
dJC+@a'3E!#")-JEKM%0!3J!8`-Ba)+%-B5!$6HBS"aLiB)S##dKfG*)65C+%),8
F#!))d)B`T-%0)!KQ3!`!JiiB3"9BH!3$P&+!MV9"!aIj"cq-UBPN!U!!jJ!"%S"
4$N!%S4hDd%)dJ#%%5&M'BM9M!-N%J)0eBJ+GTr((#aJJS!$3!`PY`!Bi1T)"-A$
K%5pSJ6E%B%aC*&-)EG#'$EMe$hqJ"``J5#J6A0R3EEB$%0#!"!L!)!+*`N"J2V!
S4L1"!L!`!)8"%8!EJ,!I#(bP"l")U!h1B)+@[[3()fY&!B4""B!+9!i&6@E0D""
3E3#e&3B34M+P)"&r803I-G8'$0U!LD)5&+P+I33qpFP23536"9miCae-m`pec*1
Kr1K1!-`38@e-&#2m%'P'5kS%5Ta")%b`+3"J+P-c#-3(#%$L!9S`%Jlm!am`'!N
03)#!3-5(!6d!`MrN3GLPr)-HL38!#aMVf+9%pKr`3!pE%bS(%%!!'Uiil%C")$!
%Y%#bkUMD'jU#%E-+P!V'9!F8(V&D+24!JJaSD&[I@P&JA(5Z3+MV'c!3@!!F`%%
JNdKFmlR29Q4!$8pi4d8-i!U#""Ha'*((&#3L$b8!`3b3!""Y@eYbfY65Bl@YI@e
CC8[EXKB9YdM9,@q"!!,I!PHi(X@)2q3+#ET5BVR0IHj'SL[0V9EhZYRGERF$%Pc
-BJ3Hi`@YHG(,8(F)CVJ8G3H"0iS!%ak!UD-+F95RkJd8mi1Lr&Ma*[dK#E#+PDc
kQ1G`8H$EK-+JS@"J3&h23)!%*i%G!!$#8c2XM`fMSke3k1m,8$!!GY`hYl[GD!Z
J8#`35%3I(AAV4jFLedL3!0M%0[B#2"Zm'J`J3B-YD`%fb0%4!'MKX`i0L"BLUNm
63!%&5`J#0DM!#"p!30#%jJ%%30`jif*8SmQ&a(*"E)!4!k(%cQ9bN!#$-!dU,!)
'Kq#dTf&JL!cc)bR50!-YFV'--b#J"de005JFh"%"U#1CNU(-M8q$MRQkXQ2El1B
h`cR1,8Y6#+H)jM4Ed3"jJ1!$mX8(3qfK9K1!'#2f),#"4a)!"LccQXjdJ&ljUP#
r!X!H[dE!0U'"88CX&!B54%%,N!$`$hE!)Mi!Z#X!T*SAGA1chI"eNAcKJGTkbrI
*dM9Y`4%Z64&!3"UTK3F*-))25U5fe`"i33"H))#11%!')-!)1b+4@R`S1jUQBVB
qdVeZJ!0"#2&Q+$h3)`D+dJ-@%V(('D4`lFYU1lPfpF'hQiQ!0M"Jh&'eJ4P8`2*
r3m2Gr"8B!@"am6C3S1RGI2TU44i*'4)!a4DqV)`YJ@*dBe['!2#(00*XXE1H)K8
N`!`+N!$`6AhJBJK)*J8)XV(hQ[(!['H3!-%m1d+!@crL"bf`1q,eSBZpj,3"3XK
"'r6K#`#S!JNM)FAJ@d%!AHafm`6)USh(HKTk-&6DTh"3)T!!rHBYTZ*QAeJ"%[6
"$T)4J!iN'i!EGJ!%IC!!XaAkB%C!D3pG*%MAq$kI2$45dBMK)b-95)LS2T!!dGm
a#`!+31#p2SJ"Jm4,!aU6*iEfV6&mGN!A,`ffZL,`UBrP1k,m$LS!mZ-UNAY1(K[
-lliq[!'*b@Y$qmDJIpCJ!1LM!0SR9BQR$H#R$mDJIGi!IaY4!1JhA45`I[HA#Zq
AH1Dh%HTfI2A(IZ#3!(q*j`d%##$DC`i3f$%6L%m8)!NJL)(5a`lkC`k`)%%@m!B
8!(mYi&h%*c!8`"@E3K!'J4!+%3"UB#4GJ!3P'"!F%!"LS%Kd0`8#&""kS!@E833
%B3K,-"S!&"#5F!9-m!4$3"#H`)8V%K#U-!423!4B@"+f3!4"3!A`%K$D-!98)!@
@%K$Q3!458!3%&"$LP3@93K$q-!41B!4(X#N+-!9*S!9B+"!@-!4pq)F")!*%)!4
9N!#)!Z%#@$!&JVJT1Q"&1Y%"h%!h@a33#+!*!%#+fe-h!9%!k%1+9A5+(5-(UmJ
0qZ1+,%)2YcJRrh!L1N5+&%!5Y&J!fd1+!K-!@c5-CR',"&'-qN++4D+,"5!`T%J
paIJ9T-J!2r+,ea3NT2JG!N#,#%"#T!J#TrJm#1!(YkJ[iqL0"B!r(E!0![11VkJ
rmlJ4pRK0'c'28&!!EE!'BB!'E"!!-J!#!"0#EfeL)&0SC@adCA)ZZ5jbFh*MC3#
3+h*cFQ058d9%!!#LpEhRS[KI5J!!"0S!N!B$UJ#3",&R!*!)AM3!!!3)#)"!KB!
$$JBX&XE0'4"Mb*5a%c!!-4+A#!+!p`0!23`!6"63#!r'"#&[fSJ"-390'6CdbXK
aNFZ&R$PbaJM3b,1Rcjp!Hik+NNY%6`,D52S!-!N#J!kB5-)!)!fNQbJN334i!!*
!,@8D#`4K)j-1!6*[lVJ48!F1!M&Kb)")-qD0'`9ck)543fGZA6F*8+D8fI!-"L)
0ak4a#!*+3c*K3NJ'!3,1QcPP3-3!'C!!`H+(MYf3!+Q)*5#-N3%j#(R5C!V"!%D
N&$(#%e#5)8j'e+liZMI[h`!%!!US!&*!!D!!i#&!")!K)V3$BHJ+#&&b)'KU$F#
A!F4f!N#f$`$e`*m!#$rq$8q[#-#IIF$Fpi[rlami!2rmhFqrAcpqqr,&pejmkDf
R(J!Ir"23!Ia8")p'!`%AS8!%$6!F!!XB"m"ibKe!M(0('!0!)"rF"mJMp`(a4Mh
EPEMG!F#)4jjjk"h)RR[r#*MMIrX"@&q231+S)i%f(TMJJJd+p+"'"b6K4"*8()8
31J4T"F#&'mEJ!J`9T"*$$MR!!))BHB!3K'KbP(%(#&Hm0!BD"(N`%*B$D'Q5R@1
@H5BCDDlC*KY[%L4###LTa**,--QNfCCjQSQQQQbkLBB,&EN"KJ-"13NP!&ha&)3
qrlJ6!M)*1!1'3%M!!F!,#F3!M!!J10%@!'$B)m)A)(`"5JT1J-V1VEQ#SN+[riM
MK"AqN!##a$N$31!$T3Lmd-!5lL5Ea50)j(&EEMmFN!!++,QDJ!3)#*`4%$Y)Z2'
2(+LiNHirGU$b"Jmi*-$#1&iSB!3%)I##4`)ZQ'%![ID#)3%$Z$K@"aX+i#%`[3V
i!BB!I#!!J`[r+")&%$d!m3mp&rq$#$4'G2b22#(6Bi$(i*KF%XEbV-bTbIBB3"X
+-4KM,llkmTXc`#mXi)3ZrcJKK,Vk(2d22R#!B,)r*[-$"`%QQa1%1rqJ-`6@q)#
3!)hA,!9"*5!Y)&(XZq+mLmHlq,c,%3mE#R%++Zbd--ACkUDYlYVUYUhZf`,*6AI
33rX$6p#TM2*Z[(fSm!86hb!!M"0Hb$S&%NpFS5N92m!051(@82')V-!CK*!!3J!
8!i!&V4#"J!8%F3#!,3!B))364$""N!!1fqS@N!!4XFe'N!!8Fq3aKai%H@'(6(0
3U-CUV4%N5%YT%H6)PI9efK-Jf3I8e394i)(p2ed&3%*2p9Ad!Nm#G"r!$6`&i2i
@k#XS8"mrP6m+!1!$i3$eDdV#Ad!`K$G)"#'l!!!:
---