LOOP
slyr 700 500
absv temp ldif cin1 clr1
lift cin1 dash clr5&
absv temp ldif grtn 0019 cin1 clr4&
lift lstn -001 cin1 clr1&
lift lstn -001 cin1 dash clr9&
clre
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 700-500 DELTA-T / LIFTED INDEX                      -
TXT5 ***/*** LAYER Q-VECTOR / LAYER Q-VECTOR DIVERGENCE  -
ENDL
