orange=rgb(200,160,0):white=rgb(200,200,200):ink white,0
backdrop on:color backdrop rgb(5,40,5):Length#=5000
DO
if lower$(inkey$())="s" and Rec=0 then backdrop off:input "New Length: ",Length#:backdrop on
if lower$(inkey$())="p" and Rec=0 then backdrop off:input "New Playback Speed: ",Speed#:if sound exist(1) then set sound speed 1,Speed#:backdrop on:play sound 1
if Rec=1 then ink orange,0:print "...NOW RECORDING...":ink white,0
if sound exist(1) then if sound playing (1) then ink orange,0:print "...PLAYING BACK...":ink white,0
if sound exist(1) then print "Actual Playback Speed: ";sound speed(1)
if lower$(inkey$())="r" and Rec=0
Rec=1
t#=timer()+Length#
if sound exist(1) then delete sound 1
record sound 1
ENDIF
if Rec=1 and timer()>t# then stop recording sound:play sound 1:Rec=0
if Sound exist(1) and returnkey() then play sound 1
set cursor 0,0
print "(R)ecord Start"
print "(S)et Recording Length"
print "(P)layback Speed"
print "(E)nter To Play Sound"
print
print "Current Length: ";Length#;" (";Length#/1000;" sec)"
print "User Speed: ";Speed#
print
LOOP
(It may give you trouble with long recordings/playbacks.)
![](/images/emoticons/devil.gif)
666GO†O666
![](/images/emoticons/devil.gif)