Intermec Janus 2010 Reference Manual page 166

im_sound
This function returns one of the standard status codes listed in Appendix A,
Return Value:
"Status Codes."
Example
With System, Intrmecd_IO, Intrmecp_IO;
Use System, Intrmecd_IO, Intrmecp_IO;
procedure sound Is
C0 : Constant System.Word := 262;
D0 : Constant System.Word := 296;
E0 : Constant System.Word := 330;
F0 : Constant System.Word := 349;
G0 : Constant System.Word := 392;
A0 : Constant System.Word := 440;
B0 : Constant System.Word := 494;
C1 : Constant System.Word := 523;
D1 : Constant System.Word := 587;
E1 : Constant System.Word := 659;
F1 : Constant System.Word := 698;
G1 : Constant System.Word := 784;
A1 : Constant System.Word := 880;
B1 : Constant System.Word := 988;
EIGHTH : Constant System.Word := 125;
QUARTER : Constant System.Word := 250;
HALF : Constant System.Word := 500;
WHOLE : Constant System.Word := 1000;
END_NOTE : Constant System.Word := 0;
type song is array (1..8, 1..3) of System.Word;
this_song : song :=
( (C1, HALF, 2),
(G0, HALF, 2),
(A0, HALF, 2),
(E0, HALF, 2),
(F0, HALF, 2),
(E0, QUARTER, 2),
(D0, QUARTER, 2),
(C0, WHOLE, 2) );
note : Integer;
status : System.Word;
begin
for note in 1..8 loop
status := im_sound (this_song(note,1), this_song(note,2), this_song(note,3));
end loop;
end sound;
3-126