LOOP
0000
epot cin4 clre
epot grtn 0334 clr3 cin4/
BKNT CLR1/
BKNT GRTN 0019/
TXT4 SURFACE THETA-E (K) / WIND (kt) -
TXTT Hit <RETURN> to overlay THETA-E ADVECTION -
ENDL
LOOP
advt epot wind clr4 dneg&
TXT4 SURFACE THETA-E (K) / WIND (kt) / THETA-E ADVECTION -
TXTT -                                       -
ENDL