Microsoft Small Basic

Program Listing: FSQ891-0
' 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