format PE GUI 4.0
entry start

include 'win32a.inc'

section '.code' code readable executable
start:
    stdcall Aff_Element,0
    stdcall Aff_Element,5
    invoke  ExitProcess,0
ret

proc Aff_Element, numElement
    push    ebx esi edi
    mov     edi,[numElement]
;    shl     edi,2
;    invoke  MessageBox,0,[_pointer2array+edi],_caption,0
; ou
    invoke  MessageBox,0,[_pointer2array+edi*4],_caption,0
    pop     edi esi ebx
    ret     ;return
endp                            ;after compiling: ERROR: Invalid name ???

section '.data' data readable writeable

_caption       db 'Test array',0

_simple_array:
    cat        db 'cat',0
    dog        db 'dog',0
    dolphin    db 'dolhpin',0
    monkey     db 'monkey',0
    donkey     db 'donkey',0
    pig        db 'pig',0
    end_array  db 0,0

_pointer2array dd cat,dog,dolphin,monkey,donkey,pig  ;0->cat; 5->pig

section '.idata' import data readable writeable

    library kernel32, 'KERNEL32.DLL',\
            user32,   'USER32.DLL'

    include 'apia\kernel32.inc'
    include 'apia\user32.inc'  
    

proc Aff_Element numElement     

macro proc [params]
 { common
    match name arg, params
    \{ if used name
       name:
       match =,args, arg \\{ defargs@proc args \\}
       match =all@args, all@args \{ defargs@proc arg \\} \}
; the rest unchanged