A simple sound recorder

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    REM Project: SoundRecorder
REM Created: 6/11/2006 6:04:01 PM
REM
REM ***** Main Source File *****
REM A simple sound recorder
DURATION = 5000
DO
  CLS
  PRINT "ENTER OPTION:"
  PRINT "TO RECORD SOUND  PRESS 1"
  IF SOUND EXIST(1)
    PRINT "TO PLAY SOUND    PRESS 2"
    PRINT "TO SAVE SOUND    PRESS 3"
    PRINT "TO ERASE SOUND   PRESS 4"
  ENDIF
  PRINT "TO EXIT          PRESS 0"
  INPUT "ENTER OPTION > ",K$
  WHILE RETURNKEY()=1 : ENDWHILE
  SELECT K$
    CASE "1"
      GOSUB _RECORD
    ENDCASE
    CASE "2"
      IF SOUND EXIST(1) THEN GOSUB _PLAYBACK
    ENDCASE
    CASE "3"
      IF SOUND EXIST(1) THEN GOSUB _SAVE
    ENDCASE
    CASE "4"
      IF SOUND EXIST(1) THEN GOSUB _ERASE
    ENDCASE
    CASE "0"
      END
    ENDCASE
  ENDSELECT
LOOP

_RECORD:
  IF SOUND EXIST(1) THEN GOSUB _ERASE
  CLS
  _PRESSENTER("TO START RECORDING")
  CLS
  RECORD SOUND 1,DURATION
  _PRESSENTER("TO STOP RECORDING")
  CLS
  STOP RECORDING SOUND
  _PRESSENTER("TO RETURN TO OPTIONS")
  RETURN

_PLAYBACK:
  CLS
  _PRESSENTER("TO PLAYBACK SOUND")
  LOOP SOUND 1
  CLS
  _PRESSENTER("TO STOP PLAYBACK")
  STOP SOUND 1
  CLS
  _PRESSENTER("TO RETURN TO OPTIONS")
  RETURN

_SAVE:
  CLS
  INPUT "ENTER FILENAME > ",F$
  IF F$<>""
    IF RIGHT$(UPPER$(F$),4)<> ".WAV" THEN F$ = F$ + ".WAV"
    SAVE SOUND F$,1
    PRINT "SOUND SAVED"
  ELSE
    PRINT "SAVE FILE ABORTED"
  ENDIF
  CLS
  _PRESSENTER("TO RETURN TO OPTIONS")
  RETURN

_ERASE:
  CLS
  INPUT "CONFIRM ERASE SOUND _/N",N$
  IF UPPER$(LEFT$(N$,1))<>"N" THEN DELETE SOUND 1
  CLS
  _PRESSENTER("TO RETURN TO OPTIONS")
  RETURN

FUNCTION _PRESSENTER(MSG$)
  PRINT "PRESS ENTER " + MSG$
  REPEAT : UNTIL RETURNKEY()=1
  WHILE RETURNKEY()=1 : ENDWHILE
ENDFUNCTION