PROC OnOff:
GLOBAL Event%(6)
CALL($C58D,8195,3592)
CALL($998d,100,0)
DO
GETEVENT Event%()
IF Event%(1)=1027
BEEP 5,300
ELSEIF Event%(1)=8195
BEEP 5,300
OFF
ENDIF
UNTIL 1=2
ENDP