10   DIM A$(4,50)
20   FOR I=1 TO 4
30   INPUT A$(I)
40   NEXT I
50   FOR I=1 TO 4
60   PRINT A$(I)
70   NEXT I
80   FILEV#1:"DTA0:NAME.ML"
90   FOR I = 1 TO 4
100   PRINT#1:A$(I)
110  NEXT I
130  GO TO 10
140  END