home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 January / 1990-01.d64 / pointer.demo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  2.2 KB  |  79 lines
  1. 5 print"[147][154]":poke53280,14:poke53281,6
  2. 10 ifpeek(49152)<>76thenload"pointer.ml",8,1
  3. 20 print"[147]";tab(12)"copyright 1990"
  4. 30 printtab(7)"compute! publications, inc."
  5. 40 printtab(10)"all rights reserved"
  6. 50 for jf=1to2000:next
  7. 60 gosub470:en=100
  8. 70 print"[147]"
  9. 80 a$="[144][218][218][218][159][218][156][218][218][218][158][218][129][218][149][218][150][218][151][218][152][218][153][218][154][218][155][218]":dima$(15)
  10. 90 fori=0to15:a$(i)=mid$(a$,(i+1)*2-1,1):next:c=peek(646)and15
  11. 100 goto200
  12. 110 printtab(13)a$(c)"select colors"
  13. 120 print"                      111111"
  14. 130 print"            0123456789012345"
  15. 140 print"           [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  16. 150 print" foreground[194]"a$a$(c)"[194]"
  17. 160 print"     border[194]"a$a$(c)"[194]"
  18. 170 print"  character[194]"a$a$(c)"[194]"
  19. 180 print"       quit[194]       [209][209]       [221]"
  20. 190 print"           [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]":return
  21. 200 tb%=146:lb%=120:rb%=247:rh%=0:bb%=177:gosub760:gosub110
  22. 210 poke 53269,128:poke53262,120:poke53263,146:poke2047,254:sys 49152
  23. 220 gosub730
  24. 230 onpeek(py)-11goto240,250,260,270
  25. 240 poke53281,peek(px)-12:goto220
  26. 250 poke53280,peek(px)-12:goto220
  27. 260 c=peek(px)-12:print"":gosub110:goto220
  28. 270 i=peek(px)-12:ifi<7ori>8then220
  29. 280 poke 53269,0:tb%=98:bb%=201:lb%=104:rb%=111:rh%=0:gosub760:poke53262,104
  30. 290 poke53263,114:poke53269,128:pokesp,2:pokebs,0
  31. 300 sys49155:print"[147]";:poke53269,0:end
  32. 310 data128,000,000,096,000,000,088,000
  33. 320 data000,038,000,000,033,128,000,017
  34. 330 data000,000,017,000,000,014,128,000
  35. 340 data009,064,000,000,160,000,000,080
  36. 350 data000,000,032,000,000,000,000,000
  37. 360 data000,000,000,000,000,000,000,000
  38. 370 data000,000,000,000,000,000,000,000
  39. 380 data000,000,000,000,000,000,000,000
  40. 390 data128,000,000,096,000,000,120,000
  41. 400 data000,062,000,000,063,128,000,031
  42. 410 data000,000,031,000,000,015,128,000
  43. 420 data009,192,000,000,224,000,000,112
  44. 430 data000,000,032,000,000,000,000,000
  45. 440 data000,000,000,000,000,000,000,000
  46. 450 data000,000,000,000,000,000,000,000
  47. 460 data000,000,000,000,000,000,000,000
  48. 470 fori=0to15:fort=0to7:reada:poke254*64+i*8+t,a:next:next
  49. 480 data 000
  50. 490 data 255
  51. 500 data 000,000
  52. 510 data 001,255
  53. 520 data 001
  54. 530 data 004
  55. 540 data 0,1,16
  56. 550 data 000
  57. 560 tb=49619:reada:poketb,a
  58. 570 bb=49620:reada:pokebb,a
  59. 580 lh=49621:reada:pokelh,a
  60. 590 lb=49622:reada:pokelb,a
  61. 600 rh=49623:reada:pokerh,a
  62. 610 rb=49624:reada:pokerb,a
  63. 620 sp=49649:reada:pokesp,a
  64. 630 fl=49651:reada:pokefl,a
  65. 640 cl=49657:i=0
  66. 650 reada:pokecl+i,a:i=i+1:ifa<>16thengoto650
  67. 660 bs=49653:reada:pokebs,a
  68. 670 px=49654:rem pointer column (x)
  69. 680 py=49655:rem pointer row (y)
  70. 690 ch=49656:rem character pointed to
  71. 700 ll=49409:rem scrn pos (low byte)
  72. 710 lh=49410:rem scrn pos (high byte)
  73. 720 return
  74. 730 wait56320,16,16:wait56320,16
  75. 740 ch%=peek(ch)
  76. 750 return
  77. 760 pokerh,rh%:pokelh,lh%
  78. 770 poketb,tb%:pokebb,bb%:pokerb,rb%:pokelb,lb%:poke53269,128:return
  79.