10 CLEAR 1000:MAXFILES=5:DIM M(200)
20 OPEN "LINP" FOR OUTPUT AS#4
30 INPUT"Количество элементов";S
40 FOR K=1 TO S:PRINT #4,K;",";:PRINT LOC(4);:NEXT K:CLOSE #4
70 OPEN "LINP" FOR INPUT AS#4
80 PRINT:PRINT LOF(4)
90 LINE INPUT #4,M$
100 PRINT LOC(4),:PRINT M$
110 IF NOT EOF(4) THEN 90    'Обратите внимание на данную строку!
120 PRINT LOF(4):CLOSE #4