c: 1
modes: glfwGetVideoModes monitor count   ; appel à la fonction
pmodes: as [pointer![integer!]] modes           ; un pointeur vers le tableau
nmodes: count/value                                    ; nombre de modes
    print [count/value " possible modes" newline]
    until [
        ; récupère les 6 entiers
        print [ c " : " pmodes/1 " "pmodes/2 " " pmodes/3 " " pmodes/4 " " pmodes/5 " " pmodes/6 newline]
        ; et on décale le pointeur vers l'élément suivant du tableau 
        pmodes: pmodes + 6 ;
        c: c + 1
       ; on continue jusqu'au dernier
    c >  nmodes  
    ]

string-address?: func [
		{get the address of the given string}
		string [any-string!]
		/local str ptr
	] [
	    ptr: make struct! int-ptr! none
	    str: make struct! char* none
		str/buffer: string
		change third ptr third str
		ptr/int
	]

address-to-string: func [
		{get a copy of the nul-terminated string at the given address}
		address [integer!]
		/local str ptr
	] [
		ptr: make struct! int-ptr! reduce [address]
	    str: make struct! char* none
		change third str third ptr
		str/buffer
	]

struct-address?: func [
		{get the address of the given struct}
		struct [struct!]
	] [
		string-address? third struct
	]