#COMPILE EXE #DIM ALL 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 a AS SINGLE fin = FREEFILE fout = FREEFILE OPEN "c:\b\pb\gmt\robots\vacca\vacca_presysx.dat" FOR INPUT ACCESS READ LOCK WRITE AS fin OPEN "c:\b\pb\gmt\robots\vacca\temp.dat" FOR OUTPUT ACCESS WRITE LOCK WRITE AS fout 'pic 1 1 - 16 FOR i = 1 TO 16 LINE INPUT# fin, b$ bel = VAL(PARSE$(b$, 1)) loval = VAL(PARSE$(b$,2)) IF ISFALSE loval THEN loval = 200 ELSE loval = 260 + (781 - 260) * loval / 127 END IF a = (781 - loval) / 127 WRITE# fout, bel, 0, 0, a, loval NEXT 'pic 2 17 - 32 FOR i = 17 TO 32 LINE INPUT# fin, b$ bel = VAL(PARSE$(b$, 1)) loval = VAL(PARSE$(b$,2)) IF ISFALSE loval THEN loval = 200 ELSE loval = 260 + (1067 - 260) * loval / 127 END IF a = (1067 - loval) / 127 WRITE# fout, bel, 0, 0, a, loval NEXT 'pic 3 49 - 54 FOR i = 49 TO 64 LINE INPUT# fin, b$ bel = VAL(PARSE$(b$, 1)) loval = VAL(PARSE$(b$,2)) IF ISFALSE loval THEN loval = 200 ELSE loval = 260 + (815 - 260) * loval / 127 END IF a = (815 - loval) / 127 WRITE# fout, bel, 0, 0, a, loval NEXT WRITE# fout, "EOF" MSGBOX "done" END FUNCTION