LOOP
STOF
TEMP GRTN 400 
TXTA     YOU MUST SPECIFY THE LAYER YOU WANT TO ANALYZE BEFORE PROCEEDING 
TXTB           IF YOU HAVE ALREADY DONE SO, HIT <RETURN> TO CONTINUE
TXTD                TO ABORT:     HIT "X" <RETURN>
ENDL
LOOP
STON
SNEG SMLC 1000 SDVD TEMP LDIF HGHT LDIF C5-1
SNEG SMLC 1000 SDVD TEMP LDIF HGHT LDIF C5-1 GRTN 7.4 CLR2/
sdvr mixr bknt c1-7 dash clr3 850&
bknt clrf&
TXTS-***-*** MB LAPSE RATE (DEG C/KM) / 850 moisture divergence
TXTT-(DEPICTED X 10)
ENDL