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

    Source: geocities.com/capecanaveral/launchpad/3632/scriptherm

               ( geocities.com/capecanaveral/launchpad/3632)                   ( geocities.com/capecanaveral/launchpad)                   ( geocities.com/capecanaveral)