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/
TXTS-***-*** MB LAPSE RATE (DEG C/KM)
TXTT-(DEPICTED X 10)
ENDL
