home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD-ROM Today - The Disc! 2
/
CD-ROM_Today_-_The_Disc_2_June-July_1994.iso
/
swgames
/
rmaniac
/
rmaniac.bas
< prev
next >
Wrap
BASIC Source File
|
1992-05-18
|
43KB
|
1,256 lines
DECLARE SUB Titlescreen ()
DECLARE SUB Openscreen ()
DECLARE SUB Howto ()
DECLARE SUB Rune1 ()
DECLARE SUB Rune3 ()
DECLARE SUB Rune6 ()
DECLARE SUB Books ()
DECLARE SUB Books2 ()
DECLARE SUB History ()
DECLARE SUB History2 ()
DECLARE SUB Endit (y)
DECLARE SUB Other ()
DECLARE SUB Pick ()
DECLARE SUB SCRNC1A ()
DECLARE SUB SCRNC3A ()
DECLARE SUB SCRNC3B ()
DECLARE SUB SCRNC3C ()
DECLARE SUB SCRNC6A ()
DECLARE SUB SCRNC6B ()
DECLARE SUB SCRNC6C ()
DECLARE SUB SCRNC6D ()
DECLARE SUB SCRNC6E ()
DECLARE SUB SCRNC6F ()
DECLARE SUB R1 ()
DECLARE SUB R2 ()
DECLARE SUB R3 ()
DECLARE SUB R4 ()
DECLARE SUB R5 ()
DECLARE SUB R6 ()
DECLARE SUB R7 ()
DECLARE SUB R8 ()
DECLARE SUB R9 ()
DECLARE SUB R10 ()
DECLARE SUB R11 ()
DECLARE SUB R12 ()
DECLARE SUB R13 ()
DECLARE SUB R14 ()
DECLARE SUB R15 ()
DECLARE SUB R16 ()
DECLARE SUB R17 ()
DECLARE SUB R18 ()
DECLARE SUB R19 ()
DECLARE SUB R20 ()
DECLARE SUB R21 ()
DECLARE SUB R22 ()
DECLARE SUB R23 ()
DECLARE SUB R24 ()
DECLARE SUB R25 ()
' *************************************************************************
' *** This program is to be a game of sorts, using the Runic symbols ***
' *** to allow to participant to have a reading performed for them, ***
' *** using either 1, 3, or 6 numbers. Each number is related to a ***
' *** particular Runic symbol or concept, and in the 3 or 6 tile read- ***
' *** ings, the order in which the numbers are chosen determines their ***
' *** overalll meaning in the reading. ***
' *************************************************************************
COMMON SHARED ind
CLS
CALL Titlescreen
CALL Openscreen
DO
CLS
SCREEN 9
COLOR 5, 7
LINE (3, 3)-(637, 347), 14, B
LINE (130, 10)-(500, 330), 14, B
LOCATE 4, 23: PRINT "RUNES - A FUN & INTERESTING GAME"
LOCATE 7, 27: PRINT "1.-> HOW TO USE THIS GAME"
LOCATE 9, 27: PRINT "2.-> 1-RUNE READING"
LOCATE 11, 27: PRINT "3.-> 3-RUNE READING"
LOCATE 13, 27: PRINT "4.-> 6-RUNE READING"
LOCATE 15, 27: PRINT "5.-> BIBLIOGRAPHY"
LOCATE 17, 27: PRINT "6.-> HISTORY"
LOCATE 19, 27: PRINT "7.-> EXIT"
LOCATE 21, 24: PRINT "MAKE YOUR SELECTION HERE -->"
LET SELCT$ = INPUT$(1)
SELECT CASE SELCT$
CASE "1"
CALL Howto
CASE "2"
CALL Rune1
CASE "3"
CALL Rune3
CASE "4"
CALL Rune6
CASE "5"
CALL Books
CALL Books2
CASE "6"
CALL History
CALL History2
CASE "7"
CALL Endit(y)
CASE ELSE
CALL Other
END SELECT
LOOP UNTIL y = 1
END
SUB Books
SCREEN 9
COLOR 5, 7
CLS
LOCATE 2, 5: PRINT " Bibliography "
LOCATE 4, 5:
PRINT "We have tried to keep the explanations and descriptions short and "
LOCATE 5, 5:
PRINT "positive to make this a fun and educational experience. Feel free "
LOCATE 6, 5:
PRINT "to do some more reading if you find the subject of runes to be of "
LOCATE 7, 5:
PRINT "interest. Here is a list of books we consulted while researching "
LOCATE 8, 5: PRINT "the subject of Runes."
LOCATE 10, 10: PRINT "Atwater, P.M.A. The Magic Language of Runes."
LOCATE 11, 10: PRINT " (Santa Fe, NM: Bear and Company 1990)."
LOCATE 12, 10: PRINT "Aswynn, Freya. Leaves of Yggdrasil"
LOCATE 13, 10: PRINT " (St. Paul, MN: Llewellyn Publications 1990)."
LOCATE 14, 10: PRINT "Blum, Ralph. Rune Play: A Seasonal Record Book"
LOCATE 15, 10: PRINT " (New York, Oracle Books, St. Martins Press, 1985)."
LOCATE 16, 10: PRINT "Elliot, Ralph W.V. Runes, an Introduction. "
LOCATE 17, 10: PRINT " (Westport, CT: Greenwood Press, 1981)."
LOCATE 18, 10: PRINT "Gundarsson, Kveldulf. Teutonic Magic: The Magical "
LOCATE 19, 10: PRINT " and Spiritual Practices of the Germanic Peoples."
LOCATE 20, 10: PRINT " (St. Paul, MN: Llewellyn Publications, 1990)."
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to continue"
V$ = INPUT$(1)
END SUB
SUB Books2
CLS
COLOR 5, 7
LOCATE 3, 20: PRINT "Bibliography - continued "
LOCATE 5, 10: PRINT "Peterson, James M. The Enchanted Alphabet. "
LOCATE 6, 10: PRINT " (Northamptonshire: The Aquarian Press, 1988)."
LOCATE 7, 10: PRINT "Stephens, G. Handbook of the old northern runic "
LOCATE 8, 10: PRINT " monuments of Scandinavia and England. (1884)"
LOCATE 9, 10:
PRINT "Thorsson Edred, Runelore - A handbook of esoteric runology."
LOCATE 10, 10: PRINT " (York Beach, ME: S. Weiser, 1987)."
LOCATE 11, 10: PRINT "Willis, Tony. The Runic Workbook. "
LOCATE 12, 10: PRINT " (Northamptonshire: The Aquarian Press, 1987)."
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to continue"
V$ = INPUT$(1)
END SUB
SUB Endit (y)
SCREEN 9
COLOR 5, 7
CLS
LOCATE 5, 10: PRINT "Thank you for playing Rune Mania! If you enjoyed it,"
LOCATE 7, 10: PRINT "feel free to send a $20 bill with your ideas"
LOCATE 9, 10: PRINT "written on the back of it, to:"
LOCATE 13, 20: PRINT "Rune Mania! Headquarters"
LOCATE 14, 20: PRINT "6407 W Powell Pl"
LOCATE 15, 20: PRINT "Wauwatosa WI 53213"
LOCATE 19, 10: PRINT "Your contributions will help us to devote ourselves to"
LOCATE 21, 10: PRINT "developing more exciting Mania! games!!!!!"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to EXIT"
V$ = INPUT$(1)
y = 1
END SUB
SUB History
SCREEN 9
COLOR 5, 7
CLS
LOCATE 2, 5:
PRINT " The Runic writing system was invented no later than the second "
LOCATE 3, 5:
PRINT "century AD, hundreds of years before the Viking era began. From"
LOCATE 4, 5:
PRINT "their point of origin, on Jutland, the Danish peninsula, the runes"
LOCATE 5, 5:
PRINT "spread throughout the Germanic people. These Germanic tribes were"
LOCATE 6, 5:
PRINT "the ancestors of the modern Scandinavians, Germans, Dutch, and English"
LOCATE 7, 5:
PRINT "In their early forms all these languages continued to be written in "
LOCATE 8, 5: PRINT "runes as they evolved away from each other."
LOCATE 9, 5:
PRINT " Our word 'alphabet' comes from 'alpha' and 'beta', the Greek words"
LOCATE 10, 5:
PRINT "for the first two letters, A and B. In a similar way, the runes are"
LOCATE 11, 5:
PRINT "sometimes known as the 'Futhark' from the pronunciation of the first"
LOCATE 12, 5: PRINT "six characters in their conventional order."
LOCATE 13, 5:
PRINT " To the ancient Germanic peoples, the world was a magical place, "
LOCATE 14, 5:
PRINT "a place far different from the inert, mechanical universe which their"
LOCATE 15, 5:
PRINT "descendants inhabit. In addition to the major gods, there were other"
LOCATE 16, 5:
PRINT "strange beings and mysterious forces abroad in the land in those days."
LOCATE 17, 5:
PRINT " The Germanic tribes had amoung them various classes of holy "
LOCATE 18, 5:
PRINT "persons, sorcerers, and foretellers of the future. The ones with the"
LOCATE 19, 5:
PRINT "greatest power - especially in the early days of the culture - were "
LOCATE 20, 5:
PRINT "those who had sought out contact with the spirit world through a"
LOCATE 21, 5: PRINT "vision quest. "
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to continue"
V$ = INPUT$(1)
END SUB
SUB History2
CLS
COLOR 5, 7
LOCATE 3, 5:
PRINT " Rune divination or sortilege was called Hlauter. This word has"
LOCATE 4, 5:
PRINT "roots in common with the English 'lot', in the sense of 'drawing "
LOCATE 5, 5:
PRINT "lots'. The two parts of the fortune-telling process are the shaking"
LOCATE 6, 5: PRINT "(hrista) and the choosing (kiosa) of the hlaut-vid."
LOCATE 7, 5:
PRINT " The first rune to be drawn defines the present situation and the "
LOCATE 8, 5:
PRINT "third a potential outcome, while the second describes the process or"
LOCATE 9, 5:
PRINT "action by which the situation of the first rune might evolve into the"
LOCATE 10, 5: PRINT "outcome pictured in the third."
LOCATE 13, 20: PRINT "LATHU ALUGOD > I Summon Good Magic "
LOCATE 16, 5:
PRINT "Note: it is worthwhile to note that the traditional three-rune reading"
LOCATE 17, 5:
PRINT "is capable of generating 12,144 different messages from a 24-character"
LOCATE 18, 5: PRINT "set."
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar for Menu"
V$ = INPUT$(1)
END SUB
SUB Howto
SCREEN 9
COLOR 14, 7
CLS
LOCATE 2, 20: PRINT "How to play ...RUNE MANIA!"
COLOR 5, 7
LOCATE 4, 5:
PRINT " Choose either 1-Rune, 3-Rune or 6-Rune selections. Each will"
LOCATE 5, 5:
PRINT "include a short explanation, but in all cases try to have a question"
LOCATE 6, 5:
PRINT "in mind when you make your selection. The answer that you get may be"
LOCATE 7, 5:
PRINT "to a question you didn't ask, perhaps relating to something else that"
LOCATE 8, 5:
PRINT "is bothering you. Relax, keep an open mind, and take time to read "
LOCATE 9, 5:
PRINT "each screen and think about it. Pressing the spacebar will take you "
LOCATE 10, 5:
PRINT "to the next screen or return you to the Main Menu, except number 7, "
LOCATE 11, 5: PRINT "which will exit the program. Enjoy!!!"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to return to MENU"
V$ = INPUT$(1)
END SUB
SUB Openscreen
CLS
SCREEN 9
COLOR 5, 7
PSET (35, 12), 11: DRAW "R45D56L45U56"
PSET (100, 12), 11: DRAW "R45D56L45U56"
PSET (165, 12), 11: DRAW "R45D56L45U56"
PSET (230, 12), 11: DRAW "R45D56L45U56"
PSET (295, 12), 11: DRAW "R45D56L45U56"
PSET (360, 12), 11: DRAW "R45D56L45U56"
PSET (425, 12), 11: DRAW "R45D56L45U56"
PSET (495, 12), 11: DRAW "R45D56L45U56"
PSET (35, 95), 11: DRAW "R45D56L45U56"
PSET (100, 95), 11: DRAW "R45D56L45U56"
PSET (165, 95), 11: DRAW "R45D56L45U56"
PSET (230, 95), 11: DRAW "R45D56L45U56"
PSET (295, 95), 11: DRAW "R45D56L45U56"
PSET (360, 95), 11: DRAW "R45D56L45U56"
PSET (425, 95), 11: DRAW "R45D56L45U56"
PSET (495, 95), 11: DRAW "R45D56L45U56"
PSET (35, 180), 11: DRAW "R45D56L45U56"
PSET (100, 180), 11: DRAW "R45D56L45U56"
PSET (165, 180), 11: DRAW "R45D56L45U56"
PSET (230, 180), 11: DRAW "R45D56L45U56"
PSET (295, 180), 11: DRAW "R45D56L45U56"
PSET (360, 180), 11: DRAW "R45D56L45U56"
PSET (425, 180), 11: DRAW "R45D56L45U56"
PSET (495, 180), 11: DRAW "R45D56L45U56"
PSET (50, 64), 11: LINE (50, 64)-(50, 16): PSET (50, 45)
LINE (50, 45)-(70, 20): PSET (50, 33), 11: LINE (50, 33)-(65, 16)
PSET (105, 65), 11: LINE (105, 65)-(105, 15): LINE (105, 15)-(135, 25)
LINE (135, 25)-(135, 65)
PSET (185, 15), 11: LINE (185, 15)-(185, 65): PSET (185, 28)
LINE (185, 28)-(200, 40): LINE (200, 40)-(185, 52)
PSET (242, 65), 11: LINE (242, 65)-(242, 15): LINE (242, 15)-(270, 37)
PSET (242, 32), 11: LINE (242, 32)-(260, 47)
PSET (310, 65), 11: LINE (310, 65)-(310, 15): LINE (310, 15)-(335, 27)
LINE (335, 27)-(310, 40): LINE (310, 40)-(335, 65)
PSET (393, 25), 11: LINE (393, 25)-(373, 39): LINE (373, 39)-(393, 54)
PSET (435, 15), 11: LINE (435, 15)-(460, 65)
PSET (435, 65), 11: LINE (435, 65)-(460, 15)
PSET (510, 64), 11: LINE (510, 64)-(510, 16): LINE (510, 16)-(535, 28)
LINE (535, 28)-(510, 40)
PSET (40, 98), 11: LINE (40, 98)-(40, 147): PSET (75, 98), 11
LINE (75, 98)-(75, 147): PSET (75, 133), 11: LINE (75, 133)-(40, 115)
PSET (125, 97), 11: LINE (125, 97)-(125, 147)
PSET (105, 102), 11: LINE (105, 102)-(135, 132)
PSET (187, 97), 11: LINE (187, 97)-(187, 147)
PSET (252, 100), 11: LINE (252, 100)-(252, 145): PSET (252, 132), 11
LINE (252, 132)-(240, 119): LINE (240, 119)-(252, 110)
LINE (252, 110)-(265, 119): LINE (265, 119)-(252, 132)
PSET (303, 130), 11: LINE (303, 130)-(317, 145): LINE (317, 145)-(317, 100)
LINE (317, 100)-(332, 115)
PSET (400, 147), 11: LINE (400, 147)-(385, 137): LINE (385, 137)-(365, 142)
LINE (365, 142)-(365, 102): LINE (365, 102)-(385, 107): LINE (385, 107)-(400, 97)
PSET (447, 97), 11: LINE (447, 97)-(447, 147): PSET (465, 97), 11
LINE (465, 97)-(447, 120): LINE (447, 120)-(430, 97)
PSET (530, 100), 11: LINE (530, 100)-(505, 115): LINE (505, 115)-(530, 130)
LINE (530, 130)-(505, 145)
PSET (57, 233), 11: LINE (57, 233)-(57, 183): LINE (57, 183)-(40, 203)
PSET (57, 183), 11: LINE (57, 183)-(74, 203)
PSET (110, 182), 11: LINE (110, 182)-(110, 234): LINE (110, 234)-(135, 221)
LINE (135, 221)-(110, 208): LINE (110, 208)-(135, 195): LINE (135, 195)-(110, 182)
PSET (170, 233), 11: LINE (170, 233)-(170, 183): LINE (170, 183)-(188, 203)
LINE (188, 203)-(205, 183): LINE (205, 183)-(205, 233)
PSET (235, 233), 11: LINE (235, 233)-(235, 183): LINE (235, 183)-(270, 200)
PSET (270, 233), 11: LINE (270, 233)-(270, 183): LINE (270, 183)-(235, 200)
PSET (317, 230), 11: LINE (317, 230)-(317, 185): LINE (317, 185)-(332, 200)
PSET (365, 183), 11: LINE (365, 183)-(400, 208): LINE (400, 208)-(365, 233)
PSET (400, 183), 11: LINE (400, 183)-(365, 208): LINE (365, 208)-(400, 233)
PSET (436, 230), 11: LINE (436, 230)-(460, 200): LINE (460, 200)-(448, 185)
LINE (448, 185)-(436, 200): LINE (436, 200)-(460, 230)
PSET (500, 231), 11: LINE (500, 231)-(500, 185): LINE (500, 185)-(535, 231)
LINE (535, 231)-(535, 185): LINE (535, 185)-(500, 231)
LOCATE 6, 6: PRINT "Fehu"
LOCATE 6, 14: PRINT "Uruz"
LOCATE 6, 21: PRINT "Purisaz"
LOCATE 6, 30: PRINT "Ansuz"
LOCATE 6, 38: PRINT "Raidho"
LOCATE 6, 46: PRINT "Kaunaz"
LOCATE 6, 55: PRINT "Gebo"
LOCATE 6, 63: PRINT "Wunjo"
LOCATE 12, 5: PRINT "Hagalaz"
LOCATE 12, 14: PRINT "Naupiz"
LOCATE 12, 22: PRINT "Isa"
LOCATE 12, 30: PRINT "Jera"
LOCATE 12, 38: PRINT "Eihwaz"
LOCATE 12, 46: PRINT "Pethro"
LOCATE 12, 55: PRINT "Algiz"
LOCATE 12, 63: PRINT "Sowilo"
LOCATE 18, 5: PRINT "Teiwaz"
LOCATE 18, 13: PRINT "Berkana"
LOCATE 18, 22: PRINT "Ehwaz"
LOCATE 18, 30: PRINT "Mannaz"
LOCATE 18, 38: PRINT "Laguz"
LOCATE 18, 46: PRINT "Inguz"
LOCATE 18, 55: PRINT "Dagaz"
LOCATE 18, 63: PRINT "Opila"
LOCATE 20, 15: PRINT "A graphic presentation of the 24 Runes,"
LOCATE 21, 15: PRINT " Left to Right, Top to Bottom"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to continue"
V$ = INPUT$(1)
END SUB
SUB Other
SCREEN 9
COLOR 5, 7
CLS
LOCATE 10, 10: PRINT "PLEASE SELECT ONLY 1, 2, 3, 4, 5, 6 OR 7 !"
COLOR 14, 7
LOCATE 20, 10: PRINT "Press spacebar to return to MENU"
V$ = INPUT$(1)
END SUB
SUB Pick
SELECT CASE ind
CASE 1
CALL R1
CASE 2
CALL R2
CASE 3
CALL R3
CASE 4
CALL R4
CASE 5
CALL R5
CASE 6
CALL R6
CASE 7
CALL R7
CASE 8
CALL R8
CASE 9
CALL R9
CASE 10
CALL R10
CASE 11
CALL R11
CASE 12
CALL R12
CASE 13
CALL R13
CASE 14
CALL R14
CASE 15
CALL R15
CASE 16
CALL R16
CASE 17
CALL R17
CASE 18
CALL R18
CASE 19
CALL R19
CASE 20
CALL R20
CASE 21
CALL R21
CASE 22
CALL R22
CASE 23
CALL R23
CASE 24
CALL R24
CASE ELSE
CALL R25
END SELECT
END SUB
SUB R1
SCREEN 9
COLOR 5, 7
PSET (500, 150), 5: LINE (500, 150)-(500, 60): PSET (500, 85), 5
LINE (500, 85)-(535, 65): PSET (500, 105), 5: LINE (500, 105)-(535, 85)
COLOR 14, 7
LOCATE 3, 10: PRINT "1.Possessions "
COLOR 5, 7
LOCATE 5, 5: PRINT "This is the rune of fulfillment: your career being"
LOCATE 6, 5: PRINT "satisfied, love fulfilled and rewards given. Look"
LOCATE 7, 5: PRINT "deep into your life here to see what you need for "
LOCATE 8, 5: PRINT "your well being. Is it wealth or self-rule? Enjoy"
LOCATE 9, 5: PRINT "what you have but be able to share it with others."
LOCATE 10, 5: PRINT "This can make life more fulfilling for you."
LOCATE 13, 62: PRINT "FEHU"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to continue"
END SUB
SUB R10
SCREEN 9
COLOR 5, 7
PSET (510, 150), 5: LINE (510, 150)-(510, 60): PSET (535, 120), 5
LINE (535, 120)-(480, 90)
COLOR 14, 7
LOCATE 3, 10: PRINT "10.Constraint"
COLOR 5, 7
LOCATE 5, 5: PRINT "This rune is the rune of severe constraint. It has"
LOCATE 6, 5: PRINT "a positive and a negative side. The positive side"
LOCATE 7, 5: PRINT "is the limitations we set for ourselves. The nega-"
LOCATE 8, 5: PRINT "tive side is the limitations that are set by others."
LOCATE 9, 5: PRINT "This stone lets you take your setbacks and troubles"
LOCATE 10, 5: PRINT "of your life and use them as guides to your new "
LOCATE 11, 5: PRINT "development. "
LOCATE 13, 62: PRINT "NAUPIZ"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to continue"
END SUB
SUB R11
SCREEN 9
COLOR 5, 7
PSET (510, 150), 5: LINE (510, 150)-(510, 60)
COLOR 14, 7
LOCATE 3, 10: PRINT "11.Standstill"
COLOR 5, 7
LOCATE 5, 5: PRINT "This rune may leave you powerless. You may have "
LOCATE 6, 5: PRINT "to submit, surrender or sacrifice a long awaited "
LOCATE 7, 5: PRINT "desire. It proceeds rebirth. It is time to re-"
LOCATE 8, 5: PRINT "lease the thing that makes you feel out of touch "
LOCATE 9, 5: PRINT "with life. Clean away the old and useless. "
LOCATE 10, 5: PRINT "Surrendering or letting go here will give you "
LOCATE 11, 5: PRINT "courage and wisdom."
LOCATE 13, 62: PRINT "ISA"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to continue"
END SUB
SUB R12
SCREEN 9
COLOR 5, 7
PSET (510, 65), 5: LINE (510, 65)-(545, 90): LINE (545, 90)-(520, 115)
PSET (512, 95), 5: LINE (512, 95)-(485, 125): LINE (485, 125)-(520, 145)
COLOR 14, 7
LOCATE 3, 10: PRINT "12.Harvest"
COLOR 5, 7
LOCATE 5, 5: PRINT "This is the rune of good outcomes. It encourages"
LOCATE 6, 5: PRINT "you to keep up your spirits . There can be no "
LOCATE 7, 5: PRINT "quick results. You must go through a full cycle "
LOCATE 8, 5: PRINT "before expected gains can be received. Patience "
LOCATE 9, 5: PRINT "is essential here. It leads you to recognize "
LOCATE 10, 5: PRINT "your own process."
LOCATE 13, 62: PRINT "JERA"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to continue"
END SUB
SUB R13
SCREEN 9
COLOR 5, 7
PSET (545, 85), 5: LINE (545, 85)-(510, 60): LINE (510, 60)-(510, 150)
LINE (510, 150)-(475, 125)
COLOR 14, 7
LOCATE 3, 10: PRINT "13.Defense"
COLOR 5, 7
LOCATE 5, 5: PRINT "This rune offers patience as a counsel. There may"
LOCATE 6, 5: PRINT "be some things blocking your path but a delay "
LOCATE 7, 5: PRINT "may be advantageous. This is not a time to push "
LOCATE 8, 5: PRINT "things. This rune suggests a time of waiting. "
LOCATE 9, 5: PRINT "Avoid dificulties through right action. Through"
LOCATE 10, 5: PRINT "inconvenience growth may be obtained."
LOCATE 13, 62: PRINT "EIHWAZ"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to continue"
END SUB
SUB R14
SCREEN 9
COLOR 5, 7
PSET (545, 60), 5: LINE (545, 60)-(515, 75): LINE (515, 75)-(485, 60)
LINE (485, 60)-(485, 150): LINE (485, 150)-(515, 135)
LINE (515, 135)-(545, 150)
COLOR 14, 7
LOCATE 3, 10: PRINT "14.Initiation"
COLOR 5, 7
LOCATE 5, 5: PRINT "This rune is the unknowable. It is mystical and "
LOCATE 6, 5: PRINT "heavenly. You may receive surprises or unexpected"
LOCATE 7, 5: PRINT "gains. It is the rune of question. Freedom is the"
LOCATE 8, 5: PRINT "keyword for this rune. "
LOCATE 13, 62: PRINT "PERTHRO"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to continue"
END SUB
SUB R15
SCREEN 9
COLOR 5, 7
PSET (510, 65), 5: LINE (510, 65)-(510, 145): PSET (485, 65), 5
LINE (485, 65)-(510, 95): LINE (510, 95)-(540, 65)
COLOR 14, 7
LOCATE 3, 10: PRINT "15.Protection"
COLOR 5, 7
LOCATE 5, 5: PRINT "This is a good time to have control of your emo-"
LOCATE 6, 5: PRINT "tions. Do not absorb yourself into your emotional"
LOCATE 7, 5: PRINT "highs or lows. This is a time of new opportunities"
LOCATE 8, 5: PRINT "and challenges; with these will come unwanted "
LOCATE 9, 5: PRINT "influences. Keep open space around you for protec-"
LOCATE 10, 5: PRINT "tion. Remain mindful, have timely actions and "
LOCATE 11, 5: PRINT "correct conduct. Do not deny what is happening "
LOCATE 12, 5: PRINT "around you. Knowing that you will progress is"
LOCATE 13, 5: PRINT "your best protection."
LOCATE 13, 62: PRINT "ALGIZ"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to continue"
END SUB
SUB R16
SCREEN 9
COLOR 5, 7
PSET (530, 65), 5: LINE (530, 65)-(485, 105): LINE (485, 105)-(540, 105)
LINE (540, 105)-(500, 145)
COLOR 14, 7
LOCATE 3, 10: PRINT "15.Wholeness"
COLOR 5, 7
LOCATE 5, 5: PRINT "This rune symbolizes wholeness. It lets you see "
LOCATE 6, 5: PRINT "self-realization by using your individuality. This"
LOCATE 7, 5: PRINT "is your personal myth. It's what you've always "
LOCATE 8, 5: PRINT "wanted to be but in essence what you already are."
LOCATE 9, 5: PRINT "This is your goal."
LOCATE 13, 62: PRINT "SOWILO"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to continue"
END SUB
SUB R17
SCREEN 9
COLOR 5, 7
PSET (510, 60), 5: LINE (510, 60)-(510, 155): PSET (485, 100), 5
LINE (485, 100)-(510, 60): LINE (510, 60)-(535, 100)
COLOR 14, 7
LOCATE 3, 10: PRINT "17. Warrior"
COLOR 5, 7
LOCATE 5, 5: PRINT "This is the rune of the battle within yourself. "
LOCATE 6, 5: PRINT "Stay out of your own way and let your own spirit"
LOCATE 7, 5: PRINT "flow through you. Patience is the virtue of this"
LOCATE 8, 5: PRINT "rune. Molding your character is it's lesson. Look"
LOCATE 9, 5: PRINT "deep inside to find the foundations of your life."
LOCATE 10, 5: PRINT "There you can find your deepest needs and deal "
LOCATE 11, 5: PRINT "with them. This rune strengthens you for the "
LOCATE 12, 5: PRINT "battle with yourself."
LOCATE 13, 62: PRINT "TEIWAZ"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to continue"
END SUB
SUB R18
SCREEN 9
COLOR 5, 7
PSET (490, 60), 5: LINE (490, 60)-(490, 155): LINE (490, 154)-(530, 132)
LINE (530, 132)-(490, 109): LINE (490, 109)-(530, 86): LINE (530, 86)-(490, 60)
COLOR 14, 7
LOCATE 3, 10: PRINT "18. Growth"
COLOR 5, 7
LOCATE 5, 5: PRINT "This is a rune of the self-transformation cycle. It"
LOCATE 6, 5: PRINT "promotes growth - of the family, affairs of the "
LOCATE 7, 5: PRINT "world or the relationship with the divine. "
LOCATE 8, 5: PRINT "It is gentle in it's action. Go into things deeply,"
LOCATE 9, 5: PRINT "but use caution. Always remain modest, have"
LOCATE 10, 5: PRINT "patience, be fair and be generous - if you hold"
LOCATE 11, 5: PRINT "these virtues growth will occur."
LOCATE 13, 62: PRINT "BERKANA"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to continue"
END SUB
SUB R19
SCREEN 9
COLOR 5, 7
PSET (480, 145), 5: LINE (480, 145)-(480, 65): LINE (480, 65)-(510, 95)
LINE (510, 95)-(540, 65): LINE (540, 65)-(540, 145)
COLOR 14, 7
LOCATE 3, 10: PRINT "19. Movement"
COLOR 5, 7
LOCATE 5, 5: PRINT "This is the rune of transition. It is a time for"
LOCATE 6, 5: PRINT "movement, new attitudes, and improvement. You "
LOCATE 7, 5: PRINT "will steadily progress. Development of ideas or "
LOCATE 8, 5: PRINT "business relate to growth here. Be prepared to "
LOCATE 9, 5: PRINT "share any good fortune that comes."
LOCATE 13, 62: PRINT "EHWAZ"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to continue"
END SUB
SUB R2
SCREEN 9
COLOR 5, 7
PSET (475, 145), 5: LINE (475, 145)-(475, 65): LINE (475, 65)-(545, 85)
LINE (545, 85)-(545, 145)
COLOR 14, 7
LOCATE 3, 10: PRINT "2.Strength"
COLOR 5, 7
LOCATE 5, 5: PRINT "This rune says New Beginnings. It is part of the"
LOCATE 6, 5: PRINT "self transformation cycle. Drawing this rune "
LOCATE 7, 5: PRINT "tells you have outgrown your lifestyle. It may be"
LOCATE 8, 5: PRINT "time for a new and improved you which is more "
LOCATE 9, 5: PRINT "satisfying to you."
LOCATE 13, 62: PRINT "URUZ"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to continue"
END SUB
SUB R20
SCREEN 9
COLOR 5, 7
PSET (475, 155), 5: LINE (475, 155)-(475, 55): LINE (475, 55)-(545, 110)
PSET (545, 155), 5: LINE (545, 155)-(545, 55): LINE (545, 55)-(475, 110)
COLOR 14, 7
LOCATE 3, 10: PRINT "20.The Self "
COLOR 5, 7
LOCATE 5, 5: PRINT "You must be willing to change. In order to have "
LOCATE 6, 5: PRINT "correct relationships with others you must have a "
LOCATE 7, 5: PRINT "correct relationship to your self. Always remain "
LOCATE 8, 5: PRINT "modest, yielding and moderate to find true direction"
LOCATE 9, 5: PRINT "in your life. Keep yourself balanced in your life."
LOCATE 10, 5: PRINT "Do not do things in excess."
LOCATE 13, 62: PRINT "MANNAZ"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to continue"
END SUB
SUB R21
SCREEN 9
COLOR 5, 7
PSET (500, 145), 5: LINE (500, 145)-(500, 65): LINE (500, 65)-(530, 95)
COLOR 14, 7
LOCATE 3, 10: PRINT "21.Flow "
COLOR 5, 7
LOCATE 5, 5: PRINT "This rune urges toward the past, the flow of feel-"
LOCATE 6, 5: PRINT "ings. It lets you experience living without "
LOCATE 7, 5: PRINT "evaluating it. It lets you have desire for satis-"
LOCATE 8, 5: PRINT "faction of your emotional needs. It's time for you"
LOCATE 9, 5: PRINT "to reorganize your life."
LOCATE 13, 62: PRINT "LAGUZ"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to continue"
END SUB
SUB R22
SCREEN 9
COLOR 5, 7
PSET (480, 65), 5: LINE (480, 65)-(540, 105): LINE (540, 105)-(480, 145)
PSET (540, 65), 5: LINE (540, 65)-(480, 105): LINE (480, 105)-(540, 145)
COLOR 14, 7
LOCATE 3, 10: PRINT "22.Fertility "
COLOR 5, 7
LOCATE 5, 5: PRINT "This rune gives energy toward harmonizing of "
LOCATE 6, 5: PRINT "personal relationships. It focuses on sharing,"
LOCATE 7, 5: PRINT "the need to be desired and a search for simi-"
LOCATE 8, 5: PRINT "larities. It a rune of great power!!! It "
LOCATE 9, 5: PRINT "allows completion and resolution which lead "
LOCATE 10, 5: PRINT "to new beginnings."
LOCATE 13, 62: PRINT "INGUZ"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to continue"
END SUB
SUB R23
SCREEN 9
COLOR 5, 7
PSET (480, 145), 5: LINE (480, 145)-(540, 100): LINE (540, 100)-(510, 70)
LINE (510, 70)-(480, 100): LINE (480, 100)-(540, 145)
COLOR 14, 7
LOCATE 3, 10: PRINT "23.Retreat "
COLOR 5, 7
LOCATE 5, 5: PRINT "This is the last rune of the self-transformation "
LOCATE 6, 5: PRINT "cycle. It represents a complete transformation "
LOCATE 7, 5: PRINT "in attitude. Sometimes this change is so drastic"
LOCATE 8, 5: PRINT "it may change your ordinary way of life! Rely on"
LOCATE 9, 5: PRINT "radical trust even if you leap into the void with "
LOCATE 10, 5: PRINT "nothing. Let the right actions flow through you."
LOCATE 11, 5: PRINT "This is a time for major achievement!"
LOCATE 13, 62: PRINT "DAGAZ"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to continue"
END SUB
SUB R24
SCREEN 9
COLOR 5, 7
PSET (480, 140), 5: LINE (480, 140)-(480, 70): LINE (480, 70)-(540, 140)
LINE (540, 140)-(540, 70): LINE (540, 70)-(480, 140)
COLOR 14, 7
LOCATE 3, 10: PRINT "24.Breakthrough"
COLOR 5, 7
LOCATE 5, 5: PRINT "This is the rune of inheritance and benefits. The"
LOCATE 6, 5: PRINT "benefits may come from something you must give up"
LOCATE 7, 5: PRINT "or abandon. What you give up may also free you "
LOCATE 8, 5: PRINT "to become the person you truly want to be. It is"
LOCATE 9, 5: PRINT "time for you to discard useless relationships."
LOCATE 13, 62: PRINT "OPILA"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to continue"
END SUB
SUB R25
CLS
LOCATE 12, 10: PRINT "PROBLEM WITH CASE STATEMENT"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to continue"
V$ = INPUT$(1)
END SUB
SUB R3
SCREEN 9
COLOR 5, 7
PSET (500, 150), 5: LINE (500, 150)-(500, 60): PSET (500, 80), 5
LINE (500, 80)-(530, 102): LINE (530, 102)-(500, 124)
COLOR 14, 7
LOCATE 3, 10: PRINT "3.Gateway "
COLOR 5, 7
LOCATE 5, 5: PRINT "This rune tells you that work must be done inside"
LOCATE 6, 5: PRINT "and outside yourself. It is the rune of non-"
LOCATE 7, 5: PRINT "action. It confronts what is hidden inside "
LOCATE 8, 5: PRINT "yourself. You must be strong and wait for what- "
LOCATE 9, 5: PRINT "ever may happen. Do not make hasty decisions at "
LOCATE 10, 5: PRINT "this point."
LOCATE 13, 62: PRINT "PURISAZ"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to continue"
END SUB
SUB R4
SCREEN 9
COLOR 5, 7
PSET (500, 155), 5: LINE (500, 155)-(500, 55): LINE (500, 55)-(540, 75)
PSET (500, 85), 5: LINE (500, 85)-(540, 105)
COLOR 14, 7
LOCATE 3, 10: PRINT "4.Signals "
COLOR 5, 7
LOCATE 5, 5: PRINT "This first rune of the self-transformation cycle "
LOCATE 6, 5: PRINT "describes the receiving of messages, signals or "
LOCATE 7, 5: PRINT "gifts. It is a signal of new pathways, new "
LOCATE 8, 5: PRINT "connnections. Be particularly aware in all "
LOCATE 9, 5: PRINT "dealings with others. Provide for yourself first,"
LOCATE 10, 5: PRINT "before giving to others."
LOCATE 13, 62: PRINT "ANSUZ"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to continue"
END SUB
SUB R5
SCREEN 9
COLOR 5, 7
PSET (485, 155), 5: LINE (485, 155)-(485, 55): LINE (485, 55)-(535, 85)
LINE (535, 85)-(485, 110): LINE (485, 110)-(540, 155)
COLOR 14, 7
LOCATE 3, 10: PRINT "5.Journey "
COLOR 5, 7
LOCATE 5, 5: PRINT "Communication is the basis of this rune. Here you"
LOCATE 6, 5: PRINT "need the perfect union, a union with the self. "
LOCATE 7, 5: PRINT "You must trust your own process. Following your "
LOCATE 8, 5: PRINT "inner voice you make the right actions. Continue "
LOCATE 9, 5: PRINT "on your journey to self-knowledge."
LOCATE 13, 62: PRINT "RAIDO"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to continue"
END SUB
SUB R6
SCREEN 9
COLOR 5, 7
PSET (528, 60), 5: LINE (528, 60)-(480, 112): LINE (480, 112)-(535, 150)
COLOR 14, 7
LOCATE 3, 10: PRINT "6.Opening "
COLOR 5, 7
LOCATE 5, 5: PRINT "This is the rune of opening up. It clears away the"
LOCATE 6, 5: PRINT "dark clouds from your life. In relationships there"
LOCATE 7, 5: PRINT "should be mutual giving, understanding and respect!"
LOCATE 8, 5: PRINT "You may be limited and dependent but you are also "
LOCATE 9, 5: PRINT "confident of yourself which will help you to grow."
LOCATE 10, 5: PRINT "You are surrounded by darkness!, but now there is "
LOCATE 11, 5: PRINT "enough light to be yourself and grow inside."
LOCATE 13, 62: PRINT "KAUNAZ"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to continue"
END SUB
SUB R7
SCREEN 9
COLOR 5, 7
PSET (475, 60), 5: LINE (475, 60)-(545, 150): PSET (545, 60), 5
LINE (545, 60)-(475, 150)
COLOR 14, 7
LOCATE 3, 10: PRINT "7.Partnership "
COLOR 5, 7
LOCATE 5, 5: PRINT "Drawing this rune means a union or partnership of"
LOCATE 6, 5: PRINT "some sort is near. But do not let this partnership"
LOCATE 7, 5: PRINT "rule your life. True partnerships evolve from "
LOCATE 8, 5: PRINT "separate beings who unite, but in uniting keep their"
LOCATE 9, 5: PRINT "individuality. Open flowing partnerships are the "
LOCATE 10, 5: PRINT "ultimate form of human relations! "
LOCATE 13, 62: PRINT "GEBO"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to continue"
END SUB
SUB R8
SCREEN 9
COLOR 5, 7
PSET (500, 155), 5: LINE (500, 155)-(500, 55): LINE (500, 55)-(540, 85)
LINE (540, 85)-(500, 115)
COLOR 14, 7
LOCATE 3, 10: PRINT "8.Joy "
COLOR 5, 7
LOCATE 5, 5: PRINT "This rune finds new energy, new clarity; you may "
LOCATE 6, 5: PRINT "be asked to give up existing plans or goals. This "
LOCATE 7, 5: PRINT "is the time for you to embrace Joyfulness! You are"
LOCATE 8, 5: PRINT "now able to receive materially and emotionally. "
LOCATE 13, 62: PRINT "WUNJO"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to continue"
END SUB
SUB R9
SCREEN 9
COLOR 5, 7
PSET (480, 150), 5: LINE (480, 150)-(480, 60): PSET (540, 60), 5
LINE (540, 60)-(540, 150): PSET (540, 120), 5: LINE (540, 120)-(480, 100)
COLOR 14, 7
LOCATE 3, 10: PRINT "9.Disruption "
COLOR 5, 7
LOCATE 5, 5: PRINT "This rune signifies change, freedom, and invention."
LOCATE 6, 5: PRINT "Break free from your material reality. Things beyond"
LOCATE 7, 5: PRINT "your control will happen here. Expect disruption of"
LOCATE 8, 5: PRINT "your plans - your own nature is creating what is"
LOCATE 9, 5: PRINT "happening. Your inner strength is your guidance."
LOCATE 13, 62: PRINT "HAGALAZ"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to continue"
END SUB
SUB Rune1
CLS
SCREEN 9 'This makes 3 boxes at the bottom of the screen
COLOR 5, 7
LOCATE 6, 10:
PRINT "This tile represents your life situation, (ie. where you "
LOCATE 7, 10:
PRINT "are now, the goal you have in mind, and the main problem you "
LOCATE 8, 10:
PRINT "face in reaching that goal). When doing a reading, keep in"
LOCATE 9, 10:
PRINT "mind the area of your life that you would like some help with."
LOCATE 10, 10:
PRINT " Note - This is only meant to be used for entertainment. "
LOCATE 11, 10: PRINT "No claims of validity or accuracy of information are "
LOCATE 12, 10: PRINT "expressed or implied."
PSET (300, 190), 14: DRAW "R85D110L85U110"
LOCATE 16, 41: PRINT " GOAL"
LOCATE 20, 40: PRINT "PROBLEM"
LOCATE 18, 43: PRINT "VS"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to continue"
V$ = INPUT$(1)
RANDOMIZE VAL(RIGHT$(TIME$, 2))
LET ind = INT(RND * 24 + 1)
CALL SCRNC1A
CALL Pick
V$ = INPUT$(1)
END SUB
SUB Rune3
CLS
SCREEN 9 'This makes 3 boxes at the bottom of the screen
COLOR 5, 7
LOCATE 3, 10: PRINT "These 3 boxes represent the 3 tiles used in a reading."
LOCATE 4, 10: PRINT "They are laid out from right to left - note the numbers"
LOCATE 5, 10: PRINT "1, 2, & 3 in the lower right-hand corners of each tile."
LOCATE 6, 10: PRINT "Each tile represents an element in your life situation,"
LOCATE 7, 10: PRINT "(ie. where you are now, the goal you have in mind, and"
LOCATE 8, 10: PRINT "the main problem you face in reaching that goal. When"
LOCATE 9, 10: PRINT "doing a reading, keep in mind the area of your life that"
LOCATE 10, 10:
PRINT "you would like some help with. Note - This is only meant"
LOCATE 11, 10: PRINT "to be used for entertainment. No claims of validity or"
LOCATE 12, 10: PRINT "accuracy of information are expressed or implied."
PSET (150, 190), 14: DRAW "R85D110L85U110"
PSET (300, 190), 14: DRAW "R85D110L85U110"
PSET (450, 190), 14: DRAW "R85D110L85U110"
LOCATE 18, 21: PRINT " GOAL"
LOCATE 18, 40: PRINT "PROBLEM"
LOCATE 18, 59: PRINT "YOU NOW"
LOCATE 21, 28: PRINT "3"
LOCATE 21, 47: PRINT "2"
LOCATE 21, 66: PRINT "1"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to continue"
V$ = INPUT$(1)
X = 1
FOR ruaa = 1 TO 3
RANDOMIZE VAL(RIGHT$(TIME$, 2))
LET ind = INT(RND * 24 + 1)
IF X = 1 THEN
CALL SCRNC3A
ELSEIF X = 2 THEN
CALL SCRNC3B
ELSE X = 3
CALL SCRNC3C
END IF
CALL Pick
V$ = INPUT$(1)
X = X + 1
NEXT ruaa
END SUB
SUB Rune6
CLS
SCREEN 9
COLOR 5, 7
LOCATE 2, 5:
PRINT "The Runes are laid out in the shape of a Celtic cross for the "
LOCATE 3, 5:
PRINT "6-Rune reading. They represent 1) Significator, 2) Crossing card,"
LOCATE 4, 5:
PRINT "3) Below, 4) Past, 5) Overlooking, and 6) Ahead. They are laid out"
LOCATE 5, 5:
PRINT "as you see below. When doing a reading, keep in mind the area"
LOCATE 6, 5: PRINT "of your life that you would like some help with. "
LOCATE 7, 5:
PRINT "Note - This is only meant to be used for entertainment. No "
LOCATE 8, 5:
PRINT "claims of validity or accuracy of information are expressed "
LOCATE 9, 5: PRINT "or implied."
PSET (140, 200), 14: DRAW "R45D56L45U56"
PSET (200, 200), 14: DRAW "R45D56L45U56"
PSET (250, 200), 14: DRAW "R45D56L45U56"
PSET (310, 200), 14: DRAW "R45D56L45U56"
PSET (225, 130), 14: DRAW "R45D56L45U56"
PSET (225, 270), 14: DRAW "R45D56L45U56"
LOCATE 12, 31: PRINT "5"
LOCATE 17, 21: PRINT "4"
LOCATE 17, 28: PRINT "1"
LOCATE 17, 35: PRINT "2"
LOCATE 17, 42: PRINT "6"
LOCATE 22, 31: PRINT "3"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to continue"
V$ = INPUT$(1)
X = 1
FOR ruaa = 1 TO 6
RANDOMIZE VAL(RIGHT$(TIME$, 2))
LET ind = INT(RND * 24 + 1)
IF X = 1 THEN
CALL SCRNC6A
ELSEIF X = 2 THEN
CALL SCRNC6B
ELSEIF X = 3 THEN
CALL SCRNC6C
ELSEIF X = 4 THEN
CALL SCRNC6D
ELSEIF X = 5 THEN
CALL SCRNC6E
ELSE X = 6
CALL SCRNC6F
END IF
CALL Pick
V$ = INPUT$(1)
X = X + 1
NEXT ruaa
END SUB
SUB SCRNC1A
CLS
SCREEN 9
COLOR 5, 7
PSET (465, 50), 14: DRAW "R90D112L90U112"
END SUB
SUB SCRNC3A
CLS
SCREEN 9
COLOR 5, 7
PSET (465, 50), 14: DRAW "R90D112L90U112"
PSET (350, 235), 14: DRAW "R45D56L45U56"
PSET (430, 235), 14: DRAW "R45D56L45U56"
PSET (510, 235), 14: DRAW "R45D56L45U56"
PSET (511, 236), 14: LINE (511, 236)-(553, 289), 5, BF
LOCATE 22, 46: PRINT "Goal"
LOCATE 22, 54: PRINT "Problem"
LOCATE 22, 64: PRINT "You Now"
LOCATE 23, 67: PRINT "1"
END SUB
SUB SCRNC3B
CLS
SCREEN 9
COLOR 5, 7
PSET (465, 50), 14: DRAW "R90D112L90U112"
PSET (350, 235), 14: DRAW "R45D56L45U56"
PSET (430, 235), 14: DRAW "R45D56L45U56"
PSET (510, 235), 14: DRAW "R45D56L45U56"
PSET (511, 236), 14: LINE (511, 236)-(553, 289), 5, BF
PSET (431, 236), 14: LINE (431, 236)-(474, 289), 5, BF
LOCATE 22, 46: PRINT "Goal"
LOCATE 22, 54: PRINT "Problem"
LOCATE 22, 64: PRINT "You Now"
LOCATE 23, 67: PRINT "1": LOCATE 23, 57: PRINT "2"
END SUB
SUB SCRNC3C
CLS
SCREEN 9
COLOR 5, 7
PSET (465, 50), 14: DRAW "R90D112L90U112"
PSET (350, 235), 14: DRAW "R45D56L45U56"
PSET (430, 235), 14: DRAW "R45D56L45U56"
PSET (510, 235), 14: DRAW "R45D56L45U56"
PSET (511, 236), 14: LINE (511, 236)-(553, 289), 5, BF
PSET (431, 236), 14: LINE (431, 236)-(474, 289), 5, BF
PSET (351, 236), 14: LINE (351, 236)-(394, 289), 5, BF
LOCATE 22, 46: PRINT "Goal"
LOCATE 22, 54: PRINT "Problem"
LOCATE 22, 64: PRINT "You Now"
LOCATE 23, 67: PRINT "1": LOCATE 23, 57: PRINT "2"
LOCATE 23, 47: PRINT "3"
END SUB
SUB SCRNC6A
CLS
SCREEN 9
COLOR 5, 7
PSET (465, 50), 14: DRAW "R90D112L90U112"
PSET (485, 185), 14: DRAW "R34D40L34U40"
PSET (420, 230), 14: DRAW "R34D40L34U40"
PSET (465, 230), 14: DRAW "R34D40L34U40"
PSET (505, 230), 14: DRAW "R34D40L34U40"
PSET (550, 230), 14: DRAW "R34D40L34U40"
PSET (485, 275), 14: DRAW "R34D40L34U40"
PSET (466, 231), 14: LINE (466, 231)-(498, 269), 5, BF
LOCATE 16, 63: PRINT "5"
LOCATE 19, 20: PRINT "Significator"
LOCATE 19, 55: PRINT "4": LOCATE 19, 61: PRINT "1"
LOCATE 19, 66: PRINT "2": LOCATE 19, 71: PRINT "6"
LOCATE 22, 63: PRINT "3"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press any key to continue"
END SUB
SUB SCRNC6B
CLS
SCREEN 9
COLOR 5, 7
PSET (465, 50), 14: DRAW "R90D112L90U112"
PSET (485, 185), 14: DRAW "R34D40L34U40"
PSET (420, 230), 14: DRAW "R34D40L34U40"
PSET (465, 230), 14: DRAW "R34D40L34U40"
PSET (505, 230), 14: DRAW "R34D40L34U40"
PSET (550, 230), 14: DRAW "R34D40L34U40"
PSET (485, 275), 14: DRAW "R34D40L34U40"
PSET (506, 231), 14: LINE (506, 231)-(538, 269), 5, BF
LOCATE 16, 63: PRINT "5"
LOCATE 19, 20: PRINT "Crossing"
LOCATE 19, 55: PRINT "4": LOCATE 19, 61: PRINT "1"
LOCATE 19, 66: PRINT "2": LOCATE 19, 71: PRINT "6"
LOCATE 22, 63: PRINT "3"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press any key to continue"
END SUB
SUB SCRNC6C
CLS
SCREEN 9
COLOR 5, 7
PSET (465, 50), 14: DRAW "R90D112L90U112"
PSET (485, 185), 14: DRAW "R34D40L34U40"
PSET (420, 230), 14: DRAW "R34D40L34U40"
PSET (465, 230), 14: DRAW "R34D40L34U40"
PSET (505, 230), 14: DRAW "R34D40L34U40"
PSET (550, 230), 14: DRAW "R34D40L34U40"
PSET (485, 275), 14: DRAW "R34D40L34U40"
PSET (486, 276), 14: LINE (486, 276)-(518, 314), 5, BF
LOCATE 16, 63: PRINT "5"
LOCATE 19, 20: PRINT "Foundation"
LOCATE 19, 55: PRINT "4": LOCATE 19, 61: PRINT "1"
LOCATE 19, 66: PRINT "2": LOCATE 19, 71: PRINT "6"
LOCATE 22, 63: PRINT "3"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to continue"
END SUB
SUB SCRNC6D
CLS
SCREEN 9
COLOR 5, 7
PSET (465, 50), 14: DRAW "R90D112L90U112"
PSET (485, 185), 14: DRAW "R34D40L34U40"
PSET (420, 230), 14: DRAW "R34D40L34U40"
PSET (465, 230), 14: DRAW "R34D40L34U40"
PSET (505, 230), 14: DRAW "R34D40L34U40"
PSET (550, 230), 14: DRAW "R34D40L34U40"
PSET (485, 275), 14: DRAW "R34D40L34U40"
PSET (421, 231), 14: LINE (421, 231)-(453, 269), 5, BF
LOCATE 16, 63: PRINT "5"
LOCATE 19, 20: PRINT "Past"
LOCATE 19, 55: PRINT "4": LOCATE 19, 61: PRINT "1"
LOCATE 19, 66: PRINT "2": LOCATE 19, 71: PRINT "6"
LOCATE 22, 63: PRINT "3"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to continue"
END SUB
SUB SCRNC6E
CLS
SCREEN 9
COLOR 5, 7
PSET (465, 50), 14: DRAW "R90D112L90U112"
PSET (485, 185), 14: DRAW "R34D40L34U40"
PSET (420, 230), 14: DRAW "R34D40L34U40"
PSET (465, 230), 14: DRAW "R34D40L34U40"
PSET (505, 230), 14: DRAW "R34D40L34U40"
PSET (550, 230), 14: DRAW "R34D40L34U40"
PSET (485, 275), 14: DRAW "R34D40L34U40"
PSET (486, 186), 14: LINE (486, 186)-(518, 224), 5, BF
LOCATE 16, 63: PRINT "5"
LOCATE 19, 20: PRINT "Overlooking"
LOCATE 19, 55: PRINT "4": LOCATE 19, 61: PRINT "1"
LOCATE 19, 66: PRINT "2": LOCATE 19, 71: PRINT "6"
LOCATE 22, 63: PRINT "3"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to continue"
END SUB
SUB SCRNC6F
CLS
SCREEN 9
COLOR 5, 7
PSET (465, 50), 14: DRAW "R90D112L90U112"
PSET (485, 185), 14: DRAW "R34D40L34U40"
PSET (420, 230), 14: DRAW "R34D40L34U40"
PSET (465, 230), 14: DRAW "R34D40L34U40"
PSET (505, 230), 14: DRAW "R34D40L34U40"
PSET (550, 230), 14: DRAW "R34D40L34U40"
PSET (485, 275), 14: DRAW "R34D40L34U40"
PSET (551, 231), 14: LINE (551, 231)-(583, 269), 5, BF
LOCATE 16, 63: PRINT "5"
LOCATE 19, 20: PRINT "Future"
LOCATE 19, 55: PRINT "4": LOCATE 19, 61: PRINT "1"
LOCATE 19, 66: PRINT "2": LOCATE 19, 71: PRINT "6"
LOCATE 22, 63: PRINT "3"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to continue"
END SUB
SUB Titlescreen
CLS
SCREEN 9
COLOR 5, 7
LOCATE 7, 14: PRINT " RUNE MANIA!"
LOCATE 9, 14: PRINT " Created by Gamemaniacs Roger Bochek "
LOCATE 10, 14: PRINT " Kim Mehrdorf"
LOCATE 11, 14: PRINT " Tony Malovrh"
COLOR 14, 7
LOCATE 23, 2: PRINT "Press spacebar to continue"
V$ = INPUT$(1)
END SUB