LOAD BAS:ACCEPT.SBR
LOAD BAS:SLEEP.SBR
:R
RUN D5000