OPEN "table.mth" FOR INPUT AS #1
OPEN "table.txt" FOR OUTPUT AS #2
a$ = ""
convertflag% = 0
DO
   IF EOF(1) THEN EXIT DO
   LINE INPUT #1, b$
   IF EOF(1) THEN EXIT DO
   IF convertflag% = 0 THEN
      convertflag% = (LEFT$(b$, 4) = "[IA(")
   END IF
   IF convertflag% <> 0 THEN
      IF RIGHT$(b$, 1) = "~" THEN
         a$ = a$ + LEFT$(b$, LEN(b$) - 1)
      ELSE
         a$ = a$ + b$
      END IF
      i% = INSTR(a$, ",")
      IF i% <> 0 THEN
         PRINT #2, LEFT$(a$, i% - 1)
         a$ = RIGHT$(a$, LEN(a$) - i%)
      END IF
      convertflag% = NOT (b$ = "")
      IF convertflag% = 0 THEN
         PRINT #2, a$
      END IF
   END IF
   IF convertflag% = 0 THEN
      PRINT #2, b$
   END IF
LOOP
PRINT #2, a$
CLOSE #1
CLOSE #2
END