home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 January / 1990-01.d64 / pointer.setup (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.4 KB  |  47 lines
  1. 1 ifpeek(49152)<>76thenload"pointer.ml",8,1
  2. 5 gosub 260
  3. 10 poke 53269,128:poke 53262,24:poke53263,50:poke2047,255:sys 49152
  4. 20 end
  5. 100 data128,000,000,096,000,000,088,000
  6. 110 data000,038,000,000,033,128,000,017
  7. 120 data000,000,017,000,000,014,128,000
  8. 130 data009,064,000,000,160,000,000,080
  9. 140 data000,000,032,000,000,000,000,000
  10. 150 data000,000,000,000,000,000,000,000
  11. 160 data000,000,000,000,000,000,000,000
  12. 170 data000,000,000,000,000,000,000,000
  13. 180 data128,000,000,096,000,000,120,000
  14. 190 data000,062,000,000,063,128,000,031
  15. 200 data000,000,031,000,000,015,128,000
  16. 210 data009,192,000,000,224,000,000,112
  17. 220 data000,000,032,000,000,000,000,000
  18. 230 data000,000,000,000,000,000,000,000
  19. 240 data000,000,000,000,000,000,000,000
  20. 250 data000,000,000,000,000,000,000,000
  21. 260 fori=0to15:fort=0to7:reada:poke254*64+i*8+t,a:next:next
  22. 270 data 000:rem top boundary
  23. 280 data 255:rem bottom boundary
  24. 290 data 000,000:rem left boundary
  25. 300 data 001,255:rem right boundary
  26. 310 data 002:rem pointer speed
  27. 320 data 004:rem flash speed
  28. 330 data 0,11,12,15,1,15,12,11,16:rem color data
  29. 340 data 000::rem button stop
  30. 350 tb=49619:reada:poketb,a
  31. 360 bb=49620:reada:pokebb,a
  32. 370 lh=49621:reada:pokelh,a
  33. 380 lb=49622:reada:pokelb,a
  34. 390 rh=49623:reada:pokerh,a
  35. 395 rb=49624:reada:pokerb,a
  36. 400 sp=49649:reada:pokesp,a
  37. 410 fl=49651:reada:pokefl,a
  38. 420 cl=49657:i=0
  39. 430 reada:pokecl+i,a:i=i+1:ifa<>16thengoto430
  40. 440 bs=49653:reada:pokebs,a
  41. 450 px=49654:rem pointer column (x)
  42. 460 py=49655:rem pointer row (y)
  43. 470 ch=49656:rem character pointed to
  44. 480 ll=49409:rem scrn pos (low byte)
  45. 490 lh=49410:rem scrn pos (high byte)
  46. 500 return
  47.