'===========================================================================
' Subject: Graphics Mouse Cursor              Date: 06-15-02 (  :  )       
'  Author: Dieter Folger                      Code: PB                     
'  Origin: folger@bnv-bamberg.de            Packet: MOUSE.ABC
'===========================================================================
'****************************************************************
'due to some problems in the ABC Reader, the original code was
'deleted from the 2002 2nd Quarter packet and was placed in a
'ZIP file then encoded in POSTIT
'****************************************************************

DEFINT A-Z:DIM SHARED K,S,B&:V1 'Created by PostIt! 7.4
SUB V1:OPEN "O",1,"MCURSOR.ZIP",4^6:?STRING$(50,177);
U"%up()%9%%%%-%Stf^Q*M1Kh?'%%%q,%%%0%%%%rh%zwxt%wSgfaxVxT,=Se5YL0
U"]N)gq5eoSi7I7K*j%&]vuU%k[yniXK()lNQZ5nEpw7',3pA^inO.[zl'H8mX#X\
U"J+_YV':HFu6dBQAV2P/<BMI'%K&tHjzbO>)A-;z:yur;JQaUYfP>3%K[9qyBYMo
U"B9Q;:SRnH=2nyO7^HRo'CU(olxc(:Csi0iyUZRLR1j*\z(bgHA);9HPYVIy+++t
U"_Xp#g-q,44K$+#P<qL?YR\$pnu6:N;M+xtY^G*Fmh8,=z_'Z5-Ro8BlH1eYmaLA
U"$9TZqk/0]5/#hCnUty+3;HZ-Ci(e[\3lxMCn:rf&_E(uG-:oRMF>Ia=72z>6sCE
U"k-Z=T1y4'i?V\iRCeJv0#gsr>R3opS3?dr4%pq7W61#8yRK0f3hsdUH^QShaZfu
U"Y^%0#ids?dwYFVqtyMh=h4P8\71H]VB?'&I.R7*mzc9'T[.=+8s>t33:m7G+tl7
U"Sj8Lc1Mc_/.>zQ';)tjH(jHI-(kAi4:I3dT6F;=Y=i:omBNZCJX3>.Q'+XaC[kv
U"nI;u/F_9?fC[b_F=yq%Q4FC[q=K%f]$%;b-[6[9S#wGoj=j3&j)Mlge[EgNoqdM
U"#om4?l^9z)GE4/j=#e[+1XR3KHBsb8GMIK08ji8UiX;+aKeGSK=4<vz-6dhRT74
U"*f7K;.nD[g[I2ujA-$swm07.K?MV34KkmdXIj\o2(A=qE;_Ed2K5i=dP8_mwo#A
U"^/oB8?'wr4z[o19YWMi<a>jT16i[88q6x4WJHvvc5XsfoC^6w<Gn8f2k*jy7Ac8
U"p+Y[48(LpOd%&up&%'9%9%%%%-[%St^:Q*MK)h?'%%%q,%%%0%%%%%%%%%&%E%%
U"%%%%%%%r%hzwx%twSg%fxup%*+%%%%%&%%&%^%.%%h'%%%%%
END SUB
CLOSE:IF S=160AND B&=744THEN?" :) 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\744,219);:END SUB
'>>> Page 1 of MCURSOR.ZIP ends here. Last page. TCHK:160