'* omusic.bas
'*
'* Justin Keswick
'* Qbasic Developer
'* Business Consultant
'* 89 Beachview Crescent
'* Toronto, Ontario
'* cell 416-707-8904
'* home 416-691-9956
'* email jkeswick@interlog.com
'* website www.interlog.com/~jkeswick
'*
'* If you require services, please call today.


CLS

OhWhenTheSaints$ = "MF T255 o1 P4 L4A>C+D L1E P4 L4<A>C+D L1E P1 L4<A>C+D L2EC+<A>C+ L1<B P4 L4>C+C+<B L2A L4AA L2>C+ L4EE L2ED P4 L4DC+D L2EC+<ABA>EA"

PLAY OhWhenTheSaints$

PLAY "P1"

OhSusanna$ = "MB T255 o1 L4F+AABAF+DF+F+ED L2E L4DEF+AABAF+DEF+F+EE L1D L2GG L4B L2B L4BAAF+D L2E L4DEF+AABAF+DEF+F+EE L2DD"

PLAY OhSusanna$

PLAY "P1"

PLAY "MS T255 O1 L4 GGGDEED P4 BB F+F+G P4 P4 > DG+G+G+DEED P4 < BBAAG P4 P4 DGGG > DG+G+G+ P4 G+G+G+ D G+G+G+ P4 < GGGDEED P4 BBAAG P4 >G4"

PLAY OldMacDonald$