LOOP
SLYR
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&
CLRC
bknt 300
bknt grtn 0079 clre&
wait 2sec
dvrg bknt clr4 dash&
dvrg bknt grtn  1-9 clr4&
TXT4 ***/*** 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 clrd&
TXT4 ***/*** LAYER Q-VEC / LAYER Q-VEC DIVERGENCE                -
TXT5 300 MB WINDS / 300 MB DIVERGENCE / 300 MB AGEOSTROPHIC WIND -
ENDL