` Get installed DirectX Version :D
` (c) by Hubdule @ Color Arts 2003
` http://www.colorarts.de
Dim split$(3)
DirectXVersion$=GET REGISTRY$("SOFTWARE\Microsoft\DirectX\", "Version")
Print "You use DirectX:"+DirectXVersion$

SplitString(DirectXVersion$,".")
Print "Version Overview"
Print "Master: "+str$(val(split$(0)))
Print "Major : "+str$(val(split$(1)))
Print "Minor : "+str$(val(split$(2)))
Print "Build : "+str$(val(split$(3)))

Suspend for key
end

function SplitString(msg$,delimiter$)
   delimiter$=left$(delimiter$,1)
   msg_counter=0
   for i=0 to 3
       split$(i)=""
   next i
   for i=1 to len(msg$)
       tmp$=mid$(msg$,i)
       if tmp$=delimiter$
          inc msg_counter
       endif
       if tmp$=delimiter$ then goto nextline
          split$(msg_counter)=split$(msg_counter)+tmp$
nextline:
   next i
endfunction msg_counter