Cosmos/source2/VSIP/Cosmos.VS.Package/Templates/Projects/CosmosKernel (VB)/Kernel.vb
mterwoord_cp 6c9a96953b
2010-08-14 13:48:25 +00:00

15 lines
394 B
VB.net

Imports Cosmos.Debug
Public Class Kernel
Public Shared Sub Boot()
Dim xBoot = New Cosmos.Sys.Boot()
xBoot.Execute()
Console.WriteLine("Cosmos booted successfully. Type a line of text to get it echoed back:")
Dim xResult = Console.ReadLine()
Console.Write("Text typed: ")
Console.WriteLine(xResult)
End Sub
End Class