1: DECLARE SUB OrderingInformation () 2: DECLARE SUB AllIAskofYouReprise () 3: DECLARE SUB Overture () 4: DECLARE SUB ThinkofMe () 5: DECLARE SUB AngelofMusic () 6: DECLARE SUB TheMusicoftheNight () 7: DECLARE SUB PrimaDonna () 8: DECLARE SUB AllIAskofYou () 9: DECLARE SUB Masquerade () 10: DECLARE SUB WishingYouWereSomehowHereAgain () 11: DECLARE SUB ThePointofNoReturn () 12: DECLARE SUB Menu () 13: DECLARE SUB ThePhantomoftheOpera () 14: 15: 16: Menu 17: 18: SUB AllIAskofYou 19: 20: CLS 21: 22: LOCATE 12, 1 23: 24: PRINT " To listen to this song, please select the option, 'Ordering Information'"; "" 25: 26: 27: DO: LOOP UNTIL INKEY$ = CHR$(13) 28: 29: Menu 30: 31: END SUB 32: 33: SUB AllIAskofYouReprise 34: 35: CLS 36: 37: LOCATE 12, 1 38: 39: PRINT " To listen to this song, please select the option, 'Ordering Information'"; "" 40: 41: 42: 43: DO: LOOP UNTIL INKEY$ = CHR$(13) 44: 45: Menu 46: 47: 48: END SUB 49: 50: SUB AngelofMusic 51: 52: 53: '---------------------------------- 54: CLS 55: SLEEP 2 56: LOCATE 2, 30 57: PRINT "Angel of Music" 58: 59: FOR t = 1 TO 3 60: PRINT 61: NEXT t 62: SLEEP 2 63: '---------------------------------- 64: 65: 66: PRINT "MEG:" 67: PRINT 68: 69: PRINT "Where in the world" 70: PLAY "T70O2L8B.L16AL8GL4A" 71: 72: PRINT "have you been hiding?" 73: PLAY "L8F#L4EL8AF#L4D" 74: 75: PRINT "Really, you were perfect." 76: PLAY "L8B.L16AL8GL4D.L8<B>L4G" 77: 78: PRINT 79: PLAY "L8CDG" 80: 81: PRINT "In only wish" 82: PLAY "L8B.L16AL8GL4A" 83: 84: PRINT "I knew your secret;" 85: PLAY "L8F#L4EL8AF#L4D" 86: 87: PRINT "who is this new tutor?" 88: PLAY "L8B.L16AL8GL4D.L8<B>L4G." 89: 90: 91: '---------------------------------- 92: CLS 93: LOCATE 2, 30 94: PRINT "Angel of Music" 95: 96: FOR t = 1 TO 3 97: PRINT 98: NEXT t 99: 100: PLAY "L4BL16AGL4AL8F#L4EL8AF#D" 101: PLAY "L4BL16AGL4D.L8<B>L4GP8L8<B>D" 102: '---------------------------------- 103: 104: 105: PRINT "CHRISTINE:" 106: PRINT 107: 108: PRINT "Father once spoke of an angel," 109: PLAY "L8GF#EDC<BB>L4E." 110: 111: PRINT "I used to dream he'd appear." 112: PLAY "L8EDCC<BAL4B." 113: 114: PRINT 115: PLAY "L8>AGF#" 116: 117: PRINT "Now as I sing I can sense him," 118: PLAY "L8GF#EDC<BBL4>E." 119: 120: PRINT "and I know he's here." 121: PLAY "L8EF#L4G.B.L2A." 122: 123: PRINT 124: 125: PRINT "Here in this room he calls me softly," 126: PLAY "L8B.L16AL8GL4AL8F#L4EL8AF#L4D" 127: 128: PRINT "somewhere inside hiding." 129: PLAY "L8B.L16AL8GL4D.L8<BL4>G" 130: 131: PLAY "L8CDG" 132: 133: PRINT "Somehow I know he's always with me;" 134: PLAY "L8B.L16AL8GL4AL8F#L4EL8AF#L4D" 135: 136: PRINT "he, the unseen genius." 137: PLAY "L8B.L16AL8GL4D.L8<BL4>G" 138: 139: PLAY "P8L8<B>D" 140: 141: 142: '---------------------------------- 143: CLS 144: LOCATE 2, 30 145: PRINT "Angel of Music" 146: 147: FOR t = 1 TO 3 148: PRINT 149: NEXT t 150: '---------------------------------- 151: 152: 153: PRINT "MEG:" 154: PRINT 155: 156: PRINT "Christine, you must have been dreaming." 157: PLAY "L8GF#EDC<BBL4>E." 158: 159: PRINT "Stories like this can't come true." 160: PLAY "L8EDCC<BAL4B." 161: 162: PLAY "L8>AGF#" 163: 164: PRINT "Christine, you're talking in riddles," 165: PLAY "L8GF#EDC<BBL4>E." 166: 167: PRINT "and it's not like you." 168: PLAY "L8EF#L4G.B.A.P8L8F#A" 169: 170: 171: '---------------------------------- 172: CLS 173: LOCATE 2, 30 174: PRINT "Angel of Music" 175: 176: FOR t = 1 TO 3 177: PRINT 178: NEXT t 179: '---------------------------------- 180: 181: 182: PRINT "CHRISTINE:" 183: PRINT 184: 185: PRINT "Angel, I hear you!" 186: PLAY "L8>D.L16CL8<B-L4>C<L8A" 187: 188: PRINT "Speak, I listen." 189: PLAY "L4GL8>C<AL4F" 190: 191: PRINT "Stay by my side, guide me!" 192: PLAY "L8>D.L16C<L8B-L4F.L8DL4B-." 193: 194: PRINT "Angel, my soul was weak;" 195: PLAY "L8>E.L16DL8CL4D<L8BL4A" 196: 197: PRINT "forgive me!" 198: PLAY "L8>D<BL4G" 199: 200: PRINT "Enter al last, master!" 201: PLAY "L8E.L16DL8CL4<G.L8EL4>C" 202: 203: 204: '---------------------------------- 205: CLS 206: LOCATE 2, 30 207: PRINT "Angel of Music" 208: 209: FOR t = 1 TO 3 210: PRINT 211: NEXT t 212: PLAY "L8P8<EG" 213: '---------------------------------- 214: 215: 216: PRINT "PHANTOM:" 217: PRINT 218: 219: PRINT "Flattering child, you shall know me." 220: PLAY "L8>C<BAGFEEL4A." 221: 222: PRINT "See why in shadow I hide." 223: PLAY "L8AGFFEDL4E." 224: 225: PLAY "L8G#B>D" 226: 227: PRINT "Look at your face in the mirror!" 228: PLAY "L8C<BAGFEEL4A." 229: 230: PRINT "I am there inside." 231: PLAY "L8ABL4>C.E.L2D." 232: 233: 234: '---------------------------------- 235: CLS 236: LOCATE 2, 30 237: PRINT "Angel of Music" 238: 239: FOR t = 1 TO 3 240: PRINT 241: NEXT t 242: '---------------------------------- 243: 244: 245: PRINT "CHRISTINE:" 246: PRINT 247: 248: PRINT "Angel of Music," 249: PLAY "L8E.L16DL8CL4DL8<B" 250: 251: PRINT "guide and guardian," 252: PLAY "L4A>L8D<BL4G" 253: 254: PRINT "grant to me your glory!" 255: PLAY "L8>E.L16DL8C<L4G.L8EL4>C." 256: 257: PRINT 258: 259: PRINT "Angel of Music," 260: PLAY "L8F#.L16EL8DL4EL8C#" 261: 262: PRINT "hide no longer!" 263: PLAY "L4<BL8>EC#<L4A" 264: 265: PRINT "Come to me, strange angel!" 266: PLAY "L8>F#.L16EL8DL4<A.L8F#>L4D." 267: 268: 269: '---------------------------------- 270: CLS 271: LOCATE 2, 30 272: PRINT "Angel of Music" 273: 274: FOR t = 1 TO 3 275: PRINT 276: NEXT t 277: '---------------------------------- 278: 279: 280: PRINT "PHANTOM:" 281: PRINT 282: 283: PRINT "I am your Angel of Music;" 284: PLAY "L4<DL8DEL4EL8DDL8DL4AP8" 285: 286: PRINT "come to me, Angel of Music!" 287: PLAY "L4DL8DEL4EL8DDL8DL4AP8" 288: 289: PRINT 290: 291: PRINT "I am your Angel of Music;" 292: PLAY "L4DL8DEL4EL8DDL8DL4AP8" 293: 294: PRINT "come to me, Angel of Music!" 295: PLAY "L4DL8DEL4EL8DDL8DL1A." 296: 297: 298: DO: LOOP UNTIL INKEY$ = CHR$(13) 299: 300: Menu 301: 302: 303: END SUB 304: 305: SUB Masquerade 306: 307: CLS 308: 309: LOCATE 12, 1 310: 311: PRINT " To listen to this song, please select the option, 'Ordering Information'"; "" 312: 313: DO: LOOP UNTIL INKEY$ = CHR$(13) 314: 315: Menu 316: 317: 318: END SUB 319: 320: SUB Menu 321: 322: CLS 323: 324: LOCATE 2, 25 325: PRINT "The Phantom of the Opera" 326: 327: FOR t = 1 TO 2 328: PRINT 329: NEXT t 330: 331: PRINT "Music by ANDREW LLOYD WEBBER" 332: PRINT "Lyrics by CHARLES HART" 333: PRINT "Additional Lyrics by RICHARD STILGOE and MIKE BATT" 334: PRINT "(C) 1995 ORGANIZATION INC." 335: 336: PRINT 337: 338: COLOR 8, 0 339: PRINT "1. Overture" 340: COLOR 7, 0 341: PRINT "2. Think of Me" 342: PRINT "3. Angel of Music" 343: COLOR 8, 0 344: PRINT "4. The Phantom of the Opera" 345: PRINT "5. The Music of the Night" 346: PRINT "6. Prima Donna" 347: PRINT "7. All I Ask of You" 348: PRINT "8. All I Ask of You (Reprise)" 349: PRINT "9. Masquerade" 350: PRINT "10. Wishing You Were Somehow Here Again" 351: PRINT "11. The Point of No Return" 352: COLOR 7, 0 353: PRINT "12. Ordering Information" 354: PRINT "13. Exit" 355: 356: PRINT 357: INPUT "Please enter your selection: ", sele 358: 359: IF sele < 1 THEN Menu 360: IF sele > 13 THEN Menu 361: 362: 363: IF sele = 2 THEN ThinkofMe 364: IF sele = 3 THEN AngelofMusic 365: IF sele = 4 THEN ThePhantomoftheOpera 366: IF sele = 5 THEN TheMusicoftheNight 367: IF sele = 6 THEN PrimaDonna 368: IF sele = 8 THEN AllIAskofYouReprise 369: IF sele = 7 THEN AllIAskofYou 370: IF sele = 9 THEN Masquerade 371: IF sele = 10 THEN WishingYouWereSomehowHereAgain 372: IF sele = 11 THEN ThePointofNoReturn 373: IF sele = 1 THEN Overture 374: IF sele = 12 THEN OrderingInformation 375: IF sele = 13 THEN PRINT : PRINT "Thank you for listening to The Phantom of the Opera. Please listen again.": PRINT : END 376: 377: 378: END SUB 379: 380: SUB OrderingInformation 381: 382: CLS 383: 384: PRINT : PRINT : PRINT 385: 386: PRINT " To order the registered version of The Phantom of the Opera" 387: PRINT "QMusic ver1.5, please send a self adressed stamped envelop " 388: PRINT "with $5.00 to:" 389: PRINT 390: PRINT " ORGANIZATION INC." 391: PRINT " c/o BENJAMIN KNOLL" 392: PRINT " 301 EAST 300 NORTH" 393: PRINT " HYDE PARK, UT 84318 " 394: PRINT 395: PRINT "Please make checks payable to Benjamin Knoll." 396: PRINT 397: PRINT 398: PRINT " With the registered version, you will recieve all of the songs " 399: PRINT "listed in the main menu." 400: 401: 402: DO: LOOP UNTIL INKEY$ = CHR$(13) 403: 404: Menu 405: 406: 407: END SUB 408: 409: SUB Overture 410: 411: CLS 412: 413: LOCATE 12, 1 414: 415: PRINT " To listen to this song, please select the option, 'Ordering Information'"; "" 416: 417: DO: LOOP UNTIL INKEY$ = CHR$(13) 418: 419: Menu 420: 421: 422: 423: END SUB 424: 425: SUB PrimaDonna 426: 427: CLS 428: 429: LOCATE 12, 1 430: 431: PRINT " To listen to this song, please select the option, 'Ordering Information'"; "" 432: 433: DO: LOOP UNTIL INKEY$ = CHR$(13) 434: 435: Menu 436: 437: 438: 439: 440: END SUB 441: 442: SUB TheMusicoftheNight 443: 444: CLS 445: 446: LOCATE 12, 1 447: 448: PRINT " To listen to this song, please select the option, 'Ordering Information'"; "" 449: 450: DO: LOOP UNTIL INKEY$ = CHR$(13) 451: 452: Menu 453: 454: 455: 456: END SUB 457: 458: SUB ThePhantomoftheOpera 459: 460: CLS 461: 462: LOCATE 12, 1 463: 464: PRINT " To listen to this song, please select the option, 'Ordering Information'"; "" 465: 466: DO: LOOP UNTIL INKEY$ = CHR$(13) 467: 468: Menu 469: 470: 471: 472: END SUB 473: 474: SUB ThePointofNoReturn 475: 476: CLS 477: 478: LOCATE 12, 1 479: 480: PRINT " To listen to this song, please select the option, 'Ordering Information'"; "" 481: 482: DO: LOOP UNTIL INKEY$ = CHR$(13) 483: 484: Menu 485: 486: 487: 488: END SUB 489: 490: SUB ThinkofMe 491: 492: '---------------------------------- 493: CLS 494: SLEEP 2 495: LOCATE 2, 30 496: PRINT "Think of Me" 497: 498: FOR t = 1 TO 3 499: PRINT 500: NEXT t 501: SLEEP 2 502: 503: PLAY "T95O1L8CG>ECGCL4EP4" 504: PLAY "T95O1L8CG>ECGCL4EP2" 505: '---------------------------------- 506: 507: 508: PRINT "CHRISTINE:" 509: PRINT 510: 511: PRINT "Think of me," 512: PLAY "L8EFL4EL8P8EGC" 513: 514: PRINT "think of me fondly" 515: PLAY "L8DDDL4G.D" 516: 517: PRINT "when we've said good-bye." 518: PLAY "L4C.L8CL4C>CL2<GL8<B>G<B>DP4" 519: 520: PRINT "Remember me" 521: PLAY "L8FEFL4EL8P8EGC" 522: 523: PRINT "once in a while" 524: PLAY "L8DDDL4G.D" 525: 526: PRINT "promise me you'll try." 527: PLAY "L4C.L8CL4C>CL2<G.L8<B>DFD<B>D" 528: 529: PRINT "On that day, that not so distant day," 530: PLAY "L8EFL4E.L8FEFEFL4EP8" 531: 532: PRINT "when you are far away and free," 533: PLAY "L8G#B>DL4DC<AEL2D" 534: 535: PRINT "if you ever find a moment," 536: PLAY "L4CDL8EFL2EL4AL2GE" 537: 538: PRINT "spare a thought for me." 539: PLAY "L4D.E.F.<B.L2>CP8" 540: 541: 542: '---------------------------------------- 543: CLS 544: LOCATE 2, 30 545: PRINT "Think of Me" 546: 547: FOR t = 1 TO 3 548: PRINT 549: NEXT t 550: 551: PLAY "L8CEG" 552: PLAY "L8AB-L2A.L8GGG>L4C.<G" 553: PLAY "L4F.L8FL4F>FL2C" 554: PLAY "L8<EGB-GGEP8" 555: PLAY "L8AB-L2A." 556: PLAY "L8GGGL4>C.<L4GL4F.L8FL4F>FL2<C" 557: PLAY "L8EG>C<GG" 558: '--------------------------------------- 559: 560: 561: PRINT "And though it's clear" 562: PLAY "L8O2B-AB-L4A" 563: 564: PRINT "though it was always clear" 565: PLAY "L8B-AB-AB-L4AP8" 566: 567: PRINT "that this was never ment to be," 568: PLAY "L8>C#EGL4GFD<AL2G" 569: 570: PRINT "if you happen to remember," 571: PLAY "L4FGL8AB-L2AL4>DL2C<A" 572: 573: PRINT "stop and think of me." 574: PLAY "L4G.A.B-.E.F" 575: 576: 577: '---------------------------------------- 578: CLS 579: LOCATE 2, 30 580: PRINT "Think of Me" 581: 582: FOR t = 1 TO 3 583: PRINT 584: NEXT t 585: PLAY "L8O2GAL4B->C" 586: '--------------------------------------- 587: 588: 589: PRINT "Think of all the things" 590: PLAY "L2O2<F>FL4EED" 591: 592: PRINT "we've shared and see;" 593: PLAY "L4CL2>C<B-G." 594: 595: PRINT "don't think about the" 596: PLAY "L4GL8AB-L2A>L4D" 597: 598: PRINT "way things might have been." 599: PLAY "L2C<AGDL1E" 600: 601: 602: '---------------------------------------- 603: CLS 604: LOCATE 2, 30 605: PRINT "Think of Me" 606: 607: FOR t = 1 TO 3 608: PRINT 609: NEXT t 610: 611: '--------------------------------------- 612: 613: 614: PRINT "Think of me," 615: PLAY "L8<AB-L2A." 616: 617: PRINT "think of me waking" 618: PLAY "L8GGG>L4C.<G" 619: 620: PRINT "silent and resigned." 621: PLAY "L4F.L8FL4F>FL2C.P8" 622: 623: PRINT "Imagine me," 624: PLAY "L8<AB-L2A." 625: 626: PRINT "trying to hard" 627: PLAY "L8GGG>L4C.<G" 628: 629: PRINT "to put you from my mind." 630: PLAY "L4F.L8FL4F>FL2C.P8" 631: 632: 633: '---------------------------------------- 634: CLS 635: LOCATE 2, 30 636: PRINT "Think of Me" 637: 638: FOR t = 1 TO 3 639: PRINT 640: NEXT t 641: 642: '--------------------------------------- 643: 644: 645: PRINT "Think of me," 646: PLAY "L8<O2B-AB-L4A." 647: 648: PRINT "please say you'll think of me" 649: PLAY "L8B-AB-AB-L4AP8" 650: 651: PRINT "whatever else you choose to do." 652: PLAY "L8>C#EGL4GFD<AL2G" 653: 654: PRINT "There will never be a day" 655: PLAY "L4FGL8AB-L2A>L4DL2C" 656: 657: PRINT "when I won't think of you." 658: PLAY "L2<AL4G.A.B-.>E.L1F" 659: 660: 661: '---------------------------------------- 662: CLS 663: LOCATE 2, 30 664: PRINT "Think of Me" 665: 666: FOR t = 1 TO 3 667: PRINT 668: NEXT t 669: 670: 'Intermission 671: PLAY "L8<<GGG>L4C.L4G" 672: PLAY "L4F.L8FL4FL4>FL2C" 673: PLAY "L8<G>CC<B-" 674: 675: PRINT "RAOUL:" 676: PRINT 677: 678: PRINT "Can it be," 679: PLAY "L8<AB-L2A." 680: 681: PRINT "can it be, Christine?" 682: PLAY "L8GGGL4>C.<G" 683: 684: PLAY "L4F." 685: 686: PRINT "(SPOKEN) Bravo!" 687: PLAY "L8FL4F>FL2C" 688: 689: PLAY "L8<G>CC<B-" 690: 691: PRINT "What a change." 692: PLAY "L8AB-L4A." 693: 694: PRINT "You're really not a bit" 695: PLAY "L8B-AB-AB-L4AP8" 696: 697: PRINT "the cockish girl that once you were." 698: PLAY "L8>C#EGL4GFD<AL2G" 699: 700: PRINT "She may not remember me," 701: PLAY "L4FGL8AB-L2A>L4DL2C" 702: 703: PRINT "but I remember her." 704: PLAY "L2<AGAB-E" 705: '--------------------------------------- 706: 707: 708: '---------------------------------------- 709: CLS 710: LOCATE 2, 30 711: PRINT "Think of Me" 712: 713: FOR t = 1 TO 3 714: PRINT 715: NEXT t 716: '--------------------------------------- 717: 718: 719: PRINT "CHRISTINE:" 720: PRINT 721: 722: PRINT "Flowers fade," 723: PLAY "L8O2AB-L4A." 724: 725: PRINT "the fruits of summer fade," 726: PLAY "L8B-AB-AB-L4AP8" 727: 728: PRINT "they have their season, so do we." 729: PLAY "L8>C#EGL4GFD<AL2G" 730: 731: PRINT "But please promise me that sometimes" 732: PLAY "L4FGL8AB-L2AL4>DL2C<A" 733: 734: PRINT "you will think of me!" 735: PRINT 736: PRINT 737: PRINT "(APPLAUSE)" 738: PLAY "L2GAB->CL1F." 739: 740: 741: DO: LOOP UNTIL INKEY$ = CHR$(13) 742: 743: 744: Menu 745: 746: 747: END SUB 748: 749: SUB WishingYouWereSomehowHereAgain 750: 751: CLS 752: 753: LOCATE 12, 1 754: 755: PRINT " To listen to this song, please select the option, 'Ordering Information'"; "" 756: 757: DO: LOOP UNTIL INKEY$ = CHR$(13) 758: 759: Menu 760: 761: 762: END SUB 763: |