#COMPILE EXE #DIM ALL FUNCTION PBMAIN () AS LONG LOCAL fin AS LONG LOCAL fout AS LONG LOCAL nv() AS DWORD LOCAL i AS LONG, j AS LONG LOCAL b$ DIM nv(48 TO 71, 60 TO 84) AS DWORD fin = FREEFILE OPEN "sire-frequencies-2009.txt" FOR INPUT ACCESS READ LOCK WRITE AS fin 'data only partly filled in yet, but we want to gon on with the niblock piece.. 'following code will leave unfilled notes 0 DO UNTIL EOF(fin) LINE INPUT# fin, b$ IF LEFT$(TRIM$(b$), 5) = "SIREN" THEN i = VAL(PARSE$(b$, " ", 2)) ITERATE DO END IF IF i < LBOUND(nv, 1) OR i > UBOUND(nv, 1) THEN ITERATE DO j = INT(VAL(PARSE$(b$, " ", 1))) IF j >= LBOUND(nv, 2) AND j < UBOUND(nv, 2) THEN nv(i, j) = VAL(PARSE$(b$, " ", 2)) END IF IF EOF(fin) THEN EXIT LOOP LOOP CLOSE# fin fout = FREEFILE OPEN "sire-2009.bas.txt" FOR OUTPUT ACCESS WRITE LOCK WRITE AS fout FOR i = LBOUND(nv, 1) TO UBOUND(nv, 1) b$ = "DATA " FOR j = LBOUND(nv, 2) TO UBOUND(nv, 2) b$ = b$ + STR$(nv(i, j)) + "," NEXT b$ = LEFT$(b$, -1) 'strip last superfluous comma PRINT# fout, b$ NEXT CLOSE fout MSGBOX "done" END FUNCTION