home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPMUSIC.ZIP / MAGDALEN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-01-03  |  1.9 KB  |  59 lines
  1. program magdalen;      {Turbo Pascal 4.0}
  2.  
  3. {Program to play selection from J. S. Bach's "Little Notebook for
  4.  Anna Magdalena Bach".  From MAGDALEN.BAS, a well-known BASICA
  5.  program.   Converted by Ted Lassagne, Compuserve 70325,206.  Uses
  6.  the unit Music.tpu}
  7.  
  8. uses Music, CRT;
  9.  
  10. var
  11.    aa, bb, cc, c1, dd, ee, ff, gg, hh, ii, jj, kk, ll : string;
  12.  
  13. begin
  14.    clrscr;
  15.    gotoxy(27,10);
  16.    write ('From "The Little Notebook for');
  17.    gotoxy(30,11);
  18.    write ('Anna Magdalena Bach"');
  19.    gotoxy(34,12);
  20.    write ('by J. S. Bach');
  21.  
  22.    aa := 'o3D..o2GABo3CD..o2Gp8Gp8';
  23.    bb := 'o3E..CDEF#G..o2Gp8Gp8';
  24.    cc := 'o3C..DCo2BAB..o3Co2BAGF#..GABGBA...p4';
  25.    c1 := 'o3C..DCo2BAB..o3Co2BAGF#..GABGA....p4';
  26.    dd := 'o3C..DCo2BAB..o3Co2BAGA..BAGF#G....p4';
  27.    ee := 'mlo3B..GABGA..DEF#DG..EF#GDC#..o2Bo3C#o2Ap8ABo3C#DEF#G..' +
  28.          'F#..E..F#..o2A..o3C#..D....p4mn';
  29.    ff := 'D..o2GF#Gp8o3E..o2GF#Gp8o3D..C..o2B..AGF#GAp8DEF#GABo3C..' +
  30.          'o2B..A..Bo3Do2G..F#..G....p4';
  31.    gg := 'o3A...p8GF#EDp64A...p8GF#EDp64';
  32.    hh := 'o2F#GA..G..F#..E..A..F#..D..';
  33.    ii := 'o2F#GA..G..F#..E..A..D..p4';
  34.    jj := 'o3C#DEp8C#DEp8A..Ep8Ep8E..A..Ep8A..Ep8DC#o2BAB..Ep8';
  35.    kk := 'o3E..D#p9o2E..l10o3D....l8C#..o3A..G#..E..D#p9o2E..' +
  36.          'l10o3D....l8C#..A..G#..ED#C#D#ED#C#D#E.p16mno2G#..A..' +
  37.          'o3D..C#DE..o2A..D..C#DE..o1A..p4';
  38.    ll := 'o2F#GA..G..F#..p2E..A..o3D..';
  39.  
  40.    PLAY ('mbmnt195l8');
  41.    PLAY (gg);PLAY (hh);
  42.    PLAY (gg);PLAY (ii);
  43.    PLAY (gg);PLAY (hh);
  44.    PLAY (gg);PLAY (ii);
  45.    PLAY (jj);PLAY (kk);
  46.    PLAY (gg);PLAY (hh);
  47.    PLAY (gg);PLAY (ll);
  48.    PLAY ('p1p1p1');
  49.    PLAY ('mbmnt150l8');
  50.    PLAY (aa);PLAY (bb);PLAY (C1);
  51.    PLAY (aa);PLAY (bb);PLAY (DD);
  52.    PLAY (aa);PLAY (bb);PLAY (CC);
  53.    PLAY (aa);PLAY (bb);PLAY (dd);
  54.    PLAY (EE);PLAY (FF);
  55.    PLAY (aa);PLAY (bb);PLAY (C1);
  56.    PLAY (aa);PLAY (bb);
  57.    PLAY (copy(DD, 1, length(dd)-2) + '. ');
  58. end.
  59.