;
;  DEMO.SCR
;
;  KiX32 demonstration script.
;
break on
cls

$x = 0
$y = 10
$modex = 1
$modey = 1


:loop

color n/n
at($y,$x)
"      "

if $x < 40
	if $x > 0
		if $modex = 1
			$x = $x + 1
		else
			$x = $x - 1
		endif
	else
		$modex = 1
		$x = 1
	endif
else
	$modex = 0
	$x = 39
endif

if $y < 24
	if $y > 0
		if $modey = 1
			$y = $y + 1
		else
			$y = $y - 1
		endif
	else
		$modey = 1
		$y = 1
	endif
else
	$modey = 0
	$y = 23
endif

color r+/n
at($y,$x)
"KiX 32"

$t1 = $x
$t1 = $t1 / 10
$t1 = $t1 * 10
if $t1 = $x
	sleep 1
endif


at (0,0) "$f x= $x, y= $y, modex= $modex, modey= $modey"

goto loop