Macro: FOR

  // we do iftype checks because the command checking does not understand A and K 
  #IFTYPE !1 "K"
    #ERROR 4345 "!1, Struct not allowed"
  #ELSE   
    #IFTYPE !1 "A"
      #ERROR 4345 "!1, Array not allowed"
    #ELSE
      #SET N$ !N
      #PUSH !R
      #XPUSH !n $INIT
      //MOVEINT !3 TO !1
      !A [] $082 !3 !1
      #IF (!0>3)
        // IF !1 LE !5 GOTO FOR$!r
        !A [] $4004 !1 !5 |11 |2
        !A [|11] $041 |CL0
        #FREF FOR$!r !a
      #ENDIF
      #$ !A 0 0 0 $041 |CL0
      #FREF END$!r !a
      #$ BEGIN$!r:
      #$ WHILE$!r:
      #IF !0=3
        #$ !A [] $083 !1
      #ELSE
        #$ !A [] $083 !1 !5
        #$ !A [|122] $041 |CL0
        #FREF END$!r !a
      #ENDIF
      FOR$!r:
    #ENDIF   
  #ENDIF