Surprising given the While loop condition.
Script started on Fri 10 Apr 2009 11:13:37 PM EDT
dashiel...@gmpexpress:~$ vbnc about.vb inkey.vb
** (/usr/lib/mono/2.0/vbnc.exe:953): WARNING **: Symbol file
/usr/lib/mono/2.0/vbnc.exe.mdb has incorrect version (expected 50.0, got 39)
** (/usr/lib/mono/2.0/vbnc.exe:953): WARNING **: Symbol file
/usr/lib/mono/gac/Microsoft.VisualBasic/8.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll.mdb
has incorrect version (expected 50.0, got 39)
Visual Basic.Net Compiler version 0.0.0.5904 (Mono 2.0 - r)
Copyright (C) 2004-2008 Rolf Bjarne Kvinge. All rights reserved.
Assembly 'about, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null' saved
successfully to '/home/dashielljt/about.exe'.
Compilation successful
Compilation took 00:00:02.9101380
dashiel...@gmpexpress:~$ ./about.exe
Iching Hexagram Generator
By: Jude DaShiell
translation and technique by: Alistair Crowley et al
Version 0.1
Release Date: 28 February 2009
License: LGPL 3.0 or later
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
(The I Ching) by the Master Therion (Aleister Crowley), inputed for the O.T.O.
by The Very Excellent & Perfect Prince and Reverend Senior; Knight of the Red
Eagle, Knight Hermetic Philosopher; - Senator Steven Santiago -.
Completed May 1, 1989.
[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
THE I CHING
A new translation of the
BOOK of CHANGES
by The Master Therion
Unhandled Exception: System.TypeInitializationException: An exception was
thrown by the type initializer for
System.Windows.Forms.WindowsFormsSynchronizationContext --->
System.TypeInitializationException: An exception was thrown by the type
initializer for System.Windows.Forms.XplatUI ---> System.ArgumentNullException:
Could not open display (X-Server required. Check you DISPLAY environment
variable)
Parameter name: Display
at System.Windows.Forms.XplatUIX11.SetDisplay (IntPtr display_handle)
[0x00000]
at System.Windows.Forms.XplatUIX11..ctor () [0x00000]
at System.Windows.Forms.XplatUIX11.GetInstance () [0x00000]
at System.Windows.Forms.XplatUI..cctor () [0x00000]
--- End of inner exception stack trace ---
at System.Windows.Forms.Theme.get_MenuAccessKeysUnderlined () [0x00000]
at System.Windows.Forms.SystemInformation.get_MenuAccessKeysUnderlined ()
[0x00000]
at System.Windows.Forms.Control..ctor () [0x00000]
at (wrapper remoting-invoke-with-check) System.Windows.Forms.Control:.ctor ()
at System.Windows.Forms.WindowsFormsSynchronizationContext..cctor ()
[0x00000]
--- End of inner exception stack trace ---
at System.Windows.Forms.Control..ctor () [0x00000]
at System.Windows.Forms.ScrollableControl..ctor () [0x00000]
at System.Windows.Forms.ContainerControl..ctor () [0x00000]
at System.Windows.Forms.Form..ctor () [0x00000]
at Microsoft.VisualBasic.Interaction+InputForm..ctor (System.String Prompt,
System.String Title, System.String DefaultResponse, Int32 XPos, Int32 YPos)
[0x00000]
at (wrapper remoting-invoke-with-check) InputForm:.ctor
(string,string,string,int,int)
at Microsoft.VisualBasic.Interaction.InputBox (System.String Prompt,
System.String Title, System.String DefaultResponse, Int32 XPos, Int32 YPos)
[0x00000]
at Module2.Inkey () [0x00000]
at Module1.Main () [0x00000]
dashiel...@gmpexpress:~$ exit
exit
Script done on Fri 10 Apr 2009 11:15:10 PM EDT
Module Module2
Sub Inkey()
Dim Inputvar As String = ""
While(len(Inputvar)<1)
Inputvar = InputBox("hit any key to continue->")
End While
'Console.Clear()
End Sub
End Module
Option Strict On
Imports System
Module Module1
Sub Main()
' show information screens
Console.WriteLine("")
Console.WriteLine("Iching Hexagram Generator ")
Console.WriteLine("")
Console.WriteLine("By: Jude DaShiell")
Console.WriteLine("")
Console.WriteLine("translation and technique by: Alistair Crowley et al")
Console.WriteLine("")
Console.WriteLine("Version 0.1")
Console.WriteLine("")
Console.WriteLine("Release Date: 28 February 2009")
Console.WriteLine("")
Console.WriteLine("License: LGPL 3.0 or later")
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine("[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[")
Console.WriteLine("")
Console.WriteLine("(The I Ching) by the Master Therion (Aleister Crowley),
inputed for the O.T.O.")
Console.WriteLine("by The Very Excellent & Perfect Prince and Reverend Senior;
Knight of the Red")
Console.WriteLine("Eagle, Knight Hermetic Philosopher; - Senator Steven
Santiago -.")
Console.WriteLine("Completed May 1, 1989.")
Console.WriteLine("")
Console.WriteLine("[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[")
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine(" THE I CHING")
Console.WriteLine("")
Console.WriteLine(" A new translation of the")
Console.WriteLine("")
Console.WriteLine(" BOOK of CHANGES")
Console.WriteLine("")
Console.WriteLine(" by The Master Therion")
Console.WriteLine("")
Console.WriteLine("")
Inkey()
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine(" INTRODUCTION")
Console.WriteLine("")
Console.WriteLine(" The Yi King is mathematical and philosophical in
form.")
Console.WriteLine(" Its structure is cognate with that of the Qabalah;
the")
Console.WriteLine(" actual apparatus is simple, and five minutes is
sufficient")
Console.WriteLine(" to obtain a fairly detailed answer to any but the
most")
Console.WriteLine(" obscure questions.")
Console.WriteLine("")
Console.WriteLine(" To Mega
Therion")
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine(" THE TAO")
Console.WriteLine("")
Inkey()
Console.WriteLine("")
Console.WriteLine(" 1. TAO concentrateth itself upon Kether as a
point.")
Console.WriteLine("")
Console.WriteLine(" 2. TAO directeth itself within Chokmah and
becometh")
Console.WriteLine(" the Male Force. He is called YANG, and is
symbolized")
Console.WriteLine(" by a Solid Line.")
Console.WriteLine("")
Console.WriteLine(" 3. TAO expandeth in Binah and becometh the Female")
Console.WriteLine(" Force. She is called YIN, and is symbolized by")
Console.WriteLine(" a Broken Line.")
Console.WriteLine("")
Console.WriteLine(" 4. These three: TAO, YANG and YIN, bring forth
heaven")
Console.WriteLine(" and earth, and all contained therein.")
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine(" THE APPARATUS")
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine(" 0. TAO is the source of the Yi King, as of all.")
Console.WriteLine("")
Inkey()
Console.WriteLine(" 1. Thou shalt obtain 6 Chinese coins. Five shall
be of")
Console.WriteLine(" one metal and the sixth of another. One side ye
shall")
Console.WriteLine(" call Yang, and the other Yin (Heads and
Tails).")
Console.WriteLine("")
Console.WriteLine(" 2. These coins should be kept in a wrapped black
cloth,")
Console.WriteLine(" and no other should lay his hand upon them. For
they")
Console.WriteLine(" swell with thine aura when used with sincerity
and")
Console.WriteLine(" repititon.")
Console.WriteLine("")
Console.WriteLine(" 3. Hast no coins? Six sticks will serve. Paint one
side")
Console.WriteLine(" solid and the other broken. One of the six is
especial;")
Console.WriteLine(" It should be made unique by painting one end on
both")
Console.WriteLine(" sides. Care for thine sticks as though they
were coins.")
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine(" THE METHOD")
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine(" 4. When a situation ariseth in thy mind, and you
wouldst")
Console.WriteLine(" seek an oracle, do thus: Go and take out thine
coins")
Console.WriteLine(" or sticks.")
Console.WriteLine("")
Inkey()
Console.WriteLine(" 5. Face thou East; and make clear thy mind, so
that no")
Console.WriteLine(" thoughts shall intrude.")
Console.WriteLine("")
Console.WriteLine(" 6. Call upon what god ye will; filling thyself
with")
Console.WriteLine(" pure light, and raising thine mind to a fixed
image")
Console.WriteLine(" of the situation into which you inquire.")
Console.WriteLine("")
Console.WriteLine(" 7. Then, gently toss thy sticks or coins toward
the")
Console.WriteLine(" East; they wilst fall into a certain pattern
which")
Console.WriteLine(" thou wilt arrange into an Hexagram - the unit
of")
Console.WriteLine(" Divination of this book: Yi King.")
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine(" THE HEXAGRAM")
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine(" 8. An Hexagram is made up of six lines; each line")
Console.WriteLine(" being Yang or Yin. The especial stick or coin")
Console.WriteLine(" is called (The Moving Line.)")
Console.WriteLine("")
Inkey()
Console.WriteLine(" 9. Each line of the Hexagram is numbered: The
line")
Console.WriteLine(" nearest thyself is number One; whilst the
farthest")
Console.WriteLine(" away is number Six.")
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine(" AN EXAMPLE")
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine(" 10. Thou hast concentrated upon thy situation,
and")
Console.WriteLine(" thine sticks have fallen thus:")
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine(" Line 6 - YANG (a solid line)")
Console.WriteLine(" Line 5 - YANG (a solid line)")
Console.WriteLine(" Line 4 - Yang (a solid line)")
Console.WriteLine("")
Console.WriteLine(" Line 3 - YANG (a solid line)")
Console.WriteLine(" Line 2 - YIN (a broken line)")
Console.WriteLine(" Line 1 - YIN (a broken line)")
Console.WriteLine("")
Console.WriteLine(" ( - The moving line is in line 2)")
Console.WriteLine("")
Inkey()
Console.WriteLine("")
Console.WriteLine(" 11. The Hexagram will look like this:")
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine(" ----------")
Console.WriteLine(" ----------")
Console.WriteLine(" ----------")
Console.WriteLine(" ----------")
Console.WriteLine(" ---- ----")
Console.WriteLine(" ---- ----")
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine(" 12. Take notice that the Hexagram is divided into
two")
Console.WriteLine(" Trigrams: An upper Trigram and a lower
Trigram.")
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine(" INTERPRETATION")
Console.WriteLine("")
Console.WriteLine("")
Inkey()
Console.WriteLine(" 13. Taking thine key, which is in this book: thou
wilst")
Console.WriteLine(" find the upper Trigram along the top of the
squares.")
Console.WriteLine(" Next, find the lower Trigram at the left of
the chart.")
Console.WriteLine("")
Console.WriteLine(" 14. Follow thee the Trigrams into the center of
the Key -")
Console.WriteLine(" Behold the number 33.")
Console.WriteLine("")
Console.WriteLine(" 15. Then, thou shalt read the Thirty-third
Hexagram in")
Console.WriteLine(" this Book: Yi King.")
Console.WriteLine("")
Console.WriteLine(" 16. The first two lines refer to the Hexagram as a
whole,")
Console.WriteLine(" shewing thee the direction of the matter.")
Console.WriteLine("")
Console.WriteLine(" 17. Next, appeareth a six-line poem. The first
line of")
Console.WriteLine(" this poem pertaineth to the line number One in
the")
Console.WriteLine(" Hexagram. The last line of the poem is for
number")
Console.WriteLine(" Six (the one farthest from thy-self).")
Console.WriteLine("")
Console.WriteLine(" 18. The Moving Line (in this case number Two) is
the")
Console.WriteLine(" specific line which pertains to thy
situation:")
Console.WriteLine(" Thine answer from the TAO.")
Console.WriteLine("")
Inkey()
Console.WriteLine(" 19. If thou dost not understand, and are
bewildered by")
Console.WriteLine(" doubts and questions concerning the Forces of
this")
Console.WriteLine(" Divination: Thou mayest read in (Magick) where
the")
Console.WriteLine(" Master Therion hath made discourse upon the
subject")
Console.WriteLine(" by his understanding of the TAO.")
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine(" ABRAHADABRA")
Console.WriteLine("")
Console.WriteLine("")
Console.WriteLine(" A(rgenteum) A(strum)")
Console.WriteLine(" Publication in Class B")
Inkey()
Console.WriteLine("")
Console.WriteLine("the trigrams key is built into this program.")
Console.WriteLine("Any coins can be used so long as five are similar and one is
different.")
Console.WriteLine("Choose (r) from program menu to ")
Console.WriteLine("do a hexagram reading as described in these screens.")
End Sub
End Module
_______________________________________________
Mono-vb mailing list
[email protected]
http://lists.ximian.com/mailman/listinfo/mono-vb
