maxt = 37
GETZERNIKE maxt,1,1,1,1
FORMAT 16.6
PRINT "Peak to Valley : ", vec1(1)
PRINT "RMS to zero    : ", vec1(2)
PRINT "RMS to mean    : ", vec1(3)
PRINT "RMS to centroid: ", vec1(4)
PRINT "Variance       : ", vec1(5)
PRINT "Strehl ratio   : ", vec1(6)
PRINT "RMS Fit Error  : ", vec1(7)
PRINT "Maximum Fit Error : ", vec1(8)
i = 1
label 1
	FORMAT 2.0
	PRINT "Zernike #", i, " = ",
	FORMAT 16.6
	PRINT vec1(8+i)
	i = i + 1
if (i <= maxt) THEN GOTO 1
PRINT "All Done!"

