home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / mus / carols.ba < prev    next >
Text File  |  2006-10-19  |  12KB  |  344 lines
  1. 0 ' CAROLS.BA - BY Rob Elliot
  2. 10 ' A Christmas Party with your Model 100
  3. 20 ' Version 2.0  11-24-84
  4. 30 ' by Rob Elliott
  5. 40 DIMS$(8)
  6. 50 CLS
  7. 60 GOSUB1660
  8. 70 PRINT@44,"Merry Christmas"
  9. 80  PRINT@129,"from"
  10. 90 PRINT@200,"CLUB 100 510-939-1246"
  11. 100 PRINT@148," "CHR$(148)CHR$(147)" "
  12. 110 PRINT@227," Joy! "
  13. 120 RESTORE1550
  14. 130  READA,B
  15. 140 IFA=0ANDB=0THEN150 ELSESOUNDA,B:GOTO130 
  16. 150  S$(0)="         Jingle Bells         "
  17. 160  S$(1)="         Silent Night         "
  18. 170  S$(2)="       Joy To The World       "
  19. 180 S$(3)="        Deck The Halls        "
  20. 190 S$(4)="        Adestes Fideles       "
  21. 200 S$(5)="        The First Noel        "
  22. 210 S$(6)=" Hark! The Herald Angels Sing "
  23. 220 S$(7)="  O Little Town Of Bethleham  "
  24. 230 CLS
  25. 240 LINE(180,0)-(180,63)
  26. 250 LINE(181,12)-(239,12)
  27. 260 LINE(181,36)-(239,36)
  28. 270 FORI=0TO7
  29. 280 IFI=PTHENCALL17001
  30. 290  PRINT@I*40,S$(I);
  31. 300 IFI=PTHENCALL17006
  32. 310  NEXTI
  33. 320  PRINT@32,"<";CHR$(152);CHR$(153);CHR$(155);CHR$(154);">"
  34. 330  PRINT@112,"<ENTER>"
  35. 340 PRINT@151,"to select";
  36. 350  PRINT@233,"<ESC>"
  37. 360 PRINT@272,"to quit"
  38. 370 A$=INKEY$
  39. 380 IFA$=""THEN370ELSEIFA$=CHR$(13)THEN450
  40. 390 IFA$=CHR$(27)THENCLS:CALL17001:PRINT@130," Merry Christmas! ":CALL17006:FORT=1TO500:NEXT:MENU
  41. 400 IFA$=CHR$(30)THENP=P-1:A=1:IFP=-1THENP=7
  42. 410 IFA$=CHR$(29)THENP=P-1:A=1:IFP=-1THENP=7
  43. 420 IFA$=CHR$(31)THENP=P+1:A=1:IFP=8THENP=0
  44. 430 IFA$=CHR$(28)THENP=P+1:A=1:IFP=8THENP=0
  45. 440 IFA=1THEN270ELSEGOTO370
  46. 450 ONP+1GOTO460,520,580,640,700,760,820,890
  47. 460 CLS
  48. 470 GOSUB1750
  49. 480 PRINT@128,"Jingle Bells"
  50. 490 RESTORE950
  51. 500 READA,B
  52. 510 IFA=0ANDB=0THEN230ELSESOUNDA,B:GOTO500
  53. 520 CLS
  54. 530 GOSUB1860
  55. 540 PRINT@169,"Silent Night"
  56. 550 RESTORE1080
  57. 560 READA,B
  58. 570 IFA=0ANDB=0THEN230ELSESOUNDA,B:GOTO560
  59. 580 CLS
  60. 590 GOSUB1660
  61. 600 PRINT@125,"Joy To The World"
  62. 610 RESTORE1140
  63. 620 READA,B
  64. 630 IFA=0ANDB=0THEN230ELSESOUNDA,B:GOTO620
  65. 640 CLS
  66. 650 GOSUB2380
  67. 660 PRINT@127,"Deck The Halls"
  68. 670 RESTORE1220
  69. 680 READA,B
  70. 690 IFA=0ANDB=0THEN230ELSESOUNDA,B:GOTO680
  71. 700 CLS
  72. 710 GOSUB2010
  73. 720 PRINT@126,"Adestes Fideles"
  74. 730 RESTORE1300
  75. 740 READA,B
  76. 750 IFA=0ANDB=0THEN230ELSESOUNDA,B:GOTO740
  77. 760 CLS
  78. 770 GOSUB2750
  79. 780 PRINT@166,"The First Noel"
  80. 790 RESTORE1370
  81. 800 READA,B
  82. 810 IFA=0ANDB=0THEN230ELSESOUNDA,B:GOTO800
  83. 820 CLS
  84. 830 GOSUB2120
  85. 840 PRINT@131,"Hark!"
  86. 850 PRINT@162,"The Herald Angels Sing"
  87. 860 RESTORE1460
  88. 870 READA,B
  89. 880 IFA=0ANDB=0THEN230ELSESOUNDA,B:GOTO870
  90. 890 CLS
  91. 900 GOSUB2960
  92. 910 PRINT@81,"O Little Town Of Bethleham"
  93. 920 RESTORE1590
  94. 930 READA,B
  95. 940 IFA=0ANDB=0THEN230ELSESOUNDA,B:GOTO930
  96. 950 DATA4184,10,4184,10,2484,10,2793,10,3134,10,4184,20,0,5,4184,5,4184,5
  97. 960 DATA4184,10,2484,10,2793,10,3134,10,3718,15,0,15,3718,10,3718,10,2348,10
  98. 970 DATA2484,10,2793,10,3321,20,0,10,2793,10,2092,10,2092,10,2348,10,2793,10
  99. 980 DATA2484,20,0,10,4184,10,4184,10,2484,10,2793,10,3134,10,4184,20,0,10
  100. 990 DATA4184,10,4184,10,2484,10,2793,10,3134,10,3718,20,0,10,3718,10,3718,10
  101. 1000 DATA2348,10,2484,10,2793,10,2092,10,2092,10,2092,10,2092,10,1864,10,2092,10
  102. 1010 DATA2348,10,2793,10,3134,20,0,20,2484,10,2484,10,2484,20,2484,10,2484,10
  103. 1020 DATA2484,20,2484,10,2092,10,3134,15,2793,5,2484,40,2348,10,2348,10,2348,15
  104. 1030 DATA2348,5,2348,10,2484,10,2484,10,2484,5,2484,5,2484,10,2793,10,2793,10
  105. 1040 DATA2484,10,2793,20,2092,19,0,1,2484,10,2484,10,2484,20,2484,10,2484,10
  106. 1050 DATA2484,20,2484,10,2092,10,3134,15,2793,5,2484,40,2348,10,2348,10,2348,15
  107. 1060 DATA2348,5,2348,10,2484,10,2484,10,2484,5,2484,5,2092,10,2092,10,2348,10
  108. 1070 DATA2793,10,3134,15,0,0
  109. 1080 DATA3134,30,2793,10,3134,20,3718,60,3134,30,2793,10,3134,20,3718,60,2092,40
  110. 1090 DATA2092,20,2484,60,2348,40,2348,20,3134,60,2793,40,2793,20,2348,30,2484,10
  111. 1100 DATA2793,20,3134,30,2793,10,3134,20,3718,60,2793,40,2793,20,2348,30,2484,10
  112. 1110 DATA2793,20,3134,30,2793,10,3134,20,3718,60,2092,40,2092,20,1758,30,2092,10
  113. 1120 DATA2484,20,2348,60,1864,60,2348,20,3134,20,3718,20,3134,30,3516,10,4184,20
  114. 1130 DATA4697,80,0,0
  115. 1140 DATA1758,30,1864,22.5,2092,7.5,2348,45,2636,15,2793,30,3134,30,3516,45
  116. 1150 DATA2348,15,2092,45,2092,15,1864,45,1864,15,1758,90,0,15,1758,7.5,1758,15
  117. 1160 DATA1864,15,2092,15,2348,15,2348,22.5,2636,7.5,2793,15,1758,15,1758,15
  118. 1170 DATA1864,15,2092,15,2348,15,2348,22.5,2636,7.5,2793,13.5,0,1.5,2793,15
  119. 1180 DATA2793,15,2793,15,2793,15,2793,7.5,2636,7.5,2348,45,2636,7.5,2793,7.5
  120. 1190 DATA3134,15,3134,15,3134,15,3134,7.5,2793,7.5,2636,45,2793,7.5,3134,7.5
  121. 1200 DATA3516,15,1758,30,2092,15,2348,22.5,2636,7.5,2793,15,2636,15,2793,30
  122. 1210 DATA3134,30,3516,45,0,0
  123. 1220 DATA2092,30,2348,10,2484,20,2793,20,3134,20,2793,20,2484,20,3134,20,2793,10
  124. 1230 DATA2484,10,2348,10,2793,10,2484,30,2793,10,3134,20,3321,20,3134,40,2092,30
  125. 1240 DATA2348,10,2484,20,2793,20,3134,20,2793,20,2484,20,3134,20,2793,10,2484,10
  126. 1250 DATA2348,10,2793,10,2484,30,2793,10,3134,20,3321,20,3134,40,2793,30,2484,10
  127. 1260 DATA2348,20,2793,20,2484,30,2348,10,2092,20,2793,20,2484,10,2216,10,2092,20
  128. 1270 DATA1864,10,1660,10,1567,20,1660,20,1864,20,2092,40,2092,30,2348,10,2484,20
  129. 1280 DATA2793,20,3134,20,2793,20,2484,20,3134,20,1864,10,1864,10,1864,10,1864,10
  130. 1290 DATA2092,30,2348,10,2484,20,2793,20,3134,40,0,0
  131. 1300 DATA2636,20,2636,40,3516,20,2636,20,2348,40,3516,40,2092,20,2348,20,2092,20
  132. 1310 DATA1975,20,2092,40,2348,20,2636,20,2636,40,2793,20,3134,20,2793,20,2636,20
  133. 1320 DATA2348,20,2092,20,2793,40,3134,30,3516,10,3516,80,1758,40,1975,20,2092,20
  134. 1330 DATA1975,40,2092,40,2348,20,2092,20,2636,20,2348,20,2793,30,3134,10,3516,20
  135. 1340 DATA2636,20,2636,20,2793,20,2636,20,2348,20,2636,40,3516,20,2092,20,2092,20
  136. 1350 DATA2348,20,2092,20,1975,20,2092,40,2348,20,2092,20,1975,20,2092,20,2348,20
  137. 1360 DATA2636,20,2793,40,2636,20,1975,20,2092,40,2348,30,2636,10,2636,60,0,0
  138. 1370 DATA2793,10,3134,10,3516,30,3134,10,2793,10,2636,10,2348,40,2092,10,1864,10
  139. 1380 DATA1758,20,1864,20,2092,20,2348,40,2092,10,1864,10,1758,20,1864,20,2092,20
  140. 1390 DATA2348,20,2092,20,1864,20,1758,20,2348,20,2636,20,2793,40,2793,10,3134,10
  141. 1400 DATA3516,30,3134,10,2793,10,2636,10,2348,40,2092,10,1864,10,1758,20,1864,20
  142. 1410 DATA2092,20,2348,40,2092,10,1864,10,1758,20,1864,20,2092,20,2348,20,2092,20
  143. 1420 DATA1864,20,1758,20,2348,20,2636,20,2793,40,2793,10,3134,10,3516,30,3134,10
  144. 1430 DATA2793,10,2636,10,2348,40,1758,10,1864,10,2092,40,2092,20,2348,60,1758,20
  145. 1440 DATA1864,20,2092,20,2348,20,2092,20,1864,20,1758,20,2348,20,2636,20,2793,40
  146. 1450 DATA0,0
  147. 1460 DATA3134,20,2348,20,2348,30,2484,10,2348,20,1864,20,1864,20,2092,20,1567,20
  148. 1470 DATA1567,20,1567,30,1758,10,1864,20,2092,20,1864,40,3134,20,2348,20,2348,30
  149. 1480 DATA2484,10,2348,20,1864,20,1864,20,2092,20,1567,20,2092,20,2092,30,2484,10
  150. 1490 DATA2484,20,2793,20,3134,40,1567,20,1567,20,1567,20,2348,20,1758,20,1864,20
  151. 1500 DATA1864,20,2092,20,1567,20,1567,20,1567,20,2348,20,1758,20,1864,20,1864,20
  152. 1510 DATA2092,20,1396,20,1396,20,1396,30,1567,10,1758,20,1864,20,1758,40,2092,20
  153. 1520 DATA1864,10,1758,10,1567,30,2348,10,2348,20,2092,20,1864,40,1396,20,1396,20
  154. 1530 DATA1396,30,1567,10,1758,20,1864,20,1758,40,2092,20,1864,10,1758,10,1567,30
  155. 1540 DATA2348,10,2348,20,2092,20,2348,40,0,0
  156. 1550 DATA3134,14,2348,14,2348,7,2092,7,2348,7,2484,7,2793,14,2793,14,2793,14
  157. 1560 DATA2092,14,2092,7,1864,7,2092,7,2348,7,2484,14,3134,14,3134,14,1864,14
  158. 1570 DATA1864,7,1758,7,1864,7,2092,7,2348,14,2793,14,3134,7,3134,7,2793,14
  159. 1580 DATA2092,14,2484,14,2348,28,0,0
  160. 1590 DATA3718,24,3718,24,3718,24,3950,24,3718,24,3134,24,3516,24,5586,24,4184,24
  161. 1600 DATA4697,24,4968,12,4697,12,4184,24,6269,24,3718,72,3718,24,3718,24,3718,24
  162. 1610 DATA2793,24,3134,24,3134,24,3516,24,5586,24,4184,24,4697,24,4968,12,4697,12
  163. 1620 DATA3718,24,4184,24,4697,72,3718,24,3718,24,3718,24,4184,24,4697,24,4968,48
  164. 1630 DATA4968,24,4968,24,5586,24,4968,24,4697,24,4184,24,3718,72,3718,24,3718,24
  165. 1640 DATA3718,24,3950,24,3718,24,3134,24,3516,24,5586,24,2793,24,3134,24,4697,24
  166. 1650 DATA3718,36,4184,12,4697,72,0,0
  167. 1660 PRINT@29,CHR$(252)+CHR$(254);
  168. 1670 PRINT@68,CHR$(252)+CHR$(239)+CHR$(239)+CHR$(254)
  169. 1680 PRINT@107,CHR$(252)+STRING$(4,CHR$(239))+CHR$(254)
  170. 1690 PRINT@146,CHR$(252)+STRING$(6,CHR$(239))+CHR$(254)
  171. 1700 PRINT@185,CHR$(252)+STRING$(8,CHR$(239))+CHR$(254)
  172. 1710 PRINT@224,CHR$(252)+STRING$(10,CHR$(239))+CHR$(254)
  173. 1720 PRINT@263,CHR$(252)+STRING$(12,CHR$(239))+CHR$(254)
  174. 1730 PRINT@309,CHR$(239)+CHR$(239);
  175. 1740 RETURN
  176. 1750 LINE(174,9)-(162,16)
  177. 1760 LINE-(162,40)
  178. 1770 LINE-(155,48)
  179. 1780 LINE-(193,48)
  180. 1790 LINE(174,9)-(186,16)
  181. 1800 LINE-(186,40)
  182. 1810 LINE-(193,48)
  183. 1820 LINE(170,48)-(170,54)
  184. 1830 LINE-(178,54)
  185. 1840 LINE-(178,48)
  186. 1850 RETURN
  187. 1860 LINE(170,24)-(170,48)
  188. 1870 LINE-(182,48)
  189. 1880 LINE-(182,23)
  190. 1890 LINE(170,48)-(166,52)
  191. 1900 LINE-(186,52)
  192. 1910 LINE-(182,48)
  193. 1920 LINE(170,24)-(172,26)
  194. 1930 LINE-(176,23)
  195. 1940 LINE-(178,24)
  196. 1950 LINE-(182,22)
  197. 1960 LINE(176,23)-(173,18)
  198. 1970 LINE-(177,14)
  199. 1980 LINE(176,23)-(179,19)
  200. 1990 LINE-(176,13)
  201. 2000 RETURN
  202. 2010 LINE(174,8)-(168,20)
  203. 2020 LINE-(152,20)
  204. 2030 LINE-(164,30)
  205. 2040 LINE-(160,42)
  206. 2050 LINE(174,8)-(180,20)
  207. 2060 LINE-(196,20)
  208. 2070 LINE-(184,30)
  209. 2080 LINE-(188,42)
  210. 2090 LINE-(174,34)
  211. 2100 LINE-(160,42)
  212. 2110 RETURN
  213. 2120 LINE(174,16)-(158,42)
  214. 2130 LINE-(190,42)
  215. 2140 LINE-(174,16)
  216. 2150 LINE-(170,12)
  217. 2160 LINE(174,16)-(178,12)
  218. 2170 LINE-(178,8)
  219. 2180 LINE(177,5)-(171,5)
  220. 2190 PSET(172,9)
  221. 2200 LINE(170,12)-(170,8)
  222. 2210 LINE(171,7)-(177,7)
  223. 2220 LINE(173,12)-(175,12)
  224. 2230 LINE(165,32)-(145,20)
  225. 2240 LINE(183,32)-(203,20)
  226. 2250 LINE(145,20)-(145,15)
  227. 2260 LINE(173,12)-(175,12)
  228. 2270 LINE(203,20)-(203,15)
  229. 2280 LINE(145,15)-(165,15)
  230. 2290 LINE-(172,20)
  231. 2300 LINE(203,15)-(184,15)
  232. 2310 
  233. 2320 LINE(184,15)-(177,20)
  234. 2330 PSET(176,9)
  235. 2340 PSET(174,10)
  236. 2350 PSET(172,11)
  237. 2360 PSET(176,11)
  238. 2370 RETURN
  239. 2380 LINE(174,16)-(174,20)
  240. 2390 LINE-(170,24)
  241. 2400 LINE-(174,24)
  242. 2410 LINE-(170,30)
  243. 2420 LINE-(171,30)
  244. 2430 LINE-(174,30)
  245. 2440 LINE-(178,34)
  246. 2450 LINE-(177,30)
  247. 2460 LINE-(180,30)
  248. 2470 LINE-(178,25)
  249. 2480 LINE-(181,25)
  250. 2490 LINE-(174,16)
  251. 2500 LINE(174,16)-(172,14)
  252. 2510 LINE-(174,12)
  253. 2520 LINE-(176,14)
  254. 2530 LINE-(174,16)
  255. 2540 LINE(176,14)-(185,7)
  256. 2550 LINE-(185,10)
  257. 2560 LINE-(190,8)
  258. 2570 LINE-(190,11)
  259. 2580 LINE-(192,9)
  260. 2590 LINE-(194,9)
  261. 2600 LINE-(190,13)
  262. 2610 LINE-(190,17)
  263. 2620 LINE-(184,13)
  264. 2630 LINE-(184,18)
  265. 2640 LINE-(180,14)
  266. 2650 LINE-(176,14)
  267. 2660 LINE(176,12)-(178,10)
  268. 2670 LINE-(176,8)
  269. 2680 LINE-(174,10)
  270. 2690 LINE-(176,12)
  271. 2700 LINE(174,10)-(172,8)
  272. 2710 LINE-(170,10)
  273. 2720 LINE-(172,12)
  274. 2730 LINE-(174,10)
  275. 2740 RETURN
  276. 2750 LINE(162,16)-(162,48)
  277. 2760 LINE-(176,54)
  278. 2770 LINE-(190,48)
  279. 2780 LINE-(190,16)
  280. 2790 LINE-(176,22)
  281. 2800 LINE-(162,16)
  282. 2810 LINE(176,22)-(176,54)
  283. 2820 LINE(164,26)-(164,20)
  284. 2830 LINE-(167,27)
  285. 2840 LINE-(167,21)
  286. 2850 LINE(169,28)-(172,29)
  287. 2860 LINE-(172,23)
  288. 2870 LINE-(169,22)
  289. 2880 LINE-(169,28)
  290. 2890 LINE(180,23)-(180,28)
  291. 2900 LINE-(183,27)
  292. 2910 LINE(180,23)-(183,22)
  293. 2920 LINE(180,25)-(183,24)
  294. 2930 LINE(185,21)-(185,26)
  295. 2940 LINE-(188,24)
  296. 2950 RETURN
  297. 2960 LINE(160,48)-(160,40)
  298. 2970 LINE(168,40)-(158,40)
  299. 2980 LINE-(163,35)
  300. 2990 LINE-(168,40)
  301. 3000 LINE(166,40)-(166,48)
  302. 3010 LINE-(160,48)
  303. 3020 LINE(162,47)-(162,45)
  304. 3030 LINE-(164,45)
  305. 3040 LINE-(164,47)
  306. 3050 LINE(170,48)-(170,32)
  307. 3060 LINE-(178,32)
  308. 3070 LINE-(178,48)
  309. 3080 LINE-(170,48)
  310. 3090 LINE(173,48)-(173,45)
  311. 3100 LINE-(175,45)
  312. 3110 LINE-(175,48)
  313. 3120 PSET(172,31)
  314. 3130 PSET(174,31)
  315. 3140 PSET(172,35)
  316. 3150 PSET(176,35)
  317. 3160 LINE(182,48)-(182,38)
  318. 3170 LINE-(180,38)
  319. 3180 LINE-(184,34)
  320. 3190 LINE-(190,34)
  321. 3200 LINE-(194,38)
  322. 3210 LINE-(192,38)
  323. 3220 LINE-(192,48)
  324. 3230 LINE-(182,48)
  325. 3240 LINE(186,48)-(186,45)
  326. 3250 LINE(188,48)-(188,45)
  327. 3260 LINE-(186,45)
  328. 3270 LINE(192,38)-(182,38)
  329. 3280 LINE(130,48)-(165,28)
  330. 3290 LINE-(170,29)
  331. 3300 LINE-(190,24)
  332. 3310 LINE-(200,27)
  333. 3320 LINE-(220,20)
  334. 3330 LINE(195,48)-(195,42)
  335. 3340 LINE-(201,42)
  336. 3350 LINE-(201,48)
  337. 3360 LINE-(195,48)
  338. 3370 LINE(197,48)-(197,45)
  339. 3380 LINE-(199,45)
  340. 3390 LINE-(199,48)
  341. 3400 LINE(194,41)-(198,38)
  342. 3410 LINE-(202,41)
  343. 3420 RETURN
  344.