![background image](http://html2.mh-extra.com/html/omega/compact-cal-ca100/compact-cal-ca100_owners-manual_5154776064.webp)
App-8
GOTO LOOP1
'
MEASEND:
CLS
FOR Y = 0 TO MCOUNT / 4 - 1
YPOS = CSRLIN
FOR X = 0 TO 3
XPOS = X * 20 + 1
LOCATE YPOS, XPOS
PRINT RDATA$(X + Y * 4) + "(" + STR$(X + Y * 4) + ")": 'Display measurement result
IF YPOS = 24 THEN YPOS = YPOS - 1
NEXT X
NEXT Y
PRINT "MAX=", RDATA$(MAXNO): 'Display max. value
PRINT "MIN=", RDATA$(MINNO): 'Display min. value
PRINT "ERR=", ERRNO:
'Display the number of occurrences of over range
CLOSE #1
END
' Routine to acquire measured data
READM:
PRINT #1, "OD": 'Get measured data
LINE INPUT #1, STRDATA$
IF LEFT$(STRDATA$, 1) = LF$ THEN STRDATA$ = MID$(STRDATA$, 2)
STS$ = MID$(STRDATA$, 4, 1)
IF STS$ = "E" THEN RETURN: 'Data abnormal?
IF STS$ = "O" THEN RETURN: 'Over rangeÅH
SDATA = VAL(MID$(STRDATA$, 5, 7)): 'Convert measured data
RDATA$(COUNT) = MID$(STRDATA$, 5, 10): 'Get numerical data section
IF COUNT = 0 THEN MAX = SDATA
IF COUNT = 0 THEN MIN = SDATA
IF MAX < SDATA THEN GOSUB GETMAX
IF MIN > SDATA THEN GOSUB GETMIN
COUNT = COUNT + 1
RETURN
' Routine to obtain the max. value
GETMAX:
MAX = SDATA
MAXNO = COUNT
RETURN
GETMIN:
' Routine to obtain the min. value
MIN = SDATA
MINNO = COUNT
RETURN
' Error routine
ERRPROC:
ERRNO = ERRNO + 1
GOTO LOOP1
Free Datasheet http://www.datasheet-pdf.com/