Microsoft Small Basic

Program Listing:

'----------------------------------------------------
' Prueba del modo consola con Small Basic
'----------------------------------------------------

comillas = Text.GetCharacter(34)                '\"
saltolinea = Text.GetCharacter(13)              '\n
saltolinea = saltolinea + Text.GetCharacter(10) '\r
tabulacion = Text.GetCharacter(9)               '\t

'----------------------------------------------------
' Prueba del hola mundo
'----------------------------------------------------
TextWindow.Title = "Prueba en modo consola"
TextWindow.BackgroundColor = "Black"
TextWindow.ForegroundColor = "Green"
TextWindow.CursorLeft = 10
TextWindow.CursorTop = 1
TextWindow.Write(comillas + "Hola mundo" + comillas)

TextWindow.ForegroundColor = "White"
TextWindow.CursorLeft = 0
TextWindow.CursorTop = 3
MostrarLeftTop()

TextWindow.Write("Mueva la ventana de la consola y ")
TextWindow.Write("pulse una tecla para continuar...")
TextWindow.WriteLine(saltolinea)
TextWindow.PauseWithoutMessage()

MostrarLeftTop()
TextWindow.Pause()

Sub MostrarLeftTop
  TextWindow.WriteLine("Left: " + TextWindow.Left)
  TextWindow.WriteLine("Top: " + TextWindow.Top)
  TextWindow.WriteLine("")
EndSub

'----------------------------------------------------
' Prueba de colores en el modo consola
'----------------------------------------------------
TextWindow.Clear()
TextWindow.Write("Introduce una cadena: ")
cadena = TextWindow.Read()

TextWindow.CursorTop = 2
TextWindow.Write("Colores soportados en este modo:")
TextWindow.CursorTop = 4
TextWindow.CursorLeft = 0

color = "Black"
MostrarCadenaConColor()
color = "DarkBlue"
MostrarCadenaConColor()
color = "DarkGreen"
MostrarCadenaConColor()
color = "DarkCyan"
MostrarCadenaConColor()
color = "DarkRed"
MostrarCadenaConColor()
color = "DarkMagenta"
MostrarCadenaConColor()
color = "DarkYellow"
MostrarCadenaConColor()
color = "Gray"
MostrarCadenaConColor()
color = "DarkGray"
MostrarCadenaConColor()
color = "Blue"
MostrarCadenaConColor()
color = "Green"
MostrarCadenaConColor()
color = "Cyan"
MostrarCadenaConColor()
color = "Red"
MostrarCadenaConColor()
color = "Magenta"
MostrarCadenaConColor()
color = "Yellow"
MostrarCadenaConColor()
color = "White"
MostrarCadenaConColor()

TextWindow.WriteLine("")
TextWindow.Pause()

Sub MostrarCadenaConColor
  TextWindow.ForegroundColor = "White"
  TextWindow.Write(tabulacion + color + ": ")
  TextWindow.ForegroundColor = color
  TextWindow.CursorLeft = 21
  TextWindow.WriteLine(cadena)
EndSub

'----------------------------------------------------
' Prueba de la entrada de números
'----------------------------------------------------
TextWindow.Clear()
TextWindow.Write("Vamos a cambiar la posición de ")
TextWindow.WriteLine("la ventana." + saltolinea)

TextWindow.Write("Introduce la x: ")
x = TextWindow.ReadNumber()
TextWindow.Write("Introduce la y: ")
y = TextWindow.ReadNumber()

TextWindow.Left = x
TextWindow.Top = y

TextWindow.Write(saltolinea + "Y eso es todo por ")
TextWindow.WriteLine("ahora..." + saltolinea)