Google Search Terminal SB Edition

[sm4llprogrammer2008]

And I've been making it today.
It actually launches a search (via LDProcess) and also parses the query, but doesn't URL encode it.
More features might come soon (GST: SBE v2!)
ID: CVJT898.000
Program listing: https://smallbasic.com/program/?CVJT898.000

Code:

Sub PauseNoMsg
  TextWindow.WriteLine("PRESS ANY KEY TO CONTINUE ... ")
  TextWindow.PauseWithoutMessage()
EndSub
Sub SetToDefaultColor
  TextWindow.ForegroundColor = DefaultColor
EndSub
Sub Logo
  TextWindow.ForegroundColor = "Blue"
  TextWindow.Write("G")
  TextWindow.ForegroundColor = "Green"
  TextWindow.Write("O")
  TextWindow.ForegroundColor = "Red"
  TextWindow.Write("O")
  TextWindow.ForegroundColor = "Yellow"
  TextWindow.Write("G")
  TextWindow.ForegroundColor = "Blue"
  TextWindow.Write("L")
  TextWindow.ForegroundColor = "Green"
  TextWindow.Write("E")
  TextWindow.ForegroundColor = "Red"
  TextWindow.Write("!")
  SetToDefaultColor()
EndSub
Sub Search
  TextWindow.WriteLine("")
  TextWindow.Write("What'd you like to search?")
  getsearch = TextWindow.Read()
  parsedsearch = LDText.Replace(getsearch," ","+")
  LDProcess.Start("https://google.com/search?hl=en-us&udm=14&q="+parsedsearch,"")
  Search()
EndSub
TextWindow.Title = "DOSBox (MS-DOS)"
DefaultColor = TextWindow.ForegroundColor
TextWindow.Write("C:\DOS\NET\TOOLS\GOOGLE>")
totype[1] = "g"
totype[2] = "o"
totype[3] = "o"
totype[4] = "g"
totype[5] = "l"
totype[6] = "e"
totype[7] = "."
totype[8] = "c"
totype[9] = "o"
totype[10] = "m"

For i=1 To Array.GetItemCount(totype)
  TextWindow.Write(totype[i])
  Program.Delay(70)
EndFor

TextWindow.WriteLine("")
TextWindow.Title = "Google Terminal 8981"
TextWindow.ForegroundColor = "Yellow"
TextWindow.Write("WARNING: ")
TextWindow.ForegroundColor = DefaultColor
TextWindow.Write("It is recommended to run this simulation with a really fitting typeface style! Right-click the title bar, click 'Properties', go to 'Font' and scroll until you find 'Raster Fonts', then select it, then select 7x12 on the 'Size' section and click 'OK' (works best on Win10/11, might work on 8/8.1 or 7 though)")
TextWindow.WriteLine("")
PauseNoMsg()
TextWindow.WriteLine("")
TextWindow.Write("Google is starting")
For i=1 To 10
  TextWindow.Write(".")
  Program.Delay(100)
EndFor

TextWindow.WriteLine("")
For i=1 To 6
  TextWindow.WriteLine("")
EndFor

Logo()
TextWindow.WriteLine("")
Search()
PauseNoMsg()

It all started when I realized SB's conhost instance's typeface could be tweaked to feel more like DOS.
In Win10/11, first you'd Win+R, then type 'conhost', then right-click the titlebar, then click 'Properties', then go to 'Font', then scroll 3 times (w/ a mouse) until you find "Raster Fonts", then click it, and then select 7x12 from the 'Size' list, then click 'OK'.
I'm playing around with this typeface, it feels like Windows 7 when WT did not exist and console host was king!