PROGRAM random_compositon (Input,Output);
{
This program outputs random notes.
}

{

Copyright 1989 by Wesley R. Elsberry.  All rights reserved.

Commercial use of this software is prohibited without written consent of
the author.

For information, bug reports, and updates contact

Wesley R. Elsberry
528 Chambers Creek Drive South
Everman, Texas 76140
Telephone: (817) 551-7018

}

    VAR
       ii, jj : INTEGER;
       Outf : TEXT;

    BEGIN
       Assign(outf,'rmus.mus');
       Rewrite(outf);
       Randomize;
       FOR ii := 1 TO 152 DO BEGIN
          Writeln(outf,(Random(8)+1):1);
          END;
       Close(outf);
       END.