home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 37.dms / 37.adf / col.bas < prev    next >
Encoding:
BASIC Source File  |  1988-05-22  |  4.2 KB  |  147 lines
  1. 1     goto 200
  2. 5     rem
  3. 10    scnclr
  4. 11    c=0 : c1=1 : c2=2 : c3=3 : c4=4 : c5=5 : c6=6 : c7=7 : c8=8
  5. 12    c9=9 : c10=10 : c11=11 : c12=12 : c13=13 : c14=14 : c15=15 : c16=16
  6. 13    c17=17 :c18=18 : c19=19 : c20=20 : c21=21 : c22=22 : c23=23 : c24=24
  7. 14    c25=25 : c26=26 : c27=27 : c28=28 : c29=29 : c30=30 : c31=31
  8. 15    y=1 : y1=47 : y2=95 : y3=141
  9. 16    pena c
  10. 17    draw (1,y to 37,y)
  11. 18    if y=46 then c=c+1 : if c=32 then c=0
  12. 19    y=y+1 : if y=47 then y=1
  13. 20    pena c1
  14. 21    draw (38,y to 74,y)
  15. 22    if y=46 then c1=c1+1 : if c1=32 then c1=0
  16. 23    pena c2
  17. 24    draw (75,y to 111,y)
  18. 25    if y=46 then c2=c2+1 : if c2=32 then c2=0
  19. 26    pena c3
  20. 27    draw (112,y to 148,y)
  21. 28    if y=46 then c3=c3+1 : if c3=32 then c3=0
  22. 29    pena c4
  23. 30    draw (149,y to 185,y)
  24. 31    if y=46 then c4=c4+1 : if c4=32 then c4=0
  25. 32    pena c5
  26. 33    draw (186,y to 222,y)
  27. 34    if y=46 then c5=c5+1 : if c5=32 then c5=0
  28. 35    pena c6
  29. 36    draw (223,y to 259,y)
  30. 37    if y=46 then c6=c6+1 : if c6=32 then c6=0
  31. 38    pena c7
  32. 39    draw (260,y to 297,y)
  33. 40    if y=46 then c7=c7+1 : if c7=32 then c7=0
  34. 41    pena c8
  35. 42    draw (1,y1 to 37,y1)
  36. 43    if y1=93 then c8=c8+1 : if c8=32 then c8=0
  37. 44    y1=y1+1 : if y1=94 then y1=47
  38. 45    pena c9
  39. 46    draw (38,y1 to 74,y1)
  40. 47    if y1=93 then c9=c9+1 : if c9=32 then c9=0
  41. 48    pena c10
  42. 49    draw (75,y1 to 111,y1)
  43. 50    if y1=93 then c10=c10+1 : if c10=32 then c10=0
  44. 51    pena c11
  45. 52    draw (112,y1 to 149,y1)
  46. 53    if y1=93 then c11=c11+1 : if c11=32 then c11=0
  47. 54    pena c12
  48. 55    draw (149,y1 to 185,y1)
  49. 56    if y1=93 then c12=c12+1 : if c12=32 then c12=0
  50. 57    pena c13
  51. 58    draw (186,y1 to 222,y1)
  52. 59    if y1=93 then c13=c13+1 : if c13=32 then c13=0
  53. 60    pena c14
  54. 61    draw (223,y1 to 259,y1)
  55. 62    if y1=93 then c14=c14+1 : if c14=32 then c14=0
  56. 63    pena c15
  57. 64    draw (260,y1 to 296,y1)
  58. 65    if y1=93 then c15=c15+1 : if c15=32 then c15=0
  59. 66    pena c16
  60. 67    draw (1,y2 to 37,y2)
  61. 68    if y2=140 then c16=c16+1 : if c16=32 then c16=0
  62. 69    y2=y2+1 : if y2=141 then y2=94
  63. 70    pena c17
  64. 71    draw (38,y2 to 74,y2)
  65. 72    if y2=140 then c17=c17+1 : if c17=32 then c17=0
  66. 73    pena c18
  67. 74    draw (75,y2 to 111,y2)
  68. 75    if y2=140 then c18=c18+1 : if c18=32 then c18=0
  69. 76    pena c19
  70. 77    draw (112,y2 to 148,y2)
  71. 78    if y2=140 then c19=c19+1 : if c19=32 then c19=0
  72. 79    pena c20
  73. 80    draw (149,y2 to 185,y2)
  74. 81    if y2=140 then c20=c20+1 : if c20=32 then c20=0
  75. 82    pena c21
  76. 83    draw (186,y2 to 222,y2)
  77. 84    if y2=140 then c21=c21+1 : if c21=32 then c21=0
  78. 85    pena c22
  79. 86    draw (223,y2 to 259,y2)
  80. 87    if y2=140 then c22=c22+1 : if c22=32 then c22=0
  81. 88    pena c23
  82. 89    draw (260,y2 to 297,y2)
  83. 90    if y2=140 then c23=c23+1 : if c23=32 then c23=0
  84. 91    pena c24
  85. 92    draw (1,y3 to 37,y3)
  86. 93    if y3=187 then c24=c24+1 : if c24=32 then c24=0
  87. 94    y3=y3+1 : if y3=188 then y3=141
  88. 95    pena c25
  89. 96    draw (38,y3 to 74,y3)
  90. 97    if y3=187 then c25=c25+1 : if c25=32 then c25=0
  91. 98    pena c26
  92. 99    draw (75,y3 to 111,y3)
  93. 100   if y3=187 then c26=c26+1 : if c26=32 then c26=0
  94. 101   pena c27
  95. 102   draw (112,y3 to 148,y3)
  96. 103   if y3=187 then c27=c27+1 : if c27=32 then c27=0
  97. 104   pena c28
  98. 105   draw (149,y3 to 185,y3)
  99. 106   if y3=187 then c28=c28+1 : if c28=32 then c28=0
  100. 107   pena c29
  101. 108   draw (186,y3 to 222,y3)
  102. 109   if y3=187 then c29=c29+1 : if c29=32 then c29=0
  103. 110   pena c30
  104. 111   draw (223,y3 to 259,y3)
  105. 112   if y3=187 then c30=c30+1 : if c30=32 then c30=0
  106. 113   pena c31
  107. 114   draw (260,y3 to 296,y3)
  108. 115   if y3=187 then c31=c31+1 : if c31=32 then c31=0
  109. 116   ask mouse x%, y%, b%
  110. 117   if b% <> 0 then end
  111. 118   goto 16
  112. 200   screen 0,5,0
  113. 210   rgb 0,0,0,0
  114. 215   rgb 1,3,0,0
  115. 220   rgb 2,5,0,0
  116. 230   rgb 3,7,0,0
  117. 240   rgb 4,8,0,0
  118. 250   rgb 5,10,0,0
  119. 260   rgb 6,12,0,0
  120. 270   rgb 7,15,0,0
  121. 280   rgb 8,15,4,0
  122. 290   rgb 9,15,8,0
  123. 300   rgb 10,15,12,0
  124. 310   rgb 11,15,15,0
  125. 320   rgb 12,0,5,0
  126. 330   rgb 13,0,6,0
  127. 340   rgb 14,0,7,0
  128. 350   rgb 15,0,8,0
  129. 360   rgb 16,0,10,0
  130. 370   rgb 17,0,12,0
  131. 380   rgb 18,0,15,0
  132. 390   rgb 19,0,15,5
  133. 400   rgb 20,0,15,10
  134. 410   rgb 21,0,15,15
  135. 420   rgb 22,0,0,7
  136. 430   rgb 23,0,0,8
  137. 440   rgb 24,0,0,9
  138. 450   rgb 25,0,0,10
  139. 460   rgb 26,0,0,11
  140. 470   rgb 27,0,0,12
  141. 475   rgb 28,0,0,15
  142. 480   rgb 29,5,5,15
  143. 490   rgb 30,10,10,15
  144. 495   rgb 31,15,15,15
  145. 500   goto 5
  146. 1000  rgb 1,15,0,0
  147.