10000 end 10010 ' 10020 'Listing 2 10030 '(c) 1986 Antic Publishing Ver. 070286 10040 'Written by Kevin Kennedy 10050 ' 10060 'Use this subroutine in your own program 10070 'to read in and change the current mouse shape. 10080 ' 10090 CHANGEMOUSE: 10100 open "I", #1, FILENAME$ 10110 input #1, HOTX, HOTY, MASKC, POINTC 10120 poke CONTRL, 111: poke CONTRL+2, 0: poke CONTRL+6, 37 10130 poke INTIN, HOTX: poke INTIN+2, HOTY 10140 poke INTIN+4,1: poke INTIN+6, MASKC: poke INTIN+8, POINTC 10150 for A=10 to 40 step 2 10160 input #1, SHADOW 10170 poke INTIN+A, SHADOW 10180 next A 10190 for A=42 to 72 step 2 10200 input #1, MOUSE 10210 poke INTIN+A, MOUSE 10220 next A 10230 close #1 10240 vdisys( 0 ) 10250 return