LOOP
F00
850
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 LAST&
TXT4 850 Q-VECTORS/850 Q-VECTOR DIVERGENCE -
TXT5 00-H FORECAST -
ENDL
LOOP
F12
850
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 LAST&
TXT4 850 Q-VECTORS/850 Q-VECTOR DIVERGENCE -
TXT5 12-H FORECAST -
ENDL
LOOP
F24
850
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 LAST&
TXT4 850 Q-VECTORS/850 Q-VECTOR DIVERGENCE -
TXT5 24-H FORECAST -
ENDL
LOOP
F36
850
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 LAST&
TXT4 850 Q-VECTORS/850 Q-VECTOR DIVERGENCE -
TXT5 36-H FORECAST -
ENDL
LOOP
F48
850
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 LAST&
TXT4 850 Q-VECTORS/850 Q-VECTOR DIVERGENCE -
TXT5 48-H FORECAST -
ENDL
