'===========================================================================
' Subject: 3D LIBRARY                         Date: 06-10-97 (18:14)       
'  Author: Justin Lallinger                   Code: QB, PDS                
'  Origin: lall@firstnethou.com             Packet: LIBRARY.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"L3D.ZIP",4^6:Z&=5010:?STRING$(50,177);
U"%up()%9%%%I-%k['CGt)+WBe-%%%67%%%,%%%%qX%iSqnOgf&L2;*&:sdpr6E$^
U"]XNdG8iK&H8,Aejr8n2#++kC*nf4K&2$Q/t70MrC2*^Xw_n0<ESoKO:W:5&D.:I
U"y;I7DNO5o'*:vIVs=Vb,OCC)9jVQyRoI;)%oygu>V;m]f$cN^jpVnuo*<rWtBH6
U"pbFGb$NUB==7\(1%7=y7.O\1clM^]TQ9b6^v).G#7_ZbW9_ZQT%gsI#Bcaq8#\]
U"CdsrMX'*Gb\tK>](ewJ]CHE-ultC6dk>07YtS&em0to6>vP]?fvo3jj.mxC;OZs
U"[Ay7Z/W9Y*N\J8sd+x8cWL$V8#^A.4.3IxpRD=.Umw,<:pq_smKW(8(1n[]Kl[-
U"g,W\r:':QpQGR:g;X27U)J(s<]R(8=UIujGcnCGEI<*pI6ahcWp1rVx=7bsN<_R
U"_^70YT<x$9T*o</q%;;fo4b+G*QRso7-Y)6)0_?=cXWIl+#_Sa4Y9R94KNQ'+$Y
U"0BIGVXBo3ezH=7tc^*+74Y=G'b/gec-V=X6Vdy<O#6C/gybjEC19I&p=)Q0Vidh
U"W3<b9Q140ZUi13$l18AS>U5d<iZ-D'7(Zg\wOa(22Pbogbw]lLi.FR+sLn**q1J
U"#5>P7tMkk\:lKZS?w:Vd/0'-Qo',6\V[w0k;$CP>kjWD?''$LA#'AOC8RAkk$[x
U"EANJ$?9q;[?Jq$C8R6#s0vSJ3QE91&ixAO0)h?H3C&;$b5N#,cb.OCE6*VeB$Wr
U"d+G6Cn+4ArDPa5s.qgm?Xa(aA?3,v6U^Oy,n4bba$vq*.<o%zaQ2z2W--.etI)h
U"<8M<o=VftvyK%dl^C\dsw$k<wq%,U$bA*CMo*=l\uNa;H?g*9D>_A<?$fC$.<9V
U"X-$p_R82ZN/0jZT$cV:^'U'$3kl8S<eFI+m,%7b0[YcosWbS3Dy6lk,lv]_A/HB
U"M:O+qNJiYgr3-\3t-<XF7z\HSSn.OC]6<ZdV,,P2PyuaeF&oB%$,9cdmM,g\iK%
U"/Oks&t#ZGPk(j#XM39Q&3m];_vQSRIE^MSQk*8i1E4jBI+)Tl]VnF3;#ia8QB?s
U"V(3Z'(j.oXq.r8'f3IdUZTb_*BxiK;gXq%Uc8g\^Ornq)ru%XA'hQfd(WHIaf_C
U"]/k8e#XZ/&Adec_r.%Lnf\\N?nJeA_RQfsekg-ING4+H:SW)&(-Sf'iZ$Inm*[4
U".#Z_-<-Q=S:5L=IKhTEt*uebnYtR:O=$(IL*:D/mq</2NtG4-a&^LfaCaQS\7n^
U"-Yi1K70$H;U/_1VqTVZHCi')O71>ep)Q8U,A[\?[HK<DuPiI/1(Wao0p';Ko%'$
U"RQZ2gf+;0&RTM%L=-[>_/jJ;:mjNlkk6FOeL027yM7BoZy5Vicrtjunm4Uvh$T[
U"=qs2.u>JKL:[v2?a9(/3I,'ld3q^=1,w&7Kb&W8(,Pr\29HXv/YWL_^e%#qIM[R
U"d#8Qy1*hpGVllJTNX<O$VU;Z79?C*c#nASIh<HpT\8z3VlQ:s#3VVW6j9QV.npt
U"2awk-lOVU*JWCe^SET)VG=q7aZm%sBh3)s,saqn*R2aQ;Y0E*cVT5ixF7n=.[tR
U";u(iUV\5r\A?=[i%fb7DuBq;8F:YR<O%6;(F6AvVQ]=j%P^_25^YZaAf1poQ;%\
U"WSjMV^JrTfl;m:y9W+jSc'&?v^nJQ4(i9ZB&46Q,e?c3dSal&>%IURSUU$Aj5R.
U"hu66BcWfLo,3^2s0MEcau(EMVHQ31Y(\E.8'&nXO8C*T]c&LVJgC+K6jnf-*n<i
U"bLgwN.-d%Pv).'*:8pI*>U9QkW2:kDJWMpNpB/Fy6T:&O3FO*LqS3Ugr'9+jHHd
U"Ell\a-nc_;_Y+737<>L31g%:ni#m8iOYOhj$d24/Xr-$Tt_x1j1UQF%f9P\.VPn
U"dz#K/%V',RZ<ePd#Q6p3OC*/AZ:3nDe#nea0]JZOS<cT0BKXij<N$cwl.I-(o7=
U"U.^FNO1/9hKH;kZGKfHj6ieF2Nlrqj<X3F3\4cNUwaVSI;OFo_,m*I/o$D\)pW6
U":.;)FZ+R74l-+H)BdzZ5jNZg3N$f%>],Zo6G?[L6^X+WHLm_nnZ:J*kqS+c(z*o
U"fB.zDu*;$kt2NUWH^mK^0%:;MK60[5rO>K1gSTJCv:2WR?B[WvK51lzLM:tz-$0
U"GzRRn:DUt1O$/Chx#XY^^uo=,*2q^<N$;U12.i]1akw<7W:wuIK9'CodXBu8r\,
U"p:fr\jX5Q4HE:ZI\HQ.fi.y6+$ap]#(h>jJ.+mX-a[6In(bx8+<bT4f)uVh*rvL
U":gH#dx9Fk=2Siq0;WaK=c2HL5lHK*(-u%%DVbbH.BGR[+qs*qBKre0V/NMjE%SI
U"D<)PB#$zl3q]cD&Mivd%K\ib.4E*Z%aPQ,M6h$)I4AI.KObEq77[mab9mIkC\&b
U"8e3<[eW5$6<b3$OIB01t#3,(f_#z<cP,,3Dtn*?=,KhF1n/9TlyBPBU:b55D.'?
U"c[7k^92SgK/>A$Rjko#BH$*u2.+Z*83=nNXzuy1<YEM]Rz\;60vYq9l8R,T\ieb
U"&,Ul[K5J&bH=8#<)gaZ]4YNY[$-Tx:Ut_A[s1XN%9YeF2SeYX0[oIsh7U$)*48$
U"Y.-[b^P#%$sktNoNwYdvYJ2..F$F[pbWEFeJKLD;:zJ_4(K*Z=+Z3XoXPKH.sGH
U"']bUX$oN*<9yR9GHn9ZnR47x;r>7*XDka)mcE$u%4up(%)9%%[%-%0,ZCGxtEpi
U"_#%%%d%'%%+%%%%q%XiSg1nt_t,:<U1Q>hPK(,TVmMoV<PZVLS;JTS[4+$mMAmD
U"wKQpMQ.rQm,oN+h3p2a'xCK'LhoTP%>fU$c63]a=Rg3:p5)4(ZSg&%9gf7#If?a
U"^Q]S#W6twIHqQb9Y3;'>Wh(NCF2$ZsT\)&2%mbhvRfv'6h/?JsoX-\Bt<%Zd7Mk
U"9-MhNa\qk9;X?/b%InGc&n]uW>#--m=167Pn?$5:_GB\-3>pL,N+qK*b,E1n7V.
U"pvf/?=hY?r/(;4),^Gs6G\s&QWAteRDu6VnRNa<ntCKu]nN00M?6Yr+]s(u%p()
U"9%%%%-j%t[CpGwxO%R1*%%%M2%%%,%%%%qXi%SgfxEf%r7##l9M)>FJpSeB4tLN
U"Dp0[Rwoj<?/Bd0;V\hM;2Rzku+#foIw(-fTiY%(z%PI2(<x(CJvYV#Ci.S%Cg.^
U",dIx/6>0-p0aFvA^oob_4uAty&LX$P?(O/mlb.Zolf5>7?h6R>?FTr0.5+/4*(2
U"=uDadu3lqvEtXY=^n5sh#B:&=<hj%qigJjUYJA?(gG=<h\cc1Px3>n:HU/U#/gg
U"&i_>'8.#fU]CvWj>QUr$)<^3_2%&)2=$8a=K,t)seKd$;_;\65:hag?+dU[[CUp
U"A]5w[fKCbg^O_/-y79NG5WGVltE5bYeP$3Zef<I4+d6^vhpaVr7$+<:Ebk,j:bB
U"nPE[[=L##'k1*9(:lJnb52ejq1^=#R)^&H-hESrD%7]%I.4x=]LO8.-oT)l,Mf,
U"(O+?F(rTMo]GOzK:-gx7RFiu#Tw?^IPZ+e(P%Mjq;V^:SJ,8=,83=P4D)\sZJTv
U"[KYtE?6u4hai3B#GAnV6sKNhm.,bLh'u>NFn(f-eqOa\I,>esVmF]8jc;='E:+f
U"&hcwnZEBmr(4/9Q&><dTTK0JuUWYoOK0=[EL;t/EaW=MqTfhoGNG<UAJ9(S/F/7
U"hYo;ous/)HfuZ5D-.T&2lr]L=fh2=n5o9m5%UtHO6OaXB.>=Sj7)Ae/4^USW.#G
U"Ugh\.*>sZ:lFO&.5cx]7&4J2\?)?-sP6alX[M%E\&(Mjxq=?DEjb.PVH?(\I2q5
U">Q<<7lN'Ro%MD859\hbI(10)+KR$bNnl9?a1nyVVL=uG2A+Z%S(kV:*a75'?)c(
U"Ygc?a+^fsjAv.89#1h.qFt-&D\(MMPK&fj.xVYQc?2;H'=83+VkusICacV\w$D8
U"zr5q]3bC$U$ytb3+I5g0\dPQ8#inFPj+yEdH*]qLznI#my4rCbZLf7Qn[C_+D5]
U"Ab0Q-udO8cI.yZpJ9BK.n<+bS)V7=xn0+_trm8[&F;_lJwS3xScQPX=bVMYdvi2
U"MUdax%D9GG4s:].4T,&,eP]Gv):3P:0[-4PFv^7j\f\MwoXR9i$(HLpV5NP.bmL
U">FVuPmE5CB]I9Mu5Jb.8I:,-0cXR=R1BI-HJL0zw[hK9Ef0?IjkK?$RgSQjBnPQ
U">S^fSiuaQ<m:*wNkMhu38xC?pWLB<o-1Z7Q#$]*xbRf.%JKH#Wceo6RQLFbR5/Y
U"^rQTb2R*:OcLb,=0)dcN/D;;Fp)\JE+:&E?<#'Ca#4OQn*bR.p%JP#\=C#4ONQf
U"I$+:&os'*RL8?zCRhC?O%$Tj66u/aFkZW%alW[wZ*=f<ptQbWdUb>71Xft>Pj3%
U"X[:>$*>X'KN0Wc;PFWiX,NxSW+d>tFnf'-6e05Mr98S=%VoBZ3hKLPno%cJlFO2
U"UBdt=>k\<qt]Vh;g/PLBik+t?O<hOwfI10n<s2u-OsnJ-Xrm+L$UQF+%PpO$j:7
U"x'mTT+SENQ)p\C+a8l7Azf$%IV,ha-&\PjSeEJ8[M%$^Vrp$J?D4^qf_IsJu3Eq
U"ueRK.WBxSc-35dJ+bGo7sW.\I7?n,8AlP.e'RdkPtD#Dh#D<JR(dIZA&>=W4jnN
U"g,4Q^6WDA3R<&dlaI?#l,fh/h/XANd%<\K?G83<L0ccC7lSw);T-N.[e%;[95M&
U"c'<Z3cQ=/Nsv*>E-r,%up()%9%%%I-%8^fCGEq?2]W(%%%X-%%%/%%%%wj%firj
U".Sy'yJLz0>]\[1v7a(w4+Q)FNrYIPo_*P&4Y-,fUl'6,3F(ove2h'zRT^I2X-ld
U"lw;EiU&S<6<c=n7#lso387eRTf^%$U&9E5oDojw:7qo4\srV%-B46fNuV._e:OH
U"(AnJIy6:wnUat,j4J'1h&<:eR?bE*PIvD4DKW;2c\sw4ogaHk9e4m]=0I1R.i,L
U"e4UjUd?u?G5%#o%7>'9/f:0RdFFi^HKn4g;&(=&qI=_HAvhPaK&cY$;STd_HmS7
U"*/uOJLxiCA?Gmn6pMGKO*;IW:r+R[]-O2S()01\+4#h,wis-EGMY%30L\\dUH[+
U"IWX-Meim)=4.AqiC=:GbuB,#$T+Qbr/YXq9[Uoi8IF%[#>O'PrSmb1<B:>aQ2q.
U"?B7Kf;6hOR6dN/an*2vdT/S(mr%kJ.t34b'W[*7ErjMp%0W*^#8]s2NihJv*;kc
U"*j_H>MQ*E$D^489XTA?ss%v*<.G1(#3rW_;_#QEEH$et$BxxWC(YK)A-rMP2Y:#
U"g:^'t8Upl3ygx.D[0uKt<hR*0<9Fu4'BMed*=($iM+cWj:>\,-sd.hm2bd%LW9^
U"Y;,6xQGiNa+Wob,P^TC3x>pB('=JpaIK-o^d0KpJh,rpK-;t3^wL&MjGD;:W0/8
U"nG&3nadBSs,[/kD>O<2%h]*HPIniyX(VGltll%,dN53g'D;)<hN:*Wm=yk<\Gg(
U"uQo]VoW1KXRK.^QP^/.#zGJY+MfRA,Ga;k8b<u11]e]k'KbIQiw0&E;*f=zUOiD
U"'IhqifYpQa<MecbnS<=fJ4TX:Le[8/O5FuW\ia_X/WnSlx'oxUI]<$jTha&\X21
U"kh0n6Xhe3xEE\I9bCtWW4R3_nkbU:zx_p]8Hd6z(#AJ_z%$i+i(;CcLE(RUa$I+
U"5Dt0?aj#LQG.^UN4n_*1w/rntq#X]](<m28o6jf7<o82&YHDS5ucl(=^L.XD_PF
U"?^ftJJ;#rjJC^_'\j;nN-GRejBic^;d5zhOmihu#bTtYmD4(s6iNfzkJ,_c&Jwm
U"/a]8vZkF6J3:KCN+)i,=q*9dViv<=roT-8XrWf>abl*V(&(6vo6ac,u=G<GPxSf
U"Yhreni##p)'iTwcmcS>[xB[-P8']a#M[9*'c]Lb<ocq'*wATLRNx+C6[<kb=cK4
U"vQ&R^rpkmLV=^hs5QrQuYsu'UjAq^D:]ks+b2S$5h<,tXEQAAn)m<tC^g&FL3+'
U"qe1sQe<\HL[+m]1xlMB/OeV^O8y6t]<k<?$>[&4S(xR'x(up%&'9%%9%%%I-%k[
U"'CGt)+WBe-%%%67%%%,%%%%%%%%%%%%E%%%%%%%%%qXiS%qngu%p&'9%%9%%[%-
U"%0,ZCGxtEpi_#%%%d%'%%+%%%%%%%%%&%%E%%(%4-%%%qXi%Sgnu%p&'9%%9%%[
U"%-%tG[CGw-xOR1%*%%M%2%%,%%%%%%%%%%%%E%%(%>.%%%qXi%Sgfx%up&'%9%9
U"%%%%-%;8^CGtEq2]'W(%%%X-%%%/%%%%%%%%%&%E%.%%o3%%%wj%firj.Sy'y%u
U"p*+%%%%%%)%)%'O%%%&u7%%%%%
END SUB
CLOSE:IF S=212AND 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
