'===========================================================================
' Subject: Roof Rafter Calculation            Date: 12-15-02 (  :  )       
'  Author: Roger Oxford                       Code: QB, PDS                
'  Origin: r.oxfordjr@worldnet.att.net      Packet: ALGOR.ABC
'===========================================================================
'>>> Page 1 of ALITERAT.ZIP begins here. TYPE:BINAA TLEN:9056
'-------------------------------------------------------------
'                  INSTRUCTIONS FOR DECODING
'If there are multiple parts to this file, merge them into one
'file using  COPY PART1.EXT+PART2.EXT FILENAME.EXT  Remove all
'message header and footer information (everything outside the
'">>> Page x of..." lines),  load the result into your version
'of Basic (QBASIC, QuickBASIC, etc.) then RUN it. The original
'file will be decoded into the current directory on your disk.
'-------------------------------------------------------------
DEFINT A-Z:DIM SHARED K,S,B&:V1 'Created by PostIt! 7.4
SUB V1:OPEN "O",1,"ALITERAT.ZIP",4^6:?STRING$(50,177);
U"%up()%9%'%#-%B-&\RNN+>F]/.%%a?%%%1%%%%fq%nyjw%fySgIfxl'q:BSAO7v
U";&K^dC;dL&VAFE9aKcB'1+N&\_WUI1qA&z-;V%:1Snu=o88Dv6I_X)We,&y7pXA
U"Bsdubv4lmePC%diIv/.G]_pnR/bvjb=S(6Fl/jLtrdQ'bL^vXFC3_l1P9<wVKBq
U"P5qtHmD^bEqP()IonJdibY=n-s5vr1f$:InXD.7CT$w1klI>r&^PBx]q[:rMm4D
U"v/7'r9s(*X.OqE$EB,E0+OfdOJdWFx\xtso0/lT^RHI.\_,>t%H)'t,+(it=1]Q
U"XhH)C0KAlAZ\s?2nTZcbnunX'pZ7UL>x;DPnd[,=pgWCm=LNCH'.3fr9j\xPhk&
U"*mLqd%zsmEI.SV3Efssa[RbEoVODya6Nq.0%Ohy/SonmckwMUx-e=qqt?5bI\1L
U"PPed[1vj'&5[?vh;zKS.ZWRyoxZ+jW($FN2\;0NA1jEn58H-o-]a:IQt4hdu2V6
U"FMu4$d7/HN)\(RLAElA3(S:U+AWW9Nx5:3>3W:/6rX3I[hHR=ujFA6tvtvMP74E
U";=Y3d)F^nojaT;u8XGHqjYC9AiMHhO;S3ev$L5B6^a_i8g3ah9fu7.^yo>FXikB
U",I0]SL-c*rc$VebL7CMB$A[y9Xp2qxRuzjoGeDj-Y4ne*+OMVwZ$2l5%0tO#aZI
U"qVNlC1Y5I6IsMvo9>l6GyiR&;[BG]\BROy4zPLe48<d?]U^QJJ\>n1tEBHVU48t
U"1nAKDlmpNu5vlql]VNXenC,5s^5/V'ZJz?f^WCXNikR6=hL.r%\D,l#<mhZTi'g
U"Dds/d[++RmH^BF,A9AEU(2;uPU</F+0+9<<#[mP227WAP8M=Cwo<2,<M[WIZ5:*
U"%C>it'bMi3q_.LXiQ&$K?x0R/g*1XkPf?L/wuPDL<YqIbdOHicQ]an70&_Yo\Pp
U"T\A-eDUI3qiIE7E,PsSf$j7oH/I+P%G/=MZE97/$qXg:F^=8C?LPY199'\CP[N+
U"xaIkClPk^po#CNCKC)]8YUUkUbmHZ]$Y$;>'>%4NuP.0?6eB\)Ye[EA$VP#YR:O
U"#2QBuIroE24Q8iTX1vEkrwo(m2/;S8aO\O/(^C^%.BBDmDP##7=t&I_DJQMOq%\
U".S0Dx2ToV,.)s]_3e2nk^%)?DqJ$#12Pj5-'^rXK;IBgorZ4<7]TUWk1)Y3Z<2q
U"MTx.YQW8(r,I?mANsd-cs)x#llW./.gnT$]Ihu]xjD8;LjKvsjiPT5wHRF8vZ<H
U"6V[B3?nso\CB(6i4UXjhXN(OuDMdDS+hjwp>-?m6Uo3M$ik,w=g07/4VU6Q%o;z
U"BbH7jolLZ[zS-AsblH4.IX_U;0F#AYvk#)5bi*DT+:4m5Rg6q2y;g$INY1.J2St
U"7[jgq8SYL1r-J)F0LA#nm#Qi6/G;N?qY3t)eUBf26sh+NO8mAYx2AYs98?VM&#R
U"$#J1LI?Q0U7QS:*fcSf[>?w$pw%apNvG)UQE7r(4+8HkxwQhno$gFz<HC+Tb/+8
U"7327tvw?];^elT'.(J6Yh2\Yd&rmW_G;YA*(o,e9Ca1nxHU8)-m^htZw9h+q4^X
U"lbdt)7hvI0WHf8%UdLRP>>B)cS,Y\E;'dM(=,628s#8J=i^+6RNr0TFut<L6i8s
U"?v),%qg0Xc,bIaSKCZYJ6^?WxPI8gt7TQ1YqZ44u7B:Q4,396'q9:I^pTEZK_(a
U"%4/go_pmhjF&5E(eZn=6J;njij,13/gtNOQu\h6(OX:T)/$Bd1iSz*0g#zJd:g_
U"s-E-tgI6A4%r]0ku^Q)UuEu6jX9h3UqSCmoFQa.EZmp/HkYNFvv8[*,zdedQB6\
U"vK?lks6I,X5HYgTxqhOPU0zgGI(&s(7H50F0Hn)R-oz=+F_fX=:#$sD)#RLrb?9
U"U=?o1*f>aLm<a'_KDmG+%v7Pxc8#%L+Y64sR/NS1eV>up_b/W>\zec:E+bi-7=&
U"p(f_SrBkKB^DL:T^bYxHlbDWmK0Y-m;.[;)n*jh#*kg5pi[I9p#zap&Sl3maLi+
U"4lU)f\8ZY&F63=JgiKh>Zu$-.[*zL,0SkaSKMCKsL'kTntmmd2V4=NHPps+oWjg
U"_.il,2efd#7./mSJWczu.kdxz6^PY[RQJ6p2(.W]3ijpjFbN%6ul#[IBSFXmP/k
U"c+&E[)(#lF+GDFzOk(Gd\nh,e.n1IJPy4#FtRb&#j#['G\;LN?3w%^s9x%+Eg;a
U"V\Q##.Sny:6SJo>^tlx7:iuNuGb;&R<jUDJW$*UiLrs'ZY00SgF8XZ3c?b,cpEX
U"C[hA?_626KBv4^quFGwb7dA]XM*\/GLj?FU+v-q73ZbbLPhCsf0Q4G-</S>I/<\
U"lFlc^N.e]M54L6Y4&3NdJSA25dN&]Jz$k9Fb48;,.U=ytjB:ujE7QElODxAh4Gm
U"uGiE<k=pr9aBZD?YOI6ZLTQ9^gH:9V+%*d^LC,Pd\#;T)ujI4dMC7N.$_/%sm9X
U"BJMX%eC4CGvT&:vY\3KRbGgnB?xw+Gp_hLW5a)JiIetC7aB:/cGR>5QZQSBPv_m
U"_9X>mUF+ENoU0Bl$R[KD:$kPUqkN#A'</,0pSg&r$D_D'R<6$l(l)dOW*BdjPBA
U"nH\Eht]#CIH3bdBpWC>\oz7rN4OeJ48.IQ4x7:kb4S^Xc)'Pg/z)+<#.5X3I&gV
U"<_=2SwarOuSGe%Q'O.*q\hVN)d%[)8pzSqZM4vU=[c8\7YJsZK,SDLP_T;p(jrC
U"$CJ%GRQ_*9:qnhjEZgcSzVz:4z4P&kxI])H-)+h_Ij1^E2:m6j2[F3QU-*1\ZiJ
U"\mj[,;ldOGb<1Y85>^%8aWf7/cW0J6B?k;8.XRW:nqjs3p?b<(V18B2+Wv%I],f
U"EHUSc*33=;B'9LJ7T?5w./ieg,\<h^HPjDW^rao>J-9f)n$$SjT.g]O?oWtsI$.
U"vuD32RApGB??t]cWa#u7fX\U=*:^8Dh9A(FZtV_=nsSD1<A^J-TSD=EpR9p;&]#
U"$nw?kDb&X5B_QT)JWv8RR(PhOP#]vY<J&FGD7;A6:*TD:_D7(IAU<B>*n.SW/Rd
U"m05MWP#5\Fi-J$B$7bb^%+6jJdXIi/G:*H$r*;Sht\kO=1.$hn80eKe\>+j<l,h
U"+i=<gWRi'\]TK[X(V\_kg2P[]J+_$#8ILG<B)i<by]5D.+6,^'GC$UD*<_-EJ*.
U"OT>gqU)t8:hDGL%c/1c[o.mxr-52p/kv#1/HCD&xY?\pAeF)C/EuQXXt5R;f*TT
U"tAQIYW.:d>[Y/P[s<\iw#r<2^8*kWJ%rZ.&F$SYsh2b]4zWPwnN(Q2X\d'&#8RQ
U"^X^*laoK0)S(w(QsfvWbNo:[<Y>kFZ0XBf_<$7^oZs3k'x&up%()9%%'%-%1M-\
U"RA*e*5%w=%%&5n%%%-%%%%wttk%SgfxN-+:>uT1KwRCExPPD4vEo[M7_GYYA(_e
U"<Z+<]d]K#+3;?(8vV[T.(T8NSNNm%>w7J<D8X*rW/0JY4_Z?#]XA]$AK9um8bG=
U"59o<VV,;O1orE7'kuH^ll4.#0BuKCfK(ljtkg'5[$tKbxBkY8.n5tDP_y?C=QH^
U"Z'rE5pt\JDJMr_#oF^5u%$ElCV.XS=l9j.5>q36HlTWgf?frb)EjuX[gb3^ME4b
U"ebkUgT6:*)'=7EFgF-1qWj#RMQ*Kk/>i8yF7YhJh7ZoOZMQs=[Z(6Yqn&l>25E>
U"IPO^$:)jpR'lTeY'h>\V/g<h$\&J5\?9QGklQ;hXp7d+NM6itP^o%/Pj\;vd&iN
U"9dvH69CYJR(ueD3Pd]kW9[q5pfD.#G?]0/[E?>qq8(dVCTbDU8_9]E?P<qTj#TC
U"&r&V_G-H4UCQcFk1m'uL=E-\sFi#;e:dAeS']qUqTHl,PZq,L9ev2I;$,<;=iEX
U"(gZtZ1r*32IUC8NQ('9d?]2%7'c<\Cvu)Cl%r(/Q.,#sT7V>7BjGL6)P<AJ'7v5
U"K3Y'4#(;+:D]<m^)2T?OAs,*DO^e>?ie5rGF'BUoMy]4DE/kEX'_s5ZPjs(Wjok
U"]]hlkR-3qTU9x#8q8wmlIGkL>Y7MU&-9PbmWaB#ROK'B-N$+roEI_=Xb2)\3_o<
U"Tg/LBslST]YcPd4z^sW<yh0YoaB6:X?E3]shI\lJAuG^fDbX,Dv#M]3X6hJS>s,
U"D[QVGep<v$QApX$Ptfh$Y&'JwUkuPV<n%''4M?S6tD?I(]R24Snvk\5hLUmm7V_
U"ZVLC-x:m(dhWLJ/03I+6X\U6OnDkoHm\oSEs,/Bq2j'V_[,9#SEp(/1E3TE<Xft
U"NH=0l^DI/?808\c%xF'+ifgMrL9<-(SS(d/aTwD=C%PC8,M4NgnjSbuk9SVDaI8
U"RiNB/kP8,hHc58,t<lg5F?WurmpG_nS.vi%)$.JDJABX1d#\Np5T901h#$Cgv8&
U"=m057ZUSgt9S-c^q+E>h9%&M\W;7tNh?bCgr/v%OF/J6dQeN$J/f]APF4J#]WRY
U"^l?]xqUmeh;LEe#1v=&j*4AycP8[qD-S'9eM)u:\\,3F]/]5QylM_=:tqdfv<6$
U"bg4:/wzo>n4V[a6,amCClaLi5v+'(zSj%.iDh])2l\NAeU=ro/xK[ZqNm%661N8
U"UGm2nk6xwV3)PpCvYFboZz\HD#k'F#aZE+XT8H%mz&tsO_TWx,[W'&bL35oWlI2
U"wGAILu5vR5X_*Xvbs79K'#A4GYg7mKccnBMB0=z2gb\7Zi#B03XTJLF]C'JifBM
U":3:MVhoe,^$[^&YFo?PCU]94a5a%Ou>hwmD\=&PwP03Q]tqbW7Cf=UD^MZQ:a9/
U"lXI?Y2XD<+q,C;sJ_kg-X[anl'H[tR7-S<u3s%G2B.$vdSRePv\H(v#RAl7L):*
U"+A;*ZC-e;9OTCa;Y%:\]dK07m[\E$67YEXst4nWkmK#'E98;JnunPq;WKMwyVIR
U"U:iq_.20,rjV+n&p'(R/DoyXR(#&ePE>CG;e,S&a6wC=sSo:a)<MZ\hOl;_ki5Y
U"stN+8$0s;5Ph#,tA5tEWaTqhr[na+H75\=Dg>%(+$=O,:u>M+&m>G_I;j=t$pKZ
U"gsc-&ojKGE;RV9_Zk2(mW.Eb?]9\JG;[k9Ex*[hyq$-+F$LLK++8k;ouWJf]rl5
U"LXE+mD=4=Z0B$0o0XOsl5aL&1jihumh<l-;NC'Q(ZA0'hac1nbst/bJ>T9a=,xq
U"fln2]FmNPPZD_;sg)YFdSrE-Q>qGcZq6')dH#*r;,9]=Z*R0wE4]TP>s5H#?%Op
U"RrJ7oGu(bgAp<+NtFko(#1/f,^9etLZ]IUY2Ubh_e2CkE8#80E(vV3>UR+b]OMq
U"HOvvo//q2*baXG9&TNM)maIvEI(J9:3,S?nQO\1Nf%sZ9=##-U=9AFK.NfFG-PU
U"vW2iJw//pN^a+iWOBU9[:6^a9^+Wb_CP1OVaU'deWpBOD0[SV5W^e_o?rhFKk?H
U"S3<,4U>9(0Y]5&YdnJ]Jm-zcn\\>3k(C+paWgi4j,FZ06Z4iw-64?WAftk1]VAi
U"C:&SW)$4o4(:fO)1Y<Z0oFhW)CZo4-,4qH#XQl>X_u389G#I68Jm?lipisSYMYH
U":IO;(\MF6/_r0U#]83rFV_CS**1vmpnT[=pTC99Bb4WW0j/zH7gIXc5t2Mmg0fv
U"R?[d_vZ%$p'jZ7/**bU;#26YNQ'fqfH$Je+XmDE,b]4[2R-Q4KK%)Qu8^gQ8wp>
U"cbjh.qPO/g3fUK<&eGNU_CVc\-hRAUUlyPEEcXAr)AOEh$/i\lFb_U[^[vTMhRd
U"?+'%WRjbR_SC^Y[cQ>IE2$YrvKIF=XDAwC5X+4'^=,XIoG_a8:)e,^]Movh#EFa
U"D8bOjhN]_;9>5KFZzs+38$74'gRR*1&2RVFTg=IWgiH7FRrFb[]s3E[*w<cIL,V
U"EBvMO(1t0rv6f=<E>a\JVD:dCB7p,hV>wdsU\\8tz'X\Hsv+Etxdx=tK-4(O^uP
U"C&aWw#W5pRX<b7;YK^PIr,u+ctS4lkUMu<SP9A/[U2$Gx7Q);$Q2g4W]D3(P#]u
U"ek&*Hq.8Y5BsX_#M?HGvJE8=fkAu%y1_AMBK0mS2f;8W'uODK*zwomlxp:8%y:q
U"+A1n)b[\C0.#8y[af#U%2Q3[Ir*cj(IYM1#Xn)4SUoA/k>C%ei+S8uU\qnikCxh
U"]mRm7/dJkYM%sAG%4.&RJ([#6$a\iW+,I^A928.vrqjKJ$SY:.kW9Z]avI*ePiM
U"XCD1)^bLN##Jk7pzRI+gXh$\g247RbHge)'VmbFF&+H1^y5;Ah[=/336s<C[nZu
U"cka^>]--Hq1jpq33\T(E*,2ds,peY3<+EI$qeG^jI$sjIjS*B$#QFmHN[4(8>Ya
U">o_UZ\5(jjR]faY&Mfqh.U.*5#BAju#A_ENB'smRFO5_17+P2+*$*-X]>R$$>a6
U")M\kU1bUkGi)1^,<b\>n&Dt7UelyxO-gAB4O$;qA^'f3,7^d[Qh[43ZblKSNUJ2
U"\XNlv<yHmsewaW^TS3ETo)#ukv9eD$>T#GpSZ))4bwSrWbq\D&<(UIYdJhLq_'p
U"xsE3]JKTw5Z5O]hghb,&S:X%Rv:Ic9^:6W6Sk,m];K)M4hiqB.jN<JLY>wgSHJG
U":%lNh6(e+2ciInzgtvJ-dume9osQO2;Z+3*4i,X_J:C$bM]4s9Q=2AcaXFP0(gX
U"pFS\kfPD5CG_c\c_V;VP7.8KijM0do0G1.wA\mIM/p[EpfAVeUcu'?RZIN43d+>
U";Pv\vCWLCyLjwkz(#)1sKdS\3C>'ypcJDQ&MS_9Bbm1M^SyOc<Rv6_Yci?F&oOp
U"hXo8\W8Z$+EtOm1?&EKzS8G:TziIgYC'5V<<nc(C9YIJzk1da\Z$)9GL_NWEdv.
U"54zJ7B40Ji6wb[NrU43n9#>kY(Rw);INHWKvZUU--S\l5RP-_[GdMbD4p9bd0y)
U"NA;,K4DehsF$m-xVIM,he**EGk.^i,kJyPtW2*4ng(iASBG$gphf;xY1%zcPi/s
U">'lGstwu:Yt2wQ77%WcQHFoE,W>FhXz8iYGr4GT-Vn67+#p?q1JT9(Z<;GDA<qV
U"'],JRQS-4dk&6>.341O6a\CIj>0(+x'IMxSTNEQ3Z1YjE2kpDs-?Pw-/do7*'Pg
U"-O:?35PRj-&P6h41ELde05rW01+)uv^x^/0Cn:'Y2I9>vQ$Bc:hg935ea6f%bx5
U"P]<z&w7o?J7X$*ALcj3B8qN)7_*^SUaBJSQC_Ox&(A&>6(D)'Xw(NG<3xNSFjbo
U"f%i/wKK/I2x2sE228Q4^k6d%qpVHyDOa1I4eZA*I(]sw9P26F]BQ(o1wCq7A^e7
U"^KU[EhI^4l?*&s\IcuB&q][4q#tqM.iB^>+(k+5](NUTA):mo\^Z96gc.='W9-r
U"KBzl)gf9:0*1PqqZE'\_20W-yfIe;-Q5WYPC?*e[9:d8'*K#W&4UB03:NPr:(3v
U"\NRwKiL[[q1ZG?dh#>pg1Sea'4[PlKLiDv2cU5$^OIJ]QY5N5tdiPyC.4MyxJYY
U"m5_k=jem;V\xQ081FS>OFQ6xd#O8FO$%)w*uu5.WD>q;PzQ8NCZbudsKd)f1g^t
U">s)lx'n8bh&3f<F*F'U:B:t3e%rRANoLs.t=Kf9Ti(xM_u\M_MiWLEWim25kCE\
U"<p%.y^6rfJm2%*'.*^M-I3,/D#T,EIGPv?C:-WsUEg#9,S-,H^fu+OL$ri^Q0y^
U"&^z(H^%W^j,J6R,htJ)x>.kkd5TCu6Zb[)f0%0Z(q=&<A9_6a*&zJ2?8[EDr4HP
U"s2C>&gdqnQ*$9J\2xeHpnsY#Dra>1YN8t%mh[ele<Sp,c'0[W8G&$^>+A*hlM9(
U"\M52Tm.5H;eh9:N+)Md(W$7o5wP\k2*H6nu7#LlhqVvsZ<-2B96^^?_8Thc\vu^
U"nWSE$D\<ZWS\1fZfh3-m8cjgYt^S\6.51:8y]jxEq[3^txtn]UX5:N9gcTP=P<L
U"w7f0TIab5*tJs5^uy1Y2akma4.^&'hlc_ViE3phFixL2$;3cWKJo\je%##.[9O#
U"f7IpII9Xa9Y_hDUA'dyV.mND_M)kvS,li2om\hbgDus*Dmo>UeFI-W\)*>YSb&9
U"N&9ua2x/Os%'Wsy+js[CK7bPD0K2ceZfN47Hx5hKAR/G<<dOpTNZMefVipGI6VW
U"-AVfO7XwyS7oF5?QYf8F[f8UeHXtBIJYEz((E(StE;&oHpA*2#7xzeoRv1Q)gNp
U"jLkE)L)NR1Ytd&5?W5c=A8jW'dKCbn1r.KRE[<Xvgq1LgsjHS8e2XpR)O$m$t6C
U"v$L^krZ&uI_dFXHf?mT'[[0XjTB6Vzh1.o7S=dcubn%n-;[DmtVX%A6t41TwEge
U"<HBS9]79x*SmbH%HLFq<ud_6U2AR-Mk9NI.+FwJsb^crKHkn$I4pG]1JS/(0]+8
U"$RnsBQcmxLhrcgK[($HLxgFk'8Hr6M:t->NSe:)WxEFUUGqfxpkjchutrDsHSM>
U"Wsr^\e[AIB#f=>j7.?fd,jW&nui=hUBWF%18W_c5qbK\Fw4K$6S.lm.Q#<8+x%Z
U"Hd(yfMJSK=Trcz5Sig3U,*j^^toxV$R+d_a,1N;T^hNWQ*;ck0$R]nX6oR[LJ[p
U"+RDG((86jH_;OP1Gb)5],Dokknbl5B.BOlVVkXtn%CU]54ugR$3BoQRmHN4^r#4
U"5EA6<eGlLP[k_W=tlmbm1l0\hlS&mqa;IK=ddURgX25?Wf0YnJkeZ)uqp,f-k9k
U"CB9$H[bG'-K76L4bX7Icf+ln&?P0jj%93k2=c\vd?1ZEW?)Si[H+^1\$6YnHO1*
U"cD6u_R=MwcvgdhsdujP'83M.-L+(R8,aJXj#DF0*o7H/fWRnODfAJ&6(]E#T?pw
U"?)JB\]b&d'?FqKNvSUR?+*7$nAErREz.V54Xf-Av;rBKsq=W8xUBgDnqoJz]_u9
U"uLD<u5=Y<jZLKt,OmjD4Mx1u5PX5o6RSs135Ij_8BN8IdV4lie5l]\'X*2(MO:G
U"Nxn_pfw6BJ-LDqZk&\oVtZY1FkAYx?k$*gJM/Q7^fG#UZMi0CjC<aD9iUvHgO1t
U"sOMJq#6sq$61RB^0]%#CH%C)UfF'Ej<?NLHe8ha0i=7q8B)Q0,RO+sluGUgpas[
U"]HSV./c]5AZd?inrWp/3S_E:Ux=NkRxow[5gFx:$s3,s?]0JLhSMx2p_k*Ci7kx
U"F0MPfOrdqGkq60g.Imc;_s_1:9F3#hjNpP-s6Txh2B<J4w:YA$xiq*>(6HR.n5U
U"f]pW4l<7q[N(f9B$6mrOOj0Z.F2$5_tHF6WIvT^QmaX'iFcKcL35<:K,)gP#LY>
U"\7#x6\l$j<V.]brd[-wqHhI6$B[H\iY%SSVpz]sV?95jI^->lq5;L(57/')C=X-
U"^.+;7,)Zd2Rw>+R<v+YJtDi>V#)Y/5.,JqRpVL_UYBCHns,:6i?sW#eqR[Q7IL&
U"DG_T;5CE5Ivvw*_dSz-XB9TvAASSaQ68C.Y\Hw7CrhO6$-+Oeeob6Ql*4,4m#Dx
U"c<sOil$MTd#Cs3=nlq-jFPr?)^/Otv2G\XdKrn>u5,LqO*F(6c8>y%1F/plPtdL
U"r3$R8nq+>U$$DWl%D^E(Cc6cvkjGDgC_V^sBcF2_W>CD6''Ktn'_L[TtYZu'a]a
U"W_4._R^$])Cfv%HYMu2mfXrn9r4+VHm<m\r\;NDZbh'\[>8o)vUpY4vZrVXC4aF
U"o\.didNAM'jlr$+FO'DLQ$Ae0v-((Ckm#jRyO[vHf7UrNuWV^MGM.=kKW:9927a
U"WFhCT.b27uuMwpcreZL;RV^O^^dom:dwMf_#VJ(7[]vP3X2w[/CyDjiDiFr:kMc
U"qCdzr1qIg(O:#D/.%?LZr3PF](n4d6EF7FnQB$JD=DTokIT9Zv$;vvgC8&DC?5;
U"^Y4BDcs&9L$UWf$PIogF=>64&X&_js4hGU<C2'tYnlmP=/eVhC.vdbKLt,(jhfO
U"5&[L/4s#JZmqK>[psr'Jh:Hkp<TK6+'[PZfEp;3GXUVIin=Xt*gfn%Dk&g)KLa<
U"+sb8woF'kNN'?vD0j/]ymsK1zsWTV9a3VTWvz/[e':o<+vLMsN)N4y[;^J-(RZm
U"bgrV?<ud0-exbTLY8dU(y_GmX=lJ[c<#-\a,2NoH-Om-DtJtW^PM?LUZ:UESrk$
U"eX7Q-iSoC.9KjytS,<C7']_dc<pMnN0]^]x(dsiM?9EnKmL0;CV#zLj/1Qv,)D,
U"^]>fE.T;E7lAuARi-ztA3Ro7]*o^E=sgZ15=R45oj$hlm?\]B*b_t,5x^[S,cXU
U"VPrl*5CA$$geiXt&hOkcM8:I$o&K=fOR[%B#LV;KX^[_=-]_;WndSnZVp]?v5*H
U"a8Dk+UHVG(U#u5<nm<tCwiijekca:xHbMWvOGV?a2*nP]iO6^c>/rVzNe>=lmxt
U"s#\dfNkdc#K.dX<Ahs:8v9Y4[JJlxi>Ar:EU2C'_Ljx9cxkxS.eCVsB^u[a*[w;
U"#g'$$]?KiID++29Bg_$$*</%UD<j#vYuxsAf]HDC=_C#4x5-LnHfq.,9L0p]V[<
U"OMF'OTt#nYxH[H^RuY&=LspiNp<<i]'TY\TMYvh(odLlsrTWH4sS^G=O7^eelEN
U"LGh?yrE,Bnl*R5XI(HniFsSp\mlb<%gz/:bKDRU5]t2+5NU5wn\629+Zb6?[Z2,
U"XvufXf0XK<'-WK$#<1x/Xs'T/e.Sc&YrG1$$I3&-=XQ-W17n<XMHMB99x[oRT<K
U"')Fi^w?OM0CzVW=c%TM*Xtd18?q.#$sz)-mxW.0#n/VX%F5aY&SnF'\Xf*\T[8m
U"AutsI5huc*(:r1)g.,v&'cIX_afsQ]/)G#aQ%zc9S)/gy[kXIUB,Bdt&mUjkPF%
U"cofW5+_')Bp;Q%AUS/\&w<*L.kt?-caSncq8o'&<\fEbWw/Z0:y7#&\vE6j7Ta-
U"d4:2a=(xxHrGhT;GQJcXpQBRR)0ES$]i.NdfVJXIiW_-'1bvqw/MC[l[qk'+WgQ
U"he$_T8#Ib[o-.\Q<<\%mFM,m8iGqOr$X(:Oh%6A+Os^u'%B7O3'iWf%)[tNqm9X
U"lDf-Tag8Ej_U#a_O%sj#r_;,B6lea^%>>u,^LLROG/+XA)]CRplCsrK>_6(C;9%
U"iWPwrOVRSYuP-I)Lg^8elE*sV7AN6Aj5-]55M(T6s2+bV^GxB=$#?Gw]/<=$GLV
U"w4iN1O1qOL'mDp[okEC+saw+ndu;;$\YjE9.:5RRe\3V*\$lh#]9b'?_^[=C[c<
U"F5su&g1cT^9[V^*17Do5hydSFl5Ctn2GRQ8s;vT10S??F0+MTHITwtKZ0SU*B]-
U"NJhlHS4$S[=ti$+f>]2BzFncxrF((7U7m:tF1DGgOHRSp[gAeQPQX(D9:)tH7Y'
U"U%up%&'9%%9%'%#-%B-&\RNN+>F]/.%%a?%%%1%%%%%%%%%&%%E%%%%%%%%%fqn
U"y%jwfy%Sgfx%up&'%9%9%%'%-%1M-\RA*e*5%w=%%&5n%%%-%%%%%%%%%&%E%.%
U"%1/%%%wt%tkSg%fxup%*+%%%%%'%.'%?%7%%SG%%%%%
END SUB
CLOSE:IF S=223AND B&=9056THEN?" :) Ok!"ELSE?" :( Bad!
SUB U(A$):FOR A=1TO LEN(A$):C=ASC(MID$(A$,A))-37:IF C<0THEN C=91+C*32
IF K<4THEN K=C+243ELSE?#1,CHR$(C+(K MOD 3)*86);:K=K\3:B&=B&+1
S=(S+C)AND 255:NEXT:LOCATE,1:?STRING$(B&*50\9056,219);:END SUB
'>>> Page 1 of ALITERAT.ZIP ends here. Last page. TCHK:223
