1 FOR X = 1850 TO 1950:PRINT LEN(ERDEV$),X:POKE X,44:WHILE INKEY$ = "":WEND:NEXT
10 GOSUB 140
20 FOR X = 1 TO LEN(STR$(ERL))
30 IF ERL = VAL("444") THEN
40 C(X) = ASC(MID$(STR$(ERL),X,1))
50 NEXT X
60 FOR X = 1500 TO 1600!
70 AA$ = ""
80 FOR F = 1 TO LEN(STR$(ERL))
90 IF PEEK(X+F) = 7 OR PEEK(X+F) = 12 THEN 110
100 AA$ = AA$ + CHR$(PEEK(X+F))
110 NEXT F
120 PRINT AA$,X+F,ERL:IF AA$ = STR$(ERL) THEN 290
130 NEXT X
140 ON ERROR GOTO 20
160 ERROR 253
290 FOR X = 1540 TO 1560 : POKE X,ASC("7"):PRINT ERL:NEXT:A$ = A$ + SPACE$(44):ON ERROR GOTO 0:GOTO 20