:T
LOAD AMSORT.SYS[1,4]
RUN DICTON
$0
ERASE $0.A01