Laserfiche WebLink
<br />T=NX(L,KM) <br />STD=SQRT((S2-S*S/T)/(T-I.)) <br />ENDIF <br />64 LINE(KM)=STD ! standard deviations <br />65 WRITE{3,REC=1440+L)LINE,JP <br />WRITE(6,*)' Do you want another station or partition?' <br />READ(5,7I)MY <br />71 FORMAT (AI) <br />IF (MY .EQ. 'Y' .OR.MY .EQ. 'y' ) THEN <br />CLOSE (3 <br />GOTO 10 ! for next station <br />ENDIF <br />WRITE{6,*), Normal stop' <br />STOP <br />END <br /> <br />25 <br />