home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / gwbasic / spiele / chsong.bas < prev    next >
Encoding:
BASIC Source File  |  1991-05-15  |  3.9 KB  |  97 lines
  1. 10 V$="B:CHSONG.bas 11/29/82    Shirley"
  2. 20 ON ERROR GOTO 40
  3. 30 GOTO 60
  4. 40 PRINT "ERR ERL =";ERR;ERL
  5. 50 END
  6. 60 '----------------------------------------------------
  7. 70 GOSUB 890  : GOSUB 160  ' SILENT
  8. 80 GOSUB 680  : GOSUB 160  ' NOEL
  9. 90  GOSUB 450  : GOSUB 160 ' SILVER
  10. 100 GOSUB 790  : GOSUB 160  ' JOY
  11. 110 GOSUB 570  : GOSUB 160  ' DECK
  12. 120 GOSUB 270  : GOSUB 160 ' JINGLE
  13. 130 GOSUB 370              ' MERRY
  14. 140 END
  15. 150 '----------------------------------------------------
  16. 160 FOR IWAIT=1 TO 3500 : WWWW=1 : NEXT IWAIT
  17. 170 RETURN
  18. 180 '----------------------------------------------------
  19. 190 CLS
  20. 200 FOR I= 1 TO 15 : LOCATE I,(40-I) : PRINT STRING$(2*I,CHR$(15)) : NEXT I
  21. 210 LOCATE 10,40 : PRINT STRING$(3,CHR$(1))
  22. 220 FOR I= 1 TO 4 : LOCATE 15+I,36 : PRINT STRING$(8,CHR$(15)) : NEXT I
  23. 230 PRINT S$
  24. 240 PRINT " BY SHIRLEY GASICH"
  25. 250 RETURN
  26. 260 '----------------------------------------------------
  27. 270 S$="WE WISH YOU A MERRY CHRISTMAS" : GOSUB 190
  28. 280 PLAY "MB T200 "
  29. 290 PLAY "O3 L4 CF L8 FGFE L4 DDDG L8 GAGF"
  30. 300 PLAY "L4 ECCA L8 AB-AG L4 FD L8 CC L4 DGE"
  31. 310 PLAY "l2 F L4 CFFF L2 E L4 EFED L2 C L4 CAGF"
  32. 320 PLAY "O4 L4 C O3 L4 C L8 CC L4 DGE L2 F L4 CF"
  33. 330 PLAY "L8 FGFE L4 DDDG L8 GAGF L4 ECCA L8 AB-AG"
  34. 340 PLAY "L4 FD L8 CC L4 DGE L2 F"
  35. 350 RETURN
  36. 360 '----------------------------------------------------
  37. 370 S$="JINGLE BELLS" : GOSUB 190
  38. 380 PLAY "MB T210 "
  39. 390 PLAY "O3 L4 EEE P4 EEE P4 EGCD L1 E"
  40. 400 PLAY "L4 FFFFFEE L8 EE L4 EDDE L2 D L4 G P4"
  41. 410 PLAY "O3 L4 EEE P4 EEE P4 EGCD L1 E"
  42. 420 PLAY "L4 FFFFFEE L8 EE L4 GGFD L4 C L1"
  43. 430 RETURN
  44. 440 '----------------------------------------------------
  45. 450 S$="SILVER BELLS" : GOSUB 190
  46. 460 PLAY "MB T150 "
  47. 470 PLAY "O3 L8 B-G L4 FD L8 B-G L4 FD O4 L8 DC"
  48. 480 PLAY "O3 L4 B-GG L2 G O4 L8 C O3 L8 B- L4 AFEE-F."
  49. 490 PLAY "L8 E- L4 E- L2 D L8 B-G L4 FD L8 B-G"
  50. 500 PLAY "L4 FD O4 L8 DC O3 L4 B-GG L2 G O4 L8 C"
  51. 510 PLAY "O3 L8 B- L4 AFEE-F O4 L4 C O3 L2 B-. L8 DE-"
  52. 520 PLAY "O3 L2 F L8 GA L2 B- L4 AAB- O4 L4 C O3 L4 B-AB-"
  53. 530 PLAY "L2 F L8 DE- L2 F L8 GA L2 B- "
  54. 540 PLAY "L4 AAB- O4 L4 C O3 L4 B-A L2 B-."
  55. 550 RETURN
  56. 560 '----------------------------------------------------
  57. 570 S$="DECK THE HALLS" : GOSUB 190
  58. 580 PLAY "MB T250"
  59. 590 PLAY "O3 L2 D. L4 C O2 L2 BAGABG L4 AB O3 L4 C"
  60. 600 PLAY "O2 L4 A L2 B. P4 L4 A L2 GF+G. P4 O3 D."
  61. 610 PLAY "L4 C O2 L2 BAGABG L4 AB O3 L4 C O2 L4 A "
  62. 620 PLAY "L2 B. P4 L4 A L2 GF+G. P4 A. L4 B O3 L2 C"
  63. 630 PLAY "O2 AB. O3 L4 C L2 D O2 A L4 B O3 C L2 D L4 EF+"
  64. 640 PLAY "L2 GF+ED. P4 D. L4 C O2 L2 BAGABG L4 AB O3 C O2 A"
  65. 650 PLAY "L2 B. P4 L4 A L2 GF+ L1 G"
  66. 660 RETURN
  67. 670 '----------------------------------------------------
  68. 680 S$="NOEL" : GOSUB 190
  69. 690 PLAY "MB T100"
  70. 700 PLAY "O3 L8 ED L4 C. L8 DEF L2 G L8 AB O4 L4 C"
  71. 710 PLAY "O3 BA L2 G L8 AB O4 L4 C O3 BAGAB O4 C"
  72. 720 PLAY "O3 GF L2 E L8 ED L4 C. L8 DEF L2 G L8 AB"
  73. 730 PLAY "O4 L4 C O3 BA L2 G L8 AB O4 L4 C O3 BAGAB"
  74. 740 PLAY "O4 C O3 GF L2 E L8 ED L4 C. L8 DEF L2 G O4 L8 C"
  75. 750 PLAY "O3 B L2 A L4 A L2 G. O4 L4 C O3 BAGAB O4 C O3 L4 GF"
  76. 760 PLAY "L2 E"
  77. 770 RETURN
  78. 780 '----------------------------------------------------
  79. 790 S$="JOY TO THE WORLD" : GOSUB 190
  80. 800 PLAY "MB T200"
  81. 810 PLAY "O4 L2 C O3 L4 B. L8 A L2 G. L4 F L2 EDC."
  82. 820 PLAY "L4 G L2 A. L4 A L2 B. L4 B O4 L1 C L4 C"
  83. 830 PLAY "L4 C O3 BAGG. L8 F L4 E O4 CC O3 BAGG. L8 F "
  84. 840 PLAY "L4 EEEEE L8 EF L2 G. L8 FE L4 DDD L8 DE L2 F."
  85. 850 PLAY "L8 ED L4 C O4 L2 C O3 L4 AG. L8 F L4 EF L2 ED"
  86. 860 PLAY "L1 C"
  87. 870 RETURN
  88. 880 '----------------------------------------------------
  89. 890 S$="SILENT NIGHT" : GOSUB 190
  90. 900 PLAY "MB T125"
  91. 910 PLAY "O3 L4 C. L8 D L4 C O2 L2 A. O3 L4 C. L8 D"
  92. 920 PLAY "L4 C O2 L2 A. O3 G L4 G L2 E.F L4 F L2 C."
  93. 930 PLAY "D L4 DF. L8 E L4 DC. L8 D L4 C O2 L2 A. O3 D L4 DF."
  94. 940 PLAY "L8 E L4 DC. L8 D L4 C O2 L2 A. O3 G L4 GB-. L8 G"
  95. 950 PLAY "L4 E L2 F.A. L4 FC O2 A O3 C. O2 L6 B- L4 G L2 F."
  96. 960 RETURN
  97.