LOOP
SLYR 300 200
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&
TXT4 300/200 MB LAYER Q-VECTOR / LAYER Q-VECTOR DIVERGENCE -
ENDL
