'=========================================================================== ' Subject: TERRITORIAL PISSINGS Date: 11-02-96 (00:00) ' Author: Dave Shea Code: QB, QBasic, PDS ' Origin: FidoNet QUIK_BAS Echo Packet: GRAPHICS.ABC '=========================================================================== 'Advanced warning... I'm a very twisted person. You may not like this. 'So, if you're easily offended, simply don't run it. =u) 'James Morrison's recent comment and short program on my tagline made me 'sit down and create something decent, so here is my animation of my 'tagline "...and a small Viking dog they call Narf." 'Don't ask. Please, don't ask. DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.3 SUB V1:OPEN "O",1,"DAWG.ZIP",4^6:Z&=1306:?STRING$(50,177); U"%up()%9%%%I-%Ik8.FH^,qkL'[%%,s%%%-%%%%ifA&lS%mlffT7fskep=OZZI'Q U"'PVj=4/rTJF%Q5GNZ*o;KKO/MyN2*;u==Gl5Il+q?l']P(Z37UNF2Sfoz(Z)8dt U"Muqjd8dMu*qXDd8M*sza\(ND,>wkrr_wZ#4TP>$'u=FR[BZjhrXEx-Vl(+Thru7 U"8?vZiYkR-?MF9f<2FzFE\(k8=zgzyYoitsWNFKgK$1kr_wFd&[84x3._dxed\:2TxdPsE^Uafp^\H0QTLs>N>t3.fvUQkdf:&99KkUr$hNnxbr. U"rfcXRpLt'\>F^u]EtLb=pd_SD1>AQAitLJkZrHp.>MuUdkDx-u?qj\LtMuqjd8d U"Mu-qj8dYMuqXdDdMu*=^DdYM[#^mDdj\i#^nqZj\#^tnqj\o#tuqHj\LM?uqj8p U"dMuqAXDdM6u=^DpdMu=A^DdMQ[#^.X^j\Fk&86&AXDdMhNfPXDJD-pi_fzpF68z U"Kq(OuqW2Mh*t[*'dtgn4unU*]#0hCt0Y.mwff0fx$_zBQqdFD7zMj.U9Ll0[d+z[ojy(';+8eEVsIg()XT U"*kyed%#wDKKS#ITRhc_l5s[;sy.WQ0A;iL't>gWQZ4u_PvnuHt_;%YqHo(WWUf U"e6;ro,k-&#(+t/y5:oq\kJJk6Ec-Z.$7=C7lxqEP/6r2Hb9)MgXkruRB^))kJM7 U"lDt4PbCEW1u5_LHf4bAY3CgJe2]*SoA9Kc'w\/kfu35LC$>Cm1MZXI(&U390]Za U"#cRc_*%76Ir7/k2:I>cG0lW^o?neOk/A82Nq+jU9sb;bhJVKoX3t%vJ>?8a.0AP U"B8A%n.>?R:6eB:V&=5oQi(L'mWc7Uk*#AVwhJ#4y)GcYH(2XNOPtoq7bqSof+L2 U"5h3*W=aU/U)cO2F6S?joRp5YLwpb#giSqXNpsPK9bbGX-BWS)3>goZB*IXd[)Vc U"i*HG=MKl31O<;MjAsg*?oL:(Y=?>V04*8.K7Z)7l_)lk4HiZjb^gLSgU'w;Sl:>d45Y2m-jV8+,jJ-#d8Igp'sV=.$83V4>A1/+5xq5& U">/5c'RKf,U'Nm[tl(vOUYuOi3bN?p1PrhkSd/Mg?Skv\%up&'%9%9%%%%-%2Ik.FfH^qk%L'%%+,s%%%-%%%%% U"%%%%&%E%%%%%%%%%ifA&lS%%lfup%&'9%%9%%%R-%jl8.F3O'3cJ'7%%4.%%%-% U"%%%%%%%%&%%E%%%%r'%%.if&l%Sgfx%up*+%%%%%%'%'%&;%%%&g)%%%%% END SUB CLOSE:IF S=134AND 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