LOOP
TXT4 INPUT THE LEVEL YOU WISH TO ANALYZE (EG. 700 500) AND HIT <RETURN>
TXT5 NOTE...YOU MUST INPUT LEVELS WHICH ARE 4 CHAR. IN LENGTH, RIGHT JUSTIFIED.
TXT6 (EG...1000 B700 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
DNEG DVRG LAST&
TXT4 *** - *** mb LAYER Q-VECTORS/LAYER Q-VECTOR DIVERGENCE              -
ENDL
