Order Entry Example

Module location: FMAC line 172 (view source)
  #SET Q$ !0
  #IF !q=0
    AUTO2$ ACCEPT PAGE!f
  #ELSE
    #IF !q=1
      #IFCLASS !1 "G"
        AUTO2$ ACCEPT PAGE!f !1
      #ELSE
        #CHECK !1 _CVFG#L
        !A [] $1C1 !1 |CI0
      #ENDIF
    #ELSE
      #IF !q=2
        #IFCLASS !2 "G"
          #FORMAT !1 !2
          #CHECK !1 _CVFG#L
          !A [] $1C1 !1 |CI0
        #ELSE
          AUTO2$ ACCEPT PAGE!f TO !2
        #ENDIF
      #ELSE
        #IF !q>2
          #IFCLASS !3 "G"
            #CHECK !1 "TO"
            AUTO2$ ACCEPT PAGE!f TO !2 !3
          #ELSE
            #IFCLASS !4 "G"
              #FORMAT !1 !4
            #ENDIF
            #CHECK !1 _CVFG#L
            #CHECK !2 "TO"
            #CHECK !3 _CG#LE
            !A [] $1C1 !1 !3
          #ENDIF
        #ENDIF
      #ENDIF
    #ENDIF
  #ENDIF
Macro: ACCEPT
