'=========================================================================== ' Subject: FAKE SCREEN PSET ROUTINES Date: 05-07-97 (11:00) ' Author: Angelo Ken Pesce Code: QB, QBasic, PDS, PB ' Origin: us0082@uniserv.uniplan.it Packet: GRAPHICS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"FAKE.ZIP",4^6:Z&=4589:?STRING$(50,177); U"%up()%9%%%I-%pkerGgn),w0(.%%A.%%%/%%%%kf%pjug%SgfxKVz<^\j]5wP]= U"Ngjo#H2p(CYqXO&AZ8hQ_XS&3F*ctDsZ$=YH; U"nH?[(GE9^^j2XTn5o)bhpqB+Fu/FI3x.' U".j0I?6MeCXSZ5p0aUsSksGyV_Vim:Ik+-t-ZqB6Ix6_+NZ,cIn-XO'L,W_W#hf' U"i.<(xB]'geU5g)O4JU;-&Dsq-4-$_5wJKQ74)LBeH2*D8=,7 U"))Zg9Pce0nw4tK^=*ufZ:wF:PG#6m-$.s3)VmwZbdIQKM\0=ZaYV>_CONo\c7'n U"Wn'N6ga^<\ag3h\GlqqTf+n'W>Wps>4GrJDd5^RV/VY;t'hPaj/u'fK3m_bLVJu U"R1McDxR%$3%c&?7Yl/M&n/(,j8c[53/z%3PeY+&wOHoeZ8WtCLxU+W4uNO&dZe^ U"N<6h6q5,;sMU7y8D;l#TZu.tq]:?xccn+P$Yux3FQ\7#U?vwa'9WoM%V*b&YV4d U"fFMo-_d7WzbyHbwr7ctSx*N6>d-%EU,YrbF3J9>lg40TU^]L0k*k:P*g/0RU#lj U"^Y.U#6EcvLIPTNU4Q:kC8DR2jpT>>GR'B\4Vs8\pim[\Aw[h7_lF)G^nOfP U"VHbgAi,$IH5r7hRV=&o\E=hYLC_ct0O5yNUZW&YOQ>%W+rPrB)Mlvw:r<2iHD-9 U"SX:+4>4*Gi?0ghASF6(>+*HB2B+2'5r,-$h,5AATI2qb*YHkmCewlNg=-4Yed1< U"8?=,F'Y5J'4hE]5isYtZ-+SE9$g^ U",.S-9co0q,7#T,iv[9m$$/8d0xhx-D+QdYLL[DZ1G.[H$1\^bS)/1UI U"qvcW1]dzu9w'KU(d5J2ufi1-82TZZr(,8QV8v>EG U"^Fn5bq%VbO6SgD0^bfVYm'LkH7YKb=Q:3v(O=Ed\%up( U")%9%%%I-%+tJsGU73k$&)%%%k6%%%1%%%%kf%pjkn%wjSgRfxNe2*^qm=9#XrKu U"36a)4d*LL9-%FOg+wt(hU;'7]XR\jT-a.)dobp>Nt&OLu=4^cGmc%Vudsn.pDMy U"#Bt()jdqyPp?oT'sZj7a%3+Y=KustXBw.d'/21nzIu6Y$5q9gM[UVAED15x;b)i U".HZ9?gWq8Nttpdnp:rJ^76XLXZ=E*NDkPw^]QT9C;66e1UZ#(wBL4\9g>4CQ]ZP U"DmVIof:6]Tjc](FQ5nu\D6^vu\fs2.n/*RE$SG_%L]Ms<:Ic U"]TZ;,A(4]3V$XQdv^dMc#o(6_/\BG?i]L21^V-9;EO9[]BefWO:*oXjtn>%OwIy U"$(l^=Rg0Bst;&PGAZAnq)Miw/XjNIy%Ivd??3p\xOwSZ_FyOxa;Dk'z1iY*BhEQ U"eD0qGWwCF*v7Sd*+c;_'(B?0:\.;q/,bF&FNzJTghfmk2$CGaH+gBO<'B>7Gjb( U"YVN7et->A)o?iNQjFguI.+R9IalbgJ6*:V]Nm7813E').$QRB5e:u&Z&P:5V-+) U"]sVva:QM:GE,\epgnEUA9Csjoa(X^E6L^aSA^mvr=70jNu2cT5auHm3VQ[/4G/B U"YvjbiLWF]T*I6((Xm1PZniI U"24XXJO;qeli51e\Nb?+Ab=iW9=[9Or3eHgVtjTnSNZh18l(sAShJQCKV:6/P+A] U"jj75P:rpV%iwOtYeOWVRu5$1THv%Tup(%)9%%[%- U"%c)IrGVM2O]W#(%%%%3%%-%%%%k%fpjS[gfxFh&<>SRm5w=6Bx09;d1$A0NTX#, U"roI,OT:Y2P*oAf'W\MAE.i)3nW)x7gX:e=ReMb,KSG;H2665DTHaH_a)%BrU>R5 U"F4&Lx(iSq09a7(7(LV-RU0'ODTot%([i7gR/(:9b8&yOr]Hr*4TNs8mCQqXC]r^ U"HhBYsvTnrFDaq2&GE$/2QUYS6A+sl#cE6P4Nu;JJ3>QQcM/&:Eh6kd,u2'duz,0tOp U"6aQu.(^6NbJxoi+XVI71/&0,9B-_Y2W5f>gdT3332vLa/*WPrrf]B5 U"Q+TkT^7U)R^K7Y(DZd<;D-1.ZUFhwiN?L70q<93Lw;=$\UFQP&>Km'UsoM.lh2qrR[:f$<7:hp_Uq'[Xy^=YFxEL[otV U"?todx>)w-f'T5#_?6:SMTh6'LGCS(+7][n'r[ZN1v*3MAij=J49K)rhkE-y7E&/ U".Dc$;hn4%VyrKRQQ;SqA8P4YVt&,+./d:Ae]$ U"Z<_[mfeZh*NNt+ZDL0'[ U"%YfSJM9-3dc4bqgL9s8UFawyslNETm5qxx&%1>Qh8xBeI^_Y_/6-7nO+7++3n&J U"2bDv;hGI15lc&X#L,,QTybqb?O&znv/6irNIb-x\#%W\*ZTQ5M/_no+tX*^%8ln U";h6UGPv2h)wrS)rTZcSp*%T6w,?c-Zj\u%p()9%%%%-O%merdGNy/+>d'%%%B,% U"%%.%%%%kfp%jVSg7fxFy2<>iuj9w=[JN]85AT:X-_)*q0,S;znd6-+0>EX-_1l5 U"dEXKkhF]GjyS>uB/T:Hoparpk$5cWdUT],G+j0q3az)aRI\L#v/iTcEf)R/9q4T U"qRijf/uzRn7h$hmCW.;X]al>]]lXF2:QsD&brShcX3lX5E=g4,0E]i<:g4c&Zf? U"*^3y#kFdrK2iPFH^gh_)7:(p^V0G>8]?%hsA6%GFFK2HWV^=y(H$T4Sb_yYFQPe U"$XqA$odW9)ii>FyY&g;5Xe3hWE4gOR)q>#iF5[(/Qo.=0j2o_$t5_1Nu_Xzn5mHf7MiD#/f&'$hpzRzG U"9%;o3Q\L/w4]gnd1P1]=j/#IZnL[N2'kjdTsbM3(T,*JDTjQBmjFLM;['Sa7aoo U"/qN2H5:_C:2(w81ti=/_&5bo5&Jmmo;LSBe>X2R/QCGfs5;Q$T','N]HCd9'f<] U"$j$b[f?>NUACOwv\*>SJWJ1.u4Qac$hXbIM]Nh7,I$fd18#O+y&+F_QQX28_&<3jlN4N5;1LM9Y;'y6Sm05MoEi9^8/C U"k0fjLgn].g65D=E#T3*)2_gAfda'Pj,:VhFW6SRoMpksQAUJy6Oq#tJ>bPi'P6V U"D93Um(?A,kC?'\Z?EEM.OJ;Xox3(RDiCwDeXyutQ3$'d'%% U"%B,%%%.%%%%%%%%%&%E%7%%(2%%%kf%pjVS%gfxu%p*+%%%%%*%%*%;[&%%:%5% U"%%%% END SUB CLOSE:IF S=161AND 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