[net.micro.pc] three-part-harmony.bas / shaped note hymn

ted@imsvax.UUCP (Ted Holden) (07/24/86)

        Most microcomputers are doomed to spend their lives in mundane
pursuits, if not as instruments of outright anti-culture, e.g.
spread-sheets, data-bases, pac-man, global-thermonuclear-war etc.  This
doesn't mean they can't be put to better use;  every PC, AT etc. out
there in the land has a voice which, while uninteresting in itself,
becomes interesting in combination with others of its kind, much like
recorders (the antique flute variety).  Not surprisingly, recorder duets
and trios sound quite good on two or three PCs.  Using Basica or GW
Basic insures that the PCs involved don't even have to be running at the
same MHZ rating;  basic goes by the system clock.

        The following are two soprano (or soprano and tenor, your
choice) lines and a bass line for "Babylon is Falling", my pick of the
so-called "shaped note" hymns from colonial days in America, when
itinerant singing masters went from town to town teaching singing
classes for a month or so at inns, schools etc., using a system of
shaped notes in which notes of different duration were represented as
different geometric shapes.

        Simply cut out the three segments of basic "play" statements,
read each into a seperate PC, have three people each hit F2 at the
same time, and enjoy.  If you want to really get serious about it, you
might try a slightly deeper speaker on the PC with the bass line.


10 PLAY "l4 o4 g g b g8 b8 >c8 <a8>d d d <g g b8 a8 g b b8 a8 b2
20 PLAY "g g b g8 b8 >c8 <a8 >d d d <g g b8 a8 g b b8 a8 b2
30 PLAY "b. a8 g g >c <b b g b. a8 g g >c <b b2
40 PLAY "l8 g. g16 g g b4 b g >c <a a a >d4 <a4 g. g16 g g b4 g b b4 b a b2
50 PLAY "l8 g. g16 g g b4 b g >c <a a a >d4 <a4 g. g16 g g b4 g b b4 b a b2


100 PLAY "o4 l4 b b g8 f+8e a a8 f+8 g a b b g8 f+8 e8 g8 f+ f+ e2
110 PLAY "o4 l4 b b g8 f+8e a a8 f+8 g a b b g8 f+8 e8 g8 f+ f+ e2
120 PLAY "   b. >c8 d8 <b8 >d e f+ e8 d8 <b b. >c8 d8 <b8 >d e f+ e2
130 PLAY "<B8. B16 B8 B8 L8 G4 G E A4 A F+ G4 A4 B. B16 B B G4 E G F+4 F+4 e2
135 PLAY "B8. B16 B8 B8 L8 G4 G E A4 A F+ G4 A4 B. B16 B B G4 E G F+4 F+4 e2


200 PLAY "l4 o4 e e <b >e d d <b >d g e e e <b b >e2
210 PLAY "l4 o4 e e <b >e d d <b >d g e e e <b b >e2
220 PLAY "  G. A8 B G E <B >E E G. A8 B G E <B >E2
230 PLAY "e8. e16 e8 e8 <b > e8 e8 d d8 c8 <b >d e8. e18 e8 e8 e e8 e8 <b b >e2
235 PLAY "e8. e16 e8 e8 <b > e8 e8 d d8 c8 <b >d e8. e18 e8 e8 e e8 e8 <b b >e2