LOOP
TXT4 INPUT THE LEVEL YOU WISH TO ANALYZE (EG. 700 500) AND HIT <RETURN>
TXT5 NOTE...THE LEVELS MUST BE 4 CHARACTERS IN LENGTH AND 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
SMLC 1+9 DNEG DVRG KEPV C1-6&
TXT4 *** - *** mb LAYER Q-VECTORS/LAYER Q-VECTOR DIVERGENCE              -
ENDL
