100 DIM A$(100),B$(100),C$(100),V(50)
105 FILES TFILO
110 FOR I = 1 TO 100
120 INPUT A$(I)
130 IF A$(I) = "ENDOFDATA" THEN 150
140 NEXT I
150 SCRATCH #1
155 PRINT"-----WRITE TO DISK"
160 FOR J = 1 TO I-1
170 WRITE#1,A$(J)
180 PRINT A$(J)
190 NEXT J
195 PRINT"------RESTORE AND READ B$"
200 RESTORE#1
210 FOR K = 1 TO I-1
220 READ#1,B$(K)
230 NEXT K
235 PRINT"-------CHECK A$ = B$"
240 FOR L = 1 TO I-1
250 IF A$(L) = B$(L) THEN 270
260 PRINT A$(L),B$(L)
270 NEXT L
280 SCRATCH#1
285 PRINT"--------WRITE A$ AND B$"
290 FOR J = 2 TO I-1
300 WRITE#1,A$(J)
310 NEXT J
320 FOR J = 1 TO I-1
330 WRITE#1,B$(J)
340 NEXT J
350 RESTORE#1
355 PRINT"---------RESTORE AND READ C$"
360 FOR J = 1 TO I+I-3
370 READ #1,C$(J)
380 PRINT C$(J)
390 NEXT J
395 PRINT
396 PRINT
397 PRINT"++++++++++HERE WE GO AGAIN"
398 PRINT "TYPE 1 TO CONTINUE OR 0 TO STOP"
399 INPUT Q
400 IF Q=1 THEN 110
9999 END
                                                                                                                                                                                                                                                                                                                                                                      