home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / gwbasic / spiele / xmasmu.bas < prev    next >
Encoding:
BASIC Source File  |  1980-01-01  |  6.9 KB  |  105 lines
  1. 20 CLS:KEY OFF
  2. 30 COLOR 15,0
  3. 40 PRINT SPC(8) CHR$(218)+STRING$(62,CHR$(196))+CHR$(191)
  4. 70 FOR I=1 TO 19
  5. 80 PRINT SPC(8) CHR$(179) SPC(62) CHR$(179)
  6. 90 NEXT
  7. 100 PRINT SPC(8) CHR$(192)+STRING$(62,CHR$(196))+CHR$(217)
  8. 105 LOCATE 4,1
  9. 110 PRINT "   C":PRINT "   H":PRINT "   R":PRINT "   I":PRINT "   S"
  10. 120 PRINT "   T":PRINT "   M":PRINT "   A":PRINT "   S"
  11. 130 PRINT:PRINT "   S":PRINT "   O":PRINT "   N":PRINT "   G":PRINT "   S"
  12. 145 LOCATE 2,15:PRINT 0, "WE WISH YOU A MERRY CHRISTMAS"
  13. 150 LOCATE 4,15:PRINT 1, "WE THREE KINGS"
  14. 155 LOCATE 6,15:PRINT 2, "OH LITTLE TOWN OF BETHLEHEM"
  15. 160 LOCATE 8,15:PRINT 3, "OH COME ALL YE FAITHFUL"
  16. 165 LOCATE 10,15:PRINT 4, "THE FIRST NOEL"
  17. 170 LOCATE 12,15:PRINT 5, "SILENT NIGHT"
  18. 175 LOCATE 14,15:PRINT 6, "JOY TO THE WORLD"
  19. 180 LOCATE 16,15:PRINT 7, "OH HOLY NIGHT"
  20. 185 LOCATE 18,15:PRINT 8, "HARK!  THE HAROLD ANGELS SINGING"
  21. 190 LOCATE 20,15:PRINT 9, "HAVE YOURSELF A MERRY LITTLE CHRISTMAS"
  22. 200 LOCATE 23,1:PRINT SPC(15);:COLOR 0,7
  23. 210 PRINT " Enter selection  (<A> for all, <E> to exit) ":COLOR 2,0
  24. 220 A$=INKEY$:IF A$="" GOTO 220
  25. 230 IF A$="a" OR A$="A" THEN 1000
  26. 250 IF A$="e" OR A$="E" THEN COLOR 7,0:LOCATE 24,1:END
  27. 260 IF A$="0" THEN A=1: GOTO 500
  28. 270 IF VAL(A$)=0 THEN BEEP: GOTO 220
  29. 280 A=VAL(A$)+1
  30. 500 ON A GOSUB 4990,5070,5140,5210,5380,5540,5630,5750,5880,6010
  31. 510 GOTO 220
  32. 1000 GOSUB 4990
  33. 1005 PLAY "P2"
  34. 1010 GOSUB 5070
  35. 1015 PLAY "P2"
  36. 1020 GOSUB 5140
  37. 1025 PLAY "P2"
  38. 1030 GOSUB 5210
  39. 1035 PLAY "P2"
  40. 1040 GOSUB 5380
  41. 1045 PLAY "P2"
  42. 1050 GOSUB 5540
  43. 1055 PLAY "P2"
  44. 1060 GOSUB 5630
  45. 1065 PLAY "P2"
  46. 1070 GOSUB 5750
  47. 1075 PLAY "P2"
  48. 1080 GOSUB 5880
  49. 1085 PLAY "P2"
  50. 1100 GOSUB 6010
  51. 1110 GOTO 220
  52. 4990 COLOR 31,0:LOCATE 2,15:PRINT 0, "WE WISH YOU A MERRY CHRISTMAS":COLOR 7,0
  53. 5000 FOR X=1 TO 1
  54. 5010 PLAY "MFMNL8O3T140"
  55. 5020 PLAY "D4G4GAGF#E4E4E4A4ABAG"
  56. 5030 PLAY "L4F#DDBB8;O4;L8C;O3BAG4;O4;C4;O3;BBA4;O4;C4;O3;L4F#G2"
  57. 5040 PLAY "DGL8GAGF#E4E4E4A4ABAG"
  58. 5050 PLAY "L4F#DDBB8;O4;L8C;O3BAG4;O4;C4;O3;B4A4;O4;C4;O3;L4F#G2"
  59. 5060 NEXT X
  60. 5065 COLOR 15,0:LOCATE 2,15:PRINT 0, "WE WISH YOU A MERRY CHRISTMAS":RETURN
  61. 5070 COLOR 31,0:LOCATE 4,15:PRINT 1, "WE THREE KINGS":COLOR 7,0
  62. 5080 FOR X=1 TO 1
  63. 5090 PLAY "MFL8O3MN"
  64. 5100 PLAY "B4AG4EF#GF#EP4B4AG4EF#GF#E4P4G4GA4AB4BMLO4DC"
  65. 5110 PLAY "MNO3BABAG4F#E4.MLO3L4F#AP32"
  66. 5120 PLAY "MNO3L8G4GG4DG4EG4.G4GG4DG4EG4.G4GA4BO4C4O3BA4BG4GG4DG4EG4."
  67. 5130 NEXT
  68. 5135 COLOR 15,0:LOCATE 4,15:PRINT 1, "WE THREE KINGS":RETURN
  69. 5140 COLOR 31,0:LOCATE 6,15:PRINT 2, "OH LITTLE TOWN OF BETHLEHEM":COLOR 7,0
  70. 5150 FOR X=1 TO 1
  71. 5160 PLAY "MFMNL4O3T100"
  72. 5170 PLAY "AAAG#AO4CO3B-DGFMLO3E8F8P32"
  73. 5180 PLAY "MNO3GCA2.AAAO4DCCO3B-DGFMLO3E8F8P32"
  74. 519p PLAY "MNO3AGF2.AAAGFE2EEDEFGA2.AAAG#AO4CO3B-DO4DCO3FA.G8F2."
  75. 5200 NEXT
  76. 5205 COLOR 15,0:LOCATE 6,15:PRINT 2, "OH LITTLE TOWN OF BETHLEHEM":RETURN
  77. 5210 COLOR 31,0:LOCATE 8,15:PRINT 3, "OH COME ALL YE FAITHFUL":COLOR 7,0
  78. 5220 PLAY "L4MFO3MN"
  79. 5230 PLAY "G"
  80. 5240 FOR X=1 TO 1
  81. 5260 PLAY "G2DGA2D2BABO4CO3B2AGG2F#E"
  82. 5270 PLAY "MLO3F#GP32"
  83. 5280 PLAY "MNO3AB"
  84. 5290 PLAY "MLO3L2F#L4E.P32"
  85. 5300 PL%ú─#y≈4Éd▒Öy!╞.<
  86. ┼¥▓9αYyL6₧ß┴:Ü[╘)O δ╔4║┘¥1pƒ╜╤'#êÇ¥'d▒⌐d┐'₧┬Aü    H¥ÜdKVB!V'XpèB j¢∙Ií>╢╛    £-J*ú┬_f¥bf!2ö╥┘([█5íQ╙LpƒÖ7ƒt╞ƒÖYæÜí*wT╨eÜ+└zºoí÷åúûá9JJµJ;
  87. ÜíTâS7└,hû"R░B╣╒└RÜ▓₧U*Wè+╣╒p7Çàαû"ó─.ccÆ=≈Æ/RPJ1╨é╒    Mo* ·z╘óe₧I-ôπ)₧º╔┴ºD0y¬/éÜ¿R0¥Ö2¿zZ¥ò╖¿ƒ╫¿⌡⌡*I┘ƒ≡ßSú┤ªm
  88. ⌐)"ºΦæJ9D⌐äÜ┼0xZ⌐╔!¿¡Ü¬┘ù8`%'`Ñ8RJEÇ╕&`║P"0C!y≡╝▓Kh!Q`ñ3n╨r░;g┴ñσ╪< qyWr£eÄ_wuOPJºñ8PD0µJD'BGx╤rt╘Peαg≡4≡4└xKâ¿▓Wα╓ú`F─≥"@ñ┬▒W±╣5╗VtJGi`"AUsÉm M╡t/╨╞*e╨|d╥ÜÑ╣Θá╗++dmKôX░Xßz¡¬⌡ßboL≡W┐╣» $û⌠b:αåα±M╨,δ▓^╞»X≡4+6;*X    0ÇIc│p(¥wDk┤H½┤Mó▓╥Θ6Xá┤¥¼I x)E@σSksP▒¢▒r░▒öTrΦ╤/≤    ?+00çÖ)sGO*[2╨g"α»q+)T@╖=Ü)Lï│x;¥îΩº╙r¿htÑù[2αCΦs0    ▒RJBÇw3Y«T░CUT5åTDíT=╙TA3a/Çcn≡R-σí/Pá£{NOÑtI╫?V±a$>┬ñ}æ}s└pP╢U3D5½rxJG⌐a¼DátÜT─=╘╟┼èS"äú+vσ+7,ñr╔a.EÉ,I╨aL$év;┬&hEVúr¥ ÇV┼▓Xö╒p9αƒïd»╖B≥KdXåA"|╡╟.╖'Ièÿ[⌡+₧¡ûUxºò\╣Éò9Ö╖┌.=IÄlà╒àZ∙(I└┤G|╞╖5LI    ▄₧≤bbì╒└e    ┴PIJⁿ#Σr┴≈ÿ┴÷+éOú*sòoΣq₧≥ëpK`,╫à┌I║u+▄ü·å,3╛ó*ê+zï█╕0åyèÑτö=αöL╛█σ.I    Gs11c▒;:(:ª9└\pE!=£¼C┐ÅXB{⌡e;*Xy;%9Ç^½^ï5YÿG_÷╡8╪Ö_█*⌠╡╜å╠[îE]Ω ╟÷▒&çΘk.╞. ╢╚Lä$╞D,L╔Æ╔Æ╣(làAM╞─(Ç-@|I░X░╝C╖,f»╦▓L|└ÆöJ╣!╦│L└≤R╦Æ─╦┼╔1╛└╠d╩L╦▄╦╕<╠R29ÖJ%0`½\Ü+╙I▒à°r▐L¬┌▄½G─Åÿ-α,╬Eα≈59T·m;║41√"┌î┐Y&n╫yφô:╣U%[#ó┴┴  ?ï╡å:{o∙╠»╒⌠╟5√å8√╨-╤ü6X·ªH>dy▌pí├ <─ïU─Üx─░î═│0¢* (J╤P£+ú╟X,C!ì╨rⁿ╧RÇe╙CS6uE!╚w·L:y√ó1┌╨│⌡*L÷Z"═┼Qoì╘ⁿz}p╜ë╒]AådPÇe¡╣] MS²ù]σÜ£╠D(@-░│T)@*p- ╙∙║fµ┌£─╣g∙ª=╘╒/½╧6 ¥Y~ïàá┴<╪îe08ºT#Mª╤9 ¥Q├ñï┼jÆh^ ╞r.+ü+╨éB¬4░ê4xYÆ#>ö=M<[,oô▌'╪Γ)÷¼W z┘\%û≥]A`aCû █¿rCMcº└≥ÑaΩë«"ÑW«NGüçE▒?┤½îτª¼╒}▌oÉç▌╞╗PΣ
  89. _2`]ÄçdQÇe░░MÑyI@A▒BO@3óâ8è├█πSè├D└OⁿΩ▌,`¿░▌/(=Ü3≥ºçÄIε)╚ßÆÖé╫%╛: ?û╒╬╣S└Pd!ÉêEá{ô5B╬ìÑö⌠╦è    █1ùOA└A~▄ô}7╩¥v·*/.ªö┤&Ñ╟╣ß=π->{1P┼o`=┘=╗Suf└Tm≡δ▌XφMå,$±╜X"$╥Åú▓[├Ö·}╜A86S0:|ç;«╧
  90. ╬αT≥╕╓╗Bîßå┌µTpß▐½ß▐█ßQⁿß∙D;è#¥sì└
  91. e▌H₧çJ¿?Rε?"í┴█à▀-TF░Σ pa±kaüπò37!;@█0v╨s╛>└╩O╛='«Γ,~Ω═▌*╕*Σ2öéI╘~2αånXi╬1└!eÇt╨1)└xf«:{ìfN,L·1╤╚°ìBf╛ñ╟ÄSpFPÿ▀Ö¥φ[+TEÇ5u╥ºΣµ}LG!¡£¢ΘΘ╬ΦH│l╜σåN╥═■∞╞≥»Q[σJeá░╖6AB@»≡+▓∙ûmï╡&î─df╬WJÜ∩Ñ¥▀å╬\┐₧Wahü░s░╞¬;╝csτhRQ╨qP▀ô∞ D<∩5_╛ë┤ª0~δ│ΩÖ≈█╗ε`╡▐=Pσ<²φ$üéÜå~╔ `Ñê─ ¼ε▐ΦzhlΩ>R>╘∩±ò╨─║╗τπ|Dæ⌡*E^ª╢:╜[ånëòª=░ïß^QR└6╪═T.q⌡q1bÅäQ/8tXQσ▌«@A]╧__KbO>e?g»piÅΩµÖJbú⌠╜≈5âm╨╞Üá.Z#qe@=Hn≈IN~∞¼P`╗⌠╗ Éo@GΦ>£₧?╒│Q│qL▒⌡`!l@DQ'AUI«äL;╙«[?╤τ╝Nn=τ■= ÷╠╥jO%3:mO┼&è∙Hs╚¬çcß|é╖Θ¥~Q>≡.√u└¼pX°5π∙XƒdêhqJ≈─▀hA@lÉΓ⌠Å4å╧√gá+┴°    δ°pÇ÷╛b₧Æ»S╖ÿ⌠2oδ╛"π╘║½┌∩}▓╬∞?╛XR╒Z%[┼dR╒Z%╢m₧┴M7.ì>┼▓U0ÅÑö|Ræ╠D Hc▒╥Å╔┼ⁿg╛╢=▌πS~.@┌>╠rαT ≡▄─0P,É╫4@:⌠r┐,@/≈╦⌠r┐,,@/≈╦-b└Çæúüé3n└aΣëIz,ñ≥äRè!┬I&LJáHÆBçô"X¿@qó╩ö"âLÑ
  92. XXdI┴┬#╚,ád|⌐Æ"ê!L4>|bôíCWÉ<IZD'æabñäAä8    B%ê,d░ê┴¡Z╢h▌«m¢vn▄║p±╥ò ≈δî >îäQ50jΣ(XH""IÜD⌐2╔WAî- "åì╡8X└Mz┤Θ╥¿Oƒÿ-k╫1Zï╛,╨Θ`ëå+╞V╝±h)SF.y2%─╦2─Æ5δtΩτ¬í│h!â[═▒╓>] ┴╦3?ì8Qw▐úN-2|▓q╦i`╓╝╝≤τío╪╚┐ƒà~■·╫▀Hαü÷G¥u,pτ`sTP|5êw[y¥¥ùQoZq╒^qò]fâr£5ç_ü("h`é+╢ÿóé╒▒⌡Zw▓═ßw±)dD╕╡█åEQERPQäRv\|a╤╟┘ o¢Z╥ %ò²íE`@6╠Ç(rΘ%ÿ[z6fÿf~ëfùj8Ü¢(╛┘▀h ▓Eglh▌)¢₧yv'ßl±╢#y╣¥uz æ─HPüDÆ∩}U!ëfAΘüSóh%è1`Üû
  93. zûiÖ]╬≡⌐    y┌¢lí┌f¿lÆ    δÖ«╩Üÿj╓I┌î|ε躻┬ imé±êaBêNæDJEßäúÉåxP╔9Yiö╥Eºm╢▄n╗φêñü½¡ñß┌cE╚⌐┘TD╗d 5╠╖sƒ╣ûâ2▐¢/╛ÆVh.å4 z┼PφÄD£Æ≡┴;ó╡¥à╓▄iÖ╢Ç┘╜ß╥9±⌐²e
  94. o[_«ûª¥iaµº pu\±Z5ÿ
  95. ▒ZªI¬c▒äûÿ║Q∞n┬549o├k▒îZx7╝ò2╕¢v:├ªcÄqÜ╢Æ Aô╓iiÆ
  96.  
  97. ≤╣"zdS,ê∩ÄH)2╝╒τ¥▒vW╛á:£C#â    »╩=≈|⌠º&Wç÷ÖJτáV█⌐}à»à╞Jr▓6∞₧┤₧U╗≤╘1Ç╣w«ÿQv½B)úÖ╒e╡ÿƒWª─ùo▐%╔Öw>╡░uIx╠║═╝Sh%7 .o}æ»%9 ¢Ü≡ÖC2Ç▌E╦0â⌐Ö3_[Dç╞║g■^ì!╝ê┴Y╣╖╛≡πBúF|ù,É < τƒO>∙w╡▄·╦πaφóNÉ⌡█V▌{ªs}ß╡⌡┘╢ÿ≥╟Dª7ö╤\sç6Ü╥¡ÇI[ï▀'¿¥EPi°Æü⌠ªâÿ Mgyê±╒┌"┬ü 38íIââf
  98. ü<êB╞├┐f4êü╝hÉ£U┼α7░ `â/Σe>4"╣äƒ#Γè-╔    "Θdâ╡Pgm!;ìò╛râ┌∞l4¢G2.P4"
  99. 6120 PLAY "EG;O4;CEF8E8D8C8;O3;B;O4;DE2"
  100. 6130 PLAY "ML O4;C;O3;B;O4;C2DP8"
  101. 6140 PLAY "MN O4;EE;O3;FA;O4;CE8D8C8;O3;B8AB;O4;C2"
  102. 6150 PLAY "ML O4;DCE1P4"
  103. 6160 PLAY "MN O4;E;O3;FA;O4;CE8D8C8;O3;B8AB;O4;C1."
  104. 6170 COLOR 15,0:LOCATE 20,15:PRINT 9, "HAVE YOURSELF A MERRY LITTLE CHRISTMAS":RETURN
  105.