frequency = var: 1

sub: main
   init
   set speed: fast

   label: loop
      play: frequency
      delay: #255
      frequency = frequency + #1
      if:=:p3, #%10111111
         goto: exit_prog
      else
         goto: loop
      end if

   label: exit_prog
      stop
      end
end sub