@mycounter=101
                irps i,Play Stop Pause {
                    command_ #i=@mycounter
                    @mycounter=@mycounter+1 }
                ; Displays the correct:
                ; command_Play = 101
                ; command_Stop = 102
                ; command_Pause = 103

                irps i, Play Stop Pause { command_#i=100+% }
                ; The results are incorrect:
                ; command_Play = 100
                ; command_Stop = 100
                ; command_Pause = 100
    

 
                @счётчик=101
                irps i,Воспроизведение Стоп Пауза {
                    команда_#i=@счётчик
                    @счётчик=@счётчик+1 }
                ; Результаты правильные:
                ; команда_Воспроизведение=101
                ; команда_Стоп=102
                ; команда_Пауза=103

                irps i,Play Stop Pause { команда_#i=100+% }
                ; Результаты неверные:
                ; команда_Воспроизведение=100
                ; команда_Стоп=100
                ; команда_Пауза=100
    

macro syntax v {
 IF v eq
  define ?s 1
 ELSE
  define ?s v
 END IF
}

if.syntax fix IF ?s eq
if.not.syntax fix IF ?s eq 0 
 
;;;;;;;;;;;;;; NUMERIC CONSTANTS ;;;;;;;;;;;;;;;;;

; create incremental (0-n) list of numeric
; constants with optional prefix. each token
; can be assigned or it equals previous+1.
; if first token ends with *, it becomes the
; prefix for subsequent tokens. example:

; numeric COLOR.*,\
; BLACK, WHITE, RED, GREEN, BLUE

; COLOR.BLACK=0 ; output...
; COLOR.WHITE=1
; COLOR.RED=2
; COLOR.GREEN=3
; COLOR.BLUE=4

macro numeric ?p, [p] {
 common
  local n
  n=0                ; n=0
  syntax 0
  match z$*, ?p \{   ; extract prefix
   syntax 1
  \}
  match a==b, ?p \{  ; first item
   a=b
   n=b+1
   syntax 1
  \}
  match =0, ?s \{    ; else, first=0
   ?p=0
   n=1
  \}
 forward
  syntax 0
  match a==b, p \{   ; assigment?
   n=b               ; set n
   match z$*, ?p \\{ ; extract prefix
    z$\\#a=b
    syntax 1
   \\}
   if.syntax 0       ; no prefix
    a=b
   END IF
   syntax 1          ; yes, specified
  \}
  match =0, ?s \{    ; else=n (previous+1)
   match z$*, ?p \\{ ; extract prefix
    z$\\#p=n
    syntax 1
   \\}
   if.syntax 0       ; no prefix
    p=n
   END IF
  \}
  n=n+1              ; n++
}

KB=1024             ; 1<<10
MB=1048576          ; 1<<20
GB=1073741824       ; 1<<30

numeric YES=1, NO=0, TRUE=1, FALSE=0,\
 NULL=0, DEFAULT=0, NONE=-1, INVALID=-1,\
 DETECT=-1, INFINITE=-1, NOTHING=-1