:update core online
:module
:download.m
eval addhelp update&update&check for new versions of core
alias update {
	download server3.hypermart.net/daedo/core.mtml
	^restub update update.m
}
alias checkver {
	@ file = [$twiddle(~/core.mtml)]
        @ file = open($file R T)
        @ intver = read($file)
        @ vers   = read($file)
        @ dlfile = read($file)
	@ close($file)
	if (!internalversion) {
		@ internalversion = [1.0]
	}
	if (intver > internalversion) {
	        @ file = [$twiddle($(modpath)core.mtml)]     
	        @ file = open($file R T)                    
		@ read($file)
		@ read($file)
		@ read($file)
		xecho -c $fparse(format_header $vers changes)
		while (!eof($file)) {
			xecho -c $fparse(format_midbar $read($file))
		}
		xecho -c $fparse(format_footer $vers changes)
		xecho -b type /download server3.hypermart.net/daedo/$dlfile to download the new version of core.
	}
	{
		xecho -b you have the most recent version of core.
	}
	^restub chechver update.m
}