Question: Frequency shifting an audio file tia sal22

Greetings all

I have an audio file that is 1 second long, but would like to create it
so that it will play the same signal 4000 times a second at cd quality (44100).  I can get the audio
file into maple 12 and squish it to .25 it's orginal size but I couldn't find a way to do a frequency shift so instead of creating a 1  
cycle signal it creates a file that has the orginal signal repeated 4000 times in 1 second.  Is this possible?

tia sal22

code I used.

with(AudioTools)
audio:=Read("j:\\1_sec_signal.wav")
attrbuites(audiodata)
Preview(audiodata)
squished := Scale(audiodata, .25)
Preview(squished)

Audio file link http://tools.onewithall.net/maple/1secsignal.wav
maple file link http://tools.onewithall.net/maple/change_freq.mw