:T
L 100,147
COPY =DSK2:[100,100]$0.bas
L 100,100
ERASE $0.bas
erase $0.run