include qlib.inc
include string.inc
include stdio.inc
include conio.inc

.code
main proc,argc:dword,argv:dword
  mov ecx,argc
  callp printf,"# args=%d\n",ecx
  test ecx,ecx
  jz done
  mov ebx,1
@@:
  mov edx,ebx
  dec edx
  shl edx,2 ;*4
  mov eax,argv  ;FIX : v2.00 Beta #5 : this was add (lucky eax was always 0 after the printf calls)
  mov edx,[eax+edx]
  callp printf," Arg #%d=%s \n",ebx,edx
  inc ebx
  dec ecx
  jnz @b
done:
  callp print,"done (slam a key)\n\n"
  call getch
  ret
main endp

end