' Music: "God Rest Ye, Merry Gentlemen", Traditional English Song
' Played with an 2 Different Sounds
' Arranged by Sir John Stainer (1840-1901)
' Programmed by Rich Koster, Mobile, AL
GOTO redux:

recoup:
IF FRE(-1)<60000& THEN CLEAR, 25000

fin:
LOCATE 1,1
COLOR 3
PRINT "<P>lay again or <R>eturn to Program Window."
x$=UCASE$(INKEY$):IF x$="" THEN fin
q=INSTR("PR",x$)
IF q=0 THEN fin
IF q=1 THEN RUN 
  WINDOW 1
  WINDOW CLOSE 2: SCREEN CLOSE 2
  CLEAR,25000
SYSTEM 

redux:
IF FRE(-1)<60000& THEN CLEAR, 25000: CLEAR, 25000
 DIM code%(1220)
ON BREAK GOSUB recoup:
BREAK ON

1 GOTO 3
2 x$=INKEY$:IF x$="" THEN 2 ELSE CLS:RETURN
3 SCREEN 2,640,200,3,2
4 ' Opening Screen
  WINDOW 2,,(0,2)-(630,184),0,2
  WIDTH 79:
  CLS:LOCATE 9,26
  PRINT "JUMPDISK - DECEMBER 1988"
  LOCATE 10,26
  PRINT "Vol. 2, Issue 12, No. 29"
  LOCATE 12,26
  PRINT "SEASON'S GREETINGS"
  LOCATE 14,28
  PRINT "Wait a moment ... listen ..."

5 ' Define Length of Quarter Note and Volume 
T=6   ' Define Length of Time that a Quarter Note Plays as a Duration of 6
      ' Melody Volume is 127 (Default Volume)
V=70  ' Define Other Voices of Song Volume as 70 (Softer Than Melody)
     
6 ' Define Musical Notes Used in Tune 
' First Letters: "B" is Bass, "L" is Low, "M" is Middle, "H" is High
' Second Letters: "C" is Music Note C, "D" is Music Note D, etc. as in Standard Music Notation
' "#": "Sharp" of Listed Note/"Flat" of Next Higher Note
' For Example - "MC#" is Middle C Sharp
BC=130.81:BD=146.83:BD#=155.82:BE=164.81:BF=174.61:BF#=185.305    'Bass Notes 
BG=196:BA=220:BA#=233.47:BB=246.94                                'Bass Notes 
LC=261.63:LD=293.66:LD#=311.645:LE=329.63:LF=349.23:LF#=370.615   'Low Notes
LG=392:LG#=416:LA=440:LA#=466.94:LB=493.88                        'Low Notes
MC=523.25:MC#=555.29:MD=587.33:MD#=623.295:ME=659.26:MF=701       'Mid Notes
MF#=742.495:MG=783.99:MA=880:MB=993                               'Mid Notes
HC=1046.5:HD=1174.7:HE=1318.5                                     'High Notes

      ' Melody is on Left Channel: Default Voice 0
      ' Bass is on Left Channel: Voice 3
      ' Harm1 is 1st Harmony Part on Right Channel: Voice 1
      ' Harm2 is 2nd Harmony Part on Right Channel: Voice 2
      '    In this way, the melody and bass notes will be heard even on a
      ' standard Amiga monitor without the right audio channel connected,
      ' but the tune will sound better and have all 4 channels when hooked 
      ' up to a stereo amplifier.

7 ' Use the WAVE Command to Create an Instrument
DIM Wav1%(255),Wav2%(255)
P#=2*3.14159265#/256
FOR j=0 TO 255
 Wav1%(j)=63*(SIN(j*P#)+SIN(j*2*P#))
NEXT 
FOR j=0 TO 255
 Wav2%(j)=64
 IF j>60 THEN Wav2%(j)=-64
NEXT
WAVE 0,Wav1% 
WAVE 1,Wav1% 
WAVE 2,Wav2% 
WAVE 3,Wav2% 
ERASE Wav1%
ERASE Wav2%

PlayTune:            'One Phrase Is Repeated In Song. Using GOSUB And Using
                     'Part2 Twice Lets Us Not Enter It Twice, Saving Memory.                                   
GOSUB Part1:GOSUB Part2:GOSUB Part3:GOSUB Part2:GOSUB Part4:GOSUB Part5
GOSUB Part6:GOTO TuneEnd

Part1: ' Music - Part 1                              'Music Notes & Channel:                              
SOUND WAIT  ' "SOUND WAIT" allows all 4 channels' music to be built
            ' separately and then "SOUND RESUME" lets them all play together.
SOUND ME,.75*T:SOUND ME,T/4,0                        'E      melody GOD
SOUND LE,.75*T,V,3:SOUND LE,T/4,0,3                  'E      bass   GOD
SOUND RESUME:SOUND WAIT
RETURN

Part2: ' Music - Part 2                              'Music Notes & Channel:
SOUND ME,T:SOUND MB,.75*T:SOUND MB,T/4,0             'E,B    melody REST YE
SOUND LE,.75*T,V,3:SOUND LE,T/4,0,3:SOUND LE,.75*T,V,3:SOUND LE,T/4,0,3
                                                     'E,E    bass   REST YE
SOUND LG,T,V,1:SOUND LG,T,0,1                        'G,rest harm1  REST YE
SOUND MG,T,0,2:SOUND MG,T,V,2                        'rest,G harm2  REST YE
SOUND RESUME:SOUND WAIT
SOUND MB,T:SOUND MA,T                                'B,A    melody MERRY  
SOUND LD#,T,V,3:SOUND BB,T,V,3                       'D#,B   bass   MERRY                                                    
SOUND LF#,T,V,1:SOUND LB,.75*T,V,1:SOUND LB,T/4,0,1  'F#,B   harm1  MERRY
SOUND MF#,T,V,2:SOUND MD#,T,V,2                      'F#,D#  harm2  MERRY
SOUND RESUME:SOUND WAIT
SOUND MG,T:SOUND MF#,T                               'G,F#   melody GENTLE-
SOUND LE,T,V,3:SOUND BB,T,V,3                        'E,B    bass   GENTLE-
SOUND LB,.75*T,V,1:SOUND LB,T/4,0,1:SOUND LB,T,V,1   'B,B    harm1  GENTLE-                    
SOUND ME,T,V,2:SOUND MD,T,V,2                        'E,D    harm2  GENTLE-
SOUND RESUME:SOUND WAIT
SOUND ME,T:SOUND MD,T                                'E,D    melody MEN, LET
SOUND LC,T,V,3:SOUND BG,T,V,3                        'C,G    bass   MEN, LET 
SOUND LG,.75*T,V,1:SOUND LG,T/4,0,1:SOUND LG,.75*T,V,1:SOUND LG,T/4,0,1   
                                                     'G,G    harm1  MEN, LET
SOUND MC,T,V,2:SOUND LB,T,V,2                        'C,B    harm2  MEN, LET
SOUND RESUME:SOUND WAIT                             
SOUND ME,T:SOUND MF#,T                               'E,F#   melody NOTHING
SOUND LC,T,V,3:SOUND BB,T,V,3                        'C,B    bass   NOTHING 
SOUND LG,T,V,1:SOUND LB,.75*T,V,1:SOUND LB,T/4,0,1   'G,B    harm1  NOTHING
SOUND MD#,T,0,2:SOUND MD#,T,V,2                      'rest,D#harm2  NOTHING
SOUND RESUME:SOUND WAIT
SOUND MG,T:SOUND MA,T                                'G,A    melody YOU DIS-
SOUND LE,.75*T,V,3:SOUND LE,T/4,0,3:SOUND LC,T,V,3   'E,C    bass   YOU DIS-
SOUND LB,T,V,1:SOUND LE,T,V,1                        'B,E    harm1  YOU DIS-
SOUND ME,.75*T,V,2:SOUND ME,T/4,0,2:SOUND ME,T,V,2   'E,E    harm2  YOU DIS-
SOUND RESUME:SOUND WAIT
SOUND MB,2.75*T:SOUND MB,T/4,0                       'B      melody MAY.
SOUND BB,2.75*T,V,3:SOUND BB,T/4,0,3                 'B      bass   MAY. 
SOUND LF#,2.75*T,V,1:SOUND LF#,T/4,0,1               'F#     harm1  MAY.
SOUND MD#,2.75*T,V,2:SOUND MD#,T/4,0,2               'D#     harm2  MAY
SOUND RESUME:SOUND WAIT
RETURN

Part3: ' Music - Part 3                              'Music Notes & Channel:
SOUND ME,.75*T:SOUND ME,T/4,0                        'E      melody RE-
SOUND LE,.75*T,V,3:SOUND LE,T/4,0,3                  'E      bass   RE-  
SOUND RESUME:SOUND WAIT
RETURN

Part4: ' Music - Part 4                              'Music Notes & Channel:
SOUND MB,T                                           'B      melody TO
SOUND LE,T,V,3                                       'E      bass   TO
SOUND LG#,T,V,1                                      'G#     harm1  TO
SOUND ME,.75*T,V,2:SOUND ME,T/4,0,2                  'E      harm2  TO
SOUND RESUME:SOUND WAIT
SOUND HC,T:SOUND MA,T                                'C,A    melody SAVE US
SOUND LA,.75*T,V,3:SOUND LA,T/4,0,3:SOUND LF#,T,V,3  'A,F#   bass   SAVE US
SOUND MC,T,0,1:SOUND LA,T,V,1                        'rest,A harm1  SAVE US
SOUND ME,T,V,2:SOUND MD,.75*T,V,2:SOUND MD,T/4,0,2   'E,D    harm2  SAVE US
SOUND RESUME:SOUND WAIT
SOUND MB,T:SOUND HC,T                                'B,C    melody ALL FROM
SOUND LG,.75*T,V,3:SOUND LG,T/4,0,3:SOUND LE,T,V,3   'G,E    bass   ALL FROM
SOUND MC,T,0,1:SOUND LG,.75*T,V,1:SOUND LG,T/4,0,1   'rest,G harm1  ALL FROM
SOUND MD,T,V,2:SOUND MG,T,V,2                        'D,G    harm2  ALL FROM
SOUND RESUME:SOUND WAIT
SOUND HD,T:SOUND HE,T                                'D,E    melody SATAN'S
SOUND BB,T,V,3:SOUND LC,T,V,3                        'B,C    bass   SATAN'S
SOUND LG,.75*T,V,1:SOUND LG,T/4,0,1:SOUND LG,.75*T,V,1:SOUND LG,T/4,0,1
                                                     'G,G    harm1  SATAN'S
SOUND MF,T,V,2:SOUND ME,T,V,2                        'F,E    harm2  SATAN'S
SOUND RESUME:SOUND WAIT
SOUND MB,T:SOUND MA,T                                'B,A    melody POWR WHEN
SOUND BG,T,V,3:SOUND BB,T,V,3                        'G,B    bass   POWR WHEN
SOUND LG,T,V,1:SOUND LF#,T,V,1                       'G,F#   harm1  POWR WHEN
SOUND MD,T,V,2:SOUND MD#,T,V,2                       'D,D#   harm2  POWR WHEN
SOUND RESUME:SOUND WAIT
SOUND MG,T:SOUND ME,T                                'G,E    melody WE WERE
SOUND LE,.75*T,V,3:SOUND LE,T/4,0,3:SOUND LE,T,V,3   'E,E    bass   WE WERE                    
SOUND LG,.75*T,V,1:SOUND LG,T/4,0,1:SOUND LG,T,V,1   'G,G    harm1  WE WERE 
SOUND ME,T,V,2:SOUND MC#,T,V,2                       'E,C#   harm2  WE WERE
SOUND RESUME:SOUND WAIT
SOUND MF#,T:SOUND MG,T                               'F#,G   melody GONE A-
SOUND LD,T,V,3:SOUND BB,T,V,3                        'D,B    bass   GONE A-
SOUND LA,T,V,1:SOUND MD,.75*T,V,1:SOUND MD,T/4,0,1   'A,D    harm1  GONE A-
SOUND MD,.75*T,V,2:SOUND MD,T/4,0,2:SOUND MC,T,0,2   'D,rest harm2  GONE A-
SOUND RESUME:SOUND WAIT
SOUND MA,1.75*T:SOUND MA,T/4,0                       'A      melody STRAY.
SOUND LD,1.75*T,V,3:SOUND LD,T/4,0,3                 'D      bass   STRAY.
SOUND MD,T,V,1:SOUND MC,T,V,1                        'D,C    harm1  STRAY.
SOUND MF#,1.75*T,V,2:SOUND MF#,T/4,0,2               'F#     harm2  STRAY.
SOUND RESUME:SOUND WAIT
RETURN

Part5: ' Music - Part 5                              'Music Notes & Channel:
SOUND MG,T:SOUND MA,T                                'G,A    melody O-OH
SOUND LE,T,V,3:SOUND LF#,T,V,3                       'E,F#   bass   O-OH
SOUND LB,T,V,1:SOUND LA,T,V,1                        'B,A    harm1  O-OH
SOUND MD,T,0,2:SOUND MD,.75*T,V,2:SOUND MD,T/4,V,2   'rest,D harm2  O-OH
SOUND RESUME:SOUND WAIT
SOUND MB,2*T                                         'B      melody TI-
SOUND LG,2*T,V,3                                     'G      bass   TI-
SOUND MD,2*T,V,2                                     'D      harm2  TI-
SOUND RESUME:SOUND WAIT
SOUND HC,T:SOUND MB,.75*T:SOUND MB,T/4,0             'C,B    melody DINGS OF
SOUND LC,T,V,3:SOUND LG,T,V,3                        'C,G    bass   DINGS OF
SOUND LG,T,V,1:SOUND LG,T,0,1                        'G,rest harm1  DINGS OF
SOUND ME,T,V,2:SOUND MD,.75*T,V,2:SOUND MD,T/4,0,2   'E,D    harm2  DINGS OF
SOUND RESUME:SOUND WAIT
SOUND MB,T:SOUND MA,T                                'B,A    melody CO-OM-
SOUND BG,T,V,3:SOUND BA,T,V,3                        'G,A    bass   CO-OM-
SOUND MD,T,V,1:SOUND MC,T,V,1                        'D,C    harm1  CO-OM-
SOUND MG,T,V,2:SOUND MF#,T,V,2                       'G,F#   harm2  CO-OM-
SOUND RESUME:SOUND WAIT
SOUND MG,T:SOUND MF#,T                               'G,F#   melody FORT AND
SOUND BB,.75*T,V,3:SOUND BB,T/4,0,3:SOUND BB,T,V,3   'B,B    bass   FORT AND
SOUND LB,.75*T,V,1:SOUND LB,T/4,0,1:SOUND LB,T,V,1   'B,B    harm1  FORT AND
SOUND ME,T,V,2:SOUND MD#,T,V,2                       'E,D#   harm2  FORT AND
SOUND RESUME:SOUND WAIT
SOUND ME,1.75*T:SOUND ME,T/4,0                       'E      melody JOY,
SOUND LE,1.75*T,V,3:SOUND LE,T/4,0,3                 'E      bass   JOY,
SOUND LG,1.75*T,V,1:SOUND LG,T/4,0,1                 'G      harm1  JOY,
SOUND RESUME:SOUND WAIT
SOUND MG,T/2:SOUND MF#,T/2:SOUND ME,T                'G-F#,E melody COMFORT &
SOUND LE,T/4,V,3:SOUND LE,T/4,0,3:SOUND LE,T/4,V,3:SOUND LE,T/4,0,3:SOUND LE,T,V,3
                                                     'E-E,E  bass   COMFORT &
SOUND LG,T/4,V,1:SOUND LG,T/4,0,1:SOUND LG,T/4,V,1:SOUND LG,T/4,0,1:SOUND LG,T,V,1
                                                     'G-G,G  harm1  COMFORT &
SOUND LB,T/4,V,2:SOUND LB,T/4,0,2:SOUND LB,T/4,V,2:SOUND LB,T/4,0,2:SOUND MC#,T,V,2
                                                     'B-B,C# harm 2 COMFORT &
SOUND RESUME:SOUND WAIT
SOUND MA,1.75*T:SOUND MA,T/4,0                       'A      melody JOY,
SOUND LD,T,V,3:SOUND LC,T,V,3                        'D,C    bass   JOY,
SOUND LF#,T,V,1:SOUND LA,T,V,1                       'F#,A   harm1  JOY,
SOUND MD,1.75*T,V,2:SOUND MD,T/4,0,2                 'D      harm2  JOY,
SOUND RESUME:SOUND WAIT
RETURN

Part6: ' Music - Part 6                              'Music Notes & Channel:
SOUND MG,T:SOUND MA,T                                'G,A    melody O-OH
SOUND BB,T,V,3:SOUND BA,T,V,3                        'B,A    bass   O-OH
SOUND MD,T,V,1:SOUND MC,T,V,1                        'D,C    harm1  O-OH
SOUND ME,T,V,2:SOUND MF#,T,V,2                       'E,F#   harm2  O-OH
SOUND RESUME:SOUND WAIT
SOUND MB,T:SOUND HC,T                                'B,C    melody TI-I
SOUND BG,T,V,3:SOUND LE,T,V,3                        'G,E    bass   TI-I
SOUND LB,T,V,1:SOUND LG,T,V,1                        'B,A    harm1  TI-I
SOUND MG,1.75*T,V,2:SOUND MG,T/4,0,2                 'G      harm2  TI-I
SOUND RESUME:SOUND WAIT
SOUND HD,T:SOUND HE,T                                'D,E    melody DINGS OF
SOUND BB,T,V,3:SOUND LC,T,V,3                        'B,C    bass   DINGS OF
SOUND MD,T,V,1:SOUND MC,T,V,1                        'D,C    harm1  DINGS OF
SOUND MG,.75*T,V,2:SOUND MG,T/4,0,2:SOUND MG,.75*T,V,2:SOUND MG,T/4,0,2
                                                     'G,G    harm2  DINGS OF
SOUND RESUME:SOUND WAIT
SOUND MB,T:SOUND MA,T                                'B,A    melody CO-OM-
SOUND BG,T,V,3:SOUND BA,T,V,3                        'G,A    bass   CO-OM-
SOUND MD,T,V,1:SOUND MC,T,V,1                        'D,C    harm1  CO-OM-
SOUND MG,T,V,2:SOUND MF#,T,V,2                       'G,F#   harm2  CO-OM-
SOUND RESUME:SOUND WAIT
SOUND MG,T:SOUND MF#,T                               'G,F#   melody FORT AND
SOUND BB,.75*T,V,3:SOUND BB,T/4,0,3:SOUND BB,T,V,3   'B,B    bass   FORT AND
SOUND LB,.75*T,V,1:SOUND LB,T/4,0,1:SOUND LB,T,V,1   'B,B    harm1  FORT AND
SOUND ME,T,V,2:SOUND MD#,T,V,2                       'E,D#   harm2  FORT AND
SOUND RESUME:SOUND WAIT
SOUND ME,6*T:SOUND ME,T,0                            'E      melody JOY!
SOUND LE,6*T,V,3:SOUND LE,T,0,3                      'E      bass   JOY!
SOUND LG,6*T,V,1:SOUND LG,T,0,1                      'G      harm1  JOY!
SOUND RESUME
RETURN

TuneEnd:
CLS
LOCATE 12,28
PRINT "May your 1989 be as pleasant as you've made our 1988."
LOCATE 14,28
PRINT "JUMPDISK Staff and Editors"
GOTO fin