home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 November / 1987-11.d64 / crystalcleardemo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  1.8 KB  |  50 lines
  1. 10 rem copyright 1987 compute! publications, inc. - all rights reserved
  2. 20 x=780:y=781:z=782:fori=0to9:a(i)=49152+3*i:next:poke53280,0:poke53281,0
  3. 30 printchr$(14)"[147][151]   [195]opyright 1987 [195][207][205][208][213][212][197]! [208]ub., [201]nc."
  4. 40 printtab(10)"[193]ll [210]ights [210]eserved"
  5. 50 print"[155][195]rystal [195]lear is a machine language"
  6. 60 print"routine that will spruce up your [194][193][211][201][195]"
  7. 70 print"and machine language programs. [201]t allows";
  8. 80 print"you to clear the screen with ten"
  9. 90 print"different patterns.  [217]ou also have"
  10. 100 print"control over the speed, print character,"
  11. 110 print"and the color."
  12. 120 print"[198]irst, let's look at the patterns.":gosub450
  13. 130 pokex,3:pokey,32:pokez,0:sysa(0):printchr$(142)
  14. 140 for i=2 to 12:poke x,2:poke y,160:poke z,i:j=j+1:if j>9 then j=0
  15. 150 sysa(0)+j*3:next i:pokex,1:pokey,32:pokez,0:sysa(9)
  16. 160 printchr$(14)"[155][195]rystal [195]lear allows you to use any"
  17. 170 print"color or character available. [212]here"
  18. 180 print"are practically endless combinations."
  19. 190 print"[217]ou can use one routine or two or more"
  20. 200 print"in succession to produce dazzling"
  21. 210 print"displays.":gosub450:gosub480:poke 53272,21
  22. 220 pokex,3:pokey,120:pokez,6:sysa(1):printchr$(142)
  23. 230 pokex,3:pokey,121:pokez,14:sysa(0):gosub480
  24. 240 for d=1to7:poke x,1:poke y,86:poke z,d:sysa(8)
  25. 250 pokex,1:pokey,32:sysa(9):nextd:gosub480:poke 53272,23
  26. 260 pokex,2:pokey,95:pokez,15:sysa(9)
  27. 270 pokex,2:pokey,105:pokez,12:sysa(9):gosub480
  28. 280 pokex,2:pokey,123:pokez,7:sysa(7)
  29. 290 pokex,2:pokey,97:pokez,6:sysa(6)
  30. 300 pokex,2:pokey,124:pokez,7:sysa(7):gosub480
  31. 310 pokex,1:pokey,127:pokez,1:sysa(2)
  32. 320 pokex,2:pokey,32:pokez,0:sysa(3)
  33. 330 pokex,1:pokey,127:pokez,1:sysa(3)
  34. 340 pokex,2:pokey,32:pokez,0:sysa(2)
  35. 350 pokex,1:pokey,127:pokez,1:sysa(4)
  36. 360 pokex,1:pokey,32:pokez,0:sysa(5):gosub480
  37. 370 form=1to6:pokex,1:pokey,91:pokez,m:sysa(9):next
  38. 380 pokex,1:pokey,32:pokez,0:sysa(8)
  39. 390 printchr$(14)"[155][206]ow we'll take a journey through"
  40. 400 print"the character set at full speed!"
  41. 410 gosub450:print"[147]"chr$(142)
  42. 420 for i=0 to 255:poke x,0:poke y,i:poke z,i:j=j+1:if j>9 then j=0
  43. 430 sys49152+j*3:next i
  44. 440 poke x,2:poke y,32:poke z,0:sys49152+9*3:poke53272,21:end
  45. 450 printspc(6)"[208][210][197][211][211] [193][206][217] [203][197][217] [212][207] [195][207][206][212][201][206][213][197]"                          "
  46. 460 [151]198,0:[161]dh$:[139] dh$[178]""[167]460
  47. 470 [142]
  48. 480 [151]x,2:[151]y,32:[151]z,0:[158]a(9):[129]d[178]1[164]1000:[130]
  49. 490 [142]
  50.