LOOP
CONT SSUM DWPT 850  SSUM SDIF TEMP 850  TEMP 500 SDIF DWPT 700  TEMP 700
cin2 CLR1 GT00
CONT SSUM DWPT 850  SSUM SDIF TEMP 850  TEMP 500 SDIF DWPT 700  TEMP 700
cin2 CLR2 DASH GT20/
CONT SSUM DWPT 850  SSUM SDIF TEMP 850  TEMP 500 SDIF DWPT 700  TEMP 700
cin2 CLR2 GT40/
TXT4 K INDEX -
ENDL