home *** CD-ROM | disk | FTP | other *** search
/ RBBS in a Box Volume 1 #3.1 / RBBSIABOX31.cdr / typd / tree3.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-12-10  |  12.3 KB  |  292 lines
  1. 5  CLEAR ,,8192 :DEFINT A-Z :PLAY "MB" :GOSUB 19900
  2. 1090  READ S,O :IF S=32767 THEN GOTO 4990
  3. 1100  READ N,D :IF N=-1 THEN GOSUB 22320 :GOTO 1090
  4. 1110  IF MUS.ON THEN SOUND F!(N+O),D :SOUND 32767,S
  5. 1115  '*** SNOW ***                                                                   '
  6. 1117  GET (280,31)-(309,99),S
  7. 1119  PUT (280,31),S,XOR
  8. 1120  PUT (280,31),S,XOR
  9. 1122  PUT (280,31),S,XOR
  10. 1124  PUT (280,32),S,XOR
  11. 1125  PSET (RND*27+280,31),3
  12. 1126  '*** MOVE FIRE ***                                                              '
  13. 1127  FIRE=FIRE+1 :IF FIRE>4 THEN FIRE=1
  14. 1128  ON FIRE GOTO 1129,1130,1131,1132
  15. 1129  PUT(22,100),FIRE1,PSET :GOTO 1135
  16. 1130  PUT(26,100),FIRE2,PSET :GOTO 1135
  17. 1131  PUT(26,100),FIRE1,PSET :GOTO 1135
  18. 1132  PUT(22,100),FIRE2,PSET
  19. 1135  EVENT=EVENT+1 :IF EVENT>MAXEVENT THEN EVENT=1'*** SELECT EVENT ***
  20. 1140  ON EVENT GOTO 1900,1400,1500,1900,1300,1400,1900,1900
  21. 1300  '*** MOVE STAR AND BIRDS ***                                                    '
  22. 1302  STAR=1-STAR :IF STAR THEN PUT(188,0),STAR1,PSET :PUT(276,17),BIRD1,PSET         ELSE PUT(188,0),STAR2,PSET :PUT(276,17),BIRD2,PSET
  23. 1304  GOTO 1100
  24. 1400  '*** MOVE CLOCK ***                                                             '
  25. 1401  REM IF MUS.ON=0 THEN MOTOR
  26. 1402  CLOCK=CLOCK+1 :IF CLOCK>4 THEN CLOCK=1
  27. 1405  ON CLOCK GOTO 1410,1415,1420,1425
  28. 1410  PUT(104,88),CLOCK1,PSET :GOTO 1100
  29. 1415  PUT(104,88),CLOCK2,PSET :GOTO 1100
  30. 1420  PUT(104,88),CLOCK3,PSET :GOTO 1100
  31. 1425  PUT(104,88),CLOCK2,PSET :GOTO 1100
  32. 1500  '*** PAINT CANDLES ***                                                          '
  33. 1502  PAINT(19,41),CANDLE,0
  34. 1504  CANDLE=-((CANDLE=2)*3+(CANDLE=3)*2)
  35. 1506  PAINT(53,41),CANDLE,0
  36. 1508  GOTO 1100
  37. 1900  '*** BLINK LIGHTS ***
  38. 1901  LIT=1-LIT :IF LIT THEN GOTO 1910
  39. 1902  L=L+1 :IF L>30 THEN L=0
  40. 1905  CIRCLE(LX(L),LY(L)),2,1 :PSET(LX(L),LY(L)),1 :GOTO 1100
  41. 1910  CIRCLE(LX(L),LY(L)),2,0 :PSET(LX(L),LY(L)),RND*4 :GOTO 1100
  42. 4990  IF MUS.ON THEN GOSUB 22110 :GOSUB 22110 :MUS.ON=0
  43. 4992  RESTORE 5000 :GOTO 1090
  44. 5000  DATA 1,12 :'O TANNENBAUM                                                                   '
  45. 5001  DATA 39,8,44,6,44,2,44,8,46,8,48,6,48,2,48,12,48,4
  46. 5002  DATA 46,4,48,4,49,8,43,8,46,8,44,12
  47. 5003  DATA 39,8,44,6,44,2,44,8,46,8,48,6,48,2,48,12,48,4
  48. 5004  DATA 46,4,48,4,49,8,43,8,46,8,44,12
  49. 5005  DATA -12,4,51,4,51,4,48,4,53,10,51,4,51,4,49,4,49,10,49,4
  50. 5006  DATA 49,4,46,4,51,10,49,4,49,4,48,4,48,8,39,8
  51. 5007  DATA 44,6,44,2,44,8,46,8,48,6,48,2,48,12
  52. 5008  DATA 48,4,46,4,48,4,49,8,43,8,46,8,44,16
  53. 5009  DATA -12,14,-1,-1
  54. 5010  DATA 1,12 :'HARK THE HAROLD ANGELS SING                                                    '
  55. 5011  DATA 40,4,45,4,45,5,44,2,45,4,49,4,49,4,47,4
  56. 5012  DATA 52,4,52,4,52,5,50,2,49,4,47,4,49,8
  57. 5013  DATA 40,4,45,4,45,5,44,2,45,4,49,4,49,4,47,4
  58. 5014  DATA 52,4,47,4,47,4,44,4,44,4,42,4,40,8
  59. 5015  DATA 52,4,52,4,52,4,45,4,50,4,49,4,49,4,47,4
  60. 5016  DATA 52,4,52,4,52,4,45,4,50,4,49,4,49,4,47,4
  61. 5017  DATA 54,4,54,4,54,4,52,4,50,4,49,4,50,8
  62. 5018  DATA 47,4,49,1,50,1,52,5,45,2,45,4,47,4,49,9
  63. 5019  DATA 54,4,54,4,54,4,52,4,50,4,49,4,50,8
  64. 5020  DATA 47,4,49,1,50,1,52,5,45,2,45,4,47,4,45,10
  65. 5021  DATA -12,14,-1,-1
  66. 5022  DATA 1,12 :'DECK THE HALLS                                                                 '
  67. 5023  DATA 52,5,50,2,49,4,47,4,45,4,47,4,49,4,45,4
  68. 5024  DATA 47,2,49,2,50,2,47,2,49,5,47,2,45,4,44,4,45,10
  69. 5025  DATA 52,5,50,2,49,4,47,4,45,4,47,4,49,4,45,4
  70. 5026  DATA 47,2,49,2,50,2,47,2,49,5,47,2,45,4,44,4,45,10
  71. 5027  DATA 47,5,49,2,50,4,47,4,49,5,50,2,52,4,47,4
  72. 5028  DATA 49,2,51,2,52,4,54,2,56,2,57,4,56,4,54,4,52,10
  73. 5029  DATA 52,5,50,2,49,4,47,4,45,4,47,4,49,4,45,4
  74. 5030  DATA 54,2,54,2,54,2,54,2,52,5,50,2,49,4,47,4,45,10
  75. 5039  DATA -12,14,-1,-1
  76. 5040  DATA 1,-24 :'UP ON THE HOUSE-TOP                                                            '
  77. 5041  DATA 52,4,52,2,54,2,52,4,49,2,47,2,45,4,49,4,52,8
  78. 5042  DATA 54,4,54,4,52,4,49,4,47,4,52,4,52,8
  79. 5043  DATA 52,4,52,2,54,2,52,4,49,2,47,2,45,4,49,4,52,8
  80. 5044  DATA 54,4,54,2,54,2,52,2,52,2,49,4,47,4,52,4,45,8
  81. 5045  DATA 50,4,50,4,54,8,52,4,52,2,52,2,49,8
  82. 5046  DATA 47,4,50,4,50,8,49,4,52,2,52,2,45,4,49,4
  83. 5047  DATA 52,4,52,2,54,2,52,4,49,4,50,4,52,4,54,8
  84. 5048  DATA 52,4,52,2,54,2,52,2,52,2,49,4,47,4,52,4,45,10
  85. 5049  DATA 24,14,-1,-1
  86. 5050  DATA 1,-12 :'IT CAME UPON THE MIDNIGHT CLEAR                                                '
  87. 5051  DATA 47,4,56,8,54,4,54,4,52,4,49,4,47,8,49,4,47,8
  88. 5052  DATA 47,4,49,4,51,4,52,4,52,4,54,4,56,4,54,20
  89. 5053  DATA 47,4,56,8,51,4,54,4,52,4,49,4,47,8,49,4,47,8
  90. 5054  DATA 47,4,49,8,49,4,51,4,49,4,47,4,52,20
  91. 5055  DATA 56,4,56,8,44,4,44,4,46,4,48,4,49,8,51,4,52,8
  92. 5056  DATA 56,4,54,4,52,4,51,4,49,4,51,4,49,4,47,20
  93. 5057  DATA 47,4,56,8,51,4,54,4,52,4,49,4,47,8,49,4,47,8
  94. 5058  DATA 47,4,49,8,49,4,51,4,49,4,47,4,52,20
  95. 5059  DATA 12,14,-1,-1
  96. 5060  DATA 1,0 :'AWAY IN A MANGER (JACK NELSON)                                                 '
  97. 5061  DATA 40,4,45,4,45,4,49,2,47,2,45,4,45,4,40,4,42,4,45,4,42,4,40,8
  98. 5062  DATA 40,4,45,4,45,4,47,4,49,4,49,4,52,4,52,4,49,4,45,4,47,8
  99. 5063  DATA 40,4,45,4,45,4,49,2,47,2,45,4,45,4,40,4,42,4,50,4,42,4,40,8
  100. 5064  DATA 40,4,45,4,45,4,47,4,49,4,52,4,50,4,49,4,40,4,44,4,45,8
  101. 5065  DATA 44,2,45,2,47,4,47,4,52,4,47,4,47,4,44,4,47,4,45,4,42,4,40,8
  102. 5066  DATA 44,2,45,2,47,4,47,4,52,4,47,4,47,4,44,4
  103. 5067  DATA 45,2,44,2,45,2,47,2,49,2,51,2,52,8
  104. 5068  DATA 54,4,52,4,49,4,49,2,47,2,45,4,45,4,40,4,42,4,50,4,42,4,40,8
  105. 5069  DATA 40,4,45,4,45,4,47,4,49,4,52,4,50,4,49,4,40,4,44,4,45,8
  106. 5070  DATA 0,14,-1,-1
  107. 5071  DATA 1,0 :'WHAT CHILD IS THIS?                                                            '
  108. 5072  DATA 44,4,47,8,49,4,51,5,52,2,51,4,49,8
  109. 5073  DATA 46,4,42,5,44,2,46,4,47,8,44,4,44,5,43,2,44,4,46,12,39,8
  110. 5074  DATA 44,4,47,8,49,4,51,5,52,2,51,4,49,8
  111. 5075  DATA 46,4,42,5,44,2,46,4,47,5,46,2,44,4,43,5,41,2,43,4,44,12,44,12
  112. 5076  DATA 54,12,54,5,52,2,51,4,49,8,46,4,42,5,44,2,46,4,47,8
  113. 5077  DATA 44,4,44,5,43,2,44,4,46,8,43,4,39,12
  114. 5078  DATA 54,12,54,5,52,2,51,4,49,8,46,4,42,5,44,2,46,4
  115. 5079  DATA 47,5,46,2,44,4,43,5,41,2,43,4,44,12,44,8
  116. 5080  DATA 44,4,47,8,49,4,51,5,52,2,51,4,49,8
  117. 5081  DATA 46,4,42,5,44,2,46,4,47,8,44,4,44,5,43,2,44,4,46,12,39,8
  118. 5082  DATA 44,4,47,8,49,4,51,5,52,2,51,4,49,8
  119. 5083  DATA 46,4,42,5,44,2,46,4,47,5,46,2,44,4,43,5,41,2,43,4,44,12,44,12
  120. 5084  DATA 54,12,54,5,52,2,51,4,49,8,46,4,42,5,44,2,46,4,47,8
  121. 5085  DATA 44,4,44,5,43,2,44,4,46,8,43,4,39,12
  122. 5086  DATA 54,12,54,5,52,2,51,4,49,8,46,4,42,5,44,2,46,4
  123. 5087  DATA 47,5,46,2,44,4,43,5,41,2,43,4,44,12,44,8
  124. 5088  DATA 0,14,-1,-1
  125. 5089  DATA 1,-12 :'JINGLE BELLS                                                                   '
  126. 5090  DATA 40,4,40,4,49,4,47,4,45,4,40,12,40,2,40,2,40,4,49,4,47,4,45,4,42,12
  127. 5091  DATA 42,4,42,4,50,4,49,4,47,4,44,12,44,4,52,4,52,4,50,4,47,4,49,12
  128. 5092  DATA 40,4,40,4,49,4,47,4,45,4,40,12,40,2,40,2,40,4,49,4,47,4,45,4,42,12
  129. 5093  DATA 42,4,42,4,50,4,49,4,47,4,52,4,52,4,52,4,52,4,54,4,52,4,50,4,47,4,45,16
  130. 5094  DATA 49,4,49,4,49,8,49,4,49,4,49,8,49,4,52,4,45,4,47,4,49,16
  131. 5095  DATA 50,4,50,4,50,4,50,4,50,4,49,4,49,4,49,2,49,2,49,4,47,4,47,4
  132. 5096  DATA 49,4,47,8,52,8
  133. 5097  DATA 49,4,49,4,49,8,49,4,49,4,49,8,49,4,52,4,45,4,47,4,49,16
  134. 5098  DATA 50,4,50,4,50,4,50,4,50,4,49,4,49,4,49,2,49,2,52,4,52,4,50,4,47,4,45,12
  135. 5108  DATA 12,14,-1,-1
  136. 5109  DATA 1,0:'O LITTLE TOWN OF BETHLEHEM                                                     '
  137. 5110  DATA 49,4,49,4,49,4,48,4,49,4,52,4,50,4,42,4
  138. 5111  DATA 47,4,45,4,44,2,45,2,47,4,40,4,49,12
  139. 5112  DATA 49,4,49,4,49,4,54,4,52,4,52,4,50,4,42,4
  140. 5113  DATA 47,4,45,4,44,2,45,2,49,4,47,4,45,12
  141. 5114  DATA 49,4,49,4,49,4,47,4,45,4,44,8,44,4,44,4,42,4,44,4,45,4,47,4,49,12
  142. 5115  DATA 49,4,49,4,49,4,48,4,49,4,52,4,50,4,42,4
  143. 5116  DATA 54,4,52,4,45,4,49,4,47,4,45,12
  144. 5117  DATA 49,4,49,4,49,4,48,4,49,4,52,4,50,4,42,4
  145. 5118  DATA 47,4,45,4,44,2,45,2,47,4,40,4,49,12
  146. 5119  DATA 49,4,49,4,49,4,54,4,52,4,52,4,50,4,42,4
  147. 5120  DATA 47,4,45,4,44,2,45,2,49,4,47,4,45,12
  148. 5121  DATA 49,4,49,4,49,4,47,4,45,4,44,8,44,4,44,4,42,4,44,4,45,4,47,4,49,12
  149. 5122  DATA 49,4,49,4,49,4,48,4,49,4,52,4,50,4,42,4
  150. 5123  DATA 54,4,52,4,45,4,49,4,47,4,45,12
  151. 5124  DATA 49,4,49,4,49,4,47,4,45,4,44,8
  152. 5125  DATA 44,4,44,4,42,4,44,4,45,4,47,4,49,12
  153. 5126  DATA 49,4,49,4,49,4,48,4,49,4,52,4,50,4,42,4
  154. 5127  DATA 54,4,52,4,45,4,49,4,47,4,45,8
  155. 5128  DATA 0,14,-1,-1
  156. 5129  DATA 1,0:'AWAY IN A MANGER (TRADITIONAL)
  157. 5130  DATA 52,4,52,5,50,2,49,4,49,5,47,2,45,4,45,4,44,4,42,4,40,8
  158. 5131  DATA 40,4,40,5,42,2,40,4,40,4,47,4,44,4,42,4,40,4,45,4,49,8
  159. 5132  DATA 52,4,52,5,50,2,49,4,49,5,47,2,45,4,45,4,44,4,42,4,40,8
  160. 5133  DATA 40,4,50,5,49,2,47,4,49,4,47,4,45,4,47,4,42,4,44,4,45,12
  161. 5134  DATA 42,4,45,4,50,4,40,4,45,4,49,4,40,4,44,4,47,4,49,12
  162. 5135  DATA 42,4,45,4,50,4,40,4,45,4,49,4,40,4,44,4,47,4,45,8
  163. 5136  DATA 52,4,52,5,50,2,49,4,49,5,47,2,45,4,45,4,44,4,42,4,40,8
  164. 5137  DATA 40,4,40,5,42,2,40,4,40,4,47,4,44,4,42,4,40,4,45,4,49,8
  165. 5138  DATA 52,4,52,5,50,2,49,4,49,5,47,2,45,4,45,4,44,4,42,4,40,8
  166. 5139  DATA 40,4,50,5,49,2,47,4,49,4,47,4,45,4,47,4,42,4,44,4,45,12
  167. 5140  DATA 0,14,-1,-1
  168. 5150  DATA 1,0 :'GOD REST YE MERRY GENTLEMEN
  169. 5151  DATA 42,4,42,4,49,4,49,4,47,4,45,4,44,4,42,4,40,4
  170. 5152  DATA 42,4,44,4,45,4,47,4,49,12
  171. 5153  DATA 42,4,42,4,49,4,49,4,47,4,45,4,44,4,42,4,40,4
  172. 5154  DATA 42,4,44,4,45,4,47,4,49,12
  173. 5155  DATA 49,4,50,4,47,4,49,4,50,4,52,4,54,4,49,4,47,4
  174. 5156  DATA 45,4,42,4,44,4,45,4,47,8,45,4,47,4,49,8
  175. 5157  DATA 50,4,49,4,49,4,47,4,45,4,44,4,42,8
  176. 5158  DATA 45,2,44,2,42,4,47,8
  177. 5159  DATA 45,4,47,4,49,4,50,4,52,4,54,4
  178. 5160  DATA 49,4,47,4,45,4,44,4,42,10
  179. 5161  DATA 0,14,-1,-1
  180. 5170  DATA 1,0 :'SILENT NIGHT
  181. 5171  DATA 47,11,49,4,47,8,44,24,47,11,49,4,47,8,44,24
  182. 5172  DATA 54,16,54,8,51,24,52,16,52,8,47,24
  183. 5173  DATA 49,16,49,8,52,11,51,4,49,8,47,11,49,4,47,8,44,24
  184. 5174  DATA 49,16,49,8,52,11,51,4,49,8,47,11,49,4,47,8,44,24
  185. 5175  DATA 54,16,54,8,57,11,54,4,51,8,52,24,56,24
  186. 5176  DATA 52,8,47,8,44,8,47,8,45,8,42,8,40,24
  187. 5177  DATA 0,14,-1,-1
  188. 5999  DATA 32767,32767
  189. 19900  '*** INIT PROGRAM ***
  190. 19910  X=0 :L=0 :MUS.ON=1 :EVENT=0 :MAXEVENT=8 :N=0 :D=0 :O=0 :S=0 :CLOCK=3 :CANDLE=2 :FIRE=1 :X1=0 :LIT=0 :STAR=0 :HAND=11
  191. 19920  DIM S(278),F!(88),FIRE1(48),FIRE2(48),STAR1(38),STAR2(38),CLOCK1(37),CLOCK2(37),CLOCK3(37),LX(30),LY(30),BIRD1(47),BIRD2(47),HX(11),HY(11)
  192. 19924  KEY(9) ON :ON KEY(9) GOSUB 30050
  193. 19925  KEY(10) ON :ON KEY(10) GOSUB 30000
  194. 19930  '*** INIT MUSICAL NOTES ***
  195. 19940  FOR X=0 TO 6 :F!(X)=32767 :NEXT X
  196. 19950  FOR X=7 TO 88 :F!(X)=36.8*(2^(1/12))^(X-6) :NEXT X
  197. 19960  GOSUB 23000 '*** INIT TREE LIGHTS ***
  198. 19970  GOSUB 21000 '*** INIT STAR ***
  199. 19972  GOSUB 21200 '*** INIT BIRDS ***
  200. 19980  GOSUB 20000 '*** INIT FIRE ***
  201. 19982  GOSUB 22300 :GOSUB 22320 '*** INIT CLOCK HANDS ***
  202. 19990  GOSUB 22000 '*** INIT CLOCK ***
  203. 19992  GOSUB 22100 '*** START CLOCK ***
  204. 19994  RESTORE 5000 :RETURN' TO  M A I N                                               '
  205. 20000  LINE(22,112)-(26,104),2 '*** INIT FIRE ***
  206. 20010  LINE-(30,110),2 :LINE-(33,100),2
  207. 20020  LINE-(40,103),2 :LINE-(41,110),2
  208. 20030  LINE-(44,102),2 :LINE-(46,112),2
  209. 20040  LINE-(22,112),2
  210. 20050  PAINT(24,110),3,2
  211. 20060  FOR X=1 TO 12 :PSET(RND*28+22,RND*6+100),2 :NEXT X
  212. 20070  GET(22,100)-(48,112),FIRE1
  213. 20080  PUT(22,100),FIRE1,XOR
  214. 20090  LINE(46,112)-(42,104),3
  215. 20100  LINE-(38,110),3 :LINE-(35,100),3
  216. 20110  LINE-(28,103),3 :LINE-(27,110),3
  217. 20120  LINE-(24,102),3 :LINE-(22,112),3
  218. 20130  LINE-(46,112),3
  219. 20140  PAINT(24,110),2,3
  220. 20150  FOR X=1 TO 12 :PSET(RND*28+22,RND*6+100),3 :NEXT X
  221. 20160  GET (22,100)-(48,112),FIRE2                                                     '
  222. 20170  RETURN
  223. 21000  '*** INIT STAR ***
  224. 21010  X=2 :GOSUB 21100
  225. 21020  PAINT(200,4),3,2
  226. 21030  PSET(193,1),3 :PSET(207,1),3
  227. 21040  PSET(191,8),3 :PSET(209,8),3
  228. 21050  GET(188,0)-(210,11),STAR1 :PUT(188,0),STAR1,XOR
  229. 21060  X=3 :GOSUB 21100
  230. 21070  PAINT(200,4),2,3
  231. 21080  PSET(192,0),2 :PSET(208,0),2
  232. 21090  PSET(190,9),2 :PSET(210,9),2
  233. 21095  GET(188,0)-(210,11),STAR2 :RETURN
  234. 21100  LINE(200,0)-(204,4),X
  235. 21110  LINE-(210,4),X :LINE-(205,7),X
  236. 21120  LINE-(208,11),X :LINE-(200,8),X
  237. 21130  LINE-(192,11),X :LINE-(195,7),X
  238. 21140  LINE-(190,4),X :LINE-(196,4),X
  239. 21150  LINE-(200,0),X
  240. 21160  LINE(201,0)-(205,4),X
  241. 21170  LINE(199,0)-(195,4),X
  242. 21180  RETURN
  243. 21200  '*** INIT BIRDS ***
  244. 21210  GET(276,17)-(312,25),BIRD1
  245. 21220  LINE(293,20)-(297,20),0 :LINE(279,21)-(282,23),0 :LINE(311,21)-(308,23),0
  246. 21222  LINE(278,25)-(282,23),2 :LINE(308,23)-(312,25),2
  247. 21224  LINE(294,17)-(292,19),2 :LINE(296,17)-(298,19),2
  248. 21226  GET(276,17)-(312,25),BIRD2
  249. 21230  RETURN
  250. 22000  '*** INIT CLOCK ***
  251. 22010  GET(104,88)-(121,101),CLOCK2 :LINE(114,96)-(114,88),0
  252. 22020  PAINT(114,99),0,2 :CIRCLE(114,99),2,0
  253. 22030  LINE(110,95)-(114,88),3 :CIRCLE(109,98),2,2 :PAINT(109,98),3,2
  254. 22040  GET(104,88)-(121,101),CLOCK1
  255. 22050  LINE(110,95)-(114,88),0 :PAINT(109,98),0,2 :CIRCLE(109,98),2,0
  256. 22060  LINE(118,95)-(114,88),3 :CIRCLE(119,98),2,2 :PAINT(119,98),3,2
  257. 22070  GET(104,88)-(121,101),CLOCK3
  258. 22080  RETURN
  259. 22100  '*** TICK CLOCK ***
  260. 22110  FOR X=1 TO 8
  261. 22130  REM MOTOR :FOR X1=1 TO 800 :NEXT X1
  262. 22140  CLOCK=CLOCK+1 :IF CLOCK>4 THEN CLOCK=1
  263. 22150  ON CLOCK GOTO 22160,22170,22180,22190
  264. 22160  PUT(104,88),CLOCK1,PSET :GOTO 22200
  265. 22170  PUT(104,88),CLOCK2,PSET :GOTO 22200
  266. 22180  PUT(104,88),CLOCK3,PSET :GOTO 22200
  267. 22190  PUT(104,88),CLOCK2,PSET
  268. 22200  NEXT X :RETURN
  269. 22300  '*** INIT CLOCK HANDS ***
  270. 22310  RESTORE 22312
  271. 22312  DATA 114,40,119,42,122,44,124,48,122,52,119,54,114,56
  272. 22313  DATA 109,54,106,52,104,48,106,44,109,42
  273. 22314  FOR X=0 TO 11 :READ HX(X),HY(X) :NEXT X
  274. 22318  RETURN
  275. 22320  LINE(114,48)-(HX(HAND),HY(HAND)),0'*** REDRAW HANDS ***
  276. 22322  HAND=HAND+1 :IF HAND>11 THEN HAND=0
  277. 22324  LINE(114,48)-(HX(HAND),HY(HAND)),2
  278. 22328  RETURN
  279. 23000  '*** INIT TREE LIGHTS ***
  280. 23010  RESTORE 23020
  281. 23020  DATA 219,91,188,27,205,21,214,44,193,54,210,61,243,64,164,62
  282. 23022  DATA 146,78,168,88,189,88,201,100,237,89,270,99,275,114,257,122
  283. 23024  DATA 241,111,217,120,189,126,174,114,141,97,118,124,146,121
  284. 23026  DATA 172,131,209,139,244,134,244,75,185,39,171,46,224,40,185,66
  285. 23050  FOR X=0 TO 30 :READ LX(X),LY(X) :CIRCLE(LX(X),LY(X)),1,RND*2+2 :CIRCLE(LX(X),LY(X)),2,0 :PSET(LX(X),LY(X)),RND*2+2 :NEXT X :RETURN
  286. 30000  '*** TOGGLE MUSIC ON/OFF ***
  287. 30010  MUS.ON=1-MUS.ON
  288. 30020  IF MUS.ON THEN LINE(114,48)-(HX(HAND),HY(HAND)),0 :HAND=11                      :GOSUB 22320 :GOSUB 22100 :RESTORE 5000 :RETURN 1090
  289. 30030  RESTORE :RETURN 1100
  290. 30050  CLS :SYSTEM
  291. 32770    '       PROGRAM NAME:   TREE3.BAS                                               '       WRITTEN BY:     GREGORY HORNE              <UNK! {000A}>        '       EDIT DATE:      29-NOV-1983
  292.