Microsoft Small Basic

Program Listing: GXB625

List Program

GraphicsWindow.Title = "Emoticons"
Init()
n = Array.GetItemCount(face)
index = Array.GetAllIndices(face)
GraphicsWindow.BrushColor = "Black"
While "True"
For i = 1 To n
code = index[i]
c = face[code]
GraphicsWindow.Clear()
GraphicsWindow.FontSize = 200
GraphicsWindow.DrawText(100, 100, c)
GraphicsWindow.FontSize = 20
GraphicsWindow.DrawText(100, 30, "U+" + code)
Program.Delay(1000)
EndFor
EndWhile

Sub Init
face = "1F31A=🌚;1F31B=🌛;1F31C=🌜;1F31D=🌝;1F31E=🌞;"
face = face + "1F383=🎃;1F385=🎅;1F428=🐨;1F42D=🐭;"
face = face + "1F42E=🐮;1F42F=🐯;1F430=🐰;1F431=🐱;"
face = face + "1F432=🐲;1F434=🐴;1F435=🐵;1F436=🐶;"
face = face + "1F437=🐷;1F438=🐸;1F439=🐹;1F43A=🐺;"
face = face + "1F43B=🐻;1F43C=🐼;1F46E=👮;1F46F=👯;"
face = face + "1F470=👰;1F471=👱;1F472=👲;1F473=👳;"
face = face + "1F474=👴;1F475=👵;1F476=👶;1F477=👷;"
face = face + "1F478=👸;1F479=👹;1F47A=👺;1F47B=👻;"
face = face + "1F47D=👽;1F47E=👾;1F47F=👿;1F480=💀;"
face = face + "1F482=💂;1F570=🕶;1F5FF=🗿;"
face = face + "1F600=😀;1F601=😁;1F602=😂;1F603=😃;"
face = face + "1F604=😄;1F605=😅;1F606=😆;1F607=😇;"
face = face + "1F608=😈;1F609=😉;1F60A=😊;1F60B=😋;"
face = face + "1F60C=😌;1F60D=😍;1F60E=😎;1F60F=😏;"
face = face + "1F610=😐;1F611=😑;1F612=😒;1F613=😓;"
face = face + "1F614=😔;1F615=😕;1F616=😖;1F617=😗;"
face = face + "1F618=😘;1F619=😙;1F61A=😚;1F61B=😛;"
face = face + "1F61C=😜;1F61D=😝;1F61E=😞;1F61F=😟;"
face = face + "1F620=😠;1F621=😡;1F622=😢;1F623=😣;"
face = face + "1F624=😤;1F625=😥;1F626=😦;1F627=😧;"
face = face + "1F628=😨;1F629=😩;1F62A=😪;1F62B=😫;"
face = face + "1F62C=😬;1F62D=😭;1F62E=😮;1F62F=😯;"
face = face + "1F630=😰;1F631=😱;1F632=😲;1F633=😳;"
face = face + "1F634=😴;1F635=😵;1F636=😶;1F637=😷;"
face = face + "1F638=😸;1F639=😹;1F63A=😺;1F63B=😻;"
face = face + "1F63C=😼;1F63D=😽;1F63E=😾;1F63F=😿;"
face = face + "1F640=🙀;1F641=🙁;1F642=🙂;1F643=🙃;"
face = face + "1F644=🙄;1F645=🙅;1F646=🙆;1F647=🙇;"
face = face + "1F648=🙈;1F649=🙉;1F64A=🙊;1F64B=🙋;"
face = face + "1F64C=🙌;1F64D=🙍;1F64E=🙎;1F64F=🙏;"
EndSub