REM Copyright (C) 2000 John J. G. Savard REM Redistribution is only permitted if no charge is made REM Use, including commercial use, is permitted LINE INPUT "Input file name?"; fi$ LINE INPUT "Output file name?"; fj$ OPEN fi$ FOR INPUT AS #1 OPEN fj$ FOR OUTPUT AS #2 cc = 0 nc = 0 lc = 0 ac = 0 os$ = "data " 100 LINE INPUT #1, a$ n = LEN(a$) FOR i = 1 TO n x = ASC(MID$(a$, i, 1)) IF x < 48 THEN 190 IF x > 57 THEN 190 ac = ac * 10 + x - 48 cc = cc + 1 IF cc < 4 THEN 190 cc = 0 os$ = os$ + STR$(ac) ac = 0 nc = nc + 1 IF nc < 10 THEN os$ = os$ + ", ": GOTO 190 nc = 0 PRINT #2, os$ os$ = "data " lc = lc + 1 IF lc < 300 THEN 190 GOTO 900 190 REM NEXT i GOTO 100 900 END