CLS

k = 0: a$ = ""
'LINE INPUT "", a$
'OPEN "h:\input.txt" FOR OUTPUT AS #1
'PRINT #1, ""
'CLOSE #1
OPEN "input.txt" FOR INPUT AS #1
WHILE NOT EOF(1)
INPUT #1, d$
a$ = a$ + d$
WEND
CLOSE #1
'PRINT a$
1
b$ = a$
FOR e = 1 TO LEN(a$) - 1
IF MID$(b$, e, 1) = ">" AND MID$(b$, e + 1, 1) = "<" THEN MID$(a$, e, 1) = "<": MID$(a$, e + 1, 1) = ">": k = k + 1
NEXT e
FOR e = 1 TO LEN(a$) - 1
IF MID$(a$, e, 1) = ">" AND MID$(a$, e + 1, 1) = "<" THEN GOTO 1
NEXT e
OPEN "h:\output.txt" FOR OUTPUT AS #1
PRINT #1, k
CLOSE #1
OPEN "output.txt" FOR INPUT AS #1
WHILE NOT EOF(1)
INPUT #1, d
PRINT d
WEND
CLOSE #1

SYSTEM