Microsoft Small Basic

Program Listing: VQX212
TextWindow.WriteLine("ASCII CODE TABLE")
TextWindow.WriteLine("")
TextWindow.WriteLine(" + 0 1 2 3 4 5 6 7 8 9 A B C D E F")
For code = 0 To 127
rem = Math.Remainder(code, 16)
div = Math.Floor(code / 16)
If rem = 0 Then
TextWindow.Write(Text.Append(div, "0 "))
EndIf
If (code < 7) Or ((10 < code) And (code <> 13)) Then
TextWindow.Write(Text.GetCharacter(code) + " ")
Else
TextWindow.Write(" ")
EndIf
If rem = 15 Then
TextWindow.WriteLine("")
EndIf
EndFor
TextWindow.WriteLine("")
TextWindow.Write("07=BEL ")
TextWindow.Write("08=BS ")
TextWindow.Write("09=TAB ")
TextWindow.Write("0A=LF ")
TextWindow.WriteLine("0D=CR")
TextWindow.WriteLine("")