Microsoft Small Basic

Program Listing: DDF986

List Program

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=500
GraphicsWindow.Height=500


IRW = 1
ICL = 14
For l = 1 To 27
RW = IRW
CL = ICL
For J = 1 To 27
PTR = 27*(RW-1) + CL
P = CKR[PTR]
LRW = RW
LCL = CL
GraphicsWindow.DrawText(15*J, 15*l, " " + 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("F:\SmallBasicProgs\OutC111.dat", A[P])
RW = RW - 1
CL = CL + 1
If RW < 1 Then
RW = 27
EndIf
If CL > 27 Then
CL = 1
EndIf

EndFor
IRW = LRW + 1
ICL = LCL
If IRW> 27 Then
IRW = 1
EndIf
TextWindow.Read()
EndFor