#COMPILE EXE #DIM ALL FUNCTION PBMAIN () AS LONG LOCAL fin AS LONG LOCAL fout AS LONG LOCAL b$ LOCAL note AS BYTE, minvel AS BYTE, maxvel AS BYTE LOCAL newmin AS BYTE, newmax AS SINGLE LOCAL newx AS SINGLE fin = FREEFILE OPEN "simba_Veloreport.txt" FOR INPUT ACCESS READ LOCK WRITE AS fin fout = FREEFILE OPEN "simba_presysx.dat" FOR OUTPUT ACCESS WRITE LOCK WRITE AS fout 'we gaan ervanuit dat het niet nodig is om errorchecking te doen.. DO UNTIL EOF(fin) LINE INPUT# fin, b$ IF VAL(PARSE$(b$, ",", 1)) THEN note = VAL(PARSE$(b$, ",", 1)) minvel = VAL(PARSE$(b$, ",", 2)) maxvel = VAL(PARSE$(b$, ",", 3)) IF maxvel < 1 THEN MSGBOX "error in input file": EXIT FUNCTION newmin = 26 + 16.19685 * minvel newmax = 26 + 16.19685 * maxvel newx = (newmax - newmin) / 127 WRITE# fout, note, 0, 0, newx, newmin END IF LOOP 'anders commentaar of lege lijn -> negeren MSGBOX "done!",,"sysex compu" END FUNCTION