◄Example►                ◄Contents►  ◄Index►  ◄Back►
──────────────────────────────────────────────────────────────────────────────
' This example uses the BEEP statement to indicate an error in the response.
 
' To try this example:
' 1. Choose New Project from the File menu
' 2. Copy the code example below to the code window
' 3. Press F5 to run the example
 
 CLS                                   ' Clear the screen
 DO
         INPUT "Do you hear a beep (Y or N)"; Response$
         R$ = UCASE$(MID$(Response$, 1, 1))
         IF R$ <> "Y" OR R$ = "N" THEN EXIT DO
         BEEP
 LOOP