'=========================================================================== ' Subject: FAST SCREEN 13 PSET DEMO Date: 04-04-97 (18:54) ' Author: Angelo Ken Pesce Code: QB, PDS ' 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,"FASTPSET.ZIP",4^6:Z&=6802:?STRING$(50,177); U"%up()%9%%%d-%l,&RG*I>D;L).%%=7%%%1%%%%kf%xyux%jySfRxr.&o42RlC['#ROgMWol[AF=#Wldh5=Xv90p>\ U"3^Q]-^gAG^RhBZY$A(C4?joUlCs:-obrlaV^Z?f0hWb5'C(lPHHU9QFGs:ch[il U"2WIFO/sCvBi8e6tyIgREgDWsJ6Pl8Vpg/\sGiQC,SUONI_VdB5x2ODP/,'6LQ U":yCifa1]n_M$R]jav,poh4G*C4A-lvHW',_$JiEfqm3cD5EG/5>QDbst)W5R?:= U".M2:u$%0nuTY6OW)%?BiX%3/S6[LmQ%n1bAcx_ihV'((fX/AY?T8E6$WK*81\xXSmB]*Iu<9\QJj'7ePHZD_ U"sVIf]8[3Yj)=a0,q5FfNsd$M$aN,kyJr2rlND&s\-ODr%nC'ut4a%Z>eIS[[$2q&05k])kv$SaeTmQY4E8lM2qJecrX&3*1z4.uI=L?$[zx(6n U"0MY]:bAg1E061eckfX#9xqj3,UYZfE\JsA)E,%?wBhzm=8e;(RAmFe^F5b:1cGe U"NEqxA+:bVLd-1dWFuudgCKD_CvU?4Ha51,;c U"pDW]MQh&8YwNWDsdF,\QO6o%4up(%)9%%#%-%pE,RGVa+QvR#)%%=%7%%1%%%%k%qf U"xm%uxyS[fxr.k&R=\.[9L\CWYg-LwvD1(HAK[)Y1Ep&[Ri;A U",oolZr&bJa0-dJ\Mrn&8sI0sAk7&1sCW^UeBN$cme_wwWl_j*?,JBGKu/UHI2K] U"Wb\9KA^/$(8c1Z/3,;Zn$t$Z6vg&cEt(9Met9'4L8Za4Dt9d,il46i:oQfpRw$v U"d)rSi,5C[b)\O4?b?^sWEZ=DkmU1[TAn9pCzH>Ocm8hX_A&2J($ud5lzDCHFgV#5A,GJ[XXhdIvYrWovm&g7&9n'EsF8GlxfVM^ U"W^C&uPH2X0=G%6:c-C1Xj7FU76)J?=fHM>FSnrlEJ$+u;MR<:%RzWrhlt1'Gl06 U"dg+y:W4Rk_:XE1lrI%^?\$Oga880wSdTu)Iljn-I/bJ&9bJjwF%+GLVv7-3dqA_ U"nJGi#q5/:y+94<)('x^P2KnoEo=ILG0=6CkZ]isvBU,:ajRe$YMf-(h]8#1O64h U"cO_J*C[z%+adRLig6c[<^u9>i84)s+WTtAiMy>Dt U"'VR?s_.f5>rF4TV:BG(*a9.r+c\/'[o8?iY#h_(rM0Lx]fZ/j^CBWl[jrlz6j27 U"KFPFVi7bj6?jH3+qv;P&7l(AcGO(Ovd\_NZJ^lht] U"\)E_O?wDHzeg5;<+2+mNk^?6bU3tg_')RZ?l(z5%q=6r8+c84'9K3jg-u-?VI.afp0A[TtZM+M/i\gL]sr U"N9HS%VKh73S.F4lx&wlk4+^M*jJb9(ItFm'Rr1+o)eV.>VdRfA,dVEH=R1o(lpa U"CmBjG+7>CEt/x.zmzgK&OC)kTGyISH:3wFgf?yAA:wy\_Oe.,\605X.oa:uKR]3 U"Ixi40i,Bc#/S4T9VzuHEiNlN5QX?yxdER/hm5,VLppnkm>N,j4%up()%9%%%d-% U"s,nRGk7'lE)*.%%>8%%%1%%%%ut%pjux%jySfRxr.';:>[kj9v]=,N1DG]fHs]1 U",H/y.z+bJA,7ukM;W%z_dR,)J1aC;qv0xO$oJP.;NqvZkljB?#[R.x#:.]BZh2p U"m.X1E_h_-NxZ2Dn*?,JB=nM*<3#%0l3DY/o_#BG,MG#<*CQR;rEsMu=B<[8 U"dQE/Bf,V[+GL,?JD0owVv/W[lZf^h6KAkbS)SPHHWQKE#fDT4qP18F\U6)Jm7fH U"KI>ShelGS$sheMX<[*Bz+LQld1;xlP6Sd7NhDFTa3d,-=u#Me3+\oJKd\&Qov$< U"^%VJXiv6-4Ps6WLa3b%wXB0GTYU6&QqOF#$;ZZGt['m<:97qhr[XMK,O[par;aG U"5Yg2[Srw26&Jx;(,Pt2v&VAL3XyCXW43,Hs-eNG%9Pto.ieRangU_)?YoUW?QCd5%d*Z\bU2tC;S]u+m-kX) U"yn=#B#J0(3ezhs?>mY((/J6.sUr80_?qC*Hv9p]W-J=]-qPQp*xQNfBA,jR3qB+ U"Z7[oJ;Qb#G;CP]pA.AY2$L>MOefUce2lE=ew>hNxE$>:n;I18g1d4lS_cAEktLQPq=w3.XQ&g_TnaoCxe8L U"9.g-Wovw+9ngVIGAB3I?8[C+*(;)Q=5KD8JK6yy/cFc->h.%9mno U"ws%o3'9K/;B4,D1(ien/J6H9C6+U2YQEGvBEsrH_ul8J7sr)x>WUSs?&WGnUNh/ U")=P-/nD7\<)iT/6:kiNhemyJ0L*n2dBNQv9>22v('7)VHTd0(&q.&&rt=4>k&nI U"SJacquDF&5&/p'tI^?tolBoaG=DK52CjyciJxAQJ+PZ46r#2-v88yPM4>bYoi#_ U"S$>O;rmnUi(?j]MXEGCP-McR)2$VaVNEF6A\RFKOu7]8I.UKG/GfAKtI_?.t:$_ U"3(E7YGZ2,?%L7)hBAik.i5NBGH>(W\mr6CY.wNgSczQUj1cu7h%/VglfOZCQr\= U"<0>QaN2n[u:H_r^J$/;L2M:w>wm$;/nG'+)O=oo2$NWf*.#)X+ U"au*:%kY$.J[YaSjk/HXCss%/\r6wdu:=CA=l?+s##H)OfW5e-<\qC;WbcWtlHIWLjEA19RJcOs%aF&/.,yIv:+_'gL=za-/N.:)dDz_wT.y&yZ'oK U"eIuQ;P=uRmmG8(>fBM?&Uh.zqGOXo*mvOg9ysd4OtxY U"4IP5'\Dup%()9%%%%-%5w,RG,cu(5&a)%%%c7%%%1%%%#xqt&%uxjy%SfxrW.&T U"=B\[5LO\YNgSV%4ZIz',kAZ:9TsSWn/1s1Sn)2rM;>YEQgP;JtssYRXSc70etX8 U"fPcAcinc6]OXxmGe%Gd8(H&XdS-hjh5c;N&1E:KCS+6uv7kMFtvr7b-8:Wa(*NZV/XQZU U"*0s8Ia[D5[+&:,+QXmlkaiBw'7Q-DSYflffz?=cde=Jmb9SJ&&&w U"S3,WVVc05Ge5UI(65eGWUU9JpAR=huJC;D(oTbLY-t^Zf0ZhkAQUb(&m>Y5*lE6 U"aclp7P+WP=#Yq;3T:f+K#:<2h+]WFe_^X+<%z*gFbf[Vxv(2IOH9*o5p5=;-SZ_ U"#qGaRaX5Gmfb:Z+'nH4%foi0VulVd^DWZ9JIw8BY\?1X7:W$)o'Csr:6*E+EkF) U"m(KkM:q:]w:=\JYS[guAj+V(\C]60mH1ai:uQapXYjS:2:B7hr/ U"/C#03Q#5+UZ.CC)s'4zBHJN,%y3g:Ds[ITPD#;>ewda/d2&9xadLu+d3]o392.r U"ZI4ZDb)WbiS9O7TB%69tO7:dSazMh]eyj+ornQ%inn8lXy/R_q;m7Aq5rV_/8Rh U"nna+j(:#nyLgd]UFoH6VEhSuU/[9:y U"CXOo)).jx4:-RBvFR=NgwH3&0$ubmW=^t7 U"pCEi.wuFwCJ.E>)PRY?/Wq,F7([c/&_<%R#T:2sS*;NH-e\lkbJNpC&>Q&2*n%F U"XalJru-fv(I(dy]%2/dalAkdP:Wuf])g1dp8OhhYyw/=btXFkUT$o*1bovM'?PK U"$/W(>>tK:,m'71R<)a=L:O3r?>]q*YN;,R%]9'g#1tAaa';O;I1.jxd\VJ>3l14 U"BVQa.&kTRZmfE4+-/9guM\%CgJdG1ydr]\sZF6#.>rwEPS3j'Iv8_&=gLr,wXGz U"/M/:YlZgV U".nl_eN0'l4up%()9%%%%-%4b+RGML:BQ%/&%%&v&%%%1%%%%kfxy%uxjy%SgfxJ U"4u0:\RU5vaSqDW\Vf\)+y4zKK+4tB(u'#v4\S^v[X;u,hhCsxYM?Q<])$-hNVJF U"+M=UvDS-EX3Fn+l?&ZYt/#aK$QdnU>'lCKIyq(6vC4Ucc9AH.+zEnWE,$9 U"Plh+vg:.oSl4lrIm,58kSi.e'FPsXs,q6gHpOy1aE%hn^\90pf(B/HcmEJr/rQa U"6N,9fBTcSjlB[U5U U"$Ja#)t)bl8+8v6+,0Ihn#Zs'9#LNbQNjYUP14aPPBBpAWGQ_uippYH3/qA[WjSH U"7qY]aS=(vim2.wzaOMT6>0BiUN6>09qLhWX-\CQ\&[+d3>XX\<.-OK21y^G1SV( U"BTFq#Y9iW,uo$D6xD)xqTfZImx.kP)E1T^E<]\+UG=:lt:D%cu6nSqXIj,J3-8f U"b94]BW30ARLU1-[zVgJe%2G4q2Dk\\'s9^tc<6g3Sq1,A%Es%%%%1%%%%utp%ju U"xj%ySgf.xx&--AHsz%-MsRavIUO7VyARcA%mF'JTsr>%AHx%my-UmYXLp[rQNCo U"(uiF.QSxQmQrN]'^OsS7orFxmUY_^%onrx#Msr&')zUV])YXY?^[^o'DTwm?GHB U"T7Rw)ZRuMB&#UWZT_W%gqhUee5_+dN/;d)?k.+5h/;W[*F%uKX4LMdq,-:Dz%DA U"l+_*(x(V)_fPTE.q)d%)%up%()9%%%%-%6Q+RG>M3XX&V%%%&x%%%%1%%%#xqt& U"%uxjy%Sgfx^x&-GfBT&I[MSnE%pnQo'Jy-M[sRvI+UIXUaxARAo%mFJ#Tsr%-AH U"xm%y-UY=XLprmQNC(=uiFQ(SxQQsrN]^%OsSo+rFxU=Y_^o'DTwm?GHBT7Rw)ZR U"uMB&#UWZT_W%eq3?Ue5JMJS>87.]DCM8=4BLE<03J4E1HIEf=624 U";>E1p4=ELu4B2&42/u%p&'9%%9%%#%-%l*,RG*pID;L#)%%=%7%%1%%%%%%%%%& U"%%E%%%%%%%%%kfx%yuxj%ySfx%rup&%'9%9%%%%-U%p,R^GV+Q+vR)%(%=7%%%1 U"%%%%%%%%%&%E[%%%v%)%%k%qfxm%uxyS%fxru%p&'9%%9%%#%-%s$,RGk-7lE)# U"*%%>%8%%1%%%%%%%%%&%%E%%%%%/%%%utp%juxj%ySfx%rup&%'9%9%%%%-U%w, U"R:Gcu((5a)%%%c7%%%1%%%%%%%%%&%E%%%%S%4%%x.qt&u%xjyS%fxru%p&'9%% U"9%%%%-%bE+RGL2:BQ/#&%%v%&%%1%%%%%%%%%&%%E%%+%c8%%%kfx%yuxj%ySgf U"%xup&%'9%9%%%%-U%[,R[GT7<(5:&%+%2'%%%1%%%%%%%%%&%E%%%%C%:%%k%qf U"xm%uxyS%gfxu%p&'9%%9%%%%-%z$,RGfB?\rp[%%%>%%%%1%%%%%%%%%&%%E%%+ U"%,;%%%utp%juxj%ySgf%xup&%'9%9%%%%-X%Q+RpGM3X(XV%%(%x%%%%1%%%%%% U"%%%&%E#%%%M%<%%x.qt&u%xjyS%gfxu%p&'9%%/%%#%%%f$,RGX1XkdH%%%%H%% U"%%,%%%%%%%%%&%%E%%%%T=%%%wjf%iSrj%up*+%%%%%%.%.%%*'%%&F=%%%%% END SUB CLOSE:IF S=93AND 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