DIM S AS STRING
OPEN "INPUT.TXT" FOR INPUT AS #1
INPUT #1, S
CLOSE #1
PAR = 0
N = LEN(S)
S = S + " "
BEG:
Q = 0
FOR T = 1 TO N
IF (MID$(S, T, 1) = ">") AND (MID$(S, T + 1, 1) = "<") THEN Q = Q + 1
NEXT T
IF Q = 0 THEN
OPEN "OUTPUT.TXT" FOR OUTPUT AS #2
PRINT #2, PAR
CLOSE #2
SYSTEM
END IF
FOR T = 1 TO N
IF (MID$(S, T, 1) = ">") AND (MID$(S, T + 1, 1) = "<") THEN
 MID$(S, T, 1) = "<"
 MID$(S, T + 1, 1) = ">"
 PAR = PAR + 1
GOTO BEG:
END IF
NEXT T