'voor vertaling gewenste toon > te sturen midi #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.bas.txt" FOR OUTPUT ACCESS WRITE LOCK WRITE AS f 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$) PRINT #f, "CASE" + STR$(i) + ": fv =" + STR$(a) + " * f ^ 3 +" + STR$(b) + " * f ^ 2 +" + STR$(c) + " * f + " + STR$(d) ' WRITE# f, i, a, b, c, d CLOSE f2 NEXT CLOSE f END FUNCTION