#COMPILE EXE #DIM ALL 'based on snar as we don't know what's in the LUT's of spiro.. be carefull! 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 hival AS LONG LOCAL a AS SINGLE fin = FREEFILE fout = FREEFILE OPEN "c:\b\pb\gmt\robots\spiro\spiro_presysx.dat" FOR INPUT ACCESS READ LOCK WRITE AS fin OPEN "c:\b\pb\gmt\robots\spiro\spirotemp.dat" FOR OUTPUT ACCESS WRITE LOCK WRITE AS fout 'kloppers onder vlel - origineel &H21 to &HCB FOR i = 33 TO 88 LINE INPUT# fin, b$ bel = VAL(PARSE$(b$, 1)) loval = VAL(PARSE$(b$,2)) hival = VAL(PARSE$(b$, 3)) IF ISFALSE hival THEN MSGBOX "check presysx file - hi val 0 not allowed!!" + STR$(i) + STR$(bel) EXIT FUNCTION END IF IF ISFALSE loval THEN loval = 33 ELSE loval = 33 + (330 - 33) * loval / 256 '127 END IF a = (hival/256) * (330 - loval) / 256 WRITE# fout, bel, 0, 0, a, loval NEXT WRITE# fout, "EOF" MSGBOX "done" END FUNCTION