Microsoft Small Basic

Program Listing: CDB297

List Program

WQ = Text.GetCharacter(34)
ReadPgm()
ListPgm()
TextWindow.WriteLine("")
Sub ListPgm
For i = 1 To nLine
If Text.StartsWith(pgm[i], "'") Then
TextWindow.ForegroundColor = "Green"
Else
TextWindow.ForegroundColor = "Gray"
EndIf
TextWindow.WriteLine(pgm[i])
EndFor
EndSub
Sub ReadPgm
pgm[1] = "'Window"
pgm[2] = "GraphicsWindow.Hide()"
pgm[3] = "GraphicsWindow.Width = 640"
pgm[4] = "GraphicsWindow.Height = 480"
pgm[5] = "GraphicsWindow.Left = (Desktop.Width - 640) / 2"
pgm[6] = "GraphicsWindow.Top = 100"
pgm[7] = "GraphicsWindow.CanResize = " + WQ + "False" + WQ
pgm[8] = "GraphicsWindow.Title = " + WQ + "Grid" + WQ
pgm[9] = "GraphicsWindow.BackgroundColor = "+ WQ + "NavajoWhite" + WQ
pgm[10] = ""
pgm[11] = "'Horizontal Lines"
pgm[12] = "For times = 1 To 9"
pgm[13] = " lines = Shapes.AddLine(12, -38 + (51 * times), 624, -38 + (51 * times))"
pgm[14] = "EndFor"
pgm[15] = ""
pgm[16] = "'Vertical Lines"
pgm[17] = "For times = 1 To 13"
pgm[18] = " lines = Shapes.AddLine(-38 + (51 * times), 12, -38 + (51 * times), 422)"
pgm[19] = "EndFor"
pgm[20] = ""
pgm[21] = "'Show Window"
pgm[22] = "GraphicsWindow.Show()"
nLine = 22
EndSub