PROGRAM SOUNDS2; {uses sound generation} VAR L:INTEGER; PROCEDURE REST(DURATION:INTEGER); VAR N:INTEGER; BEGIN FOR N := 1 TO DURATION DO ; END; {------------------------------------------------} BEGIN FOR L := 1 TO 8 DO TONE(L,500); REST(1000); TONE(5,200); TONE(3,200); TONE(1,300); REST(100); TONE(1,300); REST(100); FOR L := 1 TO 4 DO TONE(L,200); TONE(5,300); REST(100); TONE(5,300); REST(100); TONE(5,400); TONE(3,300); REST(100); TONE(5,150); REST(50); TONE(5,300); REST(100); TONE(5,200); TONE(6,400); TONE(7,400); TONE(8,1000); END.