LOOP
1000
CONT SMLC -1   SSUM SMLT DSDX XCMP GEOS DSDX TEMP SMLT DSDX YCMP GEOS DSDY TEMP 
CONT SSUM SMLT DSDY XCMP GEOS DSDX TEMP SMLT DSDY YCMP GEOS DSDY TEMP   
SMLC   -1                                                                 
wait 3sec
DNEG DVRG KEPV&
TXT4 1000 Q-VECTORS/1000 Q-VECTOR DIVERGENCE -
ENDL
