#COMPILE EXE #DIM ALL 'pic 1&2: 260 -> 815 'pic2 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\vacca\vitello_presysex.dat" FOR INPUT ACCESS READ LOCK WRITE AS fin OPEN "c:\b\pb\gmt\robots\vacca\vitellotemp.dat" FOR OUTPUT ACCESS WRITE LOCK WRITE AS fout 'pic 1 & 2 96-127 FOR i = 96 TO 127 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 = 200 ELSE loval = 260 + (815 - 260) * loval / 127 END IF a = (hival/127) * (815 - loval) / 127 WRITE# fout, bel, 0, 0, a, loval NEXT WRITE# fout, "EOF" MSGBOX "done" END FUNCTION