LOOP
SLYR 700 300
VKNT GEOS LDIF CLRE BARB
VORT BKNT CLR4 500& 
ENDL
LOOP
CONT VKNT GEOS LDIF
ADVT VORT BKNT CLR2 DASH&
ENDL