'=========================================================================== ' 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_n0V;m]f$cN^jpVnuo*](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"_^70YTU5dP7tMkk\: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*._Aep)Q8U,A[\?[HK_/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%IURSUU$Aj5R. U"hu66BcWfLo,3^2s0MEcau(EMVHQ31Y(\E.8'&nXO8C*T]c&LVJgC+K6jnf-*nU9QkW2: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],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^jJ.+mX-a[6In(bx8+A$Rjko#BH$*u2.+Z*83=nNXzuy17*XDka)mcE$u%4up(%)9%%[%-%0,ZCGxtEpi U"_#%%%d%'%%+%%%%q%XiSg1nt_t,:hPK(,TVmMoVfU$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&QWAteRDu6VnRNaFJpSeB4tLN U"Dp0[Rwoj0-p0aFvA^oob_4uAty&LX$P?(O/mlb.Zolf5>7?h6R>?FTr0.5+/4*(2 U"=uDadu3lqvEtXY=^n5sh#B:&=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$3ZefNFn(f-eqOa\I,>esVmF]8jc;='E:+f U"&hcwnZEBmr(4/9Q&>=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^fSiuaQ71Xft>Pj3% U"X[:>$*>X'KN0Wc;PFWiX,NxSW+d>tFnf'-6e05Mr98S=%VoBZ3hKLPno%cJlFO2 U"UBdt=>k\=W4jnN U"g,4Q^6WDA3R<&dlaI?#l,fh/h/XANd%<\K?G83E-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'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'PrSmb1aQ2q. 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\,-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;)abl*V(&(6vo6ac,u=G[xB[-P8']a#M[9*'c]Lb[&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