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