Microsoft Small Basic

Program Listing: VLN015

List Program

TextWindow.WriteLine ("This program hates milk.")
TextWindow.WriteLine ("by Gors")
TextWindow.WriteLine ("")
TextWindow.WriteLine ("'Give this program everything but milk.'")
TextWindow.WriteLine ("Press ENTER to start.")
TextWindow.Read()
Start:
TextWindow.WriteLine ("Hello! I'm Gors' program! Give me something...")
Goto Prog

Prog:
x = TextWindow.Read()
y = Text.Append (x"?")
TextWindow.WriteLine (y)

If x = "milk" Then
Goto Finish
Else
TextWindow.WriteLine ("I'm ok with this.")
Goto Start
EndIf

Finish:
TextWindow.WriteLine ("n...no...")
TextWindow.Read()
TextWindow.WriteLine ("I hate milk...")
TextWindow.Read()
TextWindow.WriteLine ("how could you...")
TextWindow.Read()
TextWindow.WriteLine ("uwah...")
TextWindow.Read()