$D *.BAS
:R
LOOKUP RES:STRIP.SBR/
GOTO LOAD
GOTO NOLOAD
;LOAD
LOAD BAS:STRIP.SBR
;NOLOAD
ERASE DIR.LST
DIR $0
DIR DIR=$0/D
RUN INCLUD