'=========================================================================== ' Subject: HELIAS FIGHT MUSIC Date: Year of 1992 (00:00) ' Author: Gary Pool Code: QB, QBasic, PDS ' Origin: HELIAS,FIGHT,MUSIC Packet: SOUND.ABC '=========================================================================== 'I saw that a few folks were interested in music. Here's a little ditty 'I came up with for our local Catholic High School students to 'distribute. It's the school fight song. Any similarities between this 'and the fight song for a certain Catholic College located in Indiana is 'purely intentional. Oh, by the way, the school colors are gold and 'blue. Gosh, this is an old program. I had just gotten QB 4.0 and 'wasn't used to NOT using line numbers. ' 10 'Helias Fight Song courtesy of Gary Pool 20 CLEAR : COLOR 14, 1: CLS : R = 8: COLOR 1, 14 30 C1 = 1: C2 = 9: C3 = 17: C4 = 29: C5 = 37: C6 = 45: C7 = 57 C8 = 65: C9 =73 40 O2$ = "MFT200O2": O3$ = "MFT200O3" 50 PLAY O3$ + "L4CL8CCL4CCCCO2BB-" 60 PLAY O2$ + "L1A": LOCATE R, C1: PRINT "Cheer, " 70 PLAY O2$ + "L2A-": LOCATE R, C3: PRINT "Cheer " 80 PLAY O2$ + "L2A": LOCATE R, C4: PRINT "for " 90 PLAY O2$ + "L4B-": LOCATE R, C6: PRINT "He - " 100 PLAY O2$ + "L2B-": LOCATE R, C7: PRINT "li - " 110 PLAY O2$ + "L4A": LOCATE R, C8: PRINT "as " 120 PLAY O2$ + "L1B-": LOCATE R, C9: PRINT "High ": R = R + 1 130 PLAY O2$ + "L4B-": LOCATE R, C1: PRINT "We're " 140 PLAY O2$ + "L2B-": LOCATE R, C3: PRINT "out " 150 PLAY O2$ + "L4B-": LOCATE R, C4: PRINT "to " 160 PLAY O2$ + "L2A": LOCATE R, C6: PRINT "win " 170 PLAY O2$ + "L2B-": LOCATE R, C7: PRINT "or ": R = R + 1 180 PLAY O3$ + "L4C": LOCATE R, C1: PRINT "fight " 190 PLAY O3$ + "L2C": LOCATE R, C3: PRINT "till " 200 PLAY O2$ + "L4B": LOCATE R, C4: PRINT "we " 210 PLAY O3$ + "L1C": LOCATE R, C6: PRINT "die! " 220 PLAY O3$ + "L2D": LOCATE R, C7: PRINT "Send ": R = R + 1 230 PLAY O3$ + "L2F": LOCATE R, C1: PRINT "a " 240 PLAY O3$ + "L2E": LOCATE R, C3: PRINT "cheer " 250 PLAY O3$ + "L2D": LOCATE R, C4: PRINT "for " 260 PLAY O3$ + "L2C": LOCATE R, C6: PRINT "school's" 270 PLAY O2$ + "L2A": LOCATE R, C7: PRINT "dear ": R = R + 1 280 PLAY O2$ + "L1F": LOCATE R, C1: PRINT "name, " 290 PLAY O2$ + "L4A": LOCATE R, C3: PRINT "we're " 300 PLAY O2$ + "L2G": LOCATE R, C4: PRINT "out " 310 PLAY O2$ + "L4F+": LOCATE R, C6: PRINT "to " 320 PLAY O2$ + "L2A": LOCATE R, C7: PRINT "fight ": R = R + 1 330 PLAY O2$ + "L2G": LOCATE R, C1: PRINT "and " 340 PLAY O2$ + "L4F+": LOCATE R, C2: PRINT "win " 350 PLAY O2$ + "L2G": LOCATE R, C3: PRINT "the " 360 PLAY O3$ + "L1C": LOCATE R, C4: PRINT "game. " 370 PLAY O2$ + "L4A": LOCATE R, C5: PRINT "We " 380 PLAY O2$ + "L2A": LOCATE R, C6: PRINT "ne - " 390 PLAY O2$ + "L4A": LOCATE R, C7: PRINT "ver " 400 PLAY O2$ + "L2G+": LOCATE R, C8: PRINT "fal - " 410 PLAY O2$ + "L2A": LOCATE R, C9: PRINT "ter, ": R = R + 1 420 PLAY O2$ + "L4B-": LOCATE R, C1: PRINT "we " 430 PLAY O2$ + "L2B-": LOCATE R, C3: PRINT "ne - " 440 PLAY O2$ + "L4A": LOCATE R, C4: PRINT "ver " 450 PLAY O2$ + "L1B-": LOCATE R, C6: PRINT "fall " 460 PLAY O2$ + "L4B-": LOCATE R, C9: PRINT "He - ": R = R + 1 470 PLAY O2$ + "L2B-": LOCATE R, C1: PRINT "li - " 480 PLAY O2$ + "L4B-": LOCATE R, C3: PRINT "as " 490 PLAY O2$ + "L2A": LOCATE R, C4: PRINT "High " 500 PLAY O2$ + "L2B-": LOCATE R, C6: PRINT "will " 510 PLAY O3$ + "L4C": LOCATE R, C9: PRINT "win ": R = R + 1 520 PLAY O3$ + "L2C": LOCATE R, C1: PRINT "o - " 530 PLAY O2$ + "L4B": LOCATE R, C3: PRINT "ver " 540 PLAY O3$ + "L1C": LOCATE R, C4: PRINT "all " 550 PLAY O3$ + "L2D": LOCATE R, C6: PRINT "while " 560 PLAY O3$ + "L2F": LOCATE R, C9: PRINT "our ": R = R + 1 570 PLAY O3$ + "L2E": LOCATE R, C1: PRINT "loy - " 580 PLAY O3$ + "L2D": LOCATE R, C3: PRINT "al " 590 PLAY O3$ + "L2C": LOCATE R, C4: PRINT "teams " 600 PLAY O2$ + "L2A": LOCATE R, C6: PRINT "are " 610 PLAY O2$ + "L2F": LOCATE R, C9: PRINT "march - ": R = R + 1 620 PLAY O2$ + "L2G": LOCATE R, C1: PRINT "ing " 630 PLAY O2$ + "L4A": LOCATE R, C3: PRINT "on - " 640 PLAY O3$ + "L2C": LOCATE R, C4: PRINT "ward " 650 PLAY O2$ + "L4B-": LOCATE R, C6: PRINT "to " 660 PLAY O2$ + "L2A": LOCATE R, C7: PRINT "vic - " 670 PLAY O2$ + "L2G": LOCATE R, C8: PRINT "to - " 680 PLAY O2$ + "L1F": LOCATE R, C9: PRINT "ry! " 690 END: SYSTEM