The Real Bible Code

The biblical creation story translated

into Visual Basic

Jamie Zahler and Gary Hoge

Sub Main()

'1 In the beginning God created the heaven and the earth.

Dim Heaven As New Form

Dim Earth As New Form

'2 And the earth was without form, and void; and darkness was upon the face of the deep. And the Spirit of God moved upon the face of the waters.

Earth.Visible = False

Earth.Deep.Forecolor = vbBlack

Earth.Deep.Picture = LoadPicture("Face_of_God.BMP")

'3 And God said, Let there be light: and there was light.

Light.Enabled = True

'4 And God saw the light, that it was good: and God divided the light from the darkness.

Light.Visible = True

Check_Light = True

Set Darkness = Not Light

'5 And God called the light Day, and the darkness he called Night. And the evening and the morning were the first day.

Light.Caption = "Day"

Darkness.Caption = "Night"

evening_count = 1

morning_count = 1

'6 And God said, Let there be a firmament in the midst of the waters, and let it divide the waters from the waters.

Firmament.Enabled = True

Set Firmament = Not Water

'7 And God made the firmament, and divided the waters which were under the firmament from the waters which were above the firmament: and it was so.

Firmament.Visible = True

Firmament.ZOrder = 10

Water(0).ZOrder = 1

Water(1).ZOrder = 100

'8 And God called the firmament Heaven. And the evening and the morning were the second day.

Firmament.Caption = "Heaven"

evening_count = 2

morning_count = 2

'9 And God said, Let the waters under the heaven be gathered together unto one place, and let the dry land appear: and it was so.

Hold_Water = Water(0) + Water(2)

ReDim Water

Water = Hold_Water

Dry_Land.Visible = True

'10 And God called the dry land Earth; and the gathering together of the waters called he Seas: and God saw that it was good.

Dry_Land.Caption = "Earth"

Water.Caption = "Seas"

Seas.Visible = True

Check_Dry_Land = True

Check_Water = True

'11 And God said, Let the earth bring forth grass, the herb yielding seed, and the fruit tree yielding fruit after his kind, whose seed is in itself, upon the earth: and it was so.

Load_Grass(Dry_Land)

Load_Herb(Dry_Land)

Load_Fruit_Tree(Dry_Land)

'12 And the earth brought forth grass, and herb yielding seed after his kind, and the tree yielding fruit, whose seed was in itself, after his kind: and God saw that it was good.

Check_Grass = True

Check_Herb = True

Check_Fruit_Tree = True

'13 And the evening and the morning were the third day.

evening_count = 3

morning_count = 3

'14 And God said, Let there be lights in the firmament of the heaven to divide the day from the night; and let them be for signs, and for seasons, and for days, and years:

Heaven.Additem Lights

Heaven.Lights.Caption = "For signs, seasons, days and years"

'15 And let them be for lights in the firmament of the heaven to give light upon the earth: and it was so.

Dry_Land.Visible = Heaven.Lights.Visible

'16 And God made two great lights; the greater light to rule the day, and the lesser light to rule the night: he made the stars also.

Dim Great_Light(2)

Great_Light(0).Value = 10

Great_Light(1).Value = 5

Dim Stars

Great_Light(0).Visible = Light.Visible

Great_Light(1).Visible = Darkness.Visible

'17 And God set them in the firmament of the heaven to give light upon the earth,

Firmament.Additem Great_Light(0)

Firmament.Additem Great_Light(1)

Firmament.Additem Stars

'18 And to rule over the day and over the night, and to divide the light from the darkness: and God saw that it was good.

Check_Great_Light(0) = True

Check_Great_Light(1) = True

Check_Stars = True

'19 And the evening and the morning were the fourth day.

evening_count = 4

morning_count = 4

'20 And God said, Let the waters bring forth abundantly the moving creature that hath life, and fowl that may fly above the earth in the open firmament of heaven.

Dim Moving_Creatures_In_Seas()

Dim Fowl()

'21 And God created great whales, and every living creature that moveth, which the waters brought forth abundantly, after their kind, and every winged fowl after his kind: and God saw that it was good.

Check_Whales = True

Check_Moving_Creatures_In_Seas = True

Check_Fowl = True

'22 And God blessed them, saying, Be fruitful, and multiply, and fill the waters in the seas, and let fowl multiply in the earth.

For Each Creature In Moving_Creatures_In_Seas

    Moving_Creatures_In_Seas(Creature).Blessed = True

    Moving_Creatures_In_Seas(Creature).Fruitful = True

    Moving_Creatures_In_Seas(Creature).Multiply = True

Next Creature

For Each Bird In Fowl

    Fowl(Bird).Blessed = True

    Fowl(Bird).Fruitful = True

    Fowl(Bird).Multiply = True

Next Fowl

'23 And the evening and the morning were the fifth day.

evening_count = 5

morning_count = 5

'24 And God said, Let the earth bring forth the living creature after his kind, cattle, and creeping thing, and beast of the earth after his kind: and it was so.

Dim Cattle()

Dim Creeping_Thing()

Dim Beast_of_the_Earth()

'25 And God made the beast of the earth after his kind, and cattle after their kind, and every thing that creepeth upon the earth after his kind: and God saw that it was good.

Check_Cattle = True

Check_Creeping_Thing = True

Check_Beast_of_the_Earth = True

'26 And God said, Let us make man in our image, after our likeness: and let them have dominion over the fish of the sea, and over the fowl of the air, and over the cattle, and over all the earth, and over every creeping thing that creepeth upon the earth.

Dim Man()

Man.Image = LoadPicture("God.BMP")

Man.Dominion = True

'27 So God created man in his own image, in the image of God created he him; male and female created he them.

Man(0).Sex = Male

Man(1).Sex = Female

'28 And God blessed them, and God said unto them, Be fruitful, and multiply, and replenish the earth, and subdue it: and have dominion over the fish of the sea, and over the fowl of the air, and over every living thing that moveth upon the earth.

For Each Person In Man

    Man(Person).Blessed = True

    Man(Person).Fruitful = True

    Man(Person).Multiply = True

    Man(Person).Dominion = True

Next Person

'29 And God said, Behold, I have given you every herb bearing seed, which is upon the face of all the earth, and every tree, in the which is the fruit of a tree yielding seed; to you it shall be for meat.

response = MsgBox("Behold, I have given you every herb bearing " + _

"seed, which is upon the face of all the earth, and every tree, " + _

"in the which is the fruit of a tree yielding seed; to you it " + _

"shall be for meat.", vbInformation + vbOkonly,"God said:")

'30 And to every beast of the earth, and to every fowl of the air, and to every thing that creepeth upon the earth, wherein there is life, I have given every green herb for meat: and it was so.

response = MsgBox("And to every beast of the earth, and to every " + _

"fowl of the air, and to every thing that creepeth upon the " + _

"earth, wherein there is life, I have given every green herb " + _

"for meat: and it was so. ", vbInformation + vbOkonly,"God said:")

'31 And God saw every thing that he had made, and, behold, it was very good. And the evening and the morning were the sixth day.

Creation.Status="very good"

evening_count=6

morning_count=6

End Sub