QUICKFOCUS 1, 1 UPDATE N=NSUR()-1 TTHI = THIC(N) A$ = $TEMPFILENAME() GETTEXTFILE A$, Tfm,"",2 OPEN A$ MAX=0 FOR J,1,114,1 READSTRING B$ IF(J > 14) C$ = $GETSTRING(B$,2) D$ = $GETSTRING(B$,1) Z = SVAL(C$) Y = SVAL(D$) IF( MAX <= Z) MAX=Z SHIFT = Y ENDIF ENDIF NEXT PRINT "The maximum peak is : ",MAX PRINT "The Offset is : ",SHIFT TTHI1 = SHIFT +TTHI SURP N,3,TTHI1 UPDATE A1$ = $TEMPFILENAME() PRINT "Please modify the number of infrared wave" GETTEXTFILE A1$, Tfm,"",2 OPEN A1$ MAX1=0 FOR J,1,114,1 READSTRING B1$ IF(J > 14) C1$ = $GETSTRING(B1$,2) D1$ = $GETSTRING(B1$,1) Z1 = SVAL(C1$) Y1 = SVAL(D1$) IF( MAX1 <= Z1) MAX1 = Z1 SHIFT1 = Y1 ENDIF ENDIF NEXT PRINT "The infrared focus shift is : ",SHIFT1 UPDATE