'===========================================================================
' Subject: QB COMPILER AID                    Date: 12-03-98 (18:05)       
'  Author: Fred Buffington                    Code: QB, PDS                
'  Origin: oasys@nstar.net                  Packet: MISC.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"TCOMPILE.ZIP",4^6:Z&=4237:?STRING$(50,177);
U"%up()#9%'Od-%b*0-I/a7AdW0.%%^#%%%1%%%%yh%trun%qjSiRzrf'_,;AN.:c
U"Fal4oIPf=F:eg+),4:S)Dd0*8V)Tl8x3^F%BT-Q=]gYWeg[r6*hgKQX:;:HPM;K
U".7Yq\%Fkcp(o/Z[.zmbC49v?.ICWO[OCOM.EIsg.D?xR/yycoj:bFgklR,Tj.1w
U"mnxPfUOX$mJTg^$m?82xGmfVs/Eq]-b:U9Eub,\hPu(0LnZdx%(tphJ1m]rHL%1
U"r=FbRaDmk$qg71S%\>TjNj>2]-pv3J:k:RitJHJY>6[b.J4bLfr*+XFvtObQXL?
U"%9bkyu,aG8Re9+,3P#NpD5R'IV+62c4PSNGXWkrrAQg>632'y8D3sXJI17hFI%K
U"6*C2y>n(m-GCA][-ypNGlXm:ytAtX\BjC8LrQo;pb77(*$-5oZx8-\v,4R>y(pY
U"m*J0Gq)&HNjKZ-u?;j\1h228#H<*XnT<)(ebndeJz+T&/d)N+Ic*AB*GD/=<dHe
U"nevoheU%E)ZG%']^NbWUIVAtL'+VoGiUsm#2p;:=<n8f_j>pJj*^fDa+=EP)>?Y
U"Jjz#f6*73jw%v8[38'&Q8Hh?LB8f$Fp8,2(R9V4UN:+\hH8LcBDUC8btw'bS'**
U"9x%9P>tUK6/_OoL/NBZXUsM(0_i($8j-wD'Q6-kBk<d8ABpRE[%*a,h:JN7KSls
U"8:?9ib)*%,mRCU=^nfZFnHda(3WUz>D9pUn)V4785BJF;Q(Sob>2,-&VR0YVUQA
U"n3)=\5n61/h2RgnHA5#^1%oRN0H26mBtTrRHs:hkjl;.G9>O4q.4c[8KNDwo4P9
U"ONSzZHl#+h;DUmau:QZ#-S^br+2iHVwa1647Dzzo4uOCETYBE4]0#C;jQxx4j)X
U"]GR69bSE)G^6'Boho_lege<?eqtk&kgFzB-IDkfE]T>k+We2k1BE$Iw>jx8*9nm
U"HOGQG5AG#JTUmGPZE\RMmZ$f9U4G64=pD*b)(CoWVjI;eIJl^WRXtSzsJ4a^nkG
U"(5,*&aV;lc<H=8#t4*Cp,C7ssBj3PhFxMT1y/tzVYtI5TdF^End$[NR_-_+H$^X
U"oq4kZG1/,Pc<==Lc*a^D3BJ*:_GHT3TasL5;*Za20TMo=KjttU9f<Y'Dv#/a<Q)
U"2E2/<xCiOno(36/+NDu9w4*HI6nZH&B(Mmnv.eO)7t^J,Qn2z=ELKs1m5X>6-1,
U"pws&QOq_,R.0pma3sXC&&tdf%+IIUMk+ZE?l:*VGw2OZ#&?%0sW^O07&^>V.%F\
U"cX:LmB15m^A((Y,BNXVBIey?%1MYFP'-G3ek6O\]83:P?jmla*22\?'k#f\o,K'
U"MLJ,L2JOC+>WQ%V&wteqU7YqGfaa_0D,_2>$FCMLq%3A9lff:X:;VCe;3X(':kC
U"J1M8>0[jxCbiMQTkh3d,3T*N3XcAhlCps5+G^#QUvbo8fft%Gk*EvOQq9H.Sz:x
U"WNWd4WJh<pj]N?X,O+?ugnH>h/]1<X(7?1V*;7X&ORt7CWPa6$4Y>3]J81ZH't%
U"7p_X<w6#=33dbqE&f:S+TAVPU^W]M?&]A/WdO5o$-n*ZSFLj-k;=,$>T/Pk*0#v
U"c;8O'qJ=GnZWEvAq17s]l-ee\e]0p3H]=\t=qmpC$e_,oZXVVJ9aeX2H2?d*EO3
U"Fd'Dpy;[<S\YGs5Z>l)At/Mv7f=US:Lfq1PT7X9'F*N1=K#lH3q2VAKUrW[2A*.
U"u.IxE3+Sq(SGMEYhu+4A*%[vuF)%oAr3R(=92K7aZAcb,IGY*]Jl]Yt4HWENU*3
U"NEnz*>1b,x2UB<d'/(cn39G2q0Qu8IX9c:P[Xo+PBAevqzdad#er72B*fB3x-2S
U"]LomlrHN_4bE55z,'gaFlI=NY5zpP-gG^Y'u5qUJY>.2%h$F>3K',HI5jP<Lhmn
U"NsL<gGsIy:Wm)&m'.j(jU)6Sz6.LC]5q*+<I)B:2X$?d7feIpHICxD='evg8[d]
U"n:Ts$)mZd?vD?AT=]aw2a%)/4(jb8.kM*2+(dGue;p,f%u?qg6daIyEFg1OE^gC
U"\uGpNGE;c$'Qwh47%.6P,3Akc3R_Ghj#K-i%>qJ.XqHsJ#xA]pfz*9beN_W-gTM
U"6EZi6u?8[xa4ZK,YeA1,2h;jk[*h[[?=Q(gofLT:2lKF_'J_NiyPvWAK;9NfRSW
U"Cxc+x>ZsIE^ET#yCSm/Ex=3.2(]b;<&;Ep?NPQgEC.6m1*5#Zdb)Mml8J?gLO-v
U"OUPx^m.Xm7)P90A$TTPTr*IOf8,hHA^5IBdQ18-&dew:R^koW(p?[JMP+(h5q&+
U"ITJwp[\8P'j[5wtd2YUN'Br3Ao;Me,b4LtT;AtcGqoqwy76Y+R.b2r?BLPOhsDf
U"V<ct3-8syQmmWeSCO,oZe\CdAonpr[n0OesKW^wI%24ei22p^,wgP]OJOnqK:>b
U")MBJt6UzX;,.SoD[A:2Fxo4:SWVZtaTpMnIOj^gO;lC\=Iuvmg5qJjU5ABz,fVq
U"eQu>lv2BQe5rm>>K0pMFd,yO_VA.^SBz2n*oNx0hz:]l^2E:nHg.A'27M^;hfnV
U"Mx6G78)pE>>L9hqh.\xQ<p4hO_6h>kf.uAVbpo=ns]N3Au(k1x/\F^Y=i*Da.SM
U"izg2zvNqtC71'IxOQh)$6b7W>7z_b)/w6A>-aUHKg.axUtS;-fmAJ%_r9.y.d(o
U"h7u&(ubMFTX3eqDS]+C_WXMsRkp^_K$?Q9V9Z6s'lu&Bbe+I4e4E>T4^NJWJ,pt
U":ar)aXbVOP-':GJ=k1v&CmU_dV$<4$k\mDZi116O:el\FlQRt:'7W:ft,dX]thf
U"=pwp'y<].y7MV%^_[_Nwo;2%3OGV8&hbqVO0CLrBL,t+CW\Wk?)>xFbAf&a:NR9
U"lHCL1tmZ#JSPMuWgi_vm59'1]Pb=3(,Q#j9YE\(WWw,xh7A6SG[h<l<,H[B$,P*
U"_GsghAqU:Th8^01lghqJz*BC,:uQSh%C.kxKPm?Mr^=?VN5)3cOCpzM53WdBu'C
U"W.R6'>sXoL$k8AX[bhvaak#COHL:ZIN]1#:^n#l$nqqeWPnZB3/<HB^fu/1KcLN
U"6]bB_TWC6)8'hUbYl%'nM=QP5=/DwvAR^[NmZadf/0&[[9Zv5*hW&p8ks_17u9%
U"6n*6h0w?p6KHw;o#tnLywyFVhySTKd/Bw3Mk/\u83qRgU_*R(kAidr^&q,4OW>H
U"2KPw50\/Rk*(sTFl/SE6iu<'9oP:E1#E,PhW[yX4mck64[DjYbb+;z&Z'3xa&yt
U"wLMCv.DHC0Bk:_Qt6_+4)Pm6K.=pdwc/n<VZ$d,RNYB$X\^u0Hm4b:4dHBhcd)2
U"6wAo:2K\vC^u]*JQ?nvY%AU/po+:/uDtmIaNT_TMy7vgH'rkCf1,=h-uhl%,v_T
U"Xm'SgRm?&(f]2v)u>7HxSd'/q'cej\kcj&6+U8nhYm,c(vrTsWqs$cWc/i][ObX
U"tfbjMu/Uu(,c+iXsh12-vF>2&66g5IU2I,;jCYD]x$].2eJ9SC*I-F*6&w%zf<%
U"7J9mKqo-.o(Woh/0p;oH^/I#I8R/sZ\o.*vX+I%Qe-,S4'a;4zT_Gw($<Y=[1s'
U"]V5fj.wg=M&XYLct^u8v1T^b3iiA,8*NObG1+h6,>98^PdsnGCR;0lyhLH(,jQp
U"]QxWH=0gzAK$9XAht#r4i0(27cK==9[:m1a_ozu8n[1(eH)%wVshSh48H(6m7j:
U"k->EX+u\,Tifd/.J2TO\'<4Q2<?RtS\Zd=,6lMe8E-*?T?9ua&WC=w(z5PCYQX/
U"&bC<RMC(jfn$31:+&Y%AjTZsx8_?PBSevcv%=>c2sPtO(7;x=1cqq#XB2?3\9f/
U"BfMbV6Rf+(NsqN=ETFfcT.u4NO#QMB<2]Uy'Px&Tnq$Q_>Mu/5G#Miw_]-\'5zX
U".ynS=[X%up()%/%%%[%%V3B*Ik[*o<?%%%%?%%%%1%%%%yh%trun%qjSr%fpyh%
U"trun%qjSg%fx2/%yymj%quSg%fx2/%up()%9%'%[-%m39*I0m0R4&(7%%u-%%%/
U"%%%%yy%mjqu%SgfxN.%,>BSo5L;^cxU(f$'7'1G2TSwy;33(Q9E=&K_O004:a<9
U"Ynl]6K.rrnl*FP&*>z4PVL?QT,65rGkRnc&a^VW*OBrF2B7Dd)z>ft.OGHcGHsX
U"4f7IHJ6YU58z3F[rmkBw?Dv1dAkg*/]S#2g3t]Okg(;hEJeDIp?hD9(%l*-4+[E
U"gd.w?2uUfQj+?G)k0Rs&e3m8Ik&Y,r0W9Hv5-;s^H;o7JX8H<,bMsAW-Q[E<[w.
U"Eu]&=B+;jpQLY#Gq1AT2.CO1(1[/(X-$4<KN=N'.5+I(A93fg\OPr&#-Mpb5P_0
U"1B[n%<2,z'*X0)\D5?LquWASWYl83^G'-5IR/#017V5+c_aMXKM;Oy+%0&a-6iA
U"M#71&qVC%IFu76Y'bB8cvh-iCOej^'2P(?ccc=ofS#cae+I$.yvmWM$ejqrY\x1
U"GY)+A1*Bt6q-dOYFGaU+7vRE2%XhBv+.nrJtu7&C8O/w-Ip*mIOvW)9Ec<92(S7
U"Tj9OOYe[jen1E93nKVPrU''?/r$G<i,jpEwDm]334/Vtdt*htYvgHYW6<;wE#(p
U"VK-e3gS*gL&]cjaK>o^cKLcYbjmH%5dn.K&*1dGeB8#:k?.j+ez9$C%[+cZF)HU
U"cJ0rB9#=V%8M%u/QLXWrk2zFl$oMv&KMu?(L0inKSa0,.PA()qpT+22BXKCUl=U
U"+JUiRwtgOSkot7*v\SpSoPwZ$:78qLUfBMdB##%?dJYHN>ft*4)3_*,d+>\jyr_
U"g9[7GSF13.)'q,tEquq1FQaL(u1.:fZRYm<0d9;onH=_kLZ+:^Y4dj0WY=1tY+i
U"'pF^8lLOd9JN*8S3ynw:XgWQLxk>(vZ<HjpJLs:<ToH:PM-b3_Cch:.KDil:-<n
U"C)P&YR4>hE9D#k+v($:cm63FOWJb.\h9w6CsSHIpx#4(Z*%1r-6=]PJ8N._ur^*
U":5hD*hPWov.3RE%S\nFE:E^ZT<&BBsIdw_G])AoC(Di)s(C5qf\+X+R'r'c+kN*
U"cd&(C]b>q54k\g%NJD$jy?=?eQI-EF)b2F^PrEWjco2G&6T&amMAWsq27>tbq8n
U"_EMkWuu,<x%\d&u%p&'9%%9%'#%-%bH*-I/[aAdW#0%%^%#%%1%%%%%%%%%%%%E
U"%%%%%%%%%yht%runq%jSiz%rup&%'9%/%%%%%m%V3*dIk[o&<?%%%%?%%%%1%%%
U"%%%%%%&%E%%%%-%1%%y%htru%nqjS%rfpu%p&'9%%9%'%%-%mc3*I0FmR4&[(%%
U"u%-%%/%%%%%%%%%&%%E%%%%q1%%%yym%jquS%gfxu%p*+%%%%%([%(%%[%%%D%4
U"%%%%%
END SUB
CLOSE:IF S=169AND B&=Z&THEN?" :) 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\Z&,219);:END SUB
