Macro: INDCT$AS

  #IF (!0<4)
    #IFCLASS !3 "G"
      #CHECK !4 ""     // INDICATE IND1 AS IND2
      #CHECK !3 _SNDI#LO
      !A [] $4020 !3 |GB[0] !1 |3
    #ELSE
      // INDICATE IND AS X
      #CHECK !3 _U
      #IFTYPE  !3 "R"
        !A [] IN$5 !3 |CR0 !1 |3
      #ELSE
        #IFTYPE  !3 "ND"
          !A [] IN$5 !3 |CN0 !1 |1
        #ELSE
          #IFTYPE !3 "IL"
            !A [] IN$5 !3 |CI0 !1 |2
          #ELSE
            #IFTYPE !3 "S"
              !A [] IN$5 !3 |CS"" !1 |0
            #ELSE
              #CHECK !3 _O
              !A [] $4020 !3 |GB[0] !1 IN$GLALL |3
            #ENDIF
          #ENDIF
        #ENDIF
      #ENDIF
    #ENDIF
  #ELSE
    #CHECK !5 _R
    #IFSAME !4 MATCH
      !A [] $4031 !3 !5 !1 !6
    #ELSE
      #IFSAME !4 IN
        !A [] $4030 !3 !5 !1 !6
      #ELSE
        #CHECK !3 _U
        #IF2TYPE  !3 !5 "R"
          !A [] IN!4 !3 !5 !1 !6 |3
        #ELSE
          #IF2TYPE  !3 !5 "ND"
            !A [] IN!4 !3 !5 !1 !6 |1
          #ELSE
            #IF2TYPE !3 !5 "IL"
              !A [] IN!4 !3 !5 !1 !6 |2
            #ELSE
              !A [] IN!4 !3 !5 !1 !6 |0
            #ENDIF
          #ENDIF
        #ENDIF
      #ENDIF
    #ENDIF
  #ENDIF