kalagher@MITRE.ARPA (Richard Kalagher) (08/20/86)
Here's a version of a classic programmed in LightspeedC. --- (This file must be converted with BinHex 4.0) :%%*bC@&V)(4SC5"#FQPMDh-!39"36(*,38`J!*!((8TGq`#3"!%!N!-ECJ!!'QB !!!(N!*!'m'%!N!39!*!&b!&F!!%!N!M`%%*bC@&V)(4SC5"#FQPMDh0V!J#3!d& 38%ab5d&-)3#3!d&38%ab5d&-)3!!3!%!N!0#L`#3$4'E9p-e!*!'(8S!F!"%!,S %!Np,!*!&$J!3!#i!ZSJ[3Q&N)'0SBA*KBh4PFL"TEL"ZB@eP,#"[FL"MB@iRG#" QD@jN)(4SBA3JC'PcDbi!N!4+!!%!N!8d!(!!4J#k"!*25`#3"3i!$!!Z!,b)+N% JFhPcG'9Y)'9bFQpb)'pMBh9bFQ8!N!-#!Y)!N!-#!*!*(Ka#B@aXFb"-C@Cd1L# 3#e0MEh*P1J#3!`i'J'%!!Nj@!!#Tp%jH6R95490839*88%j@rrT)EIhfU'kSrUN 5U6#Tc%KY!)UTHkK32ccrrd*R6Ud!HUN`@Bmr2!$)5'hprNKirrqT[5!I+d$pqLm YrIUSFh!"28$rrQ!!!#J`,[rq5-$PJ%(YrV,4`&Q22blrrLe)rrUT[b!I)'lrqL# !8QlrrJaZ!!2rrQm!rp*`!6e!rrjJ!!!Z-#lrrNM!jB""lIkbdF![%%*RU68`,[r q5-$PJ%(YrV,4`#m33QHT19*Zrri-EJ!$rrj[!2r-,bhq[Mmm!!+T1UNh2c`!!Mm m!!+SQd*R2c`"'+L62c`#!$mm!4LSN6mm!"3r2!%RU*0)H3#3"+L%F!-l32q%F!8 l32q)F!Sl32q+F!ml32q'6VS-B%jH6R9*6NP858&-58j@rrT9MbmZ!!LSDM!I28$ rrP@2,bi!#+KV-"mp32rm-#lrrNkY!$S!!3!$!'B!"J!d!%!-EJ!"rraQ!!"@@Bm r2!!"3UG)H2rrUA`J(bY!rX*#TdKZrrUTN5mYrX+TJf!!!$!r,[rm6VS)AP52B!! !)JaZ!!(rr'B!!!a`!4Y!rV"J!!!1$'i!!rrmCJ!!"+Rd6Pj1G9"56d0&8e006PE rrN)YrV"J!!#Q9Bmr22rr5'hqQUP`%"p+!'F!!*)`,IkD6Ud!1J!"!!-!K!"'!)! !!JJY!!$qU'F!!(3J2!#3!rr!VIkF(8$rr`JY!!$qU'F!!&aCMa!Zrrp)J$m!U6i J(bm!6VVqqPL23QHT1'!!!$j9MbmYrU4)EIkUU5``(cY!rUi-E3!"rUjQ!!!B@Bp )EIkNU6dJ(bm!6VVqa&L2B!!!#$mm!!'Tb%*RU6K+,Ik`C`$r9NjH6R9'59*69%a 26dj@rra1ZJDb28$rrNkk"USp32rm5'hqaMmZrrir2!%*-#lrrJC!!$)r!$mm!4# STdKYrXDSSMYZrrlr"%KYrZir,[rm2c`!qM!Zrra33$m!2c`"!ULR6VS+'NjH6R9 *6NP88%&%4%j@rqj#E[rf5'lrlN*R2c`!-Mmm!Jdr2!"ZU+G)E[rZU+-`,Iq%`I` !$%KYr[C#Ccmm!$)r2!)0"N!!-Mm!U+G`-Me!rraJ!!#'5QlrpPI!4!")J$e!rrC `!Me!rrjJ!!"H5'hqjMmZrrir,[rm-#lrrJC!!"Jr!$!Zrr`'3!!+2`#STdTZrrC R!!!35'hqjNKYrGkST@!!!!a)EIlQ5'hpjULP5QlrpPI!4!")J$e!rrB`,[rq"N! !'6e!rri-EJ(drrjY!2qF"Qi!$2rm-#hrK-(m!!`'3!!bX'lrr'i!rfT#E[rkB!! !-N*ZrrKJ!!!F-#lrqX(m!"9"lIm'dF$3l[riF!%3J&*ZrrJ-EJ!6rrK[!2rH8Ql rqM!Yri463,"ZrrTX!2r%6Pj1G8P1594#8NP$6PB!!%kkqq"1Z[fB6VVq@%kkrVT 1ZJ8qB!$rlNjH6R9038P1)*!%6PErrJaY!$,qmQd!!%j)EIlqUA)-E3((r`"[!!! )1h`"arm!-#hr!,"Yr`4R!!!X-#hr!*!!EIm%28$rrNKYrXDSSdKYrXBr,[rq3QH SU%KYrXDSSMYYr`$r"%jH6R906eC&8%&%4%j@!!!-E3!+rZjZ!!!--#hrMN4!1d$ rMJaY!!Aqm'i!!!``,Iq-4%!l32q-$'d"p2ldE3!!$$!Yria%3$Y!ri`-E3%@r[* Y!!!'6VS!$NjH6R9$5%9$5d*"6%j@rrj)EIlZU,Nr2!!#2c`!!ULE3QFr2!%BU*- r2!)!2c`"'+L46VS%$Me!rrj6VIqD,bhrQNkk!fjBMdUYrjTQ!!!-F!%E32kaB!! !3NKYrZir,[rq2c`!qM!Zrrj33$m!2c`"!ULR2c`!H%kk!,48Mdkk"kC1ZJGi1fh rN!$rM$!Yrj!!4%!l32q13QhrP%jH6R9149G#38a-)%j@rraCMkPe)"mV32q@@Bq TG5!IX+hrPQF!rr3-E3!brZjX!!!FF!%Y32rmB!!!"P+Zrr`-VJ!!!5crr'd!rr* 1ZJGS5'hqlMmYri`r,Iq1U+K1ZJ$Z$'d""2lbE!!!"Nkk"aj1ZJE`$'d!!rq5E!! !#%KYrXDSSNkkrT*1ANje68p@48*"6%a19[rm@BqTG5!I,8$rr&Q2UA8J(j!!V[r m-'i!#,(!EJ$rlNjH6R9%48a"@5#3!dj@rrj+EIq1E`!!GN(Yrk*$lIl')0NJf9@ 25'hrSNKYrZj)EIqLU+S3(dS!C`!!8M!Yrij%3$Y!rii`,Il-N!"YrXK)`)(m!!3 p32rq-#hrT*!!EIl)X'lrrQd!!")`,Il-N!"YrkL`E[rqE!!!$$!Yria%3$Y!ria #EIq52c`!!DR)6Pj1G9""4%K*9#!J6PErqLm$9Bp)EIlZ5'hqpNKYrZDSUK!I5J" R!!%'5LhrUQB!!2i`,IlQ"N$rcNM!JI`!$$e!rri`,IlSA%")`)(m!"Np32rm-#l rrX(m!"9"lIm'dF$3l[rm$"!!!@B!!0J`,[rm`I`!'6)Zrrl$r!!-0#lrr-Am!"N f,[rqar`!$%KYrZC53$m!"N%!-Mm""N)!'Mm#"N-!2cm$U+G)EIlQU+-r2!!"UFJ `,[rq`I`!&8(Yr`E4`0$Zrra#%$!Yrij%3$Y!rij5VIqH-#hrK-(m!"4)`#m!,bh rRNkY!'*+J'B!!!C1ZJ"H,bhrRNkk!5*BMe*Yrj3`,Iq8X'hrLQB!!!C1ZJ"m-#h rP,"YriCQ!!!'6VS!N!"`!4Y!rkTJ!!!B9Bp)EIlZ5'hqpNKYrZDSUK!I'd$rULB I6Pj1G8*5580,5%P86PErrR!"28$rrQ!!!"Br2!!"UFJr2!!H6VVpjP528QlrrJa Z!!6rrQd!rq41Z[U86Pj1G90&9&9338G"6PB!!$!Yric33$Y!ri``,Iq1d%!l32q 16Pj1G80)38j(49036PB!!%TYriaX!!!+9@hrM'!!!!C8EIq-6Pj1G80)38j(48& 16PErp%KZrr3r2!"D2c`"'cmm!(Jr2!%XU+G)E[rdU+-[,J!)5'lrr%kY!()r2!" D2c`"*kL65'lrr+L%6Pj1G9"99%*"6%a66PErp%KZrr3r2!#U2c`"'cmm!2Sr2!% XU+G)E[rdU+-[,J!)5'lrr%kY!()r2!#U2c`"*kL65'lrr+L%6Pj1G9"99&0$6e* &6PErrP@2U'%`(dM!JI`!5$e!rrj+E[rqE!!!$$!Zrrj%3$e!rri`,[rq6Pj1G8G &9&*"6N426PB!!(!%1d$rN!#S8N)YrV&#VIqH,bhrRNkkrfKBMd*Yrj)`EIq)+dM rQLmYrjT1Z[m+@)p#,IqU1fhrN!$rM$!Yrj!!4%!l32q1B!!!%NkkqSC1Z[[F6VV mMP*Yrj*+,IkaC`$rkNKYrXDSSkK66Pj1G9"-39P-6dp36PErkM!Z!!J'3!"r28$ rr!aZ!),rr'`!!!a`!ce!rrKJ!!!)F!3p32ri@Bmr,[rm3UG)H2rrUA`J(be!rr* `!6e!rrCJ!!!X-#lrpNM!jB""lIqXdF![,[rb-#lrpP4!2`")E[rk5&")E[rUUBe 5E[rf-#lrpV"ZrrK[!2r-2blrr%kk!*T8Md+R5'lrrUQ4B!!!F$!Zrrj93%M!jB" "lIqXdF![%$mm!!'TBcmZrr``,[rq98!r!%kk!ACBMh!"28$rpQ!!!#J`,[rq98# `E[rfC`!!&M!ZrrC)`1@!3HhrV0(!,a"#CkPM8QlrpM!ZrrD`E[riE`$rd%+R5'l rrUQ4$'i!!IrqCJ$rLLmZrr+TJdjH6R9649498%*2@%j@!!!`,J!)6Ud!1J#!!)- !pJ!)!%B!K!$@$'d!"Iq+CJ!!$#mYrl!r2!!"U@--E3!+riTQ!!!-,bhrY$mm!!' TB`aY!!rrLQB!!,`[,Iqi2c`!!DPMB!!!VJaY!!ArKQB!!!`[,Iq`2c`!!DPM$'d !#[q'CJ!!$#mYrl3r2!!"U@--E3!2riCQ!!"m,bhrZ$mm!!'TBf!!!'i-E3!"riK Q!!!-,bhrX$mm!!'TB`aY!!2rL'B!!!`[,Iqd2c`!!DPM$'d!"Iq)CJ!!$#mYrlJ r2!!"U@--E3!+riKQ!!!S,bhr[$mm!!'TBf!!!"S`,Iq%8d")`1@!3HhrV0(!,a! r2!!"U@01ANje4%p$99*548j19J!!-#i!#NkY!$S!J!#$!-!!#!!k!'`!VJaZ!!% !#'B!!!K`"6Y!riS-EJ!#!!KQ!!!)F!Sl32q+$'i!!`!)CJ!!MR!21d$rLQ!!!)3 -EJ!"!!KQ!!!)F!8l32q'$'i!!J!)CJ!!#(!+1d$rKJaZ!!-!#'B!!&T`$cY!riC J!!"3$'i!!3!)CJ!!#(!"1d$rL!aZ!!)!#'B!!!K`!cY!riJ-EJ!$!!KQ!!!)F!8 l32q)$'i!"!!)CJ!!&R!+1d$rL'!!!!``,J!)8N!l32q%6Pj1G90&9%098P*&6PB !!%KYrm!JEIhf5'J!!NKYrmC)EIlZ3QG#TkMX6Pj1G84539G#38a-6PB!!#"YrIC )D!!#5'hrcNKYrZj)EIr83QG#TkMX6Pj1G8a*4P3JN!419J!!5'hrcL"YrIC)D!! #5'hre%KYrZj#Cd+RU1a1ANje8&983N&$5b"19[rq3Hhrh#Y)rm"`!MY!rm4)EIr '3QG#Ccmm!!Jr2!!)U+FlI$`!rp`lI(i!rpilI2m!rq!lI2m!rq)lEIrLrq3lEIr JrqBlEIrHrqJlEIrFrqT"lIrZ+dMrcR!#1d$rdNKYrp4#Cd*R2c`!#$mm!!LSTdj H6R9*6NP83N&-6!#3!`)""`#3!dB!83!#)'m!#$mm!!'TlL"[!!3JJ%lk!"!JE`! %)#m!#$mm!!#TlL"I8%p1d#*I)"m[#D!b6R8[H!,`!!41G5pi![3!"%je!!!$k!# 3!`S!N!H#3RJ+5Th1,$a69&*66VS$,N(krqBJM%kk!*a1ZJ+H3QG)H3!!rrp)E`! %5&Fr2!!")MVrbNke%!"1qJ"d51Irq$i[!$`J2!!!J!#J3&$i#PjCMbmm3dp%46m (UD!J(fFf)%!N8!JU!*!$!@FJ!"!!`!J5!!GR&PQ2,ca$8N9-2`HTS#!ICa!J3%k k!(B#8Rrq60mIrdjeF!qTb5m)6VS#6#"IUI)[#%kk!N)JAkRc6VS#1URd@Bm[2&T &8Np#CkQJ*&GCMbmm4%&838*RUD!J9b"3)RJ*##45B!ibf'B+-KTJ!N)C8FRrr,[ *CZkTSkQM@Bm[2%4548a#CkQJ)&mN6D!P,`JJ81*!B")N$6)B#)%!!'F%*$VqiY@ b%!"4b2rXUD01G5"I-KJd',"B9mRrqNT#Crj1m#$m)&mb'$3BX*KAbIrk5N*RrNl `)2SJAc)B0"L`3Qi+N!""E3E33%(`!!)`%'Iq6[!!!#![!!3[33!%)Lm!##pI!!4 )jc`!*!!Q!8K#a--S!#S"5%A)aG4%5%+3!m$"d)*-h`!m)Kp1G5![!!3[33!%)Lm !##pI!!4)jc%!6VS!R%cI!)`L(dje)#m!"#p"!!3L,`!),em!"%MR-3"1ZJ"m)!& -h`#-)Kp1G5![!!3[33!%)Lm!##pI!!4)jc%!6VS!,%cI!)`L(dje)#m!"#p"!!3 L,`!),em!"%MR-3"1ZJ!-)!&-h`#-)Kp1G8U!DKa+J@S-4)"%J8kk!#"%J8je4)" 1ZJ!@4)"%J8je5S&U#N5"6VS!"N5!6R8Z2!!!rrqbJ'-')J"`!%jeX)GL$)$"5%! b!%*!5%"1GE+(BKSZ!%*!5%#!`8K!5%Fq!%K(MX%`"dK(-JG1G53!*J(LL1+*XSG Lq)$"`)Fb!m,!,J0)4ml!5%I5Kf8)NS*L"%5"6R963'$N-MbTm%2krAa1ZJ"+-Mb TmN2krFj1ZJ!q-MbTmd2krFa1ZJ!b-MbTp%2krFT1qJ!Q6VS!i$)mUI"1ZJ!f-Mb TmNkk!#ib2+Rc6VS!*M)mUI41qJ!H-!'K4L4)F!bP(M!"S%F`r%kj)-N`r%lj)-T 1G6!"S8BLD!!)S"m`!5"*S%G1G8)i#PjCMbm'3QHTS#CI@Bm[#kQP*KmJ5bJ$2M` !J@!5"S3!!(rq@Bm["Mm(8NHTS#"I9Bm[#+QQ-"m)!!!&CZ"3q!TH)!5K(LK),`Z TSL",)!-k"cim!)'D4f!5@Bm["Mm(8NHTS#"I)$`!!(rq,`JJ8#*-fF#J,UQM8Fh ri*R%6R8!N!4"q[rk)+m!"%je3IVrm#!3CJ*1G8+3!#"!6Y!!N!1!!*!$N!!!!!, 8!*!$F!#3!b!!#$mm!!'Tm!%X2c`!!DR`!8!r2!!"UI!"9$mm!!'Tm!&`2c`!!DR `!DBr2!!"UI!"aMmm!!'Tm!(S2c`!!DR`!JJr2!!"UI!$bMmm!!'Tm!!82c`!!kR `!#Jr2!!$UI!%,$mm!!+Tm!!!2c`!!UR`!*!$XJ!%!*!&EJ$F!)J"'!3#6dX!N!F H!#J"$SJc4@&MD#"LB@aX)(0dBA*dFb"[CQBJFfa[GbiJ)%Pd)(GTE'`JFh"PC@3 JGA!JB@CdCA)k!*!'+!!S!$`!UJB305"#FQPMDh-JBA*P)'KTG!#3"8B!+!"D!+S '%6%`)%*bD@0VFb"KFQ8JD'Pd!*!'C!!S!(J!UJB4-68J3R*TBfYc)'&bC5"SDA3 !N!5k!!8!N!@@!-J!YJ%1"!*25`#3"3S!&!!b!3k)(NjeE@*PFL"[CL"LB@aXFb" QEh)JG'KTFb"RB@eP1J#3"6)!(J"'!-J'$dpZE(NJ-5!S4AK`CA*d+3#3"P!!(J" N!-J'&M-J+%9iF'9bD@9ZBf9N)&"XBAPPFLN!N!9Z!"i!JJ$)"K)e)#K"GQ9bB@G P)&"XBAPPFLN!N!@-!"i!S!$)"JXa-#!S6QpfD@0P+3#3"+3!"!#3"@N!hJ#(!5! %!Np,!*!&#J!H!$)"$SJa9'KP)'*[G@jMC5"KEQGXC5"hD@aX)'0SB@jRC5"QEh) JC@&MD#"LB@aX)'&QG'9b1J#3"M)!+!"'!,3'$$8JBR*TBfYc)'KTG!#3"9!!+!" N!,3'$6%`)'*bD@0VFb"SDA3!N!CZ!#J!JJ#d"Jda05"LFQPMDh-JD'Pd!*!%P!! &!*!&N`$@!,%"'33#6dX!N!8-!"B!0J%8L#01G@eLCA)JEfBJ8QphFb"[CL"LFQP MDh-JF'9b)'CbB@eP1J#3"M)!(J"'!,3'"M)J8QphF`#3"9!!(J"N!,3'"M-J8Qp hF`#3"@i!(J##!,3'"M3J8QphF`#3"B`!(J#J!,3'"M8J8QphF`#3!bS!-!!B!5i "jJ!"!3#3#!%96'PRD(46F'9PC+SJ3R*PB@Y[GA5U!*!$&3"N!'3!qJ'3!!!"N!- !N!H!!*!%&3"@!&d")!'(!!'3!`#3"i)!N!39!&S!@J$`!BB!!C!$!*!(J3#3""8 !C!"N!5)"P!!"N!-!N!H$!*!%0!!"!*!)rj!$q`%8'%&LEh9d)#*#FQ9KDb"dD'8 J3R*TBfYc)J#3"!%Y!*!,@`!#!*!)rj!%"P0PG#"9F!T#B@aX)&0`C@9N!%)!!!a #Eh9ZBf8J3@jRE'8!33!!$%j[,L"[CL"#B@aXF`"1!!!26QmZ)&*[Gh-J3R*TBfY c!&)!N!B`!!-!N!MrN!3%8'aKH3K1CAFJ4f&YC3"(!!!",3#3"!44G@Pd!&%!N!B e!#J!"!&5!I`!%!%!N!FL$8*bC@&V)(4SC5"#FQPMDh-JBRNJFNY"6#"6EfCdGf& bC@GSCA)!!!%!rj!%J!!!!Hk3!qrZN!2[J!!!!Hk3!qrZN!2[J!!!!HlJlJrZi1i 2J!!!!B!!!!'!!!!"J!!!!B!!!!'!!!!"J!"J!B!!m!'!!2!"J!$`!B!!B!'!!!! "J!!!!B!$U)Q!!V&*J!1b+B!$+qQ!!US[Mr!!!Br`!!'!!!!"rj#%!*!$"d&38%` !N!BFFNY"6!#3!`&*3diM!*!&J%C548B!N!@!!*!'!GS!!J#3"HB"IJ$l!EX%!Np ,!*!*q`(T#20*CL"jEh8JGfpeE'3JE'PVC5"K)'0[F(NJEfBJG'KP)'0[E@ePER4 PC#"-D@GSG(0`C@9N3kSJ$A0[GA*MC5"MEf4P)'pZ)'%JC'PcDb`JFf9ZC#!N05i `-#"dEcS0$9*TBfKKFQ3J5LiJ5f&XB@GSCA)0-6Jd-5"1D@GPE#"$Eh9bG!e@D@9 ZEQ%X)&C")#!b-M%i-!d0U5!a16Jf)(*,38`J8fpQG(GKFQ80U5!a16Jf)&4)58j ,)&4PBfKZEfa[CfPPFb`J5@jM,L!J3f9bG'&TEL"`Eh*dD@pZFb"[CL"dD'Pc)(0 [CR4hBA*P)'&bC5!!N!D1!!)!h`'l#,KMEh"jFQPRD(4PC#"LH5"85%P15b"8C@0 SEQpXEfGTCA-X)%PZBbi0$94SDA-JF(*[Ch*KE5"YBANJBQ8JC'PcG(*TBR9dC@3 JCR*PC@aj,L!J5A3JE@&j)'j[G#"LC5"cEfaN)'*eG#"YBANJBQ8JD@jME(9NC@3 JEfiJB5"NDA0V)'pQ)'CbC@8JFfpQG(GKFQ8JCQpb)(GSD@0S)(4SCA*P)'Pc)'% JEQpYD@jKE#"MD'&bCf8ZBfKKFQGP,J#3!`%!N!-ECJ!!'QB!!!(N!!$-*!#q!*! $(!(5!!eD49*2!*!$FN4"9%%!N!0q4&*&6!#3!iT69&*6!*!$PN024%8!!`#L3e* &6!#3!p*%594-!!3!hN4-6dF!"!%D689193!#!9CA58j%!!!"HNP$6L-!!!''4P* &4J!!!C*#6N4-!!!"RR*,38`!!!'U!!$rr`J!N!RrrbJ!!!B!N!ErrbJ!!!`!N!E rr`J!!"!!N!8#rrmS!!!b!*!&!rrr+!!13J#3"3(rra`!$S`!N!ErrbJ!%RJ!N!8 #rrmS!!im!*!&!Irr!!!BJ!!"-(J!J2rr!!!5r!!"-(`!J[rr!!!6XJ!"-)!!JIr r!!!8F!!"-)3!Jrrr!!!9'!!"-)J!!3#3""@`!!%`B!#!rrm!!"AH!*!&J[rr!!! 9p`#3"B(rr`!!&K!!N!@$rrm!!"BT!*!&!Irr!!!@3J#3"3,rr`!!&Rd!N!8$rrm !!"EF!*!&b!!'!!!A%!#3"B$rr`!!&dd!N!@!rrm!!"K4!*!&J2rr!!!BA!#3"[r r!!!BI!#3"!9KBQpeG!YYB@PZ)(GTEQ4[Gm-U!: ---