d$ = "aaplay "
dir$ = "data\"
SCREEN 13
PALETTE
SHELL "ren data\*.scr *.exe"
SHELL dir$ + "end1"
SHELL d$ + "end"
SHELL dir$ + "end2"
SHELL dir$ + "end3"
SHELL "ren data\*.exe *.scr"
PALETTE
CLS
CHAIN "ini.bas"


