LOOP
SLYR 500 300
CLRD
BKNT 850 
BKNT GRTN 0039 CLR3&
temp cin2 clrc dash&
temp grtn -001 lstn 0001 clr7&
advt temp bknt clr5 dash&
advt temp bknt grtn 1-10 clr9&
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 850 MB TEMPERTURE / WIND / TEMPERATURE ADVECTION    -
TXT5 500/300 LAYER Q-VECTOR / LAYER Q-VECTOR DIVERGENCE  -
ENDL
