LOOP
SLYR 500 300
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
CLRC
DNEG DVRG LAST&
CONT SSUM VVEL 850 VVEL 700
CONT SSUM VVEL 500
SDVC 0003 C2-3 CLR4&
CONT SSUM VVEL 850 VVEL 700
CONT SSUM VVEL 500
SDVC 0003 C2-3 LSTN  1-4 CLR9 DASH&
TXT4 500/300 LAYER Q-VEC / LAYER Q-VEC DIVERGENCE / 850-500 LYR.MEAN VERT.VEL. -
ENDL
