38 lines
684 B
Plaintext
38 lines
684 B
Plaintext
|
||
|
||
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.
|
||
|
||
|