code:

---

BREAK ON
cls

$rc = redirectoutput(@SCRIPTDIR+'\game24full.txt')

DIM $rc, $out, $result, $i1, $i2, $i3, $i4, $shellcommand, $ticks

$rc=SETOPTION('Explicit','ON')
$rc=SETOPTION('NoVarsInString','ON')
$rc=SRND(@MSECS)


? 'Game24 KiXtart Golf running under KiXtart v'@KIX
? 'Computer = Pentium III '+@MHZ+' and '+MEMORYSIZE()+' RAM'
? ''

$ticks=@TICKS

for $i1=0 to 9
  for $i2=0 to 9
    for $i3=0 to 9
      for $i4=0 to 9
        ? 'Numbers = '+$i1+', '+$i2+', '+$i3+', '+$i4
        $out=Game24($i1,$i2,$i3,$i4)
        if $out
          ? 'Result = '+$out
        else
          ? 'No solution found'
        endif
        ? ''
      next
    next
  next
next

? ''
? 'Time = '+(@TICKS-$ticks)+' ticks'
; end of the kiXtart Golf validation script


;!
Function game24($,$b,$c,$d)
 $game24=f(""+$+$b+$c+$d,"")
EndFunction
Function f($,$b)
 Dim $e,$x,$y,$z,$a
 If($)
  For $x=1 to Len($)
   $e=f(Left($,$x-1)+SubStr($,$x+1),$b+SubStr($,$x,1))
   If $e $f=$e EndIf
  Next
 Else
  $e=Split("+ - * /")
  For Each $x In $e
   For Each $y In $e
    For Each $z In $e
     $=Left($b,1)+".0"+$x+"("+SubStr($b,2,1)+".0"+$y+"("+SubStr($b,3,1)+".0"+$z+Right($b,1)+"))"
     $z=Execute("$$a="+$)
     If "24"=$a $f=$ EndIf
    Next
   Next
  Next
 EndIf
EndFunction
;!
;!

---

code:

---

$x=0
do $=execute("$$x=kbhit()") until $x

---

code:

---

Break on
$x=0
do
	$=execute("$$x=kbhit()")
until $x

---

code:

---

Break On
$x=0
do
	call ".\test-code.kix"
until $x

---

code:

---

$x=kbhit()

---

code:

---

Break on
$x=0
do
	Run('%Comspec% /C Dir .\ > Nul')
until $x

---

code:

---

Break on
$x=0
do
	Shell('%Comspec% /C Dir .\ > Nul')
until $x

---

code:

---

Break on
$x=0
do
	$Locator = CreateObject ('WbemScripting.SWbemLocator')
	$WMIConnect = $Locator.ConnectServer('.', 'root\CIMV2', $AdminName, '"' + $AdminPassword + '"')
	$WMIConnectError = @error
	IF $WMIConnectError = 0
		$WMIConnect.Security_.ImpersonationLevel = 3
	ENDIF
	$Locator = ''
	$WMIConnect = ''
	$WMIConnectError = ''
until $x

---