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
  'TextWindow.Write(I + ": " + CKR [I] + " ")
  'TextWindow.Read()
'TextWindow.Read()
EndFor
TextWindow.WriteLine(" ChakraFile Loaded ")
TextWindow.Read()
' Starting First Chakra Bandh
GraphicsWindow.Title = "Siri Bhoovalaya Chakra 1-1-1"
GraphicsWindow.Width=1100
GraphicsWindow.Height=500
'Sub Chakra Marix for Second Adhyaya
SCR[1] = 10
SCC[1] = 10
SCR[2] = 10
SCC[2] = 1
SCR[3] = 1
SCC[3] = 1
SCR[4] = 1
SCC[4] = 10
SCR[5] = 1
SCC[5] = 19
SCR[6] = 10
SCC[6] = 19
SCR[7] = 19
SCC[7] = 19
SCR[8] = 19
SCC[8] = 10
SCR[9] = 19
SCC[9] = 1
For S = 1 To 9
R1 = SCR[S]
C1 = SCC[S]
IRW = R1
ICL = C1 + 4
For l = 1 To 9
  RW = IRW
  CL = ICL
For J = 1 To 9
  PTR = 27*(RW-1) + CL
  P = CKR[PTR]
  LRW = RW
  LCL = CL
  GraphicsWindow.DrawText((12*J + (l-1)*108) , 25*S, " " + A[P] )
  TextWindow.WriteLine(l + "-" + J + " Row = "+RW + " Column = "+CL + " Code = " + CKR[PTR])
' The following line could be harmful and has been automatically commented.
' File.AppendContents("C:\SmallBasicProgs\OutC211.dat", A[P])
  RW = RW - 1
  CL = CL + 1
  If RW < R1 Then
    RW = (R1 + 8)
  EndIf
  If CL > (ICL+4) Then
    CL = C1
  EndIf

 EndFor
 IRW = LRW + 1
 ICL = LCL
 If IRW > (R1 + 8) Then
   IRW = R1
 EndIf
 TextWindow.Read()
EndFor
TextWindow.WriteLine("UpChakra " + S + " Completed")
TextWindow.Read()
EndFor
Copyright (c) Microsoft Corporation. All rights reserved.