'=========================================================================== ' Subject: TRANSITION EFFECT GENERATOR Date: 10-21-97 (10:51) ' Author: Davey W. Taylor Code: QB, QBasic, PDS ' Origin: audio.squad@mailbox.swipnet.se Packet: GRAPHICS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"TRANSIT.ZIP",4^6:Z&=11019:?STRING$(50,177); U"%up()%9%%%#-%[r[ZHy=+0BF4%%%]j%%%-%%%%kw%trSgRrufj=r']mg:T.S43# U"NI$DOB9&O.78RII?;/P^2+gQP<)U2e9Wjb)S[DkBHkVE57I8MzV77Y>cyq&4SZr U"q=Uxt?v_pZ8ufjr?njrm^cx;T$4q+?W;T=YNr.LPMo5npT.75$6TTu=87q\scx= U"XrxPHXcjr#7BxPcNl;$^qKu3n.QZlZMupTTn:Z-\ZG-\Z-9\Zw4pk:fsm8B&N3, U"?n6i;NT=b)>].b](Rp]w-)cAUH;fctg*p:8g=ce'\NwdVRT7QJZsIs]nLI)hUy4F-u+Y U"W*(GbRFJ[HtJZ/7eYp>]dHUNu= U"HWTR#c^JeBTm\>UL9F]).hY;L\8]G'I'$E;csV_4BPiFe2aqtl._Y:HbK?1rk U"os&RS&MOQFnbR_w>GL;#$3xsJaS==g6R31ytaeN.D5K8WkfF,eAK:C&mIrZjZRX U"=%tm)N6cf_5)*u;pM8<02hX1B=Zg*?lq=APJ_S*F#PCRTca5(d=J0-r)G:b\maA U"Lp5GNGeE;jNq'11P1zH\_2[q[(NtXg*+KI.aNUrU8KQj+GQa+kFG1#=3'I3tr:v U"9V;4(&qX:3*N.:F-G<%u:U=;wmS<)lW&ng_ac=T-M8Hx:FawsBrd>hb__+NU/_< U"y;v^?oFMf.k4.)C1=,TRG0]?t[28C4;/:72d&c]fC*/L:R?'GHJ[\N.3xFOq_HR U"TQc8#(tLn360n0v&'x[D50*];2mJInJz6k8j='\#U%&l/m(lU4ur)Si[c:N6AT_ U"NI'pWW$c*VGU[L=DRp?u7*cN9ZZL&CA'J7zyS50wsm.:N0Sszdh?-S62X#?_E$P U"SsSk$n'g1<*DL=mN=RqleQF:66j\YSUqDjnQmD:Q9X2Z7uu.lTey U"3m320k3rC0?s?/-F^;#9eecxm; U"*;S[luRMSMtvn/%#Pv9'VL5n2;G=>P;+[70sxBUnl.7((x;jN&1#^#$V2KTDi=f U"nn;07]NP$=%)9w)SfL3/2lCZ%f$%6'j+n/v1V>;E#uuG_\T3QmNEsyVz+qkCwba U"C5Y6^#&RL81/1J>.C6ogIiTA/QOv;Q4Bft9T)q1j0m6FGP6,'9kb-EqlC$W;&6f&RX[+b]aRM:JBMK U"=KG.7;mE2O?dD2zcT74RiO8A60;YdyKKbD1KA\2=i$u<%fKC6R=)-Gr+s?FYl9& U"hWk][XL)1A+#of\'q(>%/2gvh,O,;%U\qPnN'*/4PO*so+ZEEM U"zA6rArm*.>e'*yWv83+D=CSDs[Hf^g<59,9QgYwobb1m29;z^XoE,yACz$3c[-[ U"iN#pJ1$DkzcCr3o[:wT9?ThO2mq:r\S--*nJl*]xh#KC8&s\n#XoosSjA7j3swS%=<;dt\FcgrV3U3Inz)ob[/>$-fs-eA>M))0Ev]]_X1dHU..ND4I U"?5*WCV[9t:8fRsn_5V7fBAMO9,P[xCjs4\QcCl%2hA:#y-A=IWIxH+K'mDZD]5X U"PNgn<00'2];0:G[an6kWR_4/s$8_2_t5Cd;E3)O'9QbRw<3^YuTNigBL>;uxGd>16 U"qmB7W;IqF.2=(3jUI'?u^nJzB+*l;fJ;f%GSP$axL,Niq.ZHI4bwCAZD6DCusL) U"1i55gf^KAX.dmsidOVm1loWA3,Y9;q/ZqD,rALZ;;)iA9?7/EtJ>AjkY3::1LIF U"8>6Im1.m))mD1blj=uAM/2vQAFT/?^zM,:a5taIecV6lp50-UIc?c8LzFb5grhj U"&gEj^:-Q/+zZrf_\1N+9,:J U"KMnyz2QQka)z8.d\iHY/b<\E.$Ah'xpmRT3,NoCQOzC>e6C:)/ZrBB+##[k U"jHi2d3?kg?c,[[ZD;36O3c4..t14#X9-2akd/vFD3MFf?.?&N&y32O7BnWw5jD< U"E+LjOgF(3,k/?Z&d2^[ U"=KTL*5?0^9C^QoRp'-a-D_*JoBkTJAJjjGtV7i>t$s/Qrp;G*)k6l?5eZe9\[/K U"DtS3n50lFpM/^kQ.z69o^^i1>U_EETobNE8ja^9,)-Iw[K5<+=qMEqu>K\O$acbNTLXtgZZQQ5<,=C.e74;9_Pfa-\V66e U"N]nHeuu=[qvcah3$cmo2_TCWv%b0?^&bIeja4&$vL,&QAeRTUqxmXk,2:h:;1pw U"$atuH(Gcd$L=_fTRkK6d:.uG7sY25dIQ[T>VF2D9Mgo#oJ3QpF*6E(zM%mya#F* U"]I0(NkbLpZmSe2RALTTiagU6tx-C5oGJ&-y%8GN;e* U"2agl17wrsC#)Zddy0_?9HxLwQ/SO#4Hb%0j'i2L=AL\0O6h%#bx81J3X*$jeGj) U"G$NLGSV-z3TLaKhv<'c2L,gcmvZM5W)Q=SUo%3('q)oMTbHNNtr[9m/efAvX=f< U"4Rh0vpm3OMJZ%%6oNDM-WGf;d2[vL U"1uxmB(Vxd;V+:SwW8'?>cMXe.znSkp-30=dUveUNBU>.W[ U"?vBJ9o&l&B]JteG?Y_3XcT,wkK+H#_3d4w#(o:'5+:?'W,?kk](iGp:Sedp7+0U U"#*K0B*ScQ]oNQi U"RiW$'&N*n0ns*4WK'6ER2[5xNwO*H:]:vrlORA+3%cln(14-P#c;$rr.k%IX^#? U",Xs#pE#qLQshwSFOD]1MtA].RCc(Sj5Hmo+B;ZMo:/t77OY\g9#On2vFg_[*U); U"Qv<^Ej[9LQI$yQv-(tDc6tz#QlckBEnNLTallgaMnW,XL76$3.,I>mJ2JKDEolt U"lm\fDbKxsMtDP.gSF$lsWMUDGYqNxHCA.MfXdt_pu5BZ*Mu8=K\xrHoHNNJ]7Q\]CGSVz(Ao,.;0O6XHD U"Xn$.Iu8-eXVR2b?ZpO^<]2/CPuLx3Zq-uvDi\A)JKT5F:;;D5)ehD=)h&MnuqAS U"dpuh]K?5&H-fH1+&JdbZm7txwmX8Ba5]i6NTwrRZoTk:N.LboOCXQA7JncjjZbq U"bMk#$w&TX-lH8cljn:5r?:5?Y:5?:fu4\0-0x%u%p()9%%%%-.%_rZ4HqR&(&:. U"%%%]j%%%+%%%%ytS[grufnjp'e.Y5UtiKHCpbX4>++)Q&8LK&1W,SQ+hFI?1'1' U"*/.);PJUUg;^alQ'yxdT$^L]$GIMMeAtbV]bs+i^yARZp<0.bLl7Tstln>GKvZ. U"lXF&lhAM$oulPbs0eJ,DgdMkxV,MxKl77k(s4lnvGKvU.adGdvgc.NErPnlnjLpV6J/6PJ/6Ji/6bO=Qfwd;;\/hs47r.?px'Z]Q3bn?_PgdPCx&)Z U"3/P4G%$>pAr*jo>#D,QVU9?\<0T&4><#LP'8J7qK\%d U"ayKg0Y=ul:943sU1]\%V2-^u+kT](g+:1QjV6\YOG[3H)d&,3V_r?E[(Ki/eeb3 U"taic;\PYQmG7hL;=YiCFm5mVa?O=yQq8ed&]8ToEayrT//WrsCsg9K5kP?T0)6f U">citCcZ64CAUMw82H,sRGS0e.ch;*;+P_19vx)^Z-G5%STq]+3Yk.um081%*/0e U"]&p$^p'aDvAMRcpw2<0)=[A%?SFG[]5I^n#sa,a>N#[SR^a-5CB_kpdCi?pWI%a U"Ap6N:u8Y/AWjXCVPp9t*sE6daA(;fi5+\QZCSojW\&InuNDbn[wfS:IcpgsL.DU U"b[E1vLb;d+RL4Zoj(DB(F8-vs>k5[5F2Y;bCAU.I'J<)R=?eYQWv0/Sr=90i/Mt*gjO=,MqEH%Srd*wk08:V&xsC,Qd;E21AUMP%5Wc^* U"PSf<.$5rg,#W+8Ve^+YH4aK<;/^j<\f)U?*?bi<61Mu+%8]Y)\Q2bruEE&7Fr.N U"As>BYpf#?b6MRPhW_LeWgd_n?%'%%;eM_Gh^1/O;eibg=(:$]2RwC%5xE;3X_Kg U"Gf?Qyjr3hcI%R7j9x=W%V&*VmgEP/.WbF>N+zI;Ndh.6L175<4&;-\?t)?k_/?% U"=#jr\&H=fA?YNJ\rqA,S/V+>[nABX]F+%[n>7\O#.FWTI&7gv42(BA.ivsG=Hi8 U"FLuXMq,1Z)?sD<4(^fc<+X36J=gJ[q+((lh_hbS;UB^'nX_]ZAb-[l7.RWm.;N7 U"67S)E5a>FaK&_q79Mv?YeZB+*bUz=<0=c=LC-N? U".aJ66RKX_>(hDh?RRT,3\ZZ(*qcra8EB=.+RhUN.,../.8kq^3[8RK+L?TJbjOj U"0+*/8FY.,?.w$?j:bu<]p)e,?.;u<0KSgvYBD15XXV2;G_.Tp8GlHa$E#PV;Qh;]qek-vPXehc$B/3GRvHg:Vj%pwXBAI3t:2;5a64sRu6aYf9\56fS U">dmCX=bE6K1,7cH:G]/9vuDc2#*Yay=0i%]4T%9nU_;fX4#aq\8Uk$04n'xTNcQ U"=MFmQ4)2-eIgX>x&iSCZjIromSHF1MjdU2Y1r^UD'1;F?d56K1rrsmo?$XC]gSn U"oih5G.;E<70/uo:BgKEjS(h)DguvZ2fF.6wQ> U">C5#g%S&8WRagIEpp]+7Xwi4]jajKU1aAD,oNjV3Sv0DrkKfXJ*W/3VTH=FOgG; U"Ij5osKJ_9(4:QCoG)GJ7fE+tr),rANP\]+E5T&y]r#%;b)H>7JXoSDHqG&P$P%6,k%)KO U"G5XbEJWrpJ*HK8,d9[e[2d?^(3*yAZMuJ>IrU'g*N6*qO?82Q6=wiW#BQbB[#&2 U"Rq=VQ/P\+r\h6QjOcI+,NNNhTPaP*fRjoR;kZce/Q/mjMuOAMRW$fWv30&-THT- U"&J/L&yXf[I6wVZ)mTx+rCVb\[=9m/?V?+k&k%/%KRu,WSXY132n;\)2*q^EP.z# U"A%%E4KXu<+i;?;_e2*]MqeV=Ko'R/5sef&-;X*/;DQgR'd/Yy[)C\QPFc#kHX\O U"pw'g3c/hZG/Fov&/4i(ikia=:QOAW$la7a]-F6P82=l1]tOamtrQ%.rD7aB&zCC U"ylKy^azZLibT4*g5;6f9'q?r1Z'w<.f**FOd8+fI-o,cC#*DuuY% U"M%;#O3[3_e.Pph0EXuQ,O4]9u1\pFA%1)#>s9X/,]0$.E$$A'&0g=Rpj31zU]t)?kcn[IMm+#9J&0W]53]6VS36cio%2HtN U"n'hjjnb;/MaLQ/\on9VODLZH;tFWl)SBF5&+e$2U_rz%9MeSSb&w_vYPl%#2o?H U"O\VHrWnAY7z;6*:5zCpV\DkNQ/IAK:*uQ[Nf,ktSAhmN> U"U76F;J%prL+%BZ1wl2L[.HgC8unkoH/U]fnU),LAvg$$V3h;0rNCfb.&6m8E-kl U"W96cDTQA>p<$2u0S6s>(/n8djj^N?,iiwUvgh(qM\wTESsmkV$oqDCqVQc:]CJ.7J4K,ZfMECUOs4ABE_2R?I)X_YwM2/N:_N/DoaPot U"_VhN]^N7,Ax*?iPgsEvnuLcW5&(HXe3+lH U"fD:Q26D)=C-ssZLdn#'j.ac$&cX:SL='o9FCr/W7O#%_0k7)4giuf%+n?t%w[(A U"0GXS<(V[IODWcj((EQ]'RcCl$_O#5k41?Y+%5a)66%[H/R8[g&ZY$>i+;>()c*cSZuOfp#sDB7c U"nS31s(qem$xOtG,/il(a+6cw>7WmCLaS8I)?<;)TghG_*^[lw-2R/G/cCQV2xqt U"fhB[189MtdjjwuzirQ.#a%Qu3HjD2Y;O9f\9W(_;[hg_,+0pgC9.AAJv1/BdWto+d$E9x$&3c\^n/L-aWZp8ch^.lwIj]-ZbHfbwCf*65Mv U"G,q?$;&vaVVA2YB#KbTyWjT/o9Qn\>/3][HimFgj7+1$gSb>*W81QkJAhQ/a/S0 U"'qDHYi0[70-=(CGx;,LFMs4jcn$>tIhd/XCUf'(=p0w&x U"3[)p*U7mRJ^n7m;3a+*o12q/-h]&&>:7*,4$Eg#6VVpX,zXlb3gI-4)qGA+KP]J^M[BH=A#zV7p3/X3 U"2U%v\2??sM0uh:'r5G&4+ch7F6IBc$-:Ml$3*\K*tePI\EjSC=/)EG/%LPvR% U"ENB0z58J+Ok'Q**m\my1DN=xxm[w^iF\pm-rHD(JwP<'xFg8Z87(\0[lmt1J.eC U"'6:1dGpLU6i_SCYRDv8SGv/G6oNo\]x?TAv#kv8[Ej9[J/17:A#g8WSa9bY/B998bR;MDlod/uoR9 U"(e,.+RXw2R>A^-:f*(j%H*zi)0Ao_'R<<]AfD?C4iIpV-:xF6aR-zXk7S^v#(Hj U"J6cZsAO3b/Po;;ctm$U3GfhCAWiclv7jfXnSb*Vx%6MvcRJ/AshVO_&GaO&X9Ct U"h\AM*m(&s2)''HE=d'GjG1TXjTA<8II\ U"T+g>2.Uc/p6W4H%Lvbk*\lXEm^(?3R0Y[Ev:xeQ*QGY,Rq[/')Qsd:+27_O(5Fs U"*HaEuVVB=^cK%HZv]mFAF]j>jvtdr1$^bw9?LnDWM*3fVi=bv_EFiB^,]&2K_xw U"$Cfr\/\lwW*UspW^6$+I%(0KcgVepU&9OCW(iD_(hvSAKRYspciNsuM.Qwn=:x&0IP-2>3Y5UVHDWwJW]'p?F U"4-_971]$RNBDEC\T_Npt')7XTU2A%*+_bN88^np7q=F$RI/;L#)z2zN#Pt]nRpC U"Z_:IG?idmIC2hn:E%T<%7/1PbcWfs_oe4=nU$oPftJe7_8-K'_\'F']N13^v=$o U"zV%Rr1s^[.PK%<]/fEHC6hziXE1.DpJ7%U0)uE(y,b:JWEibyuFycGqW3OJc(j7k.UgYO0T6LI(0&7Ht:0WrU9kN5D_=I4V9/Fff, U"9pBOOE?7URHH(SrCHjEVKkET#S\I0Xzab(F8RMJY*_SM6A1ONb67aN4:),'3d9$ U"[\1g:e7Jv0M8c$V$4h*P\3+KTFAxg2UYyGU*_i$zlN,j#Q*Et*XE;Ol(rGLsFRb U"u/_nJ*r7+*Ty$7(CfO,W62i?WRam2q\UyKF+sCJRWp^S0K^RK=G\3L6]Z5)-jtW U"YxK^H%cVy8N$v&fY:mfkH7v1LrtVad6\mxCK3JKsWXerNIzN64;NRN4V9vHM/_V U"dJjj*^Uu,<.153b7OT(+,/C;SQdk;V*6dT5d;/cY=GFr*[XZ+B9b.$ve(/SQBM, U"QasE.$yl%bMx)OVI/c*EfWTY*,Qlg)=)7F-#/TS^:rW4np_PYQugId[YM83L7*1 U"9N:8%;-ES]PO*7MH=4B6#'HjW&K-aqMW:F>orR&\D=EpHSBUW U"A92GKchnp;#2:l:02kZF:ja07d:O7Dni1'WqR&Uc(mp+ILt-=_Ot,qGGsOyyT(a U"jBPml''JcDATQ]'vbApqgC>Mdvn(N$[3p^h_ISUMc(4(GsR'dJ:7tWa$X/ljF:zFZI84P(lU%>Q6]1_CJK9[;R$'\kq U"r;ATL8;Di:^xQjmr[\qkM6ZHCP#CK.Q.WuIf_s#p3g,ts*Ym^33t7iFq\kuY:J# U"c,O$v^OrWn*7kGZ>sBh2,)2GBecwj,4w>\nT+8SusUJp7=cBRwGC^6fR,AZx=U, U"EZe8[OfY<92_O#)6*S/P+>GN0gT;4S_:uIwKdu0BYfcW_b.HJNc5j&7Ds357TB6$U[&B]+(cR[LfA- U"AvFChT%Ds_-8HHbkkdAO7BUgPh$b9CwnILZlT&dj3mgr$d<+qg*A2]nkJr-w/u/ U"se%Nd^kqEbTV4aUJ8NZRYt7R+$B.xKM9D7yIwN$\\YoJDB.*bMTG%i6+T7/\SZ9S9l#*NQa9QtqAN)htW U"9$Ni-B=zsPhhZcT[vhB5e0j95,EH5b1rS.a5A8HIKf;s\nXcrq\56qDZ$SRIjIsP U"9rbvMOtH_93#Dhj0KaIsgxhiidNGTF91ys/1KQ>*E)%LAaf3m[U^sQ[%H&Gq7j8 U"5q<_=?I)a85r)cjY/#;0F0%^8._.*de5KAH?6OascaVge,'EUZi#oG8*07[bOBA U"CA+rBTPmTaAk5cIBNbbIK]1Q5NtX5L6M.T/h]8yXPgV_YPL8ye%EPGR-qD4kL_/ U"P:TF6w)f(bENL9t)^>DB?mQ]896i_J--_UOQUrHtvQ]gx9&t$=z%Ph,XMQizF7WNucR5p]xs*0dfDvF]$>wpwvXR0Ti:]YpQ/dE&0H*.-q3fPsX,tl-aa6?p<+U/^2^qZ U"FHu-5/0]S3_,v)FEv_pJ)'WnkG'&?+KT3+hD%Vsth=f\)J51l2$fM] U"(5%)MOmd%9UXaV?%bn2]XeSKG1R_6B3MDQBl=v0gBq2'k3/o6t+pb.&9$O[A\tO U"KR[_s0I2inO,4N#Di<;Q)9;l[$_pM5>\7.d'H^9AVt\/.^I9A+cB+.C7+cOBU1N U"B1m-d'PCVjb<.g+_xnZZ?%JE\Vqy5L7.(TCZ;&^iR(U&Fie]GhoW]#nElZ+0#wN U";xMqfIL&js5R,pau<1*rgsZ3<%wl'b];AyhF,\BN06ke'\g2d_M.Nbf_MO.bd_n U"-.b^N]uZbd7X>G$O:1T[xc6=cELPu)idhRi;BYj72KHsBd^+IN^HHhWNr(DKQp3 U"gAyN81Nd[yxl2<#qfQV,qlj_qP58;*?3Q&F%)4-MVnDgdmiS#oe\dYTjZfhPin=#Z>YKL_Wm?kdk5tIC(Fqfq$YI#1kylXh8_%6czd<,lw:EUB)sB U"mt&]G0=]g^+2=#D0kec0Fb$=;3:;I&]sJI/1S?Qi8Qhc./kf_2D8r0,.rGkGuDI U"e5Qg8l6c?\hSC(#1MDN=Qao2Um?ojIT8Ij^6Z63kgV)x7B[FP9b&.up&%'9%9%% U"%%-.%[rZ7Hy=0'BF4%%%]j%%%-%%%%%%%%%%%E%%%%%%%%%k%wtrS%gruu%p&'9 U"%%9%%%%-%_\rZHqAR&&:%.%%]%j%%+%%%%%%%%%%%%E%%%%l4%%%ytS%gruu%p& U"'9%%9%%[%-%M&9nH,OM*Av%0%%=%E%%0%%%%%%%%%&%%E%%+%O=%%%ywf%sxny% U"Sgfx%up&'%9%9%%%%-%*Q9nH]?*+0%o*%%&i6%%%0%%%%%%%%%&%E%.%%uI%%%x U"m(t&yw%xSgf%xup*%+%%%%%)%)+%U%%%%>O%%%%% END SUB V2 CLOSE:IF S=78AND 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