DIM t$(256)
CLS
ON ERROR GOTO 4
1
o = o + 1
2 LOCATE 1, 1: PRINT t$(o); " "
3 w$ = "": w$ = INKEY$: IF w$ = "" THEN GOTO 3
IF w$ = CHR$(13) THEN GOTO 1
IF w$ = CHR$(0) + CHR$(75) AND LEN(t$(o)) > 0 THEN t$(o) = LEFT$(t$(o), LEN(t$(o)) - 1): GOTO 2
IF w$ = CHR$(27) THEN GOTO 7
t$(o) = t$(o) + w$
GOTO 2
4 RESUME 7
7 CLOSE #1
ON ERROR GOTO 6
OPEN "template" FOR OUTPUT AS #1
5 i = i + 1
WRITE #1, t$(i)
GOTO 5
6 RESUME 8
8 CLOSE #1
SYSTEM