#COMPILE EXE #DIM ALL FUNCTION PBMAIN () AS LONG LOCAL fin AS DWORD LOCAL fout AS DWORD LOCAL i AS LONG LOCAL b$ LOCAL bel AS LONG LOCAL loval AS LONG LOCAL a AS SINGLE LOCAL minv() AS BYTE LOCAL maxv() AS BYTE fin = FREEFILE fout = FREEFILE OPEN "c:\b\pb\gmt\robots\belly\belly.dat" FOR INPUT ACCESS READ LOCK WRITE AS fin OPEN "c:\b\pb\gmt\robots\belly\temp.dat" FOR OUTPUT ACCESS WRITE LOCK WRITE AS fout DIM minv(68 TO 101) DIM maxv(68 TO 101) DO UNTIL EOF(fin) LINE INPUT# fin, b$ IF TRIM$(b$) = "Klok nr, mapping, pitch, minvel, maxvel, dbmin, dbmax, maxfreq" THEN EXIT LOOP LOOP FOR bel = LBOUND(minv) TO UBOUND(minv) LINE INPUT# fin, b$ minv(bel) = .65 * VAL(PARSE$(b$, 4)) maxv(bel) = .65 * VAL(PARSE$(b$, 5)) NEXT CLOSE# fin 'lineaire mapping van minvel to maxvel, zou mn of meer moeten overeenkomen met pre-ombouw mapping.. FOR bel = LBOUND(minv) TO UBOUND(minv) a = (1000/27.2) * (maxv(bel) - minv(bel)) / 127 loval = minv(bel) * 1000 / 27.2 WRITE# fout, bel, 0, 0, a, loval NEXT WRITE# fout, "EOF" MSGBOX "done" END FUNCTION