Microsoft Small Basic

Program Listing:
Embed this in your website
A[1] = "अ"
A[2] = "आ"
A[3] = "आा"
A[4] = "इ"
A[5] = "ई"
A[6] = "ईी"
A[7] = "उ"
A[8] = "ऊ"
A[9] = "ऊू"
A[10] = "ॠ"
A[11] = "ॠृ"
A[12] = "ॠृा"
A[13] = "ळ"
A[14] = "ळु"
A[15] = "ळू"
A[16] = "ए"
A[17] = "एा"
A[18] = "एाा"
A[19] = "ऎ"
A[20] = "ऐॊ"
A[21] = "ऐॊॊ"
A[22] = "ओ"
A[23] = "ओो"
A[24] = "ओोो"
A[25] = "औ"
A[26] = "औौ"
A[27] = "औौौ"
A[28] = "क्"
A[29] = "ख्"
A[30] = "ग्"
A[31] = "घ्"
A[32] = "ङ्"
A[33] = "च्"
A[34] = "छ्"
A[35] = "ज्"
A[36] = "झ्"
A[37] = "ञ्"
A[38] = "ट्"
A[39] = "ठ्"
A[40] = "ड्"
A[41] = "ढ्"
A[42] = "ण्"
A[43] = "त्"
A[44] = "थ्"
A[45] = "द्"
A[46] = "ध्"
A[47] = "न्"
A[48] = "प्"
A[49] = "फ्"
A[50] = "ब्"
A[51] = "भ्"
A[52] = "म्"
A[53] = "य्"
A[54] = "र्"
A[55] = "ल्"
A[56] = "व्"
A[57] = "श्"
A[58] = "ष्"
A[59] = "स्"
A[60] = "ह्"
A[61] = "ं"
A[62] = "ः"
A[63] = "…"
A[64] = "::"
'Loading Chakra 1.1.1
For I = 1 To 729
' The following line could be harmful and has been automatically commented.
' X = File.ReadLine("F:\SmallBasicProgs\Chakra1_1_1.txt",I)
  CKR[I] = X
EndFor
TextWindow.WriteLine(" ChakraFile Loaded ")
TextWindow.Read()
' Starting First Chakra Bandh
GraphicsWindow.Title = "Siri Bhoovalaya Chakra 1-1-1"
GraphicsWindow.Width=900
GraphicsWindow.Height=300


RW = 1
CL = 14
For J = 1 To 729
  PTR = RW*CL
  P = CKR[PTR]
  GraphicsWindow.DrawText(15*J, 10, " " + A[P] )
  TextWindow.WriteLine(J + " Row = "+RW + " Column = "+CL + " Code = " + CKR[PTR])
  RW = RW - 1
  CL = CL + 1
  If RW < 1 Then
    RW = 27
  EndIf
  If CL > 27 Then
    CL = 1
  EndIf
  TextWindow.Read()
 EndFor


Copyright (c) Microsoft Corporation. All rights reserved.