'=========================================================================== ' Subject: MATRIX LIKE SCREEN SAVER Date: 12-25-99 (20:50) ' Author: Jernej Simoncic Code: QB ' Origin: jernej.simoncic@guest.arnes.si Packet: DIRECTQB.ABC '=========================================================================== ' Matrix like screen saver, requires DirectQB 1.61 DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"MATRIX.ZIP",4^6:Z&=6710:?STRING$(50,177); U"%up()%9%'%R-%YtShLWj=dAJ9.%%VT%%%/%I%%<0MCA8GLS10BNf)L;OA#DN6,0 U"JDK]nq30LKrw/,N%I*CeeW8eqRS[qCd%(x]Dc\mcONV]e0Ji](F0-mVwIo\i*u% U"v&f%)xx6H&U6,na91nZ$Q<6Wr5h^xD_oIl.84ZM..Rq#rj]h&H'Wizhz.:x\F_n8>t U"0b7ivYa;8tCjWo6k$b+W6et9Ium<8c6hiA^wq+:;L*$V1>IjqCYGK$\$0-^G;fw U"%d\6eQH-48nXmM/.-7e(Qa=Hl/qX]\2*j_Y(7bNf#+\KTR4qukp9_3F3#[=')0IPCHp#Gs::ZX+8gNcI_eN.n7 U"PeHmyu-_p]t5pp(l-Rr;zanigZa_12K(u5;mmyo*wmo%-oq U"SSeXOYXx&6tR?Xg1->':Gg9j?C4X>^^[lE/mV6kcJd6WgL4CNwBOeR)_3%VCW=I U"i%=/Y(nT02Z6Y4W=9;sA$mbIMY)m=Z\Eb7DvYyMp?6S;qGNAfhj7AC]d^>(cqNK U"Zp-l*OF:i*3nE89jD'%&7:-qyrEV:S&xv#QfG_H0>9PGl^MpeAKS4eC3>Eef0o1 U"/m0+OBJ\vXsSGAxuQ<-dw8t?ak9.Na&+B75>9illAmugZ#.VpE8dVBe621?<1xd U"AT4N7A^KlE-pI^NM,'$0+5,YPPvIt1c>Bi]a9GVu23SCUunp=^ U"kJY,^(IvyO+g;N)V%DrjM?7Dt7xD[=MhDfb%vN/u$Z*oM\Q*2lK?uQVYf(3tI7; U"$5pTNV9VB4J_]GvB<=z#3x5VdYzaLh:VuC^AI+k^:^c3bjhV6DE[n*OS9b_Kb$M U"G<'UGx>'q$]f/;$]NmndSQIf;U[t?Ogslg4wcGHR=oC,lgPtNC*W$q=eON#ktqs U",PC%7J9lT:Qi9Vk[ZU5pOhqxQ_]bM><:A(T2TKt1=Qr\y>(>L<98'+qP$m]hP&b U"/Z4$MB/mF%7?v;'yarZ1/,.$r>&QEd19jT/aHxb%32b2H[1/-d)pduf$:djTVh?5H-Pwq#7j:MB&t[>;-+pEQ;QOwImKq*\(;aL5IL5vOK7xfUZ?dJOCD\Dz2mQ4$EbYEH(m&tMXaF02<2r96^0 U"5Gb60%7.+8=AdP=\l%d0.RrF*[(7j5&xmBMq&hEr:vhR_p'4;BqWDG6&J6:7Ztp U"RV^Bk='I,Z#;I)%=I^7C;bZVluj-<9RxrAhd*P.%-Eb-MsDE=d1pWhKN%TNUHju U"c%i$3LUN4'DeC6Cw_:XFO,ZZ%X0Y7\ U"_cx-B<(d6uqMCCGOUE$zx%-Y($iiqIp9x+\O$46AgUl9i=S3Nl%cNO& U"Et/$.XbT+XOJR5)*0)\rvs#Y]doQ$SAU=(:ecmL)KGR.1GIx#8dKCwjmjA\l^8_ U"z*pC3j5jhhFf?C<9%r#xJ#*]KnmkQCxgo8]n1K]54g1+;$On/*=G/Pq^5%9tIu^ U"._[a>cGkA=>$M_^KYJ+D0$=M2iLgD_\AP0Gb^QhDrxP$emWpCD-$e'dS:j2Hg9n U"QvDTaZ&F$Xk#tnh1ePyVX#1];;G6FLnbgWl2DB*gPZD47YY)dyX,FEcSI:7q/_4 U"JDW4&v5JlhA;:E6+fyx,zV,Z#E?aOhw0C*D1#6A4dI_Gq0.\Y5P\Ykt.9Iq=2lQ U"ALC-RX]=zGEmZFjUKi*e)jXAsxN,*/7oEkj%hJ9zgJ-F+'oQ>L]Xd?&dmNW U"iDUc\e.K+IP89803ukS#-1gAGq8S-AL1DhRtWk2iZ6fX&P$Oi04\ju9e7RFGcpP U"XC_Q_fRpy.M$t]u$,2H28JwtwV8T6\i*uh'f]pZ/e2;_33FQ*Z<6H#y+zDbNe'$ U"*.\yPKe3%pWVctpBa9A(Z+_Fj):hP'5500*GZM7p50TUpapOoFaQs(mTco)M)+B*J-'bSz1q]zfF(]Gcq1&l)6tNyRlftRBMdC2I^lvk]+YS3Aq(Q&>g/i4X&4UA>S_Z;H50# U",>.\2<$MK\*#L1L4DtD.Jt_6;&k+C_?#OSU*DZD_=?;IAXy?cifqdXo,-:jkLGF U"]''oObkHj;KywMbtItnA%ka%8>Jb-9s)Rr*mKc1XM/Z7.pgvlaJ>*rQ=BCZ^k.3 U"jh;r6(bPcK;Kj26cn&Jg+GK7Jnr8cHXI[n[7K$Yl?8w*'xsc0C$JER;zq+_nO'w U"uPntrSS*\RqrKW&tcq]g-lBJdyyNO4fScYwX U"8mcP<7t\w4A*?pZ1x_A[k;&iWFr&0psmeyx$.biouZ5^-<44Ru$AZTa::9kG'3s U"iY>#54Hbr5I8?2DIn4#Oib*$/?).3Z.sa6ZPYZF>t-pgaW*Tc?5G'A3D)):knT) U">6$EC[&l#0jfa[9LEXNj=erslvMGDyjTahP7LFJp.2>G0bb)U*Y\Hm4laB2+71x U"ar='[$e4nOTg(Z0n?pNO0zDWm#6DVCV.m-Pdh[dtn;1zY_.Xc]DEf\AyuT)<44ixE2&ClJJu]X-lBUf?0YAannDiK7 U"]\^d>:#lLVD U"#AVP-m+lm[=#R]I]ulLpYvrY0hZi=*W4e50UZ7AF_?]lgPrwKbESJXl[W:8qhC& U"I3\ApDy2P?a?nnUjB*5HYD+$QPa/-elX'#h7,VwIt\#Sj]l%r>E1LQu-s_)b_cs U"x*7^FiSZY&Z,K;$QF^:>BhT^_.PNO(/rJGdYFa1htZ=B#tG9W.5d9dxT+'GhV$) U"$sTn2l.\VW_HrKOj[.^fR#amlu]ZHk U"6R%ezs4L-Z]FLuk*Q6gS#8.c$L9?1xUi:B4Jn(l9]5WV=sQXtOq1r$-_hNq*1Y' U"6]vodI3eLrc+_0YFp U"$h5HOUM:mE?=;=2LV^rbk2rsUY0XgPcFUN?6RUci-kH?47=n7kFFCd.$_[n)MD] U"vH;_AT6;]QGGg&tBB3Ld'/CUR%BHAp4WT5NHe/6%\;C>Tj1ci)Jul9&_hre]d5.s&:aTb U"TU[(r;]#QZd'/Kb[9D7eW.wmi,R576#/o')>c)Vx&V)h[+BQgBHfAN[Ip-x>NtQ U"_)WiE=,:YWLaKoXnyf2d7T7by#V2;rD>]pj?kc#6r&Mb1_15+hFUZG?gkT=#*[Q U"j)nQX\#;hF]#D;Q9h.0TjE?Uy/Ss+wp[kN9v)j.uf U"/5U&JR;3l:ZO$%JR4e2bJkM_Ict9PX%Z0xsIFWR+^_MABf$/\$QH$K$>O5LT08- U"bV6aliaUSTr5Q\H?iWi=(E0bl1;GUt-B8V5X3K^tD)hYEv$A6>+T$2=/ZVg'GOT U"=\U9;i8(>0oVe4(KM:/;\2nY),gR5Jup&>l+Q'ttkDs3k=D_c#Hi?,hT;u7_R8::-/j:UV5T$SUH', U"V%kqH6I90mTY[8\z6\&#^TZ#/-/BK?'GROkyNiDN/+8kU>FBzo\EXUUJ&KvQ^S1 U"[PI+&?)q_]l#16NKf[91L.6]dmHG.]n>z'H6j4BW_Y'&pXtB=M:aT9PT%Sly[?Y U"urm9As'l'Qs9Rt'fD7DdjU5]'o?\V:zhXVy]1f(qGDz1Oq]jl9MN#dnC+p2F)<72Jgy\A1SjXFRU.hT'b5#v=J,q/f4s[BzIl$ U"m9FTxO*1F#wEQ8iFMM+x[6KpCRm;nEj_qM(s$mlfubmocDJL)JbJ5m:^buCQL[l U"BHDX1:3>>fBo:hUlTKmXlg07W5j\&uSQ^tqp2S(+kSvLUM.FEjXEr#pR0U=aCpW U"pu\bJ#pU%'IZog9\VCf]$/rk\F_*+vWR,>HEkB&qi,+Xn>>al_5f$wWLs;,Ytaz U"0ROY?>,Ag\Lhp5Ae:[cVS:=*BM>#P]1bKq:Hxf%vzqH;q9;[,9irL]6'Ahl>48K U";lDf:t(iF[a_TRRu_K5^iBZ?-1cz U"HA9xAz+fTnHM%4fVRtIuxj+^guD'qOqD88rQ?[mi,qMwZ\Q:c-#O?X6_NBrsuXm U"IY(py.:PC*qX:<8D>d1F=dL_k.iMD8t(z]pRc(2/M16E'D^FPGIS(,Oh][RlUX+ U"&*N/dZ4M*9BHft>c^ze+\$7fCO6cOY_-6%6?67+JO4BH:IyQ:# U"(2Z5&t,kuM*:Dm5/ZQz^Uon9g;F$u8(3L2jUGoIhh1OJT?n(=zO2Om'Pa.=B79V U"fEX^/8i1[S5Tm=Lw+^I^mugksD=-h8ZO(7UKwp>-:h?Yz-PI>Bh U"E=',mW[%0sWeFP]/CS#cP=h)LCQ;1#cf$$t&^X7ce?D0uf5>eohZx;q+R1Rr=l. U"RAW0Nr)v8r>P&'x(h'_Z/G]6KzU?#VrFUZoEFR/6\;8Igt,ewgpib:16g^fWtUU U"m$1RA,&BX-hhVh2WZp?,AYMs4R.6P0:tUn,rQ3t,4Lm-pxlB=T-M6j?4[Kcsq$< U"u\0\wfq$*H?pZqZNQe'2lTGe/Nf;<*\isf#p:h3Ru_ieq\zcoZ[6P2d=ki_K_mm U"uH=v^3=YB)+8'.1U^_0',CZ-NWKUm U"R#BKSe23Zo1q3(tE::&](%IDErQc-PTd0hY:&t6m=1zA6ya)X;DsMh6R9.BAztH U"dnTup_FtrtjJ$rXLtvi#.Krt-r[PpM%dkvZPPb+8mRduOTH/:\F7K48*E U"LwKCWdUd-1kGo$dgf?f:]]ZB+=*0kveJWTpRU$ft)s/VWuF&Qe+o=,&w:-s&^61 U"N:d'g*(e*Dk4&n#1yv(^vrH$AtW3a^QhSus9-'QmsO&.qaO(=J>%b=%wh3zYr3q U"Y:;o24_uoLIf3_R;92p$/Fu2g9N9I$7XD29AUl8_RNQVuyj*BX'q9^5jTa%v'R9 U"m?N_T_^tPMi9YOgr#GQu<>YaqwJNP*1zzkzC1v9W\Wh/2q0qL(xxyECsu6U]V%U U"2?C1tS]g]IHFd<5U'm0H2':qZ'e0q8il(hEq55>smH89V1EKk(u0363b?Ml$2+e U"?arSVZvN;]'uPLO2usy$hM.D^2x0J+mCaO.'OL)IfS[\U;a U"[n,B;O[O4pkk4j3r6nAD(HtJeo\oAY)IoL/uZ'ZfiB6Z$$$PE$7w$?qO8y9*stW U"Qo#?];KCm\0pt6[u U"PDk'>,W?_qS;dLh#MsYf2my07)spwZg/qGiPsG6&/B)rMXHVy8yV(v)Z^v,dQa+ U"5P=K'6F$H)mg?>mK011M&,KqOcG.v;n9r4l#GI^(y3jtMvrXYlA'62=]GC$i\u# U"06TBjb&S>%7f*BCL]pCAMNwbd'^#?3nx&0&HDS-k<5](P-3q6DQ\jpI U"Q?4mxUh]pu$67\ibU^hOJbqI)%LbatJ\nnRYg=lT,Vg;4s'FFI*vR\6Z\[vFl[s U"P]nZ($-'_^Fc6\6/HHg1tIYX$FGlPs#GCqS:&*Gs-/Isd& U"8-tlfi&VB-0WpC/kQ^jZphRciqNtV_=lYgV^0jWnjiD=J$QOiPm_1mV8D(MVr]5 U"UAKqLs:xVtMDE-g]c7>LfYXEQ]?c9sMkgf8ljITav8BhOI365=tOjM-oLlRvB7kvx/Ps(%9%%'%-%3YthL$WjdA'J9%%&VT U"%%%/%%%%%%%%%%%E%%%%%%I%%<0MCA8GLS10B%up&'%>%9%%'%-%:4MLKX5--E& U"^)%%%&.%%%/%%%%%%%%%%%E%7%%r9%%%rf#ywn'%Sksy%up*+%%%%%%'%'%&?%% U"%')>%%%%% END SUB CLOSE:IF S=130AND 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