VAR x,max,min max = THERM min = THERM PRINT ' PROCESS TEMPERATURE' WHILE 1 PRINT COM,THERM,CR BOX x+1, 0, x+1, 63, 0 BOX x, 0, x, THERM-32 PRINT @ 7,0,'NOW',THERM, ' MIN',min,' MAX',max,' ' IF THERM>max THEN max=THERM ENDIF IF THERM= 1 THEN x=(x+1)%128 TIME=0 ENDIF WEND