LOOP
temp grtn 400
TXTD         INPUT LOWER AND UPPER BOUNDS FOR LAYER YOU WISH TO ANALYZE    -
TXTE                           (EG. 1000  850 )                            -
TXTF                                     ^                                 -
TXTG       NOTE THERE MUST BE A *BLANK* SPACE LEFT FOR NON 4-DIGIT LEVELS  -
SLYR
clrd
bknt LVL1 
bknt grtn 0039 clr3 LVL1/
DVRG WIND CLRD LVL1&
DVRG WIND LSTN -1-5 CLR1 DASH LVL1&
TXT4 850 MB WIND / 850 DIVERGENCE (convergence dashed white/green) -
wait 5sec
clrc
bknt LVL2&
bknt grtn 0079 clre LVL2&
DVRG WIND CLRA LVL2&
DVRG WIND GRTN  1-5 CLR9 DASH LVL2&
TXT4 LVL1 MB WIND / LVL1 DIVERGENCE (convergence dashed white/green) -
TXT5 LVL2 MB WIND / LVL2 DIVERGENCE (divergence dashed red/purple)   -
TXTT HIT <RETURN> TO DISPLAY L1-L2 DIFFERENTIAL DIVERGENCE - 
endl
loop
TXTT                                                                          -
DVRG WIND CLR8 LVL1&
DVRG WIND CLR8 LVL2&
clrd
bknt LVL1&
bknt grtn 0039 clr3 LVL1&
clrc
bknt LVL2&
bknt grtn 0079 clre LVL2&
SDIF DVRG WIND LVL2 DVRG WIND LVL1 DASH CLR1&
SDIF DVRG WIND LVL2 DVRG WIND LVL1 GRTN  1-6 CLR1&
SDIF DVRG WIND LVL2 DVRG WIND LVL1 GRTN  1-6 CLR2 DASH&     
TXT4 LVL1 WINDS (green) / LVL2 WINDS (blue)                              -
TXT5 LVL1-LVL2 DIFFERENTIAL DIVERGENCE (white/red)                       -
ENDL
