LOOP
CONT SSUM THTE 850 THTE 700
CONT SSUM THTE 1000
CONT SDVC 0003
SDIF THTE 500 CIN2 CLRE
LIFT CIN1 CLRF DASH&
CONT SSUM THTE 850 THTE 700
CONT SSUM THTE 1000
CONT SDVC 0003
SDIF THTE 500 LSTN 0000 CLR4 CIN2&
lift lstn -003 clr2 cin1 dash&
TXT4 CONVECTIVE INSTAB. OF REAP / LIFTED INDEX -
ENDL