Microsoft Small Basic

Program Listing: TLP922

List Program

'∆=1 '(U+2206) ERROR: unexpected at this location.
'∑=1 '(U+2211) ERROR: unexpected at this location.
Σ=1 '(U+3A3)
TextWindow.WriteLine("Σ=" + Σ)
Δ = Text.GetCharacterCode("Σ") ' Δ (U+394)
Δ2Hex()
TextWindow.WriteLine(hex)
Sub Δ2Hex
hex = ""
While 0 < Δ
rem = Math.Remainder(Δ, 16)
hex = Text.Append(Text.GetSubText("0123456789ABCDEF", rem + 1, 1), hex)
Δ = Math.Floor(Δ / 16)
EndWhile
EndSub