CLS
OPEN "C:\ROYYE.STS" FOR OUTPUT AS #1
LINE INPUT A$
PRINT #1, A$
CLOSE #1
OPEN "C:\ROYYE.STS" FOR INPUT AS #1
AA = LOF(1) - 2
PRINT INPUT$(AA, 1); AA
CLOSE #1
KILL "C:\ROYYE.STS"

