70 lines
1.4 KiB
Plaintext
70 lines
1.4 KiB
Plaintext
|
||
|
||
PROGRAM test_music (Input,Output);
|
||
{
|
||
This program compares the conformance of an input note sequence to the set
|
||
of example sequences in 'SEQUENCE.DAT'.
|
||
}
|
||
|
||
{
|
||
|
||
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
|
||
|
||
}
|
||
|
||
USES
|
||
DOS, misc1, ANSI_Z, globals, clasinst;
|
||
|
||
{General}
|
||
|
||
|
||
VAR
|
||
ii, jj, kk : INTEGER;
|
||
notes : notes_;
|
||
sinch : CHAR;
|
||
scon,infname : STRING;
|
||
inf : TEXT;
|
||
cnt,success : INTEGER;
|
||
|
||
BEGIN
|
||
Success := 0;
|
||
Cnt := 0;
|
||
|
||
FOR ii := 1 TO 5 DO BEGIN
|
||
notes[ii] := 0;
|
||
END;
|
||
|
||
{Get filename to test}
|
||
Write('Name of file to process: ');
|
||
Readln(infname);
|
||
{Open for input}
|
||
Assign(inf,infname);
|
||
Reset(inf);
|
||
|
||
REPEAT
|
||
Readln(inf,notes[5]);
|
||
IF (classical_instructor(notes) = 1) THEN BEGIN
|
||
INC(success);
|
||
END;
|
||
INC(cnt);
|
||
FOR ii := 1 TO 4 DO BEGIN
|
||
notes[ii] := notes[ii+1];
|
||
END;
|
||
UNTIL (Eof(inf));
|
||
|
||
Close(inf);
|
||
Writeln('Count = ',cnt:5,' Successes = ',success:5);
|
||
|
||
END.
|
||
|
||
|