'=========================================================================== ' Subject: 3D VECTOR BOB DEMO Date: 12-16-96 (00:00) ' Author: Andrew L. Ayers Code: QB, QBasic, PDS ' Origin: andrewa@indirect.com Packet: GRAPHICS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"VBOB.ZIP",4^6:Z&=6208:?STRING$(50,177); U"%up()%9%%%R-%tLn_FRM8HXC%%%%%(%%%.%.%%%g%tgVS[ufq^IvfZU7E9uPPBa U"oVW9S9_'qGIf1UpRCs_EhxU>:.lo/34P_lVUa?5jj+#,gRS[5s;sGRo,'/zLHWS U"m,8V.)Y/&%,iE(*NTguRN?<8GqpqX;tKtd%Z-/j)47Ks&mcV:QWsvU+ikX-J/kSi&Jd1X:&xNTE.)wzmRD6t9 U"^-sISlKZY/TYUt?YoZtCW4YPpSli/CJ\xej)QYA2.b_V47<30OARZ6X.R94+B5R U"nFw:R/=)M$8cQGl4un*L[FRQ]-:5gLM_qjU7VRS'(%=8m<_Cb'x.'k0kWZ-Cn'I U"n/Z%m.<QG6:IT^%u.ZfSeSO;nTbO4//3+IYsHRu-/Y*4oa,7^Q#5O9L*$'1,=.DAR U"q$Ca,^0;.63OK_??v?2i$J7'J:iCOsB;ln_yqi]'H.uu7X4mD=K=L-b;E3g>>RCB*.<3Cg_9,hjNB*EnF/)S8U##+6&UY[AV U"1b\rzm7W'>)-S#7$E=S3RunA[GF_SXHrpI)br2HCWCE:t,k5&D?N_VrBVcy%g4V U"d\sO%/ko$vu=3d4Lji3CouM\INXchTWB8WKeRKVC>&f1aolDWlxE_IK$ U"m6Z_q$+s;ziHWv'_/_>GH1=\>+/&PUJ(K;8H=u&YrH5>5LJ3DY%e?#gzcl$.,QsjS+M]lST,inws-BMs5v6C>#PSl)L>)FkZT$'Q$^U$+hqC(AgC-Pl U"^n\GdQ0VB+;g8W[Wn6PgC_]#WW:[:cq>85=\w#wx$nsiWD:AH#,B^qaIQjoT7d0 U"?Q.\01QCRQT+cF5xKrQLnH.847FolA8W02b[+a::za#^hHkb#a+rmc]p)bGf.q9 U"A9+GG_HB[-Ula[A+/1=r8.P$tQSgyU5(,LKP1O*\+e&DJPCH_01Oktc\1]r3CJa U"mFOQ+$u[6p18z?:^[w]/ROpCjZ7#[jC=)O2>oQ3l]h9&BD76,VGg)gsX?27*.h; U"He\KkT**K1#HrifAvYF3SyGZFu8m'(Uk2qbOXbBkFhq2k2udP6EMrnQG/PwI\Wb U"fE,]EC1Bfvq]P1LG,(IPM=/#,_7]NN_:B>Rz0U[k5]109FC.KNR>_AZj%kZG\CJ U"y?lR5+_3ELocwIG=ZN,I7speP4-g[]]x6V(gQ&\igu'rhzI*v#t>l69wMnL$:CF U"^uAY20Dm_tA?i6*,3fq7zJ:Rz91:OUzO:x\9XR(Pma%a).LbDb/^dsFNL==b/F> U"GYLtjHadn)zjXYwOkIBf.e-L<'mV50\=1ALh[rZA#qV]aN?V>^]4V/a U"F?[=cQ3=TL92j1J;x[,(;2mV,SaWq(6u)xgehNFoelFe=mFanc&M:&8-G':f5r8 U"_uYMEJ8x>JtQ5iV$-\l#Y6UYf&x=/PG)L0hj%#hh7K U"L\4(gWAS_zNmSrfM-to\YK?%N6MNI*2ug)GLv(YrEQ16Vxihkua#LhPJM\L(G_N U"*0K<%7&-WU17RphY64Z[v95\a-8iEKB&kZDTD6GD9D6Lc_nPx$(#;HfJrMGO=_H U"fsvh?p6(9E:L;mf0.:iSVO>SxbIj6=xr\E^YAMgLE,l\CAn:rc)elZBk[(>vGn7 U"q)h9OLE\G/;eyNAj'%KG2c0;kOVg8*>nx+e(+5sWNr65aY0At^[uH/D]]W8ieCs U"ff+eY0=9iya&8tJqDB4n<(BDD)Pn)O<^X$Y:-f:B3Bj4Q)itrO)NI\H3xqaDtR% U"\\UO?Y?,K,0QOUfLgU7G%8fK0qb:?^jgAj:r4VicG4'en[J<^mna2TRKT^iat-7 U">Re&2XdFOiI%O/F_avO[CZuG%^taMG\D7S?r-ei->AkyAFKyh08qWaB#aph/c^6 U"XVyiHte9cZC#wy?s#5(Y%N28HcKV:j6jsCAf>e>8QS:l?)f$D5uS6n)PRMqFmT> U"4R;H$U:7;jR/>'aV,bVeV5;l1M7PVef5G(/\tU[]T%8tRTe9Qq,Nt-\4R0\9^e+ U"rL%(5SG/'/Af(YEO?73f#&I$W^F:hpH'^'Uh?q=%:sQl=$(S'K;BXIrsJCvi_m U")$7to[woEI'zT.LdJe4+z:Oib]up8+\_Qlmc1'wlbXMA]_+,mOcXKw*1]WdA7#h U"%I_**[;5%xB-G]u?MJWs5P5nfJot?Wh_sl8>x[OLhD:>F-,%uf$f.lQTk,e+eEw+6DdcDUa$r]SMT(r(V U"i^S9a1ctWsZE0s).,Qvj67TlwhAhs]96&W)VcH'(fn#)viv==#B2h(NA^$Xo_?C U"Xn1glfW5VY$K2]gs=d0>gXAc,w-px^;=DLR. U"Ph8__r._7&;#I4qD$[pD$E=:L6sf^ U"j'=r=X>V=D-aJJOaPtQIE=,.hr^d;j/9*kxU>'CJ%R..wZ'J8sRys2]C(#,VZEc U"kXDi/JAc?J;(9.-Lq(^:90+yRub&lcaWpO$]\k1U\^=r=SEi# U"wmA$LYd)AhW3Vq^piW'n39G+I$VkG$4o#Vr5.6:p=Mveco6O-c:qA:fPE3kBB7n U"GNxRWFSfJ:cqcqOpYH6hnZ:=\LQEb U"tO;?c=',Hh]\#xh?;Kk'wk8Nl/#(DVb&C1LjhA/)Yb#WtZM88ua<7>5WHo?1>*u U"G-.HWJr47=z,R^0R*u/x)zzRgDc(m_1KiJ$AYZ;t(7>D>pgQ9pr>BNJ's5:Y,SDBU*z3_/--^V0;W\V'.hK,oyUc9wkAI/KSsB(yCkjP5NY3Y0mM+H,o-98hLi87?KUE6xwzpZ7y'qGe: U"XaaBz4W\?nj3le:L^+,^&pwYB):E6Sb<$8JhHvnrnk U"AWMWG4[QX8r;g/LF_ U"mmWrQnG1JoC3Uh>pK6Aq\JP6046 U"RSzLc-lTh(5Zgl(]q4lnHt,(RecT$bHq9*O:bjGya;QR;T-N/]$I9ifd)R.<,/? U"/N1]sD)nJVO1np%5GfmO]R.+$$STp$'/e?7Xg[MLzff8Kvk?URzV=/*24aThj\dU'-LG+2p U",>uHrt?S*pTHtrjiDh:;6n2ieCOrrzRK;>F&kuP/U7ud0*.Fik&Qs^PYk(B=d#'TS8A=D7/_TvS+A:tFF U"1]6Xr(N;qzNvv^ATCx/#;-_U2CT-ZTsXp,SAh$/rBs2PR U"DZITzcTG0'sH)G6e=<&=TlXX<5FId?dR&>$<.]9:J)Yn?Y=TH,u&jUk\1XMpfu-GGv*Qg8N/^?+27PmT^b%(yfU U"'dpgo9bs7ZZn-K#du\$#O\YYU/Gs?Mw]67KV8hU16s?OH?ci5A+)m_Mt*bq>7?t U"m%4K8nh$,+TGrFU3fLjpG)FpsOgT*LH[JF,>I;$Va9Kg1%7.CXD1rYq>It4*boB U"c\UU+j+zXG0hTAKYVA)af[&-KF U"op?vYC#lhD_j6GSI'GVdCZ$,mQBl,7h'U>LnU(GJ7DeyYY;1Pr;X5cfbMn^>C\7 U"C9N*)J.[Kd$u9Hb]nChP]N*-'wYa198t,#qUze[1LQClbad?D\6vns2:-lRUR1f U"1m68Ms:OUbjSL2D7R_z*k\deM%m)gB4,iwTu%p()9%%%%-C%;q$jFHW=&?>&%%% U"L-%%%.%%(%%gt%gVSxRuwfd9Js=Ed5jHm:vg20Sl=cnf3d=[.%*UkR8ZRD=D]f1 U"FRmCUumvs_uUdLNXb4t[7%)D5V/0%KkMwE\&E3-E8ZTTw69/USu=55Gf-Qoe4CT U"PTbhviW)qu=*-Sk*k4'[tUJ**exXFFny+H,&Vtjvw=IfMhRrb+JWaCV#)<$i[M8 U"_Ye7TCj)pk[;)GR-M8^wwh0/?Mhw5K&KSW^MxT9#Bx3,kt%u%p()9 U"%%%%-#%\q$[FRI$*JI'%=%px%%%1%%(%%gt#gxf%%jSxuXwfN,,]LU9X+I4SPjS U"mup6909g7H/:\;%fKGn=>P()W3H>#uo^u&VhQjv8MusAj^TPvAGjq#7fIo$[./N U"DVg_sQlV->ihp,GTP;pX=WV[(_0H6sHK U"f6:mtU#+o7=05k<)sSrvO>]NH-m.g[GDG]^ar\YE'^Ag^^*#iZK^&g2FQ*OTRu# U"k&3<*\E)P;')bC[8r^&1W=S3UA/G_:ER.f+R1%+>1W^=3UA;/_:EARf+R%1+>1.W=3UiA/ U"_:(ERf+&R1+>m1Wwp*:O&(%+1=U5/9O&%(+1=UU/9O%&(+1d=U/9&O&(+#1=U/* U"9O&(%+1=U6q4R&%(+1=UU/9O%&(+1d=U/9&O&(+#1=U/*9O&(%+1=U5/9O&%(+1 U"=UU/9O%&(+1d=U/i-UjBu%p&'9%%9%%[%-%t_L_FR$MHXC%%%%%%(%%.%%%%%%% U"%%&%%E%%%%%%%(%%gt%gVSu%fqup%&'9%%9%%%I-%2TRVGcG)t1t77%%Wf%%%.% U"%%%%%%%%&%%E%%%'j%%%&%gtg%VSgf%xup&%'9%9%%%%-C%;q$jFHW=&?>&%%%L U"-%%%.%%%%%%%%%%%E#%%%6#8%%%%gtgV%Sxuw%up&'%9%9%%%%-%.\q$FmRI$J& U"I'%%-px%%%1%%%%%%%%%%%E%.%%v9.%%%g%tgxf&%jSx%uwup%*+%%%%%)%7)%X U"%%%%p<%%%%% END SUB CLOSE:IF S=119AND 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