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