home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 August / 1985-08.d64 / toolbox (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  1.6 KB  |  64 lines
  1. 10 gosub 600
  2. 20 print"[147]run 100 for sine curve"
  3. 30 print "run 200 for joystick plotting"
  4. 40 end
  5. 100 gosub 1000:poke flag,0
  6. 110 sys clear:sys colr,1
  7. 120 for x=0 to 319 step.5
  8. 130 y= int(100+60*sin(x/10))
  9. 140 sys plot,x,y
  10. 150 next
  11. 160 poke 198,0:wait 198,15:gosub 2000:end
  12. 200 gosub 1000
  13. 205 sys clear:sys colr,1
  14. 210 yj(1)=-1:yj(2)=1:xj(4)=-1:xj(5)=-1:yj(5)=-1:xj(6)=-1:yj(6)=1:xj(8)=1
  15. 215 xj(9)=1:yj(9)=-1:xj(10)=1:yj(10)=1
  16. 220 jv=15-(peek(56320)and15)
  17. 230 x=x+xj(jv)
  18. 240 y=y+yj(jv):poke flag,0
  19. 245 if(peek(56320)and16)=0then poke flag,1
  20. 250 sys plot,x,y:goto 220
  21. 600 sa=49152:for a=sa to sa+186:read b:ck=ck+b:poke a,b:next
  22. 605 if ck=19865 then return
  23. 610 print "[147] error in data ":end
  24. 620 data 169,0,133,2,169,32
  25. 630 data 133,3,162,32,160,0
  26. 640 data 152,145,2,136,208,251
  27. 650 data 230,3,202,208,246,96
  28. 660 data 169,0,133,2,169,4
  29. 670 data 133,3,32,177,192,152
  30. 680 data 162,4,160,0,145,2
  31. 690 data 136,208,251,230,3,202
  32. 700 data 208,246,96,32,177,192
  33. 710 data 133,5,152,41,248,133
  34. 720 data 4,152,41,7,133,6
  35. 730 data 32,177,192,152,74,74
  36. 740 data 74,133,3,152,41,248
  37. 750 data 133,2,169,0,133,251
  38. 760 data 162,3,6,2,38,251
  39. 770 data 202,208,249,165,3,24
  40. 780 data 101,251,133,3,152,41
  41. 790 data 7,24,101,2,133,2
  42. 800 data 144,2,230,3,24,101
  43. 810 data 4,133,2,165,3,105
  44. 820 data 32,133,3,165,3,101
  45. 830 data 5,133,3,166,6,232
  46. 840 data 169,0,56,106,202,208
  47. 850 data 252,166,252,240,27,160
  48. 860 data 0,72,81,2,145,2
  49. 870 data 169,0,133,162,165,162
  50. 880 data 201,2,208,250,104,73
  51. 890 data 255,49,2,145,2,24
  52. 900 data 144,6,160,0,17,2
  53. 910 data 145,2,96,32,253,174
  54. 920 data 32,158,173,32,170,177
  55. 930 data 96
  56. 1000 rem turn on hires graphics
  57. 1010 sa = 49152:poke53272,peek(53272)or8:rem put bit map at 8192
  58. 1020 poke 53265,peek(53265)or32:rem turn bit map on
  59. 1025 clear = sa:colr = sa+24:plot = sa+51:flag = 252
  60. 1030 return
  61. 2000 rem turn off hires graphics
  62. 2010 poke 53272,21:poke 53265,27:rem restore default values
  63. 2020 print "[147]":return
  64.