LOOP
tmpf cin2 clre&bknt clr4 0000
tmpf lstn 0033 grtn 0031 cin2 clr7/ 
TXT4 *** TEMPERATURE (F)/WIND (KNOTS)    -
TXTT Hit <RETURN> to overlay temperature advection -
ENDL
LOOP
tmpf cin2 clr8/
bknt clr4/
smoo advt tmpf WIND clr1&
smoo ADVT tmpf WIND GRTN 1-9 CLR2 DASH/
smoo ADVT tmpf WIND LSTN -1-9 CLR7 DASH/
TXT4 *** TEMPERATURE (F)/WIND (KNOTS)    -
TXT5 *** TEMPERATURE ADVECTION (dashed)  -
txtt -                                              -
endl
