home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1985 December
/
1985-12.d64
/
trackmouse
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
519b
|
14 lines
10 s=49152:rem starting address
20 print"[147][144]":poke 53280,6:poke53281,12:fora=stos+84:readb:pokea,b:c=c+b:next
30 ifc<>8486thenprint"[147]typing error!":stop
40 pokes+7,s/256:pokes+2,s-256*peek(s+7)+13
50 syss:print "trackmouse activated"
60 data 120,169,13,141,20,3,169,192,141,21,3
70 data 88,96,230,2,165,2,41,3,208,61,173
80 data 0,220,73,255,168,41,1,240,2,208,28
90 data 152,41,2,240,2,208,24,152,41,4,240
100 data 2,208,20,152,41,8,240,2,208,16,152
110 data 41,16,240,23,208,12,169,145,44,169,17
120 data 44,169,157,44,169,29,44,169,13,160,1
130 data 132,198,141,119,2,76,49,234