Microsoft Small Basic

Program Listing: QBS151-0

List Program

' Sample code for SMP playing card characters
' Version 0.2
' Program ID QBS151-0
GraphicsWindow.Title = "Playing Cards 0.2"
gw = GraphicsWindow.Width
card[0] = "color=Navy;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=🃞;"
fs = 100
GraphicsWindow.FontSize = fs
n = Array.GetItemCount(card)
While "True"
For j = 0 To n - 1
x = 60
y = 30
len = Array.GetItemCount(card[j])
GraphicsWindow.BrushColor = card[j]["color"]
For i = 1 To len - 1
GraphicsWindow.DrawText(x, y, card[j][i])
x = x + fs
If gw - 60 - fs < x Then
x = 60
y = y + fs * 1.2
EndIf
EndFor
Program.Delay(3000)
GraphicsWindow.Clear()
EndFor
EndWhile