LOOP
CLRC
bknt 300
bknt grtn 0079 clre&
wait 2sec
dvrg bknt clr4 dash&
dvrg bknt grtn  1-9 clr4&
SLYR 500 300
clr1
CONT SMLT DSDX XCMP GEOS LAVE DSDX TEMP LAVE
CONT SNEG SSUM SMLT DSDX YCMP GEOS LAVE DSDY TEMP LAVE
CONT SMLT DSDY YCMP GEOS LAVE DSDY TEMP LAVE
CONT SSUM SMLT DSDY XCMP GEOS LAVE DSDX TEMP LAVE
SNEG&
WAIT 3SEC
DNEG DVRG LAST CLR2&
TXT4 500/300 LAYER Q-VEC / LAYER Q-VEC DIVERGENCE -
TXT5 300 MB WINDS / 300 MB DIVERGENCE             -
TXTT HIT <RETURN> TO OVERLAY 300 MB AGEOSTROPHIC WIND -
ENDL
LOOP
TXTT                                                                      -
vknt ageo clrB&
TXT4 500/300 LAYER Q-VEC / LAYER Q-VEC DIVERGENCE                -
TXT5 300 MB WINDS / 300 MB DIVERGENCE / 300 MB AGEOSTROPHIC WIND -
ENDL
