Microsoft Small Basic

Program Listing:
Embed this in your website
' Mahjong Tiles U+1F000 ~ U+1F02F
' Version 0.2
' Copyright © 2016 Nonki Takahashi. The MIT License.
' Program ID FSQ891-0
GraphicsWindow.Title = "Mahjong Tiles U+1F000 ~ U+1F02F"
tile[1] = "1=🀀;2=🀁;3=🀂;4=🀃;"
tile[2] = "1=🀆;2=🀅;3=🀄;"
tile[3] = "1=🀇;2=🀈;3=🀉;4=🀊;5=🀋;6=🀌;7=🀍;8=🀎;9=🀏;"
tile[4] = "1=🀐;2=🀑;3=🀒;4=🀓;5=🀔;6=🀕;7=🀖;8=🀗;9=🀘;"
tile[5] = "1=🀙;2=🀚;3=🀛;4=🀜;5=🀝;6=🀞;7=🀟;8=🀠;9=🀡;"
tile[6] = "1=🀢;2=🀣;3=🀤;4=🀥;"
tile[7] = "1=🀦;2=🀧;3=🀨;4=🀩;"
tile[8] = "1=🀪;2=🀫;"
fs = 50
gw = GraphicsWindow.Width
GraphicsWindow.FontSize = fs
GraphicsWindow.BackgroundColor = "#333333"
GraphicsWindow.BrushColor = "White"
m = Array.GetItemCount(tile)
y = 40
For j = 1 To m
  If j <> 2 And j <> 7 Then
    x = 90
  EndIf
  n = Array.GetItemCount(tile[j])
  For i = 1 To n
    If j = 3 Then
      GraphicsWindow.BrushColor = "Black"
      GraphicsWindow.FillRectangle(x + fs * 0.05, y + fs * 0.05, fs * 0.9, fs * 0.425)
      GraphicsWindow.BrushColor = "Red"
      GraphicsWindow.FillRectangle(x + fs * 0.05, y + fs * 0.475, fs * 0.9, fs * 0.725)
    ElseIf j = 4 Then
      GraphicsWindow.BrushColor = "Green"
      GraphicsWindow.FillRectangle(x + fs * 0.05, y + fs * 0.05, fs * 0.9, fs * 1.15)
    ElseIf j = 5 Then
      GraphicsWindow.BrushColor = "Navy"
      GraphicsWindow.FillRectangle(x + fs * 0.05, y + fs * 0.05, fs * 0.9, fs * 1.15)
    Else
      GraphicsWindow.BrushColor = "Black"
      GraphicsWindow.FillRectangle(x + fs * 0.05, y + fs * 0.05, fs * 0.9, fs * 1.15)
    EndIf
    If j = 2 And i = 2 Then
      GraphicsWindow.BrushColor = "Green"
      GraphicsWindow.FillRectangle(x + fs * 0.05, y + fs * 0.05, fs * 0.9, fs * 1.15)
    ElseIf j = 2 And i = 3 Then
      GraphicsWindow.BrushColor = "Red"
      GraphicsWindow.FillRectangle(x + fs * 0.05, y + fs * 0.05, fs * 0.9, fs * 1.15)
    ElseIf j = 8 And i = 2 Then
      GraphicsWindow.BrushColor = "Sienna"
      GraphicsWindow.FillRectangle(x + fs * 0.05, y + fs * 0.05, fs * 0.9, fs * 1.15)
    EndIf
    If j = 8 And i = 2 Then
      GraphicsWindow.BrushColor = "GoldenRod"
    Else
      GraphicsWindow.BrushColor = "White"
    EndIf
    GraphicsWindow.DrawText(x, y, tile[j][i])
    x = x + fs
  EndFor
  If j <> 1 And j <> 6 Then
    y = y + fs * 1.2
  EndIf
EndFor
Copyright (c) Microsoft Corporation. All rights reserved.