MGR10 A/B/C - Revision : I (for 7.0 software revision)
98
IF fin = 1 THEN RETURN
PRINT "Cycle no:"; i
A$ = "read?": GOSUB envoi: GOSUB ATTENTEMSG: PRINT "R‚sistance:"; msg$; " Ohm"
NEXT i
tmes = TIMER - tini
PRINT ""
PRINT "Temps de cycle total :"; tmes
PRINT "Temps moyen par mesure :"; tmes / (i - 1)
RETURN