PROGRAM TEST
      USE ADVAPI32
	INTEGER TYPEK,I,NV,STATUS,REG,ILEN,K
	CHARACTER*512 PATH,VALUE,KEY
      K = 1
		REG   = 0
		TYPEK  = 0
		VALUE = ' '
		Path  = 'Software\Cullimore and Ring\SindaFluint\6.2' // CHAR(0)

		I = RegOpenKeyEx(HKEY_LOCAL_MACHINE, PATH, 0, KEY_READ, LOC(REG))
         write(*,*)' daj out',I
        STOP
         END