Here is segment of code that saves the info.
SUB putfile (file$(), currentfile, licenumb)
DIM F$(10)
OPEN "R", 1, "DOGFILE.DAT", 354
FOR A = 1 TO 10: FIELD 1, (A - 1) * 35 AS NULL$, 35 AS F$(A): NEXT
FIELD 1, 350 AS NULL$, 4 AS NUM$
A = LOF(1) / 354 + 1
IF currentfile = 0...