ok.... i must be bored [Smile]

code:
break on
loadmatrix
$loadnumber = 4
$date = join(split(@date,"/"),"-")
? $date
del "Temp$date.kix"
$ = open(1,"temp$date.kix",5)
for each $line in $Thematrixcode
	$ = writeline(1,"$line@crlf")
next
$ = close(1)

cls
for $i = 1 to $loadnumber
	if $i = 1
		run "kix32 temp$date.kix $c=1"
	endif
	run "kix32 temp$date.kix"
next

sleep(30)
del "Temp$date.kix"


function LoadMatrix

	$Thematrixcode = '98,114,101,97,107,32,111,110,<cr>',
	'58,105,110,105,116,<cr>',
	'59,69,110,116,101,114,32,116,104,101,32,77,97,116,114,105,120,32,98,121,32,84,101,114,109,105,110,97,116,111,114,<cr>',
	'59,80,104,101,97,114,32,109,121,32,49,51,51,55,32,107,105,120,32,115,107,105,108,108,115,32,59,45,41,<cr>',
	'59,114,111,103,105,101,114,103,64,104,111,116,109,97,105,108,46,99,111,109,<cr>',
	'115,114,110,100,40,64,77,83,69,67,83,41,<cr>',
	'36,102,105,108,108,61,48,<cr>',
	'58,107,101,121,<cr>',
	'105,102,32,36,99,32,99,108,115,32,101,110,100,105,102,<cr>',
	'99,111,108,111,114,32,98,43,<cr>',
	'97,116,32,40,49,50,44,50,50,41,32,34,91,98,93,108,117,101,32,112,105,108,108,34,<cr>',
	'99,111,108,111,114,32,114,43,<cr>',
	'97,116,32,40,49,50,44,52,52,41,32,34,91,114,93,101,100,32,112,105,108,108,34,<cr>',
	'59,103,101,116,32,36,107,<cr>',
	'36,107,32,61,32,34,114,34,<cr>',
	'105,102,32,36,107,61,98,32,103,111,116,111,32,34,101,110,100,34,32,101,110,100,105,102,<cr>',
	'105,102,32,36,107,60,62,114,32,103,111,116,111,32,34,107,101,121,34,32,101,110,100,105,102,<cr>',
	'105,102,32,36,99,32,99,108,115,32,101,110,100,105,102,<cr>',
	'58,108,111,111,112,49,<cr>',
	'36,99,111,108,111,114,61,34,110,43,34,<cr>',
	'105,102,32,36,102,105,108,108,61,34,54,48,34,32,103,111,116,111,32,34,99,108,101,97,114,34,32,101,110,100,105,102,<cr>',
	'36,102,105,108,108,61,36,102,105,108,108,32,43,32,34,49,34,<cr>',
	'36,120,112,111,115,61,114,110,100,40,50,52,41,<cr>',
	'36,121,112,111,115,61,114,110,100,40,55,57,41,<cr>',
	'36,108,101,110,103,116,104,61,114,110,100,40,49,48,41,32,43,32,34,51,34,<cr>',
	'36,120,112,111,115,101,110,100,61,36,120,112,111,115,32,43,32,36,108,101,110,103,116,104,<cr>',
	'36,99,111,108,111,114,101,110,100,61,36,108,101,110,103,116,104,32,47,32,34,51,34,<cr>',
	'36,99,111,108,111,114,115,116,101,112,61,49,<cr>',
	'58,108,111,111,112,50,<cr>',
	'105,102,32,107,98,104,105,116,40,41,32,103,111,116,111,32,34,101,110,100,34,32,101,110,100,105,102,<cr>',
	'105,102,32,36,120,112,111,115,62,34,50,52,34,32,103,111,116,111,32,34,108,111,111,112,49,34,32,101,110,100,105,102,<cr>',
	'36,99,104,114,61,114,110,100,40,49,48,48,41,32,43,32,34,49,53,48,34,<cr>',
	'99,111,108,111,114,32,119,43,<cr>',
	'97,116,32,40,36,120,112,111,115,44,36,121,112,111,115,41,32,99,104,114,40,36,99,104,114,41,<cr>',
	'115,108,101,101,112,32,48,46,48,49,<cr>',
	'99,111,108,111,114,32,36,99,111,108,111,114,<cr>',
	'97,116,32,40,36,120,112,111,115,44,36,121,112,111,115,41,32,99,104,114,40,36,99,104,114,41,<cr>',
	'115,108,101,101,112,32,48,46,48,49,<cr>',
	'36,99,111,108,111,114,115,116,101,112,61,36,99,111,108,111,114,115,116,101,112,32,43,32,34,49,34,<cr>',
	'105,102,32,36,99,111,108,111,114,115,116,101,112,61,36,99,111,108,111,114,101,110,100,32,36,99,111,108,111,114,115,116,101,112,61,49,32,105,102,32,36,99,111,108,111,114,61,34,103,34,32,36,99,111,108,111,114,61,34,103,43,34,32,101,110,100,105,102,32,105,102,32,36,99,111,108,111,114,61,34,110,43,34,32,36,99,111,108,111,114,61,34,103,34,32,101,110,100,105,102,32,101,110,100,105,102,<cr>',
	'36,120,112,111,115,61,36,120,112,111,115,32,43,32,34,49,34,<cr>',
	'105,102,32,36,120,112,111,115,61,36,120,112,111,115,101,110,100,32,103,111,116,111,32,34,108,111,111,112,49,34,32,101,108,115,101,32,103,111,116,111,32,34,108,111,111,112,50,34,32,101,110,100,105,102,<cr>',
	'58,99,108,101,97,114,<cr>',
	'105,102,32,36,99,32,99,108,115,32,101,110,100,105,102,<cr>',
	'36,102,105,108,108,61,48,<cr>',
	'103,111,116,111,32,34,108,111,111,112,49,34,<cr>',
	'58,101,110,100,<cr>',
	'105,102,32,36,99,32,99,108,115,32,101,110,100,105,102,<cr>',
	'99,111,108,111,114,32,103,<cr>',
	'97,116,32,40,48,44,48,41,32,34,84,104,101,32,109,97,116,114,105,120,32,104,97,115,32,121,111,117,46,46,46,34,<cr>',
	'99,111,108,111,114,32,119,47,98,<cr>'

	? "decompressing inbeded scripts"
	? "."
	for $arraypointer = 0 to ubound($Thematrixcode)
		$line = split($Thematrixcode[$arraypointer],",")
		$temp = ""
		for each $thing in $line
			if $thing = "<cr>"
				;
				"."
			else
				$temp = $temp + chr($thing)
			endif
		next
		$Thematrixcode[$arraypointer] = $temp
	next
endfunction