LOOP
FIL1
TXT4 INPUT THE LEVEL YOU WISH TO ANALYZE (EG. 500 300) AND HIT <RETURN>
TXT5 NOTE...THE VALUES YOU INPUT MUST BE RIGHT JUSTIFIED AND 4 CHAR LONG.
TXT6 (EG. 1000 B300 OR B500 B300) WHERE B STANDS FOR A BLANK SPACE.
SLYR
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
CLR1
DVRG KEPV DASH&
TXT4 **H NGM ***/*** LYR Q-VEC/LYR Q-VEC DIVERGENCE FORECAST (WHITE) -
TXTT HIT <RETURN> TO OVERLAY THE NAM FCST ***/*** LYR Q-VEC/LYR Q-VEC DIVRG. -
ENDL
LOOP
TXTT                                                                       -
FIL2
CLR2
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
CLR2
DVRG KEPV DASH&
TXT4 **H NGM ***/*** MB LYR Q-VECTOR/LYR Q-VECTOR DIVERGENCE FORECAST (WHITE) -
TXT5 **H NAM ***/*** MB LYR Q-VECTOR/LYR Q-VECTOR DIVERGENCE FORECAST (RED)   -
ENDL
