Sorry your browser is not supported!

function getreg$(path$,key$)
if file exist("c:\reg.reg") then delete file "c:\reg.reg"
reg$="/e c:\reg.reg "+chr$(34)+path$+chr$(34)
execute file "regedit.exe",reg$,""

repeat : a=a+1 : until file open(a)=0
length=len(chr$(34)+key$+chr$(34))
repeat : c=c+1 : until file exist("c:\reg.reg")=1 or c=1000
if c=1000 then exitfunction
set dir "c:\"
open to read a,"reg.reg"

repeat
read string a,string$

if mid$(string$,1)=mid$(key$,1)
repeat
read string 1,stringb$
string$=string$+stringb$
d=d+1
until d>length or string$=key$ or mid$(key$,d)<>mid$(string$,d)
d=0
   if key$=string$
      repeat
         read string a,string$
         if aa=2 and string$<>chr$(34) then param$=param$+string$
`         if string$=chr$(34) then a=1
         if string$=chr$(34) then aa=aa+1
      until aa=4
   endif
endif

until file end(a)=1 or left$(string$,length)=chr$(34)+key$+chr$(34) or param$<>""

close file a
`para$=right$(string$,len(string$)-length)
if file exist("c:\reg.reg") then delete file "c:\reg.reg"
endfunction param$

function fixslash(input$)
for x=0 to len(input$)
if mid$(input$,x)="\"
if mid$(input$,x-1)="\" then output$=output$+"\"
else
output$=output$+mid$(input$,x)
endif
next x
endfunction output$

function writereg(path$,key$,string$)
if file exist("c:\regwrite.reg") then delete file "c:\regwrite.reg"
open to write 1,"c:/regwrite.reg"
write string 1,"REGEDIT4"
write string 1,""
write string 1,"["+path$+"]"
write string 1,chr$(34)+key$+chr$(34)+"="+chr$(34)+string$+chr$(34)
close file 1
execute file "regedit.exe","/s c:/regwrite.reg","c:/windows/system32",1
wait 10
if file exist("c:\regwrite.reg") then delete file "c:\regwrite.reg"
endfunction