home *** CD-ROM | disk | FTP | other *** search
/ The CIA World Factbook 1992 / k3bimage.iso / sel / 01 / 0147 / pooh.bas (.txt) next >
Encoding:
GW-BASIC  |  1991-12-02  |  12.9 KB  |  370 lines
  1. 10  ' .-.-.-.-.-.-.-.-.-.-.-.-.-.-.
  2. 20  ' | Winnie the Pooh & Friend  |
  3. 30  ' |      NEWPOOH.BAS          |
  4. 40  ' |  D.W. Green      8/29/84  |
  5. 45  ' |      adapted by:          |
  6. 50  ' :-.-.-.-.-.-.-.-.-.-.-.-.-.-:
  7. 60  '
  8. 70  B=8 'background
  9. 80  P=0   'palette
  10. 90  LP=1  'outlines: POOH
  11. 100  LD=0  'outlines: PIGLET
  12. 110  BP=0 'box: POOH
  13. 120  BD=1  'box: PIGLET
  14. 130  KEY OFF
  15. 140  DIM POOH%(11029)
  16. 150  CLS:SCREEN 1
  17. 160  COL=LP
  18. 170  LINE (0,0)-(319,199),BF
  19. 180  FOR Q=1 TO 6
  20. 190  GOSUB 1140
  21. 200  NEXT
  22. 210  REM STRING
  23. 220  FOR Q=1 TO 3
  24. 230  GOSUB 1140
  25. 240  NEXT
  26. 250  FOR Q=1 TO 3
  27. 260  GOSUB 1140
  28. 270  NEXT
  29. 280  FOR Q=1 TO 8
  30. 290  GOSUB 1140
  31. 300  NEXT
  32. 310  FOR Q=1 TO 5
  33. 320  GOSUB 1140
  34. 330  NEXT
  35. 340  REM HEAD
  36. 350  FOR Q=1 TO 9
  37. 360  GOSUB 1140
  38. 370  NEXT
  39. 380  '  POOH: balloon, head, right arm
  40. 390   PAINT (180,40),3,LP:PAINT (185,98),2,LP:PAINT (185,104),2,LP
  41. 395  PAINT (200,107),2,LP:PAINT (205,102),2,LP
  42. 400  '  POOH: lower body, legs, left arm
  43. 410   PAINT (214,130),2,LP:PAINT (190,140),2,LP:PAINT(173,150),2,LP
  44. 415   PAINT (200,150),2,LP
  45. 420  '  POOH: jacket, balloon knot
  46. 430   PAINT (195,130),0,LP:PAINT (210,128),0,LP:PAINT (181,118),0,LP
  47. 435   PAINT (187,67),3,LP
  48. 440  '  POOH: nose, feet
  49. 450   PAINT (160,148),1,LP:PAINT(180,157),1,LP:PAINT(188,112),1,LP
  50. 460  GET (150,23)-(225,170),POOH%
  51. 470  LINE (0,0)-(319,199),BD,BF
  52. 480  COL=LD
  53. 490  FOR Q=1 TO 8
  54. 500  GOSUB 980
  55. 510  NEXT
  56. 520  FOR Q=1 TO 7
  57. 530  GOSUB 980
  58. 540  NEXT
  59. 550  GOSUB 1060
  60. 560  FOR Q=1 TO 6
  61. 570  GOSUB 1060
  62. 580  NEXT
  63. 590  FOR Q=1 TO 3
  64. 600  GOSUB 1060
  65. 610  NEXT
  66. 620  REM LEGS
  67. 630  FOR Q=1 TO 2
  68. 640  GOSUB 1060
  69. 650  NEXT
  70. 660  REM HEAD
  71. 670  FOR Q=1 TO 11
  72. 680  GOSUB 1060
  73. 690  NEXT
  74. 700  FOR Q=1 TO 8
  75. 710  GOSUB 1060
  76. 720  NEXT
  77. 730  FOR Q=1 TO 5
  78. 740  GOSUB 900
  79. 750  NEXT
  80. 760  ' balloon, head, ears
  81. 770  PAINT(40,40),2,LD:PAINT (51,63),2,LD:PAINT (113,70),2,LD
  82. 775  PAINT (130,93),2,LD:PAINT (115,93),2,LD:PAINT (100,92),2,LD
  83. 780  ' legs, stripes
  84. 790  PAINT (87,98),2,LD:PAINT (117,115),2,LD:PAINT (71,125),2,LD
  85. 795  PAINT (105,145),2,LD:PAINT (105,117),0,LD: PAINT (105,125),0,LD
  86. 800  ' stripes
  87. 810  PAINT(105,112),1,LD:PAINT(105,120),1,LD
  88. 820  PAINT (89,125),0,LD:PAINT(85,131),2,LD:PAINT(65,150),1,LD
  89. 830  PAINT (89,120),1,LD:PAINT(85,126),1,LD
  90. 840  LINE(0,144)-(52,150),LD:LINE (310,167)-(319,169),LD
  91. 845  LINE (241,166)-(255,166),LD:LINE (161,160)-(175,168),LD
  92. 847  LINE (175,168)-(180,168),LD:LINE (180,168)-(207,166),LD
  93. 850  ' tree
  94. 860  PAINT (10,190),3,LD:PAINT (215,164),2,LD:PAINT(300,70),1,LD
  95. 865  PAINT (300,78),0,LD:PAINT (295,166),1,LD:PAINT (300,100),3,LD
  96. 867  PAINT (298,150),3,LD:PAINT (302,150),0,LD:PAINT(282,73),0,LD
  97. 880  LINE (175,168)-(250,182),&H2:LINE (250,182)-(290,195),2
  98. 885  LINE (25,182)-(38,183),2:LINE (35,179)-(45,180),2
  99. 887  LINE (42,182)-(52,184),2
  100. 890  GOTO 1220
  101. 900  READ T
  102. 910  READ Y, X
  103. 920  PSET( X, Y),COL
  104. 930  FOR I=1 TO T/2-1
  105. 940  READ Y, X
  106. 950  LINE -( X, Y),COL
  107. 960  NEXT
  108. 970  RETURN
  109. 980  READ T
  110. 990  READ Y, X
  111. 1000  PSET( X+65,(Y+5)),COL
  112. 1010  FOR I=1 TO T/2-1
  113. 1020  READ Y, X
  114. 1030  LINE -( X+65,(Y+5)),COL
  115. 1040  NEXT
  116. 1050  RETURN
  117. 1060  READ T
  118. 1070  READ Y, X
  119. 1080  PSET ( X+X2,(Y+Y2)),COL
  120. 1090  FOR I=1 TO T/2-1
  121. 1100  READ Y, X
  122. 1110  LINE -( X+X2,(Y+Y2)),COL
  123. 1120  NEXT
  124. 1130  RETURN
  125. 1140  READ T
  126. 1150  READ Y, X
  127. 1160  PSET ( X+X1,(Y+Y1)),COL
  128. 1170  FOR I=1 TO T/2-1
  129. 1180  READ Y, X
  130. 1190  LINE -(X+X1,(Y+Y1)),COL
  131. 1200  NEXT
  132. 1210  RETURN
  133. 1220  REM DATA
  134. 1230  DATA 72, 65, 184, 64, 187, 62, 191, 60, 193, 59, 195, 57, 197
  135. 1233  DATA 53, 199, 50, 200, 47, 201, 44, 200, 41, 199, 38, 198, 35
  136. 1237  DATA 196, 32, 193, 30, 190, 29, 187, 28, 184, 28, 181, 29
  137. 1240  DATA 176, 30, 174, 31, 172, 34, 168, 37, 166, 39, 165, 41, 164
  138. 1243  DATA 44, 163, 47, 163, 50, 164, 53, 165, 56, 166, 59, 169, 62
  139. 1247  DATA 173, 63, 175, 64, 178, 65, 181, 65, 184
  140. 1250  DATA 6, 61, 178, 62, 180, 62, 182
  141. 1260  DATA 8, 57, 184, 58, 187, 58, 188, 57, 189
  142. 1270  DATA 6, 53, 187, 54, 190, 52, 194
  143. 1280  DATA 4, 48, 190, 48, 194
  144. 1290  DATA 4, 43, 192, 43, 194
  145. 1300  REM STRING
  146. 1310  DATA 28, 67, 183, 65, 184, 66, 183, 67, 184, 66, 183, 65, 184
  147. 1313  DATA 66, 187, 66, 191, 67, 191, 68, 190, 70, 187, 69, 186, 65
  148. 1317  DATA 184, 93, 184
  149. 1320  DATA 26, 101, 183, 102, 182, 104, 182, 104, 170, 105, 169, 106, 169
  150. 1325  DATA 110, 174, 112, 174, 113, 171, 113, 168, 111, 166, 109, 165, 109, 166
  151. 1330  DATA 8, 70, 186, 66, 190, 70, 187, 67, 190
  152. 1340  DATA 8, 134, 199, 135, 205, 125, 209, 122, 210
  153. 1350  DATA 4, 122, 208, 121, 205
  154. 1360  REM ARM1
  155. 1370  DATA 24, 116, 179, 110, 177, 107, 177, 101, 179, 98, 180, 95, 182
  156. 1375  DATA 93, 185, 94, 187, 95, 188, 96, 188, 98, 187, 102, 182
  157. 1380  DATA 8, 98, 187, 102, 186, 105, 186, 108, 187
  158. 1390  DATA 18, 137, 208, 145, 217, 145, 219, 144, 220, 141, 221, 137, 220, 132
  159. 1395  DATA 218, 129, 215, 128, 212
  160. 1400  REM SHIRT
  161. 1410  DATA 8, 110, 185, 117, 177, 118, 178, 120, 181
  162. 1420  DATA 10, 115, 184, 119, 182, 127, 175, 128, 175, 130, 177
  163. 1430  DATA 14, 127, 175, 127, 176, 133, 185, 138, 190, 140, 199, 139, 207, 137
  164. 1435  DATA 206
  165. 1440  DATA 16, 132, 204, 136, 205, 137, 206, 138, 207, 137, 208, 136, 207, 132
  166. 1445  DATA 207, 127, 213
  167. 1450  DATA 16, 134, 197, 129, 198, 125, 203, 125, 207, 126, 209, 126, 213, 127
  168. 1455  DATA 215, 129, 214
  169. 1460  DATA 14, 119, 184, 120, 183, 123, 185, 127, 185, 125, 188, 122
  170. 1465  DATA 211, 120, 208
  171. 1470  REM POO
  172. 1480  DATA 12, 129, 179, 134, 175, 140, 174, 143, 174, 148, 175, 150, 176
  173. 1490  DATA 42, 141, 174, 140, 172, 141, 169, 143, 166, 147, 164, 143, 165, 140
  174. 1495  DATA 165, 137, 164, 136, 163, 135, 162, 135, 160, 137, 157, 140
  175. 1497  DATA 156, 143, 155
  176. 1500  DATA 146, 156, 148, 157, 151, 159, 152, 161, 152, 165, 151, 169, 152, 174
  177. 1510  DATA 56, 139, 204, 146, 205, 149, 206, 152, 205, 154, 204, 158, 199, 160
  178. 1515  DATA 190, 163, 185, 166, 180, 166, 178, 164, 176, 161, 175, 156
  179. 1517  DATA 174, 153, 174
  180. 1520  DATA 151, 176, 150, 178, 150, 181, 152, 183, 153, 184, 157, 184, 152
  181. 1525  DATA 187, 149, 190, 147, 193, 147, 196, 148, 199, 150, 201, 153
  182. 1527  DATA 201, 158, 199
  183. 1530  DATA 14, 153, 174, 152, 177, 154, 180, 156, 181, 158, 182, 161
  184. 1535  DATA 182, 164, 181
  185. 1540  DATA 14, 136, 158, 137, 160, 140, 161, 143, 162, 146, 162, 149
  186. 1545  DATA 162, 152, 160
  187. 1550  REM HEAD
  188. 1560  DATA 36, 124, 187, 122, 186, 119, 185, 116, 184, 113, 185, 110
  189. 1565  DATA 186, 109, 187, 109, 189, 110, 190
  190. 1570  DATA 111, 191, 112, 191, 113, 190, 114, 189, 115, 188, 115, 187
  191. 1575  DATA 114, 186,  113, 185, 112, 185
  192. 1580  DATA 22, 109, 189, 108, 191, 106, 191, 105, 193, 105, 196, 104, 199
  193. 1585  DATA 103, 202, 103, 205, 104, 207, 105, 208, 107, 210
  194. 1590  DATA 12, 104, 199, 101, 200, 100, 202, 99, 204, 101, 205, 103, 206
  195. 1600  DATA 16, 109, 208, 107, 210, 106, 212, 107, 214, 110, 215, 112
  196. 1605  DATA 214, 114, 213, 114, 209
  197. 1610  DATA 10, 122, 206, 120, 208, 119, 209, 116, 210, 114, 211
  198. 1620  DATA 14, 109, 200, 110, 201, 111, 201, 112, 200, 111, 201, 109
  199. 1625  DATA 200, 108, 200
  200. 1630  DATA 12, 109, 191, 108, 191, 108, 192, 109, 192, 110, 192, 109, 191
  201. 1640  DATA 14, 113, 197, 112, 197, 111, 197, 111, 196, 112, 196, 113
  202. 1645  DATA 196, 113, 197
  203. 1650  DATA 8, 117, 185, 121, 189, 121, 190, 117, 193
  204. 1660  REM LEAVES
  205. 1670  DATA 44, 161, 143, 160, 144, 159, 144, 159, 146, 157, 144, 155, 146
  206. 1675  DATA 155, 150, 156, 152, 155, 152, 154, 154, 155, 156
  207. 1680  DATA 157, 158, 155, 162, 156, 164, 158, 163, 157, 168, 158, 168, 160
  208. 1685  DATA 167, 159, 169, 160, 172, 158, 173, 159, 174
  209. 1690  DATA 12, 161, 190, 162, 193, 162, 196, 162, 202, 164, 204, 164, 208
  210. 1700  DATA 130, 168, 230, 168, 227, 167, 227, 168, 224, 167, 224, 166, 225
  211. 1705  DATA 169, 217, 168, 216, 167, 217, 169
  212. 1707  DATA 211, 169, 210, 168, 209, 167, 210, 167, 208
  213. 1710  DATA 166, 207, 164, 208, 164, 214, 163, 213, 162, 215, 162, 211, 161
  214. 1715  DATA 210, 159, 211, 159, 215, 158, 213, 157, 214, 157, 217
  215. 1717  DATA 158, 219, 156, 217
  216. 1720  DATA 155, 218, 155, 220, 154, 219, 153, 221, 154, 225, 153, 224, 153
  217. 1725  DATA 225, 154, 228, 152, 225, 151, 226, 151, 229, 149, 228
  218. 1727  DATA 148, 230, 150, 231
  219. 1730  DATA 148, 234, 150, 235, 148, 241, 152, 240, 150, 245, 155, 242, 156
  220. 1735  DATA 244, 158, 242, 160, 245, 163, 243, 167, 245, 168, 240, 166
  221. 1737  DATA 237, 168, 236
  222. 1740  DATA 168, 233, 166, 233, 168, 232, 166, 228, 163, 235, 159, 236
  223. 1745  DATA 163, 237, 161, 242, 164, 240
  224. 1750  DATA 100, 80, 215, 81, 210, 82, 213, 85, 207, 85, 210, 88, 207, 87
  225. 1755  DATA 213, 90, 211, 90, 214, 88, 218, 91, 215, 90, 219, 88, 223
  226. 1760  DATA 94, 222, 94, 229, 92, 230, 94, 234, 92, 235, 93, 241, 89, 239, 90
  227. 1765  DATA 244, 87, 244, 84, 239, 85, 236, 83, 241, 82, 239, 81, 245
  228. 1770  DATA 77, 241, 77, 238, 75, 244, 74, 241, 78, 237, 72, 240, 71, 238, 70
  229. 1775  DATA 233, 69, 233, 71, 229, 74, 226, 72, 223, 74, 219, 75, 223
  230. 1780  DATA 77, 218, 79, 223, 79, 225, 80, 223, 80, 226, 78, 231
  231. 1785  DATA 80, 232, 81, 235, 78, 238
  232. 1790  DATA 58, 73, 240, 71, 244, 69, 242, 68, 244, 66, 241, 63
  233. 1792  DATA 244, 63, 236, 59
  234. 1795  DATA 240, 60, 231, 57, 232, 61, 226, 59, 222, 62, 223, 59, 215
  235. 1800  DATA 62, 217, 60, 209, 62, 212, 65, 204, 66, 207, 71, 198
  236. 1802  DATA 72, 202, 77, 197, 76
  237. 1805  DATA 202, 81, 197, 80, 203, 85, 200, 82, 206, 85, 204, 84, 206
  238. 1810  DATA 28, 66, 215, 64, 219, 68, 218, 66, 224, 68, 220, 71
  239. 1812  DATA 223, 70, 218, 72
  240. 1815  DATA 218, 70, 216, 71, 210, 68, 212, 67, 209, 66, 212, 67, 215
  241. 1820  DATA 4, 161, 142, 161, 175
  242. 1830  DATA 4, 164, 184, 164, 208
  243. 1840  REM TRUNK
  244. 1850  DATA 16, 91, 219, 98, 222, 104, 230, 105, 231, 106, 232, 119
  245. 1855  DATA 232, 128, 230, 149, 230
  246. 1860  DATA 12, 90, 242, 98, 241, 101, 242, 116, 240, 125, 240, 149, 243
  247. 1870  DATA 10, 116, 234, 131, 234, 128, 236, 134, 238, 148, 238
  248. 1880  DATA 4, 148, 234, 119, 232
  249. 1890  DATA 8, 90, 221, 97, 225, 99, 230, 93, 229
  250. 1900  DATA 6, 93, 237, 101, 238, 93, 240
  251. 1910  DATA 6, 98, 232, 106, 233, 109, 233
  252. 1920  DATA 92, 60, 54, 61, 51, 62, 48, 62, 45, 62, 42, 61, 39, 60, 36, 59
  253. 1925  DATA 35, 57, 33, 53, 31, 50, 29, 47, 28, 44, 28, 41, 29, 38, 30
  254. 1930  DATA 35, 31, 32, 35, 30, 39, 29, 42, 29, 45, 29, 48, 30, 51, 32
  255. 1935  DATA 54, 35, 57, 38, 59, 41, 61, 44, 62, 47, 62, 50, 61, 53, 60
  256. 1940  DATA 56, 58, 59, 55, 60, 54, 62, 53, 63, 53, 64, 52, 64, 50, 62, 50, 62
  257. 1945  DATA 53, 62, 50, 60, 54, 65, 56, 68, 58, 74, 63, 80, 68, 87, 85
  258. 1950  DATA 6, 32, 49, 33, 45, 35, 42
  259. 1960  DATA 6, 34, 52, 35, 48, 37, 56
  260. 1970  DATA 6, 37, 56, 38, 53, 39, 49
  261. 1980  DATA 6, 41, 58, 41, 56, 42, 53
  262. 1990  DATA 4, 44, 59, 44, 56
  263. 2000  DATA 4, 48, 60, 44, 58
  264. 2010  REM ARMS
  265. 2020  DATA 40, 85, 85, 86, 84, 88, 83, 92, 85, 95, 84, 98, 83, 101
  266. 2025  DATA 83, 104, 83, 107, 85, 110, 87, 113, 89, 114
  267. 2030  DATA 94, 111, 97, 108, 96, 105, 94, 101, 92, 96, 91, 89, 91
  268. 2035  DATA 86, 88, 85, 85
  269. 2040  DATA 12, 87, 88, 87, 86, 88, 85, 89, 85, 91, 86, 91, 88
  270. 2050  DATA 18, 112, 113, 113, 119, 114, 122, 124, 130, 126, 130, 127
  271. 2055  DATA 129, 125, 124, 121, 119, 121, 111
  272. 2060  REM LEGS
  273. 2070  DATA 46, 128, 79, 129, 77, 126, 75, 122, 74, 120, 73, 119, 72, 119
  274. 2075  DATA 69, 120, 70, 122, 67, 124, 61, 125, 60, 126, 59, 130, 59
  275. 2080  DATA 131, 60, 132, 61, 133, 63, 133, 64, 129, 69, 124, 68
  276. 2085  DATA 131, 70, 134, 74, 134, 76, 132, 81
  277. 2090  DATA 40, 135, 91, 140, 93, 143, 94, 146, 95, 149, 96, 152
  278. 2095  DATA 97, 153, 98, 153, 100, 152, 103, 151, 106
  279. 2100  DATA 149, 109, 148, 110, 145, 110, 141, 109, 140, 108, 140
  280. 2105  DATA 105, 145, 100, 144, 101, 140, 98, 135, 97
  281. 2110  REM HEAD
  282. 2120  DATA 26, 104, 99, 98, 98, 95, 97, 90, 97, 89, 98, 88, 99, 87
  283. 2125  DATA 104, 83, 108, 81, 113, 81, 116, 84, 121, 86, 123, 89, 124
  284. 2130  DATA 8, 109, 114, 104, 116, 101, 118, 99, 120
  285. 2140  DATA 28, 81, 113, 79, 111, 77, 110, 74, 110, 71, 111, 68
  286. 2142  DATA 112, 65, 115, 62
  287. 2145  DATA 116, 65, 119, 69, 121, 74, 123, 77, 123, 80, 122, 84, 121
  288. 2150  DATA 34, 89, 120, 89, 124, 89, 127, 91, 130, 92, 133
  289. 2155  DATA 94, 136, 97, 139, 100, 141, 100, 138, 101, 136, 102, 133
  290. 2160  DATA 103, 130, 102, 127, 101, 124, 98, 119, 96, 119, 89, 120
  291. 2170  DATA 14, 92, 99, 90, 100, 89, 102, 90, 103, 92, 103, 94, 101, 92, 99
  292. 2180  DATA 8, 89, 102, 91, 104, 91, 105, 90, 107
  293. 2190  DATA 8, 96, 100, 97, 101, 98, 102, 97, 104
  294. 2200  DATA 10, 86, 101, 85, 101, 85, 102, 84, 101, 85, 101
  295. 2210  DATA 16, 88, 111, 89, 112, 92, 112, 93, 111, 92, 112, 91
  296. 2215  DATA 113, 89, 113, 88, 111
  297. 2220  DATA 10, 90, 104, 89, 104, 89, 105, 90, 105, 90, 104
  298. 2230  DATA 10, 91, 108, 91, 109, 92, 109, 92, 108, 91, 108
  299. 2240  REM  BOD
  300. 2250  DATA 48, 108, 96, 103, 99, 107, 100, 110, 102, 111, 106, 112
  301. 2255  DATA 109, 111, 112, 109, 113, 108, 114, 109, 113, 115, 112, 120
  302. 2260  DATA 111, 127, 110, 131, 103, 134, 100, 135, 97, 135, 88, 134
  303. 2265  DATA 85, 132, 81, 128, 79, 122, 79, 117, 82, 115, 85, 113, 89
  304. 2270  DATA 10, 109, 97, 113, 101, 115, 106, 116, 109, 115, 112
  305. 2280  DATA 8, 113, 95, 116, 98, 119, 103, 119, 111
  306. 2290  DATA 8, 114, 91, 119, 96, 122, 100, 124, 109
  307. 2300  DATA 10, 113, 88, 119, 91, 125, 97, 127, 102, 128, 106
  308. 2310  DATA 10, 115, 85, 121, 88, 125, 91, 128, 95, 131, 103
  309. 2320  DATA 10, 117, 82, 123, 85, 127, 88, 131, 94, 134, 100
  310. 2330  DATA 8, 120, 80, 125, 82, 131, 87, 135, 95
  311. 2340  DATA 70, 170, 51, 170, 40, 168, 39, 167, 40, 167, 46, 163
  312. 2345  DATA 39, 161, 40, 161, 46, 162, 49, 160, 45, 159, 44, 158, 46
  313. 2350  DATA 160, 50, 156, 44, 154, 44, 153, 49, 149, 49, 146, 55, 149
  314. 2355  DATA 58, 152, 58, 148, 58, 145, 61, 146, 62
  315. 2360  DATA 149, 62, 144, 66, 144, 70, 146, 72, 155, 69, 152, 70, 151
  316. 2365  DATA 75, 155, 73, 153, 79, 153, 82, 156, 82, 159, 79
  317. 2370  DATA 62, 170, 51, 169, 51, 169, 59, 167, 57
  318. 2375  DATA 167, 65, 169, 64, 168, 72, 169, 72, 169, 79, 168, 88, 169
  319. 2377  DATA 105, 168, 106
  320. 2380  DATA 166, 99, 164, 103, 163, 101, 165, 91, 164, 94, 162, 95, 160
  321. 2382  DATA 95, 159, 94, 162, 86, 156, 84, 158, 82, 163, 81
  322. 2390  DATA 158, 76, 158, 73, 161, 72, 163, 75, 161, 72, 161, 67, 166, 69
  323. 2400  DATA 14, 154, 82, 153, 97, 155, 109, 156, 115, 156, 130
  324. 2405  DATA 158, 142, 160, 160
  325. 2410  DATA 6, 156, 88, 156, 100, 158, 112
  326. 2420  GOSUB 2600
  327. 2430  DATA 10, 159, 100, 160, 111, 158, 115, 158, 128, 160, 139
  328. 2440  ON PLAY (2) GOSUB 2790:PLAY ON:PUT (150,23),POOH%,XOR
  329. 2450  PUT (150,23),POOH%,XOR
  330. 2460  X=225:Y=13
  331. 2470  IF X>135 THEN PUT (X,Y),POOH% ELSE GOTO 2530
  332. 2480  X1=X-6:Y1=Y-1/2
  333. 2490  FOR Q=1 TO 400:NEXT
  334. 2500  PUT (X,Y),POOH%
  335. 2510  X=X1:Y=Y1
  336. 2520  GOTO 2470
  337. 2530  IF X<225 THEN PUT (X,Y),POOH% ELSE  2470
  338. 2540  X1=X+6:Y1=Y+1/2
  339. 2550  FOR Q=1 TO 400:NEXT
  340. 2560  PUT (X,Y),POOH%
  341. 2570  X=X1:Y=Y1
  342. 2580  GOTO 2530
  343. 2590  '
  344. 2600  ' song of "WINNIE THE POOH"
  345. 2610  DIM F$(14)
  346. 2620  F$(0)="O3L4B-AG"
  347. 2630  F$(1)="E2D4C2D4C2A4L4B-AG"
  348. 2640  F$(2)="E2G4A1C4L4B-AG"
  349. 2650  F$(3)="E2G4O4C2O3A4F2C4L4DEFEDCF1A4"
  350. 2660  F$(4)="EDCDCA8L8B-AP8G8L4EG"
  351. 2670  F$(5)="A2.C4L8B-AP8G8L4EG"
  352. 2680  F$(6)="O4CO3AF.L8CDEF4L8EDC4F1L4CDD#"
  353. 2690  F$(7)="L8EDE4D2 L8EDE4D2"
  354. 2700  F$(8)="L8CCB-B-AAL4G FEDD#"
  355. 2710  F$(9)="L8EDE4D2 L8EDE4D2"
  356. 2720  F$(10)="L8CCB-B-AAL4G FL4CDD#"
  357. 2730  F$(11)="L8EDE4D2 L8EDE4D2"
  358. 2740  F$(12)="L8CCB-B-AAL4G FEDD#"
  359. 2750  F$(13)="L8EDE4D2 L8EDE4D2"
  360. 2760  F$(14)="L8CCB-B-AAL4G F1"
  361. 2770  R=0
  362. 2780  '
  363. 2790  '   play the POOH song
  364. 2800  PLAY "MBMNT190 XF$(R);"
  365. 2810  LET R=R+1
  366. 2820  IF R > 14 THEN R = 0
  367. 2830  RETURN
  368. 2840  '
  369. 2850  END
  370.