Microsoft Small Basic

Program Listing: CVJT898.000

List Program

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()