LOOP
BKNT CLR1&thta CIN4 CLRE
BKNT GRTN 0019 CLR2&thta GRTN 0290 CLR3 CIN4&
TXT4 *** THETA (K) / WIND (kt) -
TXTT Hit <RETURN> to overlay THETA ADVECTION -
ENDL
LOOP
advt thta wind clr4 dneg&
TXT4 THETA (K) / WIND (kt) / THETA ADVECTION -
TXTT -                                       -
ENDL
