2 Voice Beep Example

0 REM                                      Two Voice Beep              Written By E Boisvert              ©1987 BYTE POWER                                     
    2 REM MC RELOCATABLE
    3 REM (ADDR OF MC)+2=DURATION                       (1-65535)
    4 REM 23728/9 Pitch Voice 1&2
    5 REM PITCH (2 TO 255)
    6 REM ADDR+21,BORDER COLOR+8
    7 REM ADDR+27,BORDER COLOR+24
   10 
  100 GO SUB 300: PRINT AT 10,0;"SINE WAVE SOUND": FOR z=1 TO 4: FOR x=-250 TO 250 STEP 8: POKE 23728,ABS x: POKE 23729,ABS (x+4): POKE 50002,255: POKE 50003,0: RANDOMIZE USR 5e4: NEXT x: NEXT z
  200 GO SUB 300: PRINT AT 10,0;"PLAIN 2 VOICE BEEP": FOR z=1 TO 4: FOR x=1 TO 4: POKE 50002,0: POKE 50003,10: POKE 23728,x*4: POKE 23729,x*5: RANDOMIZE USR 5e4: NEXT x: NEXT z
  250 GO TO 100
  300 CLS : PRINT #1;AT 0,0;"©1987 BYTE POWER   By E Boisvert": RETURN 
 9000 LOAD ""CODE 5e4: RUN 
 9999 SAVE "2 BEEP" LINE 9000: SAVE "2. V. BEEP"CODE 5e4,49: VERIFY "": VERIFY ""CODE