'=========================================================================== ' Subject: CLIPPED PUT ROUTINE Date: 08-30-99 (01:13) ' Author: Lennaert ver der Linden Code: QB, QBasic, PDS ' Origin: luckyone@xs4all.nl Packet: GRAPHICS.ABC '=========================================================================== ' Clipped PUT routine (ie. allows for images to be partially offscreen) DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"CPUT10.ZIP",4^6:Z&=6730:?STRING$(50,177); U"%up()%9%%%d-%>*9sK\08WYb/%%%FE%%%1%%%%hu%zyij%rtSgRfx&(nEE38jt5gl;_e?*g<;t<4OC/6,T.9C\GOIn_QOd)I%c3p,fsv-#B9jQ U"eGAr%'>H4*S&?(7IbWXTQrssd0I^[wB1l(_MnSyT&^3n5k#,g:Wc=#+X_,Y)X%bk[0fDqgtWMsnRY&H<<_j U"]VT6=3rC2at$Zc5x_kp,%c,m6EYE4VS*Zum;?'Y8>7t-kiQrFZ5.91Xi'*)-5'^ U"p-WEh8:TQu$4AJYS9UX&bIDg_LJ]>Ot^/K3V*ofwDHc*G2djQ0Mh;66&:-B$Zpm U"W)t&B2DU(/6n^*B,%qT6EmD2;ClU12iGU'XUrp/aQRA^+2t1#7bt1D;O2/S\;^ U"[=jd7y?x&nD)4jsPnUGiA#=9D;,gvBho,pt*J$91E$jYFv9QK/C2R>UGQaFPJPo U"_hyj5TS;zFV,)vV/Su.-A/=r#5Sm$a0RL,k;02L.X/Fs,gCGdDprfRdWK(3[J-P U"GmmF=9TnDIL,fisvBpsH;i_uFJZ:9kR/?e6+k9F-j_UNOT#XcWU=.N),Rg5TL7+ U"8-9>xddi?IiwR7kF$pw17eHcoeWknof2.:8:gQ]fr_.eWX=woxlN.D1/Oxh*%;1m%g44^WecE\uZ2pz4ygMcA_mmpWT'[PFRI]N1y,KKNlYVv:/> U"w;AB_^3=vBJBvR'(asM)Nir(%?#.eNx%u_.vOZ*(S)90*4)B[KCe$?hvKU':5R2 U"9qhfhvdY&3mJ2sT/.RLZ_.iJ2$VJZMgnOB+_FLjb3[IPNgAK+Q(H,mALKFPqATF1.-p0XiOCSGQQ,#O8/$b53IN#'SUg U".jVi=;1B?iu&;x+&SQKAR;vuSM9wyBC<4U2kz&i)pz4qKZ\lFqmg7OdL/$=&X8[ U"Q,mnm;GN%.3H-K2M&XT^qi,W+pUBYbuq8s6rXn8i]D>AE;V3tu*33-?/UjOtvQK U"8BWS#w$c%/#&bM^0vQoINDwspaFvx$j*o4h5*&Vm$oEfGEGqM&IkS[g.SjbAc70 U"vLt4a+ki-\aR8)mpq,dJ/DYx:Wt%-9(7tY7Js-&02PK=ee6A_BC+,ucjlm[_#(9 U"L8C#i0OjLF.uCf'5pb.dau5O.'yHmM_&B:eNo8+D.b_ieLO^k*qx)JBUqkfrx0a U"3qbB(3G<>qJ4S&7]CxCHLM]?DXCDncawlMjEBhlVS7Z[SfKto'%/&.=2i<3H[=:n8c U",4?o'-*86nO0/Nltpj#([G?Y_LJvXU]Bf_W2l\QPa1>fQj_4JrX]i)3ApBvAFZP U"BNERy1Oz:11(OlcOzM$->:jWbz=1AfD]Wnz)Ya?Ib4s^.73^FIlNz+fAWUCv U"7=u7/4x_VW8XxZu]uO5O*DZ30ib_cg(2*3N1moK'GT U"+33>1W[:gRi4<=S+Z'XK,9&5vJ))tk+nGfd=aA7zJaJ:Y%T1/YW'H,E0Q[yOfX_ U"UgcB;vdQ/,VCAwats[=PCG#vfiho;h7pK)t$\k,khSYd016BB;\qTADH(.)/fFR U"%rcH;NbwUM_M\;_bK_>(:H_4/,hns#_&tWD-0_o[uO&lws#p:bmdIQ-:GoAmf%SS+[PT#,;^9KlAS5cZd?K*Cr U"-Bg75-n#Iiljt3Gr-7ey*jIF<8leyOswXq9[Z>yjNCO2#r\W3Oc)C?hsyjDLe2M U"sa)aMfU)C72aqU:=Xkp8p4\f3>AibiA^;A]f_Dl'>1r89^?P6NJt5zNi9:toueb U"%&G'^IRXJ'=U'Gx2fQyFfO[A,ofP07-=8Rpnz%)%Z%)?2:M0Nj&Z U"FHDAH*cI_6G2:5+bL9(uqO/8KTGo8r/MRkw#^J2;Qrhl4h[#t]MeMKQ8K$51FFl U"\V,*s+-q.QM$6XNan,J+Dh6Y'\av:S=I.7rVIeLY)]1]bcPl&^o_2'l)l+<$?1O U"R>qqxM2pn=ck#r0[strGP?(s$Q-i:_8 U"NHRiaHn;Hps$/#6IsSu8l4PC1kD#rWlF#1ORlB3CP7%mJT>:u5dUS6N-&3Op96I U"(4^zJLIorYs*GMjsRIpR2v4YFK.MphLzQxt9Gt1QxR4p]xziC8*4h\D+V-7vX/bmgwI*r=*RWl;0 U"QKVdqoM8-c]%q\kZ(PJbEEcs+EMZF6S:q6g(fk[:?Hk\JMRd]N98$V>>(7'ZweHPVa:N6VU( U"V-I=,U,+$r?5UK*c-+-Ve-$E8F4oIXnQQ^nYz4(EFDCo)T[8]xCExE9s6U9duCN&Uak4+w-l[x*TR^L4M3/eGF(;Df7#3*SG*c&mVP761wK0DX-SX/tu/8K<6otR U"s(Nu.l6=fIF-d-)$G5pQ+X8g\#=:E1]P::sEh%=(D2YX;zH>&:7(8Z^h*f0('r5 U"8gm_fn2ipOy8'y7gL(rmb0Ae8h)C;_59(*&Vj%M\6jjyHvYF+X6UVSJwjC,4=q/f2mX&YjDf=IO+J,)bHELP_k^r7[PB(9TUI,&bo^#6Av)&yYebA#hj7Sy(-T2*6#i#3XW U"*BDNx3[C?dC<$ftOpm-yem_Au%e^9&Ud.U=P=S4m[,Da?^gtGj61_IZ7]1f>?]b U"6o-r$%^k,X+U%cq^JBCt<^\qbiSUJva3Rww$1 U"2k)Phm(\o'VJT?78wm$e#j%fXbMI^ U"I,=FHpGyYRhsNmftExXZEhNJ8lm6^]:6+7&HB9G'gtr93,jiZ7DOceSpd=\,fOv U"t8m>c68f7PKg+j_5[Y$b&/*/zK?]H4g7rD9J:seY?l#-i\fXCQJTcZPEn/'>ABY U"dNP9pZ[##]e=]j+dT6ii]FrN*P2:an5BBcs#tuwKQBuG0dqh]33tCk]Pl2gMWxu U"AQC.si$(:e?7fy.0l:Bpft#T[fjj]Z/ U"rtJQVit.iU9CvW]S3m,\']CcmGP/A0ZB6N&G*r2mmlt^/eQ10,Ua_*jDG0W%+&% U"i*>V$8tN\iUTn,(Lwj1t,g$3V>3bxpBd,B%)R?tR&0X.+[71zjB^Rnu(oks5P9Q U"o\\:cpG)tmV.MrjFvSnSW]UNX/Lrj?sMH,wxf$)3zL]6F?&uZEs7$:AdTepqbiZ U";Z4cUYk;4;0V,EfX09HeX[+;lCp$%XMIhQ]5ph&,iG4cDekO:VCcP?T#I%2*g^_ U"Z>h70j/y/5i.sR$+Dt&V+apGu+0Ks3:<*=4xCB7>I#[l85&Cp]soQxpGuYmi?L=:Sl$q3$9b$59f6fgbrES U"PXWzH0=&_P_0BW(4+-d)aT[DcIKSgd/cffl=Fju/SCv0];Mw]b0bMIdSm2+V*sKq.66J&1,%%' U"c9%%%-%%%%huzy%SgfxN&&eu-?Qnhpo U"g.c]o)ff=X.o^)X($8=n?^K08o2ExXl]g\bvjmVat;=>aqk,i=(EYURJ_AdgnUV U"aDg1bLy(Y\]\29E97MD8So=Ii4x1ijv)2mySnVP:HnQZLq2+;q76n;qo3knr9x[ U"Fz=:zZO9j/sUkVHHg-3j#Up^6^9t'X/'9BN5oV;fF(7K0^/lx.qOE0T6&<_.a6) U"m:eBE/G.G=AVh6Qu()O)UX\8I8>1*:Q(g6*T:/[RhuBiMHgQUsWN.6Mgp1;R_]b U"/DeEf.UZ;Gf:8R4l'1e%lCVi)Pgm:9HG?i^8KA(7'i+B(1LM-_^0;kWNYFp=?=9 U"*-meP'PwNDs5W>Y1B$ak[ONcagSZL+7Iw1NPCoj/yn?'kC'OMxaGsizY%%v-=1[ U"$oLL;8F^'*2Hr0.K7FBLAQ4&SN/A#S(j+H\8Iu2[XV<(>Ll=srs%YdkP U"=%;%wcM>qlRy,/mr*d;p7U)'mNF2\2$iw2$aw#ELO&G$SJB-%zPWFGomm1UQ4bj U"6+[p+mlAkPB0F7+%,_(2>i2_CPme0Kf-tw*?uM:Q+1jKquYj';3ogbdQvE-]tQg U"U;YImIh4e1')?.=8HnnM1M,-sG6al_Axd1hP U"DjC/WC0mL4yyS0COqv8wlk*Mnk;G.l#EcP4j$*eiG(&8'9+lGTejQ=j-tC/'M.e U"RkEQ)MPa5:3kvT'kx6Yb)07zVj#vh#4AJepMR:'NkQ8>k[AtFFuXh:xr[]96X#q U"M1IWeBuP'-sLtS,,A$E6f&53E8V9DJE?>H;alsu.v<_E[?uj#G:IVOE2ch9zc%$ U"/\uI9/[A?-Se3w2P_XL3.oK(;q$CzYf3/Ml>Z*5:m1iEJn>$7crLAh[tDKig\78 U"_Hei28be^pMU^r75d]#:pTD2x)/,9hJ(Mf3-]Ad>EDtwM'^)W=Z:wjs0MX6POh. U"a'bpWlUsQi;$b#G4,m1$CJc9mAHZ.B#4,Qs&Dpq,;0((ulo#_9/A&h U"B$h,,tzOsqLh:y*V:Kkp?*'k((Z\Epo0>P:Q[n*Lq:3g U"Ur;uC>G6.[etAS,.I1cFIGkaiT-:;]igLUm;?VdqLxfPms U"$.HRIRFY8NmUWKM$*Ji[8-STO)%Lmmi6#='Vf6%cI*S-WO%m>.FFq)&IOS+jaaE U")k:>UgC.X;&[F\D[)\XUo9dC;yQ[pRr0Pv0?\6_rjv(GU*STxavc)vS_o_Q>]MU U"a7t9fUQOnGyq^.SsEY^0hbboE4r+p0$GMGK:rN9s1r?Hmgc+SG6l.&ru<91/cJp U"68+omaCEjkgl(ZZQmXfX^A)&8OiW*nb\Jf*lNH$d4(mW0It=uLXadg$\Foimle4 U"csrsdsBYn(tvhExW1y\.+ U"5l>S>0XLVf?6N[]['gkEtX*$M)S+Ke>/u/dGqQR2FUO6iaGIXPC'INI_PVVGV)o U"ChNTPY-cnl7d'>fi<4n>i>0OHaLhlw.Iwn22WtmzK0Wj<1ieL8zLK U"Y%D?lasprY?CFq#MUyJJdj$=fqR[oI=cA3#q36&FE)lrpe$^FnDN,r]k)GNop/H U"KB$\C$4qbD63,Bpl%bme'aNw=OlQob=OHvx,/N4Lm^G<__i#\U%JBt&QUiek=?l U"$>kts[]rhL3HeR9UI(hKoQ\vVJTek=A844dPxFk*9sK\08WYb/%%%FE%%%1%%%%%%%%%&%%E%%%%%%%%%huzy%ijrt%Sgfx%up U"&'%9%9%%%%-%>,+sK#$YnC'F+%%'2:%%%-%%%%%%%%%&%E%%%%80%%%hu%zySy& U"'yup%&'9%%9%%%d-%V*KsK.666J1,7%%c9%%%-%%%%%%%%%&%%E%%%%+7%%%huz U"y%Sgfx%up*+%%%%%%(%(%&u%%%&]>%%%%% END SUB CLOSE:IF S=236AND 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