#COMPILE EXE #DIM ALL FUNCTION PBMAIN () AS LONG LOCAL f AS LONG LOCAL f2 AS LONG LOCAL i AS LONG LOCAL bf$ LOCAL a, b, c, d AS SINGLE f = FREEFILE OPEN "c:\b\pb\gmt\robots\sire\siretranslation.dat" FOR OUTPUT ACCESS WRITE LOCK WRITE AS f PRINT# f, "'Hieronder volgen de data om de omrekening te maken van gewilde frequency (Hz) naar fractionele midinoot voor Sire, per sirene" PRINT# f, "'Formaat: 'id, a, b, c, d' voor de formule nf = a * f^3 + b * f^2 + c * f + d" FOR i = 48 TO 71 f2 = FREEFILE OPEN "c:\b\pb\gmt\robots\sire\sire" + TRIM$(STR$(i)) + ".dat" FOR INPUT ACCESS READ LOCK WRITE AS f2 LINE INPUT #f2, bf$: d = VAL(bf$) LINE INPUT #f2, bf$: c = VAL(bf$) LINE INPUT #f2, bf$: b = VAL(bf$) LINE INPUT #f2, bf$: a = VAL(bf$) WRITE# f, i, a, b, c, d CLOSE f2 NEXT CLOSE f END FUNCTION