Microsoft Small Basic

Program Listing: QBS151

List Program

' Sample code for SMP playing card characters
colors = "1=Blue;2=Black;3=Red;"
card[0] = "color=Blue;1=🂠;2=🃏;3=🃟;"
card[1] = "color=Black;1=🂡;2=🂢;3=🂣;4=🂤;5=🂥;6=🂦;7=🂧;8=🂨;9=🂩;10=🂪;11=🂫;12=🂬;13=🂭;14=🂮;"
card[2] = "color=Red;1=🂱;2=🂲;3=🂳;4=🂴;5=🂵;6=🂶;7=🂷;8=🂸;9=🂹;10=🂺;11=🂻;12=🂼;13=🂽;14=🂾;"
card[3] = "color=Red;1=🃁;2=🃂;3=🃃;4=🃄;5=🃅;6=🃆;7=🃇;8=🃈;9=🃉;10=🃊;11=🃋;12=🃌;13=🃍;14=🃎;"
card[4] = "color=Black;1=🃑;2=🃒;3=🃓;4=🃔;5=🃕;6=🃖;7=🃗;8=🃘;9=🃙;10=🃚;11=🃛;12=🃜;13=🃝;14=🃞;"
GraphicsWindow.FontSize = 200
For k = 1 To 3
GraphicsWindow.BrushColor = colors[k]
txt[colors[k]] = Shapes.AddText("")
Shapes.Move(txt[colors[k]], 50, 50)
Shapes.HideShape(txt[colors[k]])
EndFor
n = Array.GetItemCount(card)
While "True"
For j = 0 To n
len = Array.GetItemCount(card[j])
color = card[j]["color"]
Shapes.ShowShape(txt[color])
For i = 1 To len - 1
Shapes.SetText(txt[color], card[j][i])
Program.Delay(500)
EndFor
Shapes.HideShape(txt[color])
EndFor
EndWhile