Sound procedure DECLARATION: Sound(Freq : Word); PURPOSE: Turns on the internal speaker UNIT: CRT REMARKS: Generates sound of the frequency in Hz specified by Freq out of the internal speaker. The tone will continue until the NoSound command is issued.