DIM nam$(5), xin$(5), xinp(69) REM read in data file INPUT "directory+name of data file"; fil$ OPEN fil$ FOR INPUT AS #1 ndpts = 0 WHILE NOT EOF(1) LINE INPUT #1, nnnn$ ndpts = ndpts + 1 WEND CLOSE #1 PRINT "there are "; ndpts / 3; "data objects" OPEN fil$ FOR INPUT AS #1 FOR i = 1 TO ndpts / 3 LINE INPUT #1, nam$(i) LINE INPUT #1, xin$(i) INPUT #1, bitavd NEXT i CLOSE #1 PRINT "data objects:" FOR i = 1 TO ndpts / 3 PRINT nam$(i); "--"; xin$(i) PRINT "fnf="; bitavd NEXT i f$ = xin$(1) INPUT hdh REM extract xinp() from xin$ FOR i = 1 TO LEN(f$) xx = ASC(MID$(f$, i, 1)) - ASC("0") IF xx = 1 THEN xinp(i) = 1 IF xx = 0 THEN xinp(i) = -1 PRINT "xinp("; i; ") = "; xinp(i) NEXT i