home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 1 #4 / Commodore_Disk_User_Vol.1_4_1988_-.d64 / hires (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  1.4 KB  |  66 lines
  1. 10 rem*********************************
  2. 20 rem*                               *
  3. 30 rem*  demo program for hires       *
  4. 40 rem*        routines               *
  5. 50 rem*                               *
  6. 60 rem*********************************
  7. 70 rem
  8. 80 rem
  9. 90 if a=0then a=1:load "hires.mc",8,1
  10. 100 ad=49152
  11. 110 sh=ad:rem set up hires
  12. 120 tx=ad+3:rem text restore
  13. 130 ch=ad+6:rem clear screen
  14. 140 cc=ad+9:rem clear colour
  15. 150 ph=ad+12:rem plot hires
  16. 160 pc=ad+15:rem plot colour
  17. 170 pb=ad+18:rem plot both
  18. 180 xl=251:rem x low
  19. 190 xh=252:rem x high
  20. 200 yl=253:rem y coord
  21. 210 cb=2:rem colour byte
  22. 220 px=254:rem plot indicator
  23. 230 rem
  24. 240 rem menu
  25. 250 rem
  26. 260 print "[147]"
  27. 270 print "[158]    height of resolution - demo"
  28. 280 print:print tab(10);"1.  random dot plot"
  29. 290 print:print tab(10);"2.  random colour boxes"
  30. 300 print:print tab(10);"3.  both together"
  31. 310 print:print tab(10);"[158]enter option"
  32. 320 get i$:if i$="" then 320
  33. 330 if i$>"3" or i$<"1" then 320
  34. 331 i=val(i$)
  35. 340 on i gosub 1000,2000,2000
  36. 360 sys tx:goto 260
  37. 900 rem
  38. 910 remrandom  dots
  39. 920 rem
  40. 1000 poke cb,7:sys sh:poke px,1
  41. 1010 gosub 5000
  42. 1020 get i$:if i$="" then 1010
  43. 1030 return
  44. 1900 rem
  45. 1910 rem random boxes
  46. 1920 rem
  47. 2000 poke cb,7:sys sh:poke px,1
  48. 2010 gosub 6000
  49. 2020 get i$:if i$="" then 2010
  50. 2030 return
  51. 4900 rem
  52. 4910 rem do a dot
  53. 4920 rem
  54. 5000 x=int(rnd(1)*319):y=int(rnd(1)*200)
  55. 5010 poke yl,y:poke xh,int(x/256):poke xl,x-256*int(x/256)
  56. 5020 sys ph
  57. 5040 return
  58. 5900 rem
  59. 5910 rem random colour box
  60. 5920 rem
  61. 6000 x=int(rnd(1)*319):y=int(rnd(1)*200)
  62. 6010 poke yl,y:poke xh,int(x/256):poke xl,x-256*int(x/256)
  63. 6020 co=int(rnd(1)*255):poke cb,co:if i=2 then sys pc:goto 6030
  64. 6025 sys pb
  65. 6030 return
  66.