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 -'$CPaBqI0'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-m%'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'*((L$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!!!: ---