'=========================================================================== ' Subject: SIDE-SCROLLING CITY Date: 05-16-97 (07:42) ' Author: Dave Shea Code: QB, QBasic, PDS ' Origin: FidoNet QUIK_BAS Echo Packet: GRAPHICS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"CITY.ZIP",4^6:Z&=2982:?STRING$(50,177); U"%up()%9%%%d-%F-o(G*V=pC/+[%%,s%%%-%%%%hnCy(S%Rlffk;.a\KO5?dygA/ U"z?^$Uf/$lg0Eo_Z#AO6ke6oVK(3PTHdyr&YqX%EIp-V3JuL'4Z7--a_l\UCV%M+ U"[x[r*l.(f#5)f*VCPO7HEh8)+Si(d]i(diT4X8:Mo9rfjCq=u]'0yJN=6LM1Ze: U">l0&B&F\kgMMT\3bb*fk&Y#Piz5/_)smzq]H8;V8q52P9OP=[BlDCv1MKDQ-nRy U"p:,40iz>[24'jb%Dwu8-zY,GMY,MKY,MTfqfjG#dE-QD?M34_ln\I2Y7*u^(PDq U"kPXZl[8\P9.Tz2Uf.gSQS+*&L^Zu8u2S6pUMXu<*XkD7Q0;Yf,qV(I6.YdTfJRw U"gUG*G^B-Q]HzBZEPgc3j)Eu*H4[aJ?gp$+K7,'uI+'5]B*SVUz:ugC8M?R.zI\[ U"2q<*DPj981_%6K2_Mc1Au671QEstfkKGvM8?v,I*8P+&3#h1KO9J]j?+5b$>j=U U"\g[W<=:?gSK1ji[z/F2wIUDT.0jUJuk[cm16ci;SrAstny,#,Id':.]S,IBxza1 U"Q+4'+Q_J+zN.*+xW02]WZ\D>/JBE6/_HG,%vzs'S_s[I76b]?sLr.E03f1XY;$Y U"GDL'%mxUFuICk?8>B=n)u8G=GGO=qmQD+Srgoai3;'M3EPCM9^bScT-_N9$)WD< U"E:lx<'.itOj-TTzVKP,1'?(fN66dWpu6g53fbWn]MBqn+C)7raRqY(n1SN6v\b< U"u[2F$'3p05MUe+k%_q\7sX U"0tNMCVe#)B[J;Edfa(bn,lhEpJlBpB]lD4_+kdAOIrj,J(_qH:-mpt(Nd0t:NfI U"bw.Ec(_nksWUkb?RK6usOnU]K(lWaxXL]iYWZnv=E'Pv.sDmup?cl\3CD')lynn U")lIs0jRDbTV]F^o?yXJ+.oB:%V7bBPD1Hjhi/qJ&G^7RO8'sUpn$c#1xrBn9qcF U"TRW\OaX[D.5i-QeL#hR\ONlBkn[h5)ZouA$$(]N(dTu=DQ;Nkh[]f^VAbyl#TsOHHoY,Dh,$HhFco8grE4ODZE>.ENQDfNMZ7Z5nlul28TuRG>cO*,BWXauuNkF$T>QtXHl U"_heq>z=hFikF^vzMm9G^D3qMeXXH8u[zgdMKw7%dihowS]psFxfK&[srvV8BXaquCfbQUexNl= U"(vX4TZndpTN&Z/v.mGQN^FE[?GwX[aRd&TD^Ix&d)j2JMOTD.CPKXH U"PWgPffsNrhu[Dtls#wZ_dlQ$,uxfAH$#joWl4?n\o$dQO'k$1?9lXnZZo8ZFVg> U"o6p#fh9M>g6HnMRq&0\Bc;DloU=yJjhqY U".IZXRanEO-mLCW4yL=,Uc^cp6N/>bFce)CeXL(Dl9#y3eGiDR*doWo'waa'cs$= U"byd]G3H#M3df5SlhBkn\9tTqffY,MY^,M5qSPDqPdD)MY:,MY,8PDqbXU8j*dGG U"tWPM:bLjsbP[Ov#%a;E&MlB^#C^VJ[esX1D3HVMZjMqW8khd:&=]L3X7H+38+Mg]86Smj9v]=PN19bc?W7]]j( U",MXy;jsJo5ogn9\tFi.v/N]QQ[VlihFgU1Mi7qtd+CRKveJr_+HjSh$PB=*0PTQ U"oT;+l:V?w0%,^vo)n6me*3n0+viBAXd\b5rT9:MQn9=bqLUD+to#x(9K U"ID\bMGWigFZ%dSgfGQn47v.M4_MRl.8/ipR]Od(M(%w]b<+[mJZL=qe_dE24n0ZJenLWke,F,rSaViB1[+I\HcHMGA.A=s/#-Y#QhWyV4(LY%jvSs#F?VEARCG\FXo#^e[C1%nKxk&j(7D=90O7JErl(MW$WXxoqBB0=4qo6uX'q/V? U"H;fu:8YZG?uen^SGY5Yf9V/qEpa/+/l&Bm(B4A6(7BjKdy*1Ij4#,HYs.=a-U]: U"1rPjLf1J?da)h-5;BQT'f00t[dxRQ+ekjnp&b;VUrB35YPbHl>NCpE3*8c<h.uI,S^[.R U"\Q]0?,Z)jYc5^)-_fHa'HRQnXc)X3tT4uD= U"C]v3lvVOY#[91*>tMf*7WDfihE4J.C4X;eBKVu:GXAQ;#=4bFCef(+>n9fOdevA U"n-VL,2gv?9,zk>Bf>YO+lBO,?HM6(Mm0A73^D#ANgoBZWn*LBEbIPR6/VXlF-(Gc*VpC' U"/+%%+,s%%%-%%%%%%%%%%%E%%%%%%%%%hnCy(S%%lfup%&'9%%9%%%d-%%-K(GE U"M-DIG)%%%M3%%%-%%%%%%%%%&%%E%%%'U+%%#hny(%Sgfx%up*+%%%%%%'%'%&; U"%%%%I0%%%%% END SUB CLOSE:IF S=5AND 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