#COMPILE EXE #DIM ALL 'creates a data section to be pasted in the cast.dat FUNCTION PBMAIN () AS LONG LOCAL fout AS LONG LOCAL i AS LONG fout = FREEFILE OPEN "C:\B\Pb\gmt\robots\casta\casta2_temp.dat" FOR OUTPUT ACCESS WRITE LOCK WRITE AS fout FOR i = 112 TO 113 '127 'castagnet notes WRITE# fout, i, 0, 0, 3.2913385826, 520 'this high precision makes no sense, but otherwise write# is filling in the extra digits anyway NEXT CLOSE fout END FUNCTION