Compute! Gazette 1990 January/1990-01.d64/pointer.setup

Commodore BASIC | 2022-09-20 | 1KB | 47 lines

1 ifpeek(49152)<>76thenload"pointer.ml",8,1
5 gosub 260
10 poke 53269,128:poke 53262,24:poke53263,50:poke2047,255:sys 49152
20 end
100 data128,000,000,096,000,000,088,000
110 data000,038,000,000,033,128,000,017
120 data000,000,017,000,000,014,128,000
130 data009,064,000,000,160,000,000,080
140 data000,000,032,000,000,000,000,000
150 data000,000,000,000,000,000,000,000
160 data000,000,000,000,000,000,000,000
170 data000,000,000,000,000,000,000,000
180 data128,000,000,096,000,000,120,000
190 data000,062,000,000,063,128,000,031
200 data000,000,031,000,000,015,128,000
210 data009,192,000,000,224,000,000,112
220 data000,000,032,000,000,000,000,000
230 data000,000,000,000,000,000,000,000
240 data000,000,000,000,000,000,000,000
250 data000,000,000,000,000,000,000,000
260 fori=0to15:fort=0to7:reada:poke254*64+i*8+t,a:next:next
270 data 000:rem top boundary
280 data 255:rem bottom boundary
290 data 000,000:rem left boundary
300 data 001,255:rem right boundary
310 data 002:rem pointer speed
320 data 004:rem flash speed
330 data 0,11,12,15,1,15,12,11,16:rem color data
340 data 000::rem button stop
350 tb=49619:reada:poketb,a
360 bb=49620:reada:pokebb,a
370 lh=49621:reada:pokelh,a
380 lb=49622:reada:pokelb,a
390 rh=49623:reada:pokerh,a
395 rb=49624:reada:pokerb,a
400 sp=49649:reada:pokesp,a
410 fl=49651:reada:pokefl,a
420 cl=49657:i=0
430 reada:pokecl+i,a:i=i+1:ifa<>16thengoto430
440 bs=49653:reada:pokebs,a
450 px=49654:rem pointer column (x)
460 py=49655:rem pointer row (y)
470 ch=49656:rem character pointed to
480 ll=49409:rem scrn pos (low byte)
490 lh=49410:rem scrn pos (high byte)
500 return