home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 November / 1987-11.d64 / crystal clear (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  2.3 KB  |  87 lines
  1. 10 rem copyright 1987 compute! publications, inc. - all rights reserved
  2. 20 print"   copyright 1987 compute! pub., inc."
  3. 30 printtab(10)"all rights reserved"
  4. 40 fori=49152to49633:reada:pokei,a:x=x+a:next
  5. 50 ifx<>58435thenprint"error in data statements.":stop
  6. 60 data76,177,192,76,191,192
  7. 70 data76,203,192,76,217,192
  8. 80 data76,246,192,76,4,193
  9. 90 data76,76,193,76,88,193
  10. 100 data76,152,193,76,166,193
  11. 110 data165,251,133,105,165,252
  12. 120 data133,106,165,2,133,107
  13. 130 data32,89,192,165,253,145
  14. 140 data108,165,254,145,110,198
  15. 150 data107,240,31,165,108,24
  16. 160 data109,16,193,133,108,165
  17. 170 data109,105,0,133,109,165
  18. 180 data110,24,109,16,193,133
  19. 190 data110,165,111,105,0,133
  20. 200 data111,76,45,192,96,169
  21. 210 data0,133,39,165,106,133
  22. 220 data38,10,38,39,10,38
  23. 230 data39,10,38,39,133,40
  24. 240 data165,39,133,41,165,40
  25. 250 data10,38,39,10,38,39
  26. 260 data24,101,40,133,38,165
  27. 270 data39,101,41,133,39,169
  28. 280 data0,24,101,38,133,108
  29. 290 data169,4,101,39,133,109
  30. 300 data169,0,24,101,38,133
  31. 310 data110,169,216,101,39,133
  32. 320 data111,164,105,96,32,178
  33. 330 data193,169,40,141,16,193
  34. 340 data169,0,133,252,169,25
  35. 350 data133,2,96,32,160,192
  36. 360 data162,0,32,187,193,232
  37. 370 data224,20,208,248,96,32
  38. 380 data160,192,162,19,32,187
  39. 390 data193,202,16,250,96,32
  40. 400 data160,192,162,0,32,198
  41. 410 data193,232,224,40,208,248
  42. 420 data96,32,160,192,162,39
  43. 430 data32,198,193,202,16,250
  44. 440 data96,32,178,193,169,1
  45. 450 data141,16,193,169,0,133
  46. 460 data251,169,40,133,2,96
  47. 470 data32,229,192,162,0,32
  48. 480 data206,193,232,224,25,208
  49. 490 data248,96,32,229,192,162
  50. 500 data24,32,206,193,202,16
  51. 510 data250,96,0,0,173,12
  52. 520 data3,141,17,193,240,15
  53. 530 data173,17,208,48,251,173
  54. 540 data17,208,16,251,206,17
  55. 550 data193,208,241,96,32,68
  56. 560 data193,32,30,192,76,68
  57. 570 data193,32,60,193,32,30
  58. 580 data192,76,60,193,169,24
  59. 590 data56,229,252,133,252,96
  60. 600 data169,39,56,229,251,133
  61. 610 data251,96,32,229,192,162
  62. 620 data12,32,214,193,202,16
  63. 630 data250,96,32,229,192,162
  64. 640 data0,32,214,193,232,224
  65. 650 data13,208,248,96,138,133
  66. 660 data252,133,251,169,40,141
  67. 670 data16,193,169,25,56,229
  68. 680 data252,56,229,252,133,2
  69. 690 data32,30,192,32,42,193
  70. 700 data169,1,141,16,193,169
  71. 710 data40,56,229,252,56,229
  72. 720 data252,133,2,32,30,192
  73. 730 data32,51,193,76,18,193
  74. 740 data32,229,192,162,0,32
  75. 750 data102,193,232,224,13,208
  76. 760 data248,96,32,229,192,162
  77. 770 data12,32,102,193,202,16
  78. 780 data250,96,134,253,132,254
  79. 790 data169,19,76,202,241,134
  80. 800 data251,32,30,192,32,42
  81. 810 data193,76,18,193,134,251
  82. 820 data32,30,192,76,18,193
  83. 830 data134,252,32,30,192,76
  84. 840 data18,193,134,252,32,30
  85. 850 data192,32,51,193,76,18
  86. 860 data193,193,202,16,250,96
  87.