'=========================================================================== ' Subject: SIDE SCROLLING DEMO Date: 08-03-97 (19:16) ' Author: The ABC Programmer Code: QB, QBasic, PDS ' Origin: voxel@freenet.edmonton.ab.ca Packet: GRAPHICS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"SLIDESHW.ZIP",4^6:Z&=4950:?STRING$(50,177); U"%up()%9%%%I-%C?d'H*=.I&$'7%%q*%%%.%%%%jl%fxxS#gfxTgy0>S7e1vC=Nx U"Z.7VZbg\D&[Shyjc;1&p_iN2CRLM2,uqLf*Tol&xMopJcIKd;j+gP;8JM*/B)^N U"ioeZn.NMfWv.uKZ=p>A<2g(U0T%e]h\v+QR_]rL,#C U"AobN]pZ1BKH8mG8rV#fWsHdnaJH=j.HQYp1h9'rN$&?l;B:WmJbpFC+jm_)Cn$ShvopW]OAKil1I*KC0 U"-(E].1H+,8Xd'muIea_3bHX,gC9IS'Tl9(N76AjR U"Tqf,QAO)it7teZ$2GTc6&4y16>O3?JVc7)8/w)=kOfV%Dw\cAFF#oe+#wTiOLJe U"8gU.t%I64,\a1\Io(LDpJdI>2du?JOc0>Bits>mq,b)rF#QuMl>#+XW;^l< U"UJD*OaERG37cgqeMz8N-^I5xMa:$5%fJA??JC\?F)U?gO1xz(ZsdEIB6VD4d/T[ U"K/J>ra\8BhE9/F8q^Ko]B\uu'C1QE5u(\;siif[EVOG6PXW5\niDNsSJC U"5ea)<:YN>Vc+oVA;/7t0P'*oIY[g8F^&]PwFkU4^=k[SA#]mMp8RuD=4#>K'H)z U"1h;bhoGYJFI3;<5jYE/LKSm>_Ls7)HuAH%/t^FUDLilu<0kkDZVEtqQ_hK-m13z U"=rDU%>C5m$7:bB%3,$cig5l9KOci9#44OP=i%+n5u^.Rdd7Bgk8%RPo8/7[R%3) U"yrNt$8OzqszOM5eQi\=p0y/^ju-HR%iYri62&%8[v00MHPa+*WY*neIR0V[?9g#k:Un_8va-GYx%0up(%)9%%#%- U"%ZAy(H'tk;Ug[*%%+%0%%1%%%%m(t&yt%zxjSCy'y\h%0>T7[5vSXexZY&MmW]a U"O+3V:u;O'=_4ukV4pWg]5h4d;A U"3Hpr=e:\2ALG&mV)rEvLj:GVD3(Ctww=Yi*rtblxxJfK8AWZKQb%K%p(8tjZ6qK U"\Ya+>.#eM6)7)?$:/?u?P,E^fE&S']W=0i)?GXr%25LlD-4e5 U"mX\1&ia2pN5=D]ojRdS(G%h$?mZU\Gvi5NtZf7?xBz[9KPVC9B;cgbHwRMQ%&7C.?i*7. U"nBLtS#Bek9wg,YSrf?6*5)aqkT]K<]w_KN,:']ml\,BuXp\um$*#tCKL6_#wB]( U",T+WoFve:Vm>R?\+>u1*/eFt..)Kc'5NTWZo;oBFAUM8bPH*du2DyZjT2X&yRm$ U"f(PhxObB,-<>n:]f<,+5b#X)#KssYC-O->(9'Dn4FdimS[73EOWitCP'PTaaJ0r U"NU3+31R8+'<3R.\J^B_ED&Ud8T:/0,08I2h?2E1mj$YsS]M7e6t/1\BLiM6^%D* U"fpK%-ID/)45BN$.7-&*)kK5Qeuq8G.lT?WW$$v87uIDdJ)LeynMZ1FHI&_&*;>m U"mcg\;J#but_MGi,Yp%7AUVS4r5;UH%-FOd%rxpsz?NdK=;J721Eyj:IVt$bm%D$HpXBki5F9E'L%KL[2\H%7rUKeh U"P:xR;)pV3nRBx--a5Ir7f9eGY^hJ?C+bQ24VuX0jAB:S^t15rJ0j-G'%yl+a,kA U"=NN5vR\+Qo:t4A_Jl'CsB=v:,_[uuMB6Y5GJ>k$n85GK5,=)=lQWaenRNHhUD5v U"6]Rqq/eJSU7l+>KhZt4WL7ALAIPtN8l.\[d1'6ZT78]N3T-v7.T4CsTXUV^,^#, U"#bcu-fY[32NUFe?C3jgDGsIu&aEOgcCMFJlKQ))'j#P_Z U"OADJx_uM)?#?s=C$)%1u7;5FNL=\bqkcK&v*C15-?z&unMp'*ToLId,WR-k5RkC U"/VwP7TzBIoQ+[?RbtJHs1wmDo4\hWeT;aZOu^B_)D5,*3%)t3Z6c7VtUt$Z_4ND22xA6U U"e(J##P^N#sq2wnH:Q#ZPqIy,TwrQ=^E\odx2 U",Nr[5CLd7E\\a)rp?/&a*YiT3Vv6#6Q#>*eirsXcXPj229t4%okpC%jLZSJo58D U"ijUjRpja]8?N[K U"15g4LLIchEgQ-B*kXO4pCgeb<%%s*$2Gr\uv\$kq5p*-C#S)=bzd U"7*^Z]^ytD)8Si/fh.b7m[9Oem54\t_Xk&[lG9%dh5GRBOtS&FGc>D=HW]G+I[,$ U"ymt[(QiKj^8ooWDV+ZZP&HXkn#YKD?LU:z2-\#_8j%tYXL]&.up(%)9%%#%-%T\ U"?'Hp/06VT[(%%5%-%%/#%%%%%lflw%uSgfOx&d:,>[k9bU8HjFDWj9U((QIVKvc U"%1W3?Q7v#Rs-Mf\T6dVoJ[eruTkNXB?5fQ_mb$STBuQH25Wlm:BMTH$6+tr6td4 U"^Er[_dC,K[D+Nci\:7b=/i7og0UtM-aKgnHn8PuhVArEKZJao4>uu58.(d)lYAh U"-8A34#d1lrG=Ar$ovZDOQXv1NrSL:i:*K4d4BlYQ/QUT\tM4Vei7\0a'StKc6;N_v0,a*dk/iH4D.ND/h U"BSpb9MHq2+oduEb\qB'(N0)Td&Zf7,[N[$63D6Jhc0:X_4xvbfE'Xm>xx6CWH\7N^'2'.rsI#A_(.qb?r.0*WA&4 U"0lEmTIJKb.:z)n]jY=c]2)s(u..lr6'&aSgl=&XBZm83tu8F&0F$lnuci;M68dV U"CHWO#=;X$kD3g'Ybed/JoED1:+Dc<_mM[0TGT<#wF$r*y4a3;w,_ U"<\K^2',%n,eF;R-eSZ;SikULPdLYRQSE8g4hE8H90fg>ei[7ct%/j_:_q._]=[^ U"]mq86e5/J5k]<1[&b\m+bMSudVlu.9t9Q17qy&BD&YTg$BVhhZ)cN3_7 U"df$2H]%VH#cUz9'N=X.Q2w3pA&/4Og%8df=0dL]kxNZe=Y0.Gqm05ZL;cop_ikm U"g0'T83AiiT[EvHj2[y<^19<-[%6r8v;=zNiHM;jFo#k&Gr[TJG7XoloD3.Ed,4M U"+\qwyLF;9\-Gx'gqVj,aC:qN7tQzLlk]jZV0P>$_M4 U"iFJ25cadS%hY0MXaN+*W:6nfI4jV[?g+#k8n5_8v-9GYx0%up()%9%%%I-%gyd( U"HaF1,HP'7%%P*%%%.%.%%%l%fxxS#gfxT^ysxZ.V0(J1h)/q?LRx?P U"aGU[6?N:7VQP>5ohuc;wNtlB*T]jMSrIm0$acH^$foX=taCMav8deVdZw>H6nKt U"$lYC/9CU*'G(rV8MHoTZLq>[jet,Q^Op?iu1gr/IYcJM9m+8H/rHQg+3e=LAh8d U"aIFBSA^Dm)#Cg>WqlGb2t8gkD&Ck-gIo='LEbNHYgW^[Y7JDvj?#J7Y[ZNNAgkL U"_1OU+RXM/=&#Y>eD#GFI+=W3w=J9e7,um,RL-6^G3*IC?]*;hx(]*GQJdGgiZ U":;ej=[Y?Me+^ta3;6^^Up7LuX'2jx23XL+MrvNj]ma*;S*]pGtBh#dTxvNJD6lK/ U"x$CJYTek&>dBw,%up&'%9%9%%%%-%)C?'H,*=I&&$'%%'q*%%%.%%%%%%%%%&%E U"%%%%%%%%%jl%fxxS%gfxu%p&'9%%9%%#%-%'&?'HN-j(bV[(%%;%-%%/%%%%%%% U"%%&%%E%%+%1'%%%jlf%lwuS%gfxu%p&'9%%9%%#%-%ZAy(H'tk;Ug[*%%+%0%%1 U"%%%%%%%%%&%%E%%%%6+%#%mt&%ytzx#jSy'%yup&%'9%9%%%%-1%T?'4Hp06&VT U"(%+%5-%%%/%%%%%%%%%&%E%%%%N#1%%%%lflw%uSgf%xup&%'9%9%%%%-1%gy(: U"HaF,)HP'%+%P*%%%.%%%%%%%%%&%E#%%%O#4%%%%lfxx%Sgfx%up*+%%%%%%*%* U"%%=&%%%M7%%%%% END SUB CLOSE:IF S=11AND 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