DEFINT a-z

FUNCTION PBMAIN()
   infile$ = PARSE$(COMMAND$," ",1)
   columns = VAL(PARSE$(COMMAND$," ",2))
   IF columns = 0 OR infile$ = "" OR DIR$(infile$) = "" THEN
      STDOUT "commas infile columns"
      STDOUT "  infile = filename"
      STDOUT "  columns = number of columns max
      EXIT FUNCTION
   END IF

   curline$ = ""
   OPEN infile$ FOR INPUT AS #1
   DO UNTIL EOF(1)
      LINE INPUT #1, x$
      IF LEN(curline$ & ", " & x$) > columns THEN
         STDOUT curline$
         curline$ = x$
      ELSE
         IF curline$ = "" THEN
            curline$ = x$
         ELSE
            curline$ = curline$ & ", " & x$
         end if
      END IF
   LOOP
   CLOSE #1
   STDOUT curline$

END FUNCTION