macro for rotating labels

setup Form !!sampleForm
   
exit

define method .sampleMethod()
   

   DO
       ID GLAB SLAB @
       HANDLE ANY
           GOLABEL /FINISH
       ENDHANDLE
     
       !GLAB = !!CE
       !LAYE = !!CE.OWNER
     
       [COLOR=#0000ff]IF !!CE.DDNAME.BADREF().EQ(TRUE) THEN
           RETURN
       ENDIF
     
       IF !!CE.DDNAME.TYPE.NEQ('SCTN') Then
           RETURN
       ENDIF[/COLOR]
     
       !START = !!CE.DDNAME.POSS.WRT(WORLD)
       !END = !!CE.DDNAME.POSE.WRT(WORLD)
     
       !!CE = !LAYE
       NEW VNOTE FUNC 'ANGLE-MACRO'
       !VNOTE = !!CE
     
       NEW STRA FPT $!START TPT $!END
       !ADEG = !!CE.ADEG
     
       !!CE = !VNOTE
       DELETE VNOTE
     
       !!CE = !GLAB
       IF !ADEG.REAL().LT(-90) THEN
           ADEG ($!ADEG + 180)
       ELSEIF !ADEG.REAL().GT(90) THEN
           ADEG($!ADEG - 180)
       ELSE
           ADEG $!ADEG
       ENDIF
     
       
       REFRESH


   ENDDO
   LABEL /FINISH