jim@cec2.UUCP (James William Studt) (07/11/87)
[LunarCrack INIT]
This is an INIT for new ROMs which replaces the SysBeep trap with a
routine to 'crack' the screen and beep. It is compatible with other
Beep replacers.
Information for ordering source is included. The source show how to
write INITs and patch traps. The source is in LightSpeed C.
- jim
---
(This file must be converted with BinHex 4.0)
:&daeEQ&b3h*KBfXJ-5ib)%4&68mZF'Pd!&"*9#"3593J!*!%%N3!N!3iYP"0B@F
*Bh*KBfXZC'pM#IS!35DD!*!$33aQ!*!'S#-!!1N`!!$,c!""!3)!)!!i!*!$$!#
3!``!N!-L!%%Pq!!!9%9B9%Y"5%`"!*!&"3N!!!&FR-V!RCcVJN(T%5U3)!d06(9
ZBA*$FQ&MDb"TFb"QFQ9P,#"KEQ3JE@&j)'*P)(*PC'PcG(*TBR9dC@3JCR*PC@a
j)'&c)'a[EQFJBA-JH@pe$@4TFh4bD@*eG'8JG'KTFb"NEf0eE@9ZG#"hDA4S)'P
d,Jd0+T!J$3e%Ef0eE@9ZG'&dD@pZ)'C[FL"-G@jKFN0bB@0V1Jf3"%aeEQ&b3h*
KBfXJDA-JB@iJ58j*9#"bCA0[GA*MC5"hD'PMD#"MBA9cCA-JH@peFL"6HA0#C@9
`)(4bBA!JG'm0)Q0bB@0V)L"dD'8JFf0bC@9Z,L!J9'mJGA0P)'Pd)(0TEA"XH5"
`GA3JDA3JD@iJH@peFL"cHA0dC@dJCQpXC'9b$@&ZC#"LEfpd,L!J5@BJH@pe)(G
KER3JG'mJCf9d)(*TC#"[CL"TG#`JDR9cG#"`G@aX)'Pd)'peG#"[CL"jEh9b$A0
jFh4PE5"QEfaNCA)JB@jN)(*PBQp[G#i0N!4-G@jKFN0bB@0V)'&XFfmJBfpZG'&
TER-JBfpNC5"dEb"MB@aX)(P[GA)JB@0dG@&X)&0jFd*PCA!JFQpeG'PZC5`0Ffm
JD@BJH@pe)'&XFQ9KC(NJD'&fC5"KEL"*6NP8)(4SBA3JFQ9`E'&MCA-JH@peFL"
LC@9`,#"YB@YP)(0eFQ80G'KKG#"jEh9b)'0eFR*PER3JBQ9PF#"`BA4MD#"TFb"
XEf&NC@3JCQPbFh3Z)#!S6@&VC5"TG#Gc)'CTE'8JEQ&YC3eMEfeP)'*PCQpbC5"
dD'8J6(9ZBA*$FQ&MDb"KE("SB@*PG'PMB@aXH5iT$C!%+%9iB@e`E'8Z)#"*CL"
jEh8JD'&fC5"[EQ8JBf&XE'9N)#*1CAG#C@9`)L`JEQ&YC5"TG#!L38jPGd*PCA!
L,!eKEQ3JDA3JGfPXE#"hEh*V,LN0N!4*CL"jEh8JC'pZ*h3X)(4SC5"-G@jKFN*
PCA!JGfPXE#"LC5"cGA"PFQ0PC'9N)'*j)(P[GA)JEh4SCA)JF'&dBfJZ)!e*G#"
hEfiRG#"LEh4SCA)JB@jjG'KTEQFX)'*eG#"TG#"hD@aX)(0dD@aX)(4KDf8JGA!
JFfpYC5"cF'&MC5i0N!3UN"`0$8PZCQpbE@&dD@pZ)'C[FL"3FQpRFQ&YE@9bFcS
0N!46Eh9bBf8JBfpNC5"TFb"KGQ&TE'&LE'8JCQpb)%aeEQ&b3Q9PF#iJ)%Pd)'P
c)'%JCfp[C#"NC@e[ER0dFQ&dD@pZ$@pQ)'K[Gb"dEb"NEb"*6NP8Fb"KEQ3J9(*
KF#"3BA4MD'PZCb`JDA3JB@acEb"bCACPB@ac)(0[E@80GfPPFQ4ZCA0c)'PZ)&0
jFd*PCA!JF'&dBfKTEQFZ)#"8D'8JFfpeFQ0P)'Pc)'PZ)%aTCfKd8h"PC@3J3b`
JB@jN$@Pc)'jTBf9XH5"hFQPdG'9Z)'&ZC#"MEfeYC@jdC@3Z$C!%9'mJEf*dB@P
Z)(0[GA*MC5"YB@PX)#3a-#i`-#"dEcS0N!3JN!9-G@jKFPGKFQ80)*!&-c3b)&F
Z)%eKC'PcEfi0)*!&5fPbDhG[Ef3X)%e2)$Bc-6)b$3d!!!%!N!-"&J#3!aB!N!0
'-$!J$50NC@CTEQ8JBA"`0%eKFfXJ#3N`H$J`N!-J$5-*Bh*KBfXZC'pM!J#3!cq
3#!#3$$q3#!#3'*dE0Q)!!!8*!!!"A'jP)'0SB@jRC8CXB@F*#6"i-*!$-JdMC'9
QD@jP)'*dEP0dBA4P)!N*-(J`-$J`$50NC@CTEQ8JBfeN5f9j)!Q3!c"i-$%`-!d
MC'9QD@jP)(0SD@Cd5f9j)!N*-(J`-M!`$50NC@CTEQ8JB@a`D'&-Ef0V)!N*-(J
`0$!`$50NC@B!N!-%!!F!"!#3!`S!#JC(C@jPGQ(*!!!"!*!$!4B!N!-@!*!$4J!
$5qi"f!#3!a`!4J!"494"3J#3!a*&4Nj8!*!$(J2Xrrm!N!8$5Z)$krrr!*!$#!!
$5YjqHP"0B@F16(9ZBA*$FQ&MDb!a,M+D!*!$33aQ!*!'S#-!!1N`!!$,c!""!3)
!)!!i!*!$$!#3!``!N!-L!%%Pq!!!58j*9%a93e)K!*!*#a1Fki9RR1Z'+5k"!!!
"!*!$#NS!!!P+!*!$b5"ZrrSa3!!%-#`(6NM!ji$3V!G+-L`(6NM"ji(5V!G+$Na
eEQ&b3h*KBfXJ-5ib,J)!N!-rN!J!N!BrN!J!N"LG'cCP!*!'#a0R!!$F5'lrKUK
d5'lrLUK[2c`!#ULF2c`!!kL(2c`!!UL*2c`!#DL+9Bp)E!G8U)``(c)Zrk#53&&
"2`%`,[qD"N!!$$m!U*0)E!G8U)4`rcP!"dj)E[rmUA*#E[rk3Qlrq%KZrjS[,[r
i,blrr%kkrPK2l`!-3QlrpQ"B-#lrpNM!!!!(9Q!1!!"*6NP8!)!!N!C"q[rZ)FJ
*cQ!!!c"19J!!B!3!N!4$q[rk5Qi!#'F%)SKJ!LK46Pj1G8%d)*!'6PErq&@2,bi
!##mZ!"#SV4!I5J"R!!$Q9BqSB6!I!N!!r`*!!!053$e!rrjJ!!$'8Q`(4JaX!%!
(4Q`!!-!r,J!+2bi!#+L6-#`(4NM!ji$3V!G#)%!JVJ!)-#`(4NM!ji$3V!G#-Li
!$Y*"dQi!#P@2,8$rqMe"rrLSB6!I5-#"r!#[5%$3E[ri)'lrqM&!!!B`,!G'5-$
RJ0#X"d)b,J!-dN(5EJ!)9BmY32rk28(rq+KK-"p)`)(m!+p)30"ZrrJJE[rk-8!
!"$!X"dC)`1H!d+`(3M)X"dC)`HH"dU`(3L"!2bJ!"L""2bJ!"+L48flrrNTZrrj
Z!2mf6Pj1G805380,393J6PErJLm*,`%[!Lm-3QG1Z[l#9)pCMdKi!J"1ZJ05)&m
T5!G#5U`(3QF!!0a)E[q'U(4)E[q+U'mr2!!+U*`r2!!$U)Fr2!!#U)Nr2!!*U)T
9MdKX"dbSM$!I-LlrS**!88%r!6!ZrjS'3!!-2`#SNdKX"dbSK($r18!(4NKZrrb
TFN*ZrrT#E[ri5'lrQLmZrrJ[,[rm6VVqB%r[!!a#E[rfB&J`,[rf5-$RJ0#X"d)
J3#eS!!6rq$!ZrrC)`1H!d+`(3L"!,a")E[riU(m`,[rf5-$RJ0#X"d*)E[qD,bl
rq#"!,bJ!"%kkrJj2l`!-$'`!3!G'E!j5E[rf-#`(4V"ZrrCQRPQ22c`"b"mm!!&
1ZJ4B)"mY32q#,b`(5$mm!FJI2!!"6VS%9MmZ!!LTb%KZriUSFbmZri)r2!()(c`
!!8kk"$T+V!G#C`!!QN*ZrrCJ6M!ZrrC)`1H!d+`(3M)ZrrC)`HH"dU`(3L"!2bJ
!!L""2a#SNc!ZrrC)`1H!d+`(3M)ZrrC)`HH"dU`(3L"!2bJ!"L""2bJ!"+L48Ql
rpM!ZrrD`E!G'EkK9MdKX"dbSM$!I-LlrS**!88%r!6!ZrjS'3!!-2`#SNdKX"db
SK#mZriDSFdKZriUSI5mX"d*1ZJ'@+&mN(b)I)Pp1AL"I6qm!!Nl33e*"3dY#489
19[rm,`Xr2!!"6VVmaP52*NKCMbm,6VS"2L"I*NJ[#dkk!G*)E[rq5'lrr%kk!SJ
-EJ"errjY#%(k!0#abfi),`Y1ZJ'kB$3[#kQ5,`a#Cdkkr)"8MeQ22c`"b"mm!!&
1ZJ-))"mT3!G)+&p)H[f52c`"b"mm!!&1ZJ-%*Pp1ANje68&*6L#3"+!X6[S"d#*
I)&qJ9dlk!F3LAb"2S"RHr!!16[S"YL*I)&qJ,8lk!Da+1!+1DLSJH!%`3rJ"&#!
)N!#4G!b`JQ8@)P%Kb!%8)S"#%5*i!USLL###dDN!$%jeS'01GD!f6[S"G+%D,dJ
!"%lk!@SLAb"IS"Y1qJ&H,hJ#TJ!%6[S"A#pi!US!"%lk!9)LAb!IS5)ZL%lk!6i
LAb"IS#01qJ%d)PmJAk!P,S"U"N+A6[S"*%lk!4iLAb!I)&qJ*%lk!43LAb"IS5B
ZL%lk!3JLAb"IS5JZL%lk!2SLAb!I)&qJ*dlk!2!LAb!IS4iZL%lk!13LAb"IS"p
1qJ$D)PmJAk!K,S"U"N+A6[S!bNlk!-3LAb!I)&qJ)%lk!,SLAb"IS8JZL%lk!+k
J(#p!!!41qJ#X)PqK(5)))&mJJ5k!6[S!NL*I)"qJ6#k!6[S!KL*I)"qJ3%lk!(i
LAb!IS%e1qJ"d)PmJAk!V6[S!DL*I)&qJ+8lk!'!LAb"IS#T1qJ"@)PmJAk"*6[S
!6#*I)&qJ5Nlk!%)LAb"IS%Y1qJ!i,hJ$+!!%6R8L(b!I)PmJAk!Z)N&1qJ!J,hJ
"#!!%6[S!(Mpi!L!!"%je,hJ"-!!%6[S!$(!!,`Na`!)J6R9`!'$f)&mLAc+i!3)
LAc+i!341d%j@!!"C6bmm8%&8)cmZ!!UTS#*Z!!`J(fFF)%!J8$!B-Li!#'m3XN"
Z$&0"C`435'$iF!LJ,NjH)&p3Mdl3)&mLH!+Z8%N`%5*I3P%-!!$rC`MJ@&)!%d!
!!H"))PmbJ%l3)(J#VY$m!!T1d+Jf,dJ!"%je)&m4h`[d6Y![,`!%,bm!$+K$@)p
1G5m[!!3[,`!-U%9BMdje6PB!!#"Z!"!LEJ!-F!!3'%K!%"P+,J!)C`j+,J!+C`5
N8'!3S&"J$%SZ!!TR"+C3B!+L8%jH)&p2l`!-2S"1d$"[!!`J,`!)S5mLE`!%)SJ
JAdr[!!SqJ%l3)Pm5(c!I5J&Q"+0'B!+R4Lk)6Y%LAa)I-"mJAdS"CJ5L4dl4TNG
1d5*I)&qJ@%l4)PmJAk"C6Y%LAb!I)&qJ@Nl4S'%[3!!%6R@JBL)I)PmLL#*I)S!
L38l4S'8[3!!%6R8LAk"Q,SK1d5*I)&qJCdl4)PmJAk"S6Y%LAb"IS'NHJ%l4)Pm
3(b"IS'T1d3#3"2rr!*!%#8aeEQ&b9f&bC3#3!`3!!!J!N!4j8fpeFQ0P)'&fB@P
XB@*XC5"QFQpY)%aeEQ&b9f&bC5`J-c3b)&FZ)%eKC'PcEfiX)%YTFQYhEfpN)%e
2)$Bc-6)b,L!J6fjXH5!N-6!Z)#"6D'ph*h-JD'ph)(4[)'4[)%P1594c)'&ZC#"
8FQ&`)("KG'0SD@jR,J#3!bT-G@jKFN0bB@0V,#"@-5ib,L!J8Q9KC#"dD'8J8N9
"4#"bCA0[GA*MC5i!!!%!!!IJ3(!i()!-i%-!!`!%J!1!"N!(dCQJ"b*Jm!q4`$!
2N!"#%!r-K4!I`q8)(r`k'"r@9#JImb3S(rX#+"rp!A!2qJkF$rm6N`IrdD$rN!3
!N!1!)V'c`#+U[N!LUr!J1kUS%!!-!!J!1*XA!'LUZ"r+Zb$JCbU3!!!J!!$rN!3
!"q"!F$rmJ!crr`!$rrq!!rrr`!Irrq!(rrr`$rrrm!rrrr!2rrr`(rrrq"rrrrJ
Irrri(rrrq"rrrrJIrrr`$rrrr!rrrr-(rrrJrj!d!*!$&8P1593!!!j-G@jKFN0
bB@0V)$%Z-3#3!aa-9805!*!$!8P$6L-!N!@!4P*&4J#3"B!!!!%!N!-+5J!!#8S
!N!2*!!&3M!&k!*!$(!#U!!C*6NP8!*!$1R0jFhS!N!0'8N9"4!#3!e*-9805!*!
$ANP$6L-!N!0U4P*&4J#3!hC#6N4-!*!$JJ#!!!"J!*!%!F'@!!$rr`!!"eS!N!3
102rr!!!(BJ#3"[rr!!!(h`#3"B$rr`!!#!d!N!@!rrm!!!N4!*!&J2rr!!!*+J#
3""j-G@jKFN0bB@0V)$%Z-L!S8f9P)&*&383JFR0bBbR`K&"&EQ3FiJ!!!:
---