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 >
BASIC Source File  |  1992-05-18  |  43KB  |  1,256 lines
  1. DECLARE SUB Titlescreen ()
  2. DECLARE SUB Openscreen ()
  3. DECLARE SUB Howto ()
  4. DECLARE SUB Rune1 ()
  5. DECLARE SUB Rune3 ()
  6. DECLARE SUB Rune6 ()
  7. DECLARE SUB Books ()
  8. DECLARE SUB Books2 ()
  9. DECLARE SUB History ()
  10. DECLARE SUB History2 ()
  11. DECLARE SUB Endit (y)
  12. DECLARE SUB Other ()
  13. DECLARE SUB Pick ()
  14. DECLARE SUB SCRNC1A ()
  15. DECLARE SUB SCRNC3A ()
  16. DECLARE SUB SCRNC3B ()
  17. DECLARE SUB SCRNC3C ()
  18. DECLARE SUB SCRNC6A ()
  19. DECLARE SUB SCRNC6B ()
  20. DECLARE SUB SCRNC6C ()
  21. DECLARE SUB SCRNC6D ()
  22. DECLARE SUB SCRNC6E ()
  23. DECLARE SUB SCRNC6F ()
  24. DECLARE SUB R1 ()
  25. DECLARE SUB R2 ()
  26. DECLARE SUB R3 ()
  27. DECLARE SUB R4 ()
  28. DECLARE SUB R5 ()
  29. DECLARE SUB R6 ()
  30. DECLARE SUB R7 ()
  31. DECLARE SUB R8 ()
  32. DECLARE SUB R9 ()
  33. DECLARE SUB R10 ()
  34. DECLARE SUB R11 ()
  35. DECLARE SUB R12 ()
  36. DECLARE SUB R13 ()
  37. DECLARE SUB R14 ()
  38. DECLARE SUB R15 ()
  39. DECLARE SUB R16 ()
  40. DECLARE SUB R17 ()
  41. DECLARE SUB R18 ()
  42. DECLARE SUB R19 ()
  43. DECLARE SUB R20 ()
  44. DECLARE SUB R21 ()
  45. DECLARE SUB R22 ()
  46. DECLARE SUB R23 ()
  47. DECLARE SUB R24 ()
  48. DECLARE SUB R25 ()
  49. ' *************************************************************************
  50. ' ***  This program is to be a game of sorts, using the Runic symbols   ***
  51. ' ***  to allow to participant to have a reading performed for them,    ***
  52. ' ***  using either 1, 3, or 6 numbers.  Each number is related to a    ***
  53. ' ***  particular Runic symbol or concept, and in the 3 or 6 tile read- ***
  54. ' ***  ings, the order in which the numbers are chosen determines their ***
  55. ' ***  overalll meaning in the reading.                                 ***
  56. ' *************************************************************************
  57. COMMON SHARED ind
  58. CLS
  59. CALL Titlescreen
  60. CALL Openscreen
  61. DO
  62.    CLS
  63.    SCREEN 9
  64.    COLOR 5, 7
  65.    LINE (3, 3)-(637, 347), 14, B
  66.    LINE (130, 10)-(500, 330), 14, B
  67.    LOCATE 4, 23: PRINT "RUNES - A FUN & INTERESTING GAME"
  68.    LOCATE 7, 27: PRINT "1.-> HOW TO USE THIS GAME"
  69.    LOCATE 9, 27: PRINT "2.-> 1-RUNE READING"
  70.    LOCATE 11, 27: PRINT "3.-> 3-RUNE READING"
  71.    LOCATE 13, 27: PRINT "4.-> 6-RUNE READING"
  72.    LOCATE 15, 27: PRINT "5.-> BIBLIOGRAPHY"
  73.    LOCATE 17, 27: PRINT "6.-> HISTORY"
  74.    LOCATE 19, 27: PRINT "7.-> EXIT"
  75.    LOCATE 21, 24: PRINT "MAKE YOUR SELECTION HERE -->"
  76.    LET SELCT$ = INPUT$(1)
  77.    SELECT CASE SELCT$
  78.      CASE "1"
  79.         CALL Howto
  80.      CASE "2"
  81.         CALL Rune1
  82.      CASE "3"
  83.         CALL Rune3
  84.      CASE "4"
  85.         CALL Rune6
  86.      CASE "5"
  87.         CALL Books
  88.         CALL Books2
  89.      CASE "6"
  90.         CALL History
  91.         CALL History2
  92.      CASE "7"
  93.         CALL Endit(y)
  94.      CASE ELSE
  95.         CALL Other
  96.    END SELECT
  97. LOOP UNTIL y = 1
  98. END
  99.  
  100. SUB Books
  101.    SCREEN 9
  102.    COLOR 5, 7
  103.    CLS
  104.    LOCATE 2, 5: PRINT "                           Bibliography                         "
  105.    LOCATE 4, 5:
  106.    PRINT "We have tried to keep the explanations and descriptions short and "
  107.    LOCATE 5, 5:
  108.    PRINT "positive to make this a fun and educational experience. Feel free "
  109.    LOCATE 6, 5:
  110.    PRINT "to do some more reading if you find the subject of runes to be of "
  111.    LOCATE 7, 5:
  112.    PRINT "interest.  Here is a list of books we consulted while researching "
  113.    LOCATE 8, 5: PRINT "the subject of Runes."
  114.    LOCATE 10, 10: PRINT "Atwater, P.M.A. The Magic Language of Runes."
  115.    LOCATE 11, 10: PRINT "   (Santa Fe, NM: Bear and Company 1990)."
  116.    LOCATE 12, 10: PRINT "Aswynn, Freya. Leaves of Yggdrasil"
  117.    LOCATE 13, 10: PRINT "   (St. Paul, MN: Llewellyn Publications 1990)."
  118.    LOCATE 14, 10: PRINT "Blum, Ralph. Rune Play: A Seasonal Record Book"
  119.    LOCATE 15, 10: PRINT "   (New York, Oracle Books, St. Martins Press, 1985)."
  120.    LOCATE 16, 10: PRINT "Elliot, Ralph W.V. Runes, an Introduction. "
  121.    LOCATE 17, 10: PRINT "   (Westport, CT: Greenwood Press, 1981)."
  122.    LOCATE 18, 10: PRINT "Gundarsson, Kveldulf. Teutonic Magic: The Magical "
  123.    LOCATE 19, 10: PRINT "   and Spiritual Practices of the Germanic Peoples."
  124.    LOCATE 20, 10: PRINT "   (St. Paul, MN: Llewellyn Publications, 1990)."
  125.    COLOR 14, 7
  126.    LOCATE 23, 2: PRINT "Press spacebar to continue"
  127.    V$ = INPUT$(1)
  128. END SUB
  129.  
  130. SUB Books2
  131.    CLS
  132.    COLOR 5, 7
  133.    LOCATE 3, 20: PRINT "Bibliography - continued "
  134.    LOCATE 5, 10: PRINT "Peterson, James M. The Enchanted Alphabet. "
  135.    LOCATE 6, 10: PRINT "   (Northamptonshire: The Aquarian Press, 1988)."
  136.    LOCATE 7, 10: PRINT "Stephens, G. Handbook of the old northern runic "
  137.    LOCATE 8, 10: PRINT "   monuments of Scandinavia and England. (1884)"
  138.    LOCATE 9, 10:
  139.    PRINT "Thorsson Edred, Runelore - A handbook of esoteric runology."
  140.    LOCATE 10, 10: PRINT "   (York Beach, ME: S. Weiser, 1987)."
  141.    LOCATE 11, 10: PRINT "Willis, Tony. The Runic Workbook. "
  142.    LOCATE 12, 10: PRINT "   (Northamptonshire: The Aquarian Press, 1987)."
  143.    COLOR 14, 7
  144.    LOCATE 23, 2: PRINT "Press spacebar to continue"
  145.    V$ = INPUT$(1)
  146. END SUB
  147.  
  148. SUB Endit (y)
  149.   SCREEN 9
  150.   COLOR 5, 7
  151.   CLS
  152.   LOCATE 5, 10: PRINT "Thank you for playing Rune Mania!  If you enjoyed it,"
  153.   LOCATE 7, 10: PRINT "feel free to send a $20 bill with your ideas"
  154.   LOCATE 9, 10: PRINT "written on the back of it, to:"
  155.   LOCATE 13, 20: PRINT "Rune Mania! Headquarters"
  156.   LOCATE 14, 20: PRINT "6407 W Powell Pl"
  157.   LOCATE 15, 20: PRINT "Wauwatosa WI 53213"
  158.   LOCATE 19, 10: PRINT "Your contributions will help us to devote ourselves to"
  159.   LOCATE 21, 10: PRINT "developing more exciting Mania! games!!!!!"
  160.   COLOR 14, 7
  161.   LOCATE 23, 2: PRINT "Press spacebar to EXIT"
  162.   V$ = INPUT$(1)
  163.   y = 1
  164. END SUB
  165.  
  166. SUB History
  167.   SCREEN 9
  168.   COLOR 5, 7
  169.   CLS
  170.   LOCATE 2, 5:
  171.   PRINT "  The Runic writing system was invented no later than the second "
  172.   LOCATE 3, 5:
  173.   PRINT "century AD, hundreds of years before the Viking era began.  From"
  174.   LOCATE 4, 5:
  175.   PRINT "their point of origin, on Jutland, the Danish peninsula, the runes"
  176.   LOCATE 5, 5:
  177.   PRINT "spread throughout the Germanic people.  These Germanic tribes were"
  178.   LOCATE 6, 5:
  179.   PRINT "the ancestors of the modern Scandinavians, Germans, Dutch, and English"
  180.   LOCATE 7, 5:
  181.   PRINT "In their early forms all these languages continued to be written in "
  182.   LOCATE 8, 5: PRINT "runes as they evolved away from each other."
  183.   LOCATE 9, 5:
  184.   PRINT "   Our word 'alphabet' comes from 'alpha' and 'beta', the Greek words"
  185.   LOCATE 10, 5:
  186.   PRINT "for the first two letters, A and B.  In a similar way, the runes are"
  187.   LOCATE 11, 5:
  188.   PRINT "sometimes known as the 'Futhark' from the pronunciation of the first"
  189.   LOCATE 12, 5: PRINT "six characters in their conventional order."
  190.   LOCATE 13, 5:
  191.   PRINT "   To the ancient Germanic peoples, the world was a magical place, "
  192.   LOCATE 14, 5:
  193.   PRINT "a place far different from the inert, mechanical universe which their"
  194.   LOCATE 15, 5:
  195.   PRINT "descendants inhabit.  In addition to the major gods, there were other"
  196.   LOCATE 16, 5:
  197.   PRINT "strange beings and mysterious forces abroad in the land in those days."
  198.   LOCATE 17, 5:
  199.   PRINT "  The Germanic tribes had amoung them various classes of holy "
  200.   LOCATE 18, 5:
  201.   PRINT "persons, sorcerers, and foretellers of the future.  The ones with the"
  202.   LOCATE 19, 5:
  203.   PRINT "greatest power - especially in the early days of the culture - were "
  204.   LOCATE 20, 5:
  205.   PRINT "those who had sought out contact with the spirit world through a"
  206.   LOCATE 21, 5: PRINT "vision quest. "
  207.   COLOR 14, 7
  208.   LOCATE 23, 2: PRINT "Press spacebar to continue"
  209.   V$ = INPUT$(1)
  210. END SUB
  211.  
  212. SUB History2
  213.  CLS
  214.  COLOR 5, 7
  215.  LOCATE 3, 5:
  216.  PRINT "   Rune divination or sortilege was called Hlauter.  This word has"
  217.  LOCATE 4, 5:
  218.  PRINT "roots in common with the English 'lot', in the sense of 'drawing "
  219.  LOCATE 5, 5:
  220.  PRINT "lots'.  The two parts of the fortune-telling process are the shaking"
  221.  LOCATE 6, 5: PRINT "(hrista) and the choosing (kiosa) of the hlaut-vid."
  222.  LOCATE 7, 5:
  223.  PRINT "   The first rune to be drawn defines the present situation and the "
  224.  LOCATE 8, 5:
  225.  PRINT "third a potential outcome, while the second describes the process or"
  226.  LOCATE 9, 5:
  227.  PRINT "action by which the situation of the first rune might evolve into the"
  228.  LOCATE 10, 5: PRINT "outcome pictured in the third."
  229.  LOCATE 13, 20: PRINT "LATHU ALUGOD  >      I  Summon  Good  Magic   "
  230.  LOCATE 16, 5:
  231.  PRINT "Note: it is worthwhile to note that the traditional three-rune reading"
  232.  LOCATE 17, 5:
  233.  PRINT "is capable of generating 12,144 different messages from a 24-character"
  234.  LOCATE 18, 5: PRINT "set."
  235.  COLOR 14, 7
  236.  LOCATE 23, 2: PRINT "Press spacebar for Menu"
  237.  V$ = INPUT$(1)
  238. END SUB
  239.  
  240. SUB Howto
  241.    SCREEN 9
  242.    COLOR 14, 7
  243.    CLS
  244.    LOCATE 2, 20: PRINT "How to play ...RUNE MANIA!"
  245.    COLOR 5, 7
  246.    LOCATE 4, 5:
  247.    PRINT "   Choose either 1-Rune, 3-Rune or 6-Rune selections.  Each will"
  248.    LOCATE 5, 5:
  249.    PRINT "include a short explanation, but in all cases try to have a question"
  250.    LOCATE 6, 5:
  251.    PRINT "in mind when you make your selection.  The answer that you get may be"
  252.    LOCATE 7, 5:
  253.    PRINT "to a question you didn't ask, perhaps relating to something else that"
  254.    LOCATE 8, 5:
  255.    PRINT "is bothering you.  Relax, keep an open mind, and take time to read "
  256.    LOCATE 9, 5:
  257.    PRINT "each screen and think about it.  Pressing the spacebar will take you "
  258.    LOCATE 10, 5:
  259.    PRINT "to the next screen or return you to the Main Menu, except number 7, "
  260.    LOCATE 11, 5: PRINT "which will exit the program.  Enjoy!!!"
  261.    COLOR 14, 7
  262.    LOCATE 23, 2: PRINT "Press spacebar to return to MENU"
  263.    V$ = INPUT$(1)
  264. END SUB
  265.  
  266. SUB Openscreen
  267. CLS
  268. SCREEN 9
  269. COLOR 5, 7
  270.  
  271. PSET (35, 12), 11: DRAW "R45D56L45U56"
  272. PSET (100, 12), 11: DRAW "R45D56L45U56"
  273. PSET (165, 12), 11: DRAW "R45D56L45U56"
  274. PSET (230, 12), 11: DRAW "R45D56L45U56"
  275. PSET (295, 12), 11: DRAW "R45D56L45U56"
  276. PSET (360, 12), 11: DRAW "R45D56L45U56"
  277. PSET (425, 12), 11: DRAW "R45D56L45U56"
  278. PSET (495, 12), 11: DRAW "R45D56L45U56"
  279.  
  280. PSET (35, 95), 11: DRAW "R45D56L45U56"
  281. PSET (100, 95), 11: DRAW "R45D56L45U56"
  282. PSET (165, 95), 11: DRAW "R45D56L45U56"
  283. PSET (230, 95), 11: DRAW "R45D56L45U56"
  284. PSET (295, 95), 11: DRAW "R45D56L45U56"
  285. PSET (360, 95), 11: DRAW "R45D56L45U56"
  286. PSET (425, 95), 11: DRAW "R45D56L45U56"
  287. PSET (495, 95), 11: DRAW "R45D56L45U56"
  288.  
  289. PSET (35, 180), 11: DRAW "R45D56L45U56"
  290. PSET (100, 180), 11: DRAW "R45D56L45U56"
  291. PSET (165, 180), 11: DRAW "R45D56L45U56"
  292. PSET (230, 180), 11: DRAW "R45D56L45U56"
  293. PSET (295, 180), 11: DRAW "R45D56L45U56"
  294. PSET (360, 180), 11: DRAW "R45D56L45U56"
  295. PSET (425, 180), 11: DRAW "R45D56L45U56"
  296. PSET (495, 180), 11: DRAW "R45D56L45U56"
  297.  
  298. PSET (50, 64), 11: LINE (50, 64)-(50, 16): PSET (50, 45)
  299. LINE (50, 45)-(70, 20): PSET (50, 33), 11: LINE (50, 33)-(65, 16)
  300.  
  301. PSET (105, 65), 11: LINE (105, 65)-(105, 15): LINE (105, 15)-(135, 25)
  302. LINE (135, 25)-(135, 65)
  303.  
  304. PSET (185, 15), 11: LINE (185, 15)-(185, 65): PSET (185, 28)
  305. LINE (185, 28)-(200, 40): LINE (200, 40)-(185, 52)
  306.  
  307. PSET (242, 65), 11: LINE (242, 65)-(242, 15): LINE (242, 15)-(270, 37)
  308. PSET (242, 32), 11: LINE (242, 32)-(260, 47)
  309.  
  310. PSET (310, 65), 11: LINE (310, 65)-(310, 15): LINE (310, 15)-(335, 27)
  311. LINE (335, 27)-(310, 40): LINE (310, 40)-(335, 65)
  312.  
  313. PSET (393, 25), 11: LINE (393, 25)-(373, 39): LINE (373, 39)-(393, 54)
  314.  
  315. PSET (435, 15), 11: LINE (435, 15)-(460, 65)
  316. PSET (435, 65), 11: LINE (435, 65)-(460, 15)
  317.  
  318. PSET (510, 64), 11: LINE (510, 64)-(510, 16): LINE (510, 16)-(535, 28)
  319. LINE (535, 28)-(510, 40)
  320.  
  321. PSET (40, 98), 11: LINE (40, 98)-(40, 147): PSET (75, 98), 11
  322. LINE (75, 98)-(75, 147): PSET (75, 133), 11: LINE (75, 133)-(40, 115)
  323.  
  324. PSET (125, 97), 11: LINE (125, 97)-(125, 147)
  325. PSET (105, 102), 11: LINE (105, 102)-(135, 132)
  326.  
  327. PSET (187, 97), 11: LINE (187, 97)-(187, 147)
  328.  
  329. PSET (252, 100), 11: LINE (252, 100)-(252, 145): PSET (252, 132), 11
  330. LINE (252, 132)-(240, 119): LINE (240, 119)-(252, 110)
  331. LINE (252, 110)-(265, 119): LINE (265, 119)-(252, 132)
  332.  
  333. PSET (303, 130), 11: LINE (303, 130)-(317, 145): LINE (317, 145)-(317, 100)
  334. LINE (317, 100)-(332, 115)
  335.  
  336. PSET (400, 147), 11: LINE (400, 147)-(385, 137): LINE (385, 137)-(365, 142)
  337. LINE (365, 142)-(365, 102): LINE (365, 102)-(385, 107): LINE (385, 107)-(400, 97)
  338.  
  339. PSET (447, 97), 11: LINE (447, 97)-(447, 147): PSET (465, 97), 11
  340. LINE (465, 97)-(447, 120): LINE (447, 120)-(430, 97)
  341.  
  342. PSET (530, 100), 11: LINE (530, 100)-(505, 115): LINE (505, 115)-(530, 130)
  343. LINE (530, 130)-(505, 145)
  344.  
  345. PSET (57, 233), 11: LINE (57, 233)-(57, 183): LINE (57, 183)-(40, 203)
  346. PSET (57, 183), 11: LINE (57, 183)-(74, 203)
  347.  
  348. PSET (110, 182), 11: LINE (110, 182)-(110, 234): LINE (110, 234)-(135, 221)
  349. LINE (135, 221)-(110, 208): LINE (110, 208)-(135, 195): LINE (135, 195)-(110, 182)
  350.  
  351. PSET (170, 233), 11: LINE (170, 233)-(170, 183): LINE (170, 183)-(188, 203)
  352. LINE (188, 203)-(205, 183): LINE (205, 183)-(205, 233)
  353.  
  354. PSET (235, 233), 11: LINE (235, 233)-(235, 183): LINE (235, 183)-(270, 200)
  355. PSET (270, 233), 11: LINE (270, 233)-(270, 183): LINE (270, 183)-(235, 200)
  356.  
  357. PSET (317, 230), 11: LINE (317, 230)-(317, 185): LINE (317, 185)-(332, 200)
  358.  
  359. PSET (365, 183), 11: LINE (365, 183)-(400, 208): LINE (400, 208)-(365, 233)
  360. PSET (400, 183), 11: LINE (400, 183)-(365, 208): LINE (365, 208)-(400, 233)
  361.  
  362. PSET (436, 230), 11: LINE (436, 230)-(460, 200): LINE (460, 200)-(448, 185)
  363. LINE (448, 185)-(436, 200): LINE (436, 200)-(460, 230)
  364.  
  365. PSET (500, 231), 11: LINE (500, 231)-(500, 185): LINE (500, 185)-(535, 231)
  366. LINE (535, 231)-(535, 185): LINE (535, 185)-(500, 231)
  367.  
  368. LOCATE 6, 6: PRINT "Fehu"
  369. LOCATE 6, 14: PRINT "Uruz"
  370. LOCATE 6, 21: PRINT "Purisaz"
  371. LOCATE 6, 30: PRINT "Ansuz"
  372. LOCATE 6, 38: PRINT "Raidho"
  373. LOCATE 6, 46: PRINT "Kaunaz"
  374. LOCATE 6, 55: PRINT "Gebo"
  375. LOCATE 6, 63: PRINT "Wunjo"
  376.  
  377. LOCATE 12, 5: PRINT "Hagalaz"
  378. LOCATE 12, 14: PRINT "Naupiz"
  379. LOCATE 12, 22: PRINT "Isa"
  380. LOCATE 12, 30: PRINT "Jera"
  381. LOCATE 12, 38: PRINT "Eihwaz"
  382. LOCATE 12, 46: PRINT "Pethro"
  383. LOCATE 12, 55: PRINT "Algiz"
  384. LOCATE 12, 63: PRINT "Sowilo"
  385.  
  386. LOCATE 18, 5: PRINT "Teiwaz"
  387. LOCATE 18, 13: PRINT "Berkana"
  388. LOCATE 18, 22: PRINT "Ehwaz"
  389. LOCATE 18, 30: PRINT "Mannaz"
  390. LOCATE 18, 38: PRINT "Laguz"
  391. LOCATE 18, 46: PRINT "Inguz"
  392. LOCATE 18, 55: PRINT "Dagaz"
  393. LOCATE 18, 63: PRINT "Opila"
  394.  
  395. LOCATE 20, 15: PRINT "A graphic presentation of the 24 Runes,"
  396. LOCATE 21, 15: PRINT "    Left to Right, Top to Bottom"
  397. COLOR 14, 7
  398. LOCATE 23, 2: PRINT "Press spacebar to continue"
  399. V$ = INPUT$(1)
  400. END SUB
  401.  
  402. SUB Other
  403.    SCREEN 9
  404.    COLOR 5, 7
  405.    CLS
  406.    LOCATE 10, 10: PRINT "PLEASE SELECT ONLY 1, 2, 3, 4, 5, 6 OR 7 !"
  407.    COLOR 14, 7
  408.    LOCATE 20, 10: PRINT "Press spacebar to return to MENU"
  409.    V$ = INPUT$(1)
  410. END SUB
  411.  
  412. SUB Pick
  413.   SELECT CASE ind
  414.      CASE 1
  415.         CALL R1
  416.      CASE 2
  417.         CALL R2
  418.      CASE 3
  419.         CALL R3
  420.      CASE 4
  421.         CALL R4
  422.      CASE 5
  423.         CALL R5
  424.      CASE 6
  425.         CALL R6
  426.      CASE 7
  427.         CALL R7
  428.      CASE 8
  429.         CALL R8
  430.      CASE 9
  431.         CALL R9
  432.      CASE 10
  433.         CALL R10
  434.      CASE 11
  435.         CALL R11
  436.      CASE 12
  437.         CALL R12
  438.      CASE 13
  439.         CALL R13
  440.      CASE 14
  441.         CALL R14
  442.      CASE 15
  443.         CALL R15
  444.      CASE 16
  445.         CALL R16
  446.      CASE 17
  447.         CALL R17
  448.      CASE 18
  449.         CALL R18
  450.      CASE 19
  451.         CALL R19
  452.      CASE 20
  453.         CALL R20
  454.      CASE 21
  455.         CALL R21
  456.      CASE 22
  457.         CALL R22
  458.      CASE 23
  459.         CALL R23
  460.      CASE 24
  461.         CALL R24
  462.      CASE ELSE
  463.         CALL R25
  464.   END SELECT
  465. END SUB
  466.  
  467. SUB R1
  468. SCREEN 9
  469. COLOR 5, 7
  470. PSET (500, 150), 5: LINE (500, 150)-(500, 60): PSET (500, 85), 5
  471. LINE (500, 85)-(535, 65): PSET (500, 105), 5: LINE (500, 105)-(535, 85)
  472. COLOR 14, 7
  473. LOCATE 3, 10: PRINT "1.Possessions "
  474. COLOR 5, 7
  475. LOCATE 5, 5: PRINT "This is the rune of fulfillment: your career being"
  476. LOCATE 6, 5: PRINT "satisfied, love fulfilled and rewards given.  Look"
  477. LOCATE 7, 5: PRINT "deep into your life here to see what you need for "
  478. LOCATE 8, 5: PRINT "your well being. Is it wealth or self-rule?  Enjoy"
  479. LOCATE 9, 5: PRINT "what you have but be able to share it with others."
  480. LOCATE 10, 5: PRINT "This can make life more fulfilling for you."
  481. LOCATE 13, 62: PRINT "FEHU"
  482. COLOR 14, 7
  483. LOCATE 23, 2: PRINT "Press spacebar to continue"
  484. END SUB
  485.  
  486. SUB R10
  487. SCREEN 9
  488. COLOR 5, 7
  489. PSET (510, 150), 5: LINE (510, 150)-(510, 60): PSET (535, 120), 5
  490. LINE (535, 120)-(480, 90)
  491. COLOR 14, 7
  492. LOCATE 3, 10: PRINT "10.Constraint"
  493. COLOR 5, 7
  494. LOCATE 5, 5: PRINT "This rune is the rune of severe constraint. It has"
  495. LOCATE 6, 5: PRINT "a positive and a negative side.  The positive side"
  496. LOCATE 7, 5: PRINT "is the limitations we set for ourselves.  The nega-"
  497. LOCATE 8, 5: PRINT "tive side is the limitations that are set by others."
  498. LOCATE 9, 5: PRINT "This stone lets you take your setbacks and troubles"
  499. LOCATE 10, 5: PRINT "of your life and use them as guides to your new "
  500. LOCATE 11, 5: PRINT "development. "
  501. LOCATE 13, 62: PRINT "NAUPIZ"
  502. COLOR 14, 7
  503. LOCATE 23, 2: PRINT "Press spacebar to continue"
  504. END SUB
  505.  
  506. SUB R11
  507. SCREEN 9
  508. COLOR 5, 7
  509. PSET (510, 150), 5: LINE (510, 150)-(510, 60)
  510. COLOR 14, 7
  511. LOCATE 3, 10: PRINT "11.Standstill"
  512. COLOR 5, 7
  513. LOCATE 5, 5: PRINT "This rune may leave you powerless.  You may have "
  514. LOCATE 6, 5: PRINT "to submit, surrender or sacrifice a long awaited "
  515. LOCATE 7, 5: PRINT "desire.  It proceeds rebirth.  It is time to re-"
  516. LOCATE 8, 5: PRINT "lease the thing that makes you feel out of touch "
  517. LOCATE 9, 5: PRINT "with life.  Clean away the old and useless.  "
  518. LOCATE 10, 5: PRINT "Surrendering or letting go here will give you "
  519. LOCATE 11, 5: PRINT "courage and wisdom."
  520. LOCATE 13, 62: PRINT "ISA"
  521. COLOR 14, 7
  522. LOCATE 23, 2: PRINT "Press spacebar to continue"
  523. END SUB
  524.  
  525. SUB R12
  526. SCREEN 9
  527. COLOR 5, 7
  528. PSET (510, 65), 5: LINE (510, 65)-(545, 90): LINE (545, 90)-(520, 115)
  529. PSET (512, 95), 5: LINE (512, 95)-(485, 125): LINE (485, 125)-(520, 145)
  530. COLOR 14, 7
  531. LOCATE 3, 10: PRINT "12.Harvest"
  532. COLOR 5, 7
  533. LOCATE 5, 5: PRINT "This is the rune of good outcomes.  It encourages"
  534. LOCATE 6, 5: PRINT "you to keep up your spirits . There can be no   "
  535. LOCATE 7, 5: PRINT "quick results.  You must go through a full cycle "
  536. LOCATE 8, 5: PRINT "before expected gains can be received.  Patience "
  537. LOCATE 9, 5: PRINT "is essential here.   It leads you to recognize "
  538. LOCATE 10, 5: PRINT "your own process."
  539. LOCATE 13, 62: PRINT "JERA"
  540. COLOR 14, 7
  541. LOCATE 23, 2: PRINT "Press spacebar to continue"
  542. END SUB
  543.  
  544. SUB R13
  545. SCREEN 9
  546. COLOR 5, 7
  547. PSET (545, 85), 5: LINE (545, 85)-(510, 60): LINE (510, 60)-(510, 150)
  548. LINE (510, 150)-(475, 125)
  549. COLOR 14, 7
  550. LOCATE 3, 10: PRINT "13.Defense"
  551. COLOR 5, 7
  552. LOCATE 5, 5: PRINT "This rune offers patience as a counsel.  There may"
  553. LOCATE 6, 5: PRINT "be some things blocking your path but a delay "
  554. LOCATE 7, 5: PRINT "may be advantageous.  This is not a time to push "
  555. LOCATE 8, 5: PRINT "things.  This rune suggests a time of waiting. "
  556. LOCATE 9, 5: PRINT "Avoid dificulties through right action.  Through"
  557. LOCATE 10, 5: PRINT "inconvenience growth may be obtained."
  558. LOCATE 13, 62: PRINT "EIHWAZ"
  559. COLOR 14, 7
  560. LOCATE 23, 2: PRINT "Press spacebar to continue"
  561. END SUB
  562.  
  563. SUB R14
  564. SCREEN 9
  565. COLOR 5, 7
  566. PSET (545, 60), 5: LINE (545, 60)-(515, 75): LINE (515, 75)-(485, 60)
  567. LINE (485, 60)-(485, 150): LINE (485, 150)-(515, 135)
  568. LINE (515, 135)-(545, 150)
  569. COLOR 14, 7
  570. LOCATE 3, 10: PRINT "14.Initiation"
  571. COLOR 5, 7
  572. LOCATE 5, 5: PRINT "This rune is the unknowable.  It is mystical and "
  573. LOCATE 6, 5: PRINT "heavenly. You may receive surprises or unexpected"
  574. LOCATE 7, 5: PRINT "gains. It is the rune of question.  Freedom is the"
  575. LOCATE 8, 5: PRINT "keyword for this rune. "
  576. LOCATE 13, 62: PRINT "PERTHRO"
  577. COLOR 14, 7
  578. LOCATE 23, 2: PRINT "Press spacebar to continue"
  579. END SUB
  580.  
  581. SUB R15
  582. SCREEN 9
  583. COLOR 5, 7
  584. PSET (510, 65), 5: LINE (510, 65)-(510, 145): PSET (485, 65), 5
  585. LINE (485, 65)-(510, 95): LINE (510, 95)-(540, 65)
  586. COLOR 14, 7
  587. LOCATE 3, 10: PRINT "15.Protection"
  588. COLOR 5, 7
  589. LOCATE 5, 5: PRINT "This is a good time to have control of your emo-"
  590. LOCATE 6, 5: PRINT "tions.  Do not absorb yourself into your emotional"
  591. LOCATE 7, 5: PRINT "highs or lows.  This is a time of new opportunities"
  592. LOCATE 8, 5: PRINT "and challenges; with these will come unwanted "
  593. LOCATE 9, 5: PRINT "influences.  Keep open space around you for protec-"
  594. LOCATE 10, 5: PRINT "tion.  Remain mindful, have timely actions and "
  595. LOCATE 11, 5: PRINT "correct conduct.  Do not deny what is happening "
  596. LOCATE 12, 5: PRINT "around you.  Knowing that you will progress is"
  597. LOCATE 13, 5: PRINT "your best protection."
  598. LOCATE 13, 62: PRINT "ALGIZ"
  599. COLOR 14, 7
  600. LOCATE 23, 2: PRINT "Press spacebar to continue"
  601. END SUB
  602.  
  603. SUB R16
  604. SCREEN 9
  605. COLOR 5, 7
  606. PSET (530, 65), 5: LINE (530, 65)-(485, 105): LINE (485, 105)-(540, 105)
  607. LINE (540, 105)-(500, 145)
  608. COLOR 14, 7
  609. LOCATE 3, 10: PRINT "15.Wholeness"
  610. COLOR 5, 7
  611. LOCATE 5, 5: PRINT "This rune symbolizes wholeness.  It lets you see "
  612. LOCATE 6, 5: PRINT "self-realization by using your individuality. This"
  613. LOCATE 7, 5: PRINT "is your personal myth.  It's what you've always "
  614. LOCATE 8, 5: PRINT "wanted to be but in essence what you already are."
  615. LOCATE 9, 5: PRINT "This is your goal."
  616. LOCATE 13, 62: PRINT "SOWILO"
  617. COLOR 14, 7
  618. LOCATE 23, 2: PRINT "Press spacebar to continue"
  619. END SUB
  620.  
  621. SUB R17
  622. SCREEN 9
  623. COLOR 5, 7
  624. PSET (510, 60), 5: LINE (510, 60)-(510, 155): PSET (485, 100), 5
  625. LINE (485, 100)-(510, 60): LINE (510, 60)-(535, 100)
  626. COLOR 14, 7
  627. LOCATE 3, 10: PRINT "17. Warrior"
  628. COLOR 5, 7
  629. LOCATE 5, 5: PRINT "This is the rune of the battle within yourself.  "
  630. LOCATE 6, 5: PRINT "Stay out of your own way and let  your own spirit"
  631. LOCATE 7, 5: PRINT "flow through you.  Patience is the virtue of this"
  632. LOCATE 8, 5: PRINT "rune.  Molding your character is it's lesson. Look"
  633. LOCATE 9, 5: PRINT "deep inside to find the foundations of your life."
  634. LOCATE 10, 5: PRINT "There you can find your deepest needs and deal "
  635. LOCATE 11, 5: PRINT "with them.  This rune strengthens you for the "
  636. LOCATE 12, 5: PRINT "battle with yourself."
  637. LOCATE 13, 62: PRINT "TEIWAZ"
  638. COLOR 14, 7
  639. LOCATE 23, 2: PRINT "Press spacebar to continue"
  640. END SUB
  641.  
  642. SUB R18
  643. SCREEN 9
  644. COLOR 5, 7
  645. PSET (490, 60), 5: LINE (490, 60)-(490, 155): LINE (490, 154)-(530, 132)
  646. LINE (530, 132)-(490, 109): LINE (490, 109)-(530, 86): LINE (530, 86)-(490, 60)
  647. COLOR 14, 7
  648. LOCATE 3, 10: PRINT "18. Growth"
  649. COLOR 5, 7
  650. LOCATE 5, 5: PRINT "This is a rune of the self-transformation cycle. It"
  651. LOCATE 6, 5: PRINT "promotes growth - of the family, affairs of the "
  652. LOCATE 7, 5: PRINT "world or the relationship with the divine. "
  653. LOCATE 8, 5: PRINT "It is gentle in it's action.  Go into things deeply,"
  654. LOCATE 9, 5: PRINT "but use caution. Always remain modest, have"
  655. LOCATE 10, 5: PRINT "patience, be fair and be generous - if you hold"
  656. LOCATE 11, 5: PRINT "these virtues growth will occur."
  657. LOCATE 13, 62: PRINT "BERKANA"
  658. COLOR 14, 7
  659. LOCATE 23, 2: PRINT "Press spacebar to continue"
  660. END SUB
  661.  
  662. SUB R19
  663. SCREEN 9
  664. COLOR 5, 7
  665. PSET (480, 145), 5: LINE (480, 145)-(480, 65): LINE (480, 65)-(510, 95)
  666. LINE (510, 95)-(540, 65): LINE (540, 65)-(540, 145)
  667. COLOR 14, 7
  668. LOCATE 3, 10: PRINT "19. Movement"
  669. COLOR 5, 7
  670. LOCATE 5, 5: PRINT "This is the rune of transition.  It is a time for"
  671. LOCATE 6, 5: PRINT "movement, new attitudes, and improvement.  You  "
  672. LOCATE 7, 5: PRINT "will steadily progress.  Development of ideas or "
  673. LOCATE 8, 5: PRINT "business relate to growth here.  Be prepared to "
  674. LOCATE 9, 5: PRINT "share any good fortune that comes."
  675. LOCATE 13, 62: PRINT "EHWAZ"
  676. COLOR 14, 7
  677. LOCATE 23, 2: PRINT "Press spacebar to continue"
  678. END SUB
  679.  
  680. SUB R2
  681. SCREEN 9
  682. COLOR 5, 7
  683. PSET (475, 145), 5: LINE (475, 145)-(475, 65): LINE (475, 65)-(545, 85)
  684. LINE (545, 85)-(545, 145)
  685. COLOR 14, 7
  686. LOCATE 3, 10: PRINT "2.Strength"
  687. COLOR 5, 7
  688. LOCATE 5, 5: PRINT "This rune says New Beginnings.  It is part of the"
  689. LOCATE 6, 5: PRINT "self transformation cycle.  Drawing this rune    "
  690. LOCATE 7, 5: PRINT "tells you have outgrown your lifestyle.  It may be"
  691. LOCATE 8, 5: PRINT "time for a new and improved you which is more     "
  692. LOCATE 9, 5: PRINT "satisfying to you."
  693. LOCATE 13, 62: PRINT "URUZ"
  694. COLOR 14, 7
  695. LOCATE 23, 2: PRINT "Press spacebar to continue"
  696. END SUB
  697.  
  698. SUB R20
  699. SCREEN 9
  700. COLOR 5, 7
  701. PSET (475, 155), 5: LINE (475, 155)-(475, 55): LINE (475, 55)-(545, 110)
  702. PSET (545, 155), 5: LINE (545, 155)-(545, 55): LINE (545, 55)-(475, 110)
  703. COLOR 14, 7
  704. LOCATE 3, 10: PRINT "20.The Self "
  705. COLOR 5, 7
  706. LOCATE 5, 5: PRINT "You must be willing to change.  In order to have "
  707. LOCATE 6, 5: PRINT "correct relationships with others you must have a "
  708. LOCATE 7, 5: PRINT "correct relationship to your self.  Always remain "
  709. LOCATE 8, 5: PRINT "modest, yielding and moderate to find true direction"
  710. LOCATE 9, 5: PRINT "in your life.  Keep yourself balanced in your life."
  711. LOCATE 10, 5: PRINT "Do not do things in excess."
  712. LOCATE 13, 62: PRINT "MANNAZ"
  713. COLOR 14, 7
  714. LOCATE 23, 2: PRINT "Press spacebar to continue"
  715. END SUB
  716.  
  717. SUB R21
  718. SCREEN 9
  719. COLOR 5, 7
  720. PSET (500, 145), 5: LINE (500, 145)-(500, 65): LINE (500, 65)-(530, 95)
  721. COLOR 14, 7
  722. LOCATE 3, 10: PRINT "21.Flow "
  723. COLOR 5, 7
  724. LOCATE 5, 5: PRINT "This rune urges toward the past, the flow of feel-"
  725. LOCATE 6, 5: PRINT "ings.  It lets you experience living without "
  726. LOCATE 7, 5: PRINT "evaluating it.  It lets you have desire for satis-"
  727. LOCATE 8, 5: PRINT "faction of your emotional needs. It's time for you"
  728. LOCATE 9, 5: PRINT "to reorganize your life."
  729. LOCATE 13, 62: PRINT "LAGUZ"
  730. COLOR 14, 7
  731. LOCATE 23, 2: PRINT "Press spacebar to continue"
  732. END SUB
  733.  
  734. SUB R22
  735. SCREEN 9
  736. COLOR 5, 7
  737. PSET (480, 65), 5: LINE (480, 65)-(540, 105): LINE (540, 105)-(480, 145)
  738. PSET (540, 65), 5: LINE (540, 65)-(480, 105): LINE (480, 105)-(540, 145)
  739. COLOR 14, 7
  740. LOCATE 3, 10: PRINT "22.Fertility "
  741. COLOR 5, 7
  742. LOCATE 5, 5: PRINT "This rune gives energy toward harmonizing of "
  743. LOCATE 6, 5: PRINT "personal relationships.  It focuses on sharing,"
  744. LOCATE 7, 5: PRINT "the need to be desired and a search for simi-"
  745. LOCATE 8, 5: PRINT "larities.  It a rune of great power!!!  It "
  746. LOCATE 9, 5: PRINT "allows completion and resolution which lead "
  747. LOCATE 10, 5: PRINT "to new beginnings."
  748. LOCATE 13, 62: PRINT "INGUZ"
  749. COLOR 14, 7
  750. LOCATE 23, 2: PRINT "Press spacebar to continue"
  751. END SUB
  752.  
  753. SUB R23
  754. SCREEN 9
  755. COLOR 5, 7
  756. PSET (480, 145), 5: LINE (480, 145)-(540, 100): LINE (540, 100)-(510, 70)
  757. LINE (510, 70)-(480, 100): LINE (480, 100)-(540, 145)
  758. COLOR 14, 7
  759. LOCATE 3, 10: PRINT "23.Retreat "
  760. COLOR 5, 7
  761. LOCATE 5, 5: PRINT "This is the last rune of the self-transformation "
  762. LOCATE 6, 5: PRINT "cycle.  It represents a complete transformation "
  763. LOCATE 7, 5: PRINT "in attitude.  Sometimes this change is so drastic"
  764. LOCATE 8, 5: PRINT "it may change your ordinary way of life!  Rely on"
  765. LOCATE 9, 5: PRINT "radical trust even if you leap into the void with "
  766. LOCATE 10, 5: PRINT "nothing.  Let the right actions flow through you."
  767. LOCATE 11, 5: PRINT "This is a time for major achievement!"
  768. LOCATE 13, 62: PRINT "DAGAZ"
  769. COLOR 14, 7
  770. LOCATE 23, 2: PRINT "Press spacebar to continue"
  771. END SUB
  772.  
  773. SUB R24
  774. SCREEN 9
  775. COLOR 5, 7
  776. PSET (480, 140), 5: LINE (480, 140)-(480, 70): LINE (480, 70)-(540, 140)
  777. LINE (540, 140)-(540, 70): LINE (540, 70)-(480, 140)
  778. COLOR 14, 7
  779. LOCATE 3, 10: PRINT "24.Breakthrough"
  780. COLOR 5, 7
  781. LOCATE 5, 5: PRINT "This is the rune of inheritance and benefits. The"
  782. LOCATE 6, 5: PRINT "benefits may come from something you must give up"
  783. LOCATE 7, 5: PRINT "or abandon.  What you give up may also free you "
  784. LOCATE 8, 5: PRINT "to become the person you truly want to be.  It is"
  785. LOCATE 9, 5: PRINT "time for you to discard useless relationships."
  786. LOCATE 13, 62: PRINT "OPILA"
  787. COLOR 14, 7
  788. LOCATE 23, 2: PRINT "Press spacebar to continue"
  789. END SUB
  790.  
  791. SUB R25
  792. CLS
  793. LOCATE 12, 10: PRINT "PROBLEM WITH CASE STATEMENT"
  794. COLOR 14, 7
  795. LOCATE 23, 2: PRINT "Press spacebar to continue"
  796. V$ = INPUT$(1)
  797. END SUB
  798.  
  799. SUB R3
  800. SCREEN 9
  801. COLOR 5, 7
  802. PSET (500, 150), 5: LINE (500, 150)-(500, 60): PSET (500, 80), 5
  803. LINE (500, 80)-(530, 102): LINE (530, 102)-(500, 124)
  804. COLOR 14, 7
  805. LOCATE 3, 10: PRINT "3.Gateway "
  806. COLOR 5, 7
  807. LOCATE 5, 5: PRINT "This rune tells you that work must be done inside"
  808. LOCATE 6, 5: PRINT "and outside yourself.  It is the rune of non-"
  809. LOCATE 7, 5: PRINT "action.  It confronts what is hidden inside      "
  810. LOCATE 8, 5: PRINT "yourself.  You must be strong and wait for what- "
  811. LOCATE 9, 5: PRINT "ever may happen. Do not make hasty decisions at  "
  812. LOCATE 10, 5: PRINT "this point."
  813. LOCATE 13, 62: PRINT "PURISAZ"
  814. COLOR 14, 7
  815. LOCATE 23, 2: PRINT "Press spacebar to continue"
  816. END SUB
  817.  
  818. SUB R4
  819. SCREEN 9
  820. COLOR 5, 7
  821. PSET (500, 155), 5: LINE (500, 155)-(500, 55): LINE (500, 55)-(540, 75)
  822. PSET (500, 85), 5: LINE (500, 85)-(540, 105)
  823. COLOR 14, 7
  824. LOCATE 3, 10: PRINT "4.Signals "
  825. COLOR 5, 7
  826. LOCATE 5, 5: PRINT "This first rune of the self-transformation cycle "
  827. LOCATE 6, 5: PRINT "describes the receiving of messages, signals or "
  828. LOCATE 7, 5: PRINT "gifts.  It is a signal of new pathways, new "
  829. LOCATE 8, 5: PRINT "connnections. Be particularly aware in all "
  830. LOCATE 9, 5: PRINT "dealings with others.  Provide for yourself first,"
  831. LOCATE 10, 5: PRINT "before giving to others."
  832. LOCATE 13, 62: PRINT "ANSUZ"
  833. COLOR 14, 7
  834. LOCATE 23, 2: PRINT "Press spacebar to continue"
  835. END SUB
  836.  
  837. SUB R5
  838. SCREEN 9
  839. COLOR 5, 7
  840. PSET (485, 155), 5: LINE (485, 155)-(485, 55): LINE (485, 55)-(535, 85)
  841. LINE (535, 85)-(485, 110): LINE (485, 110)-(540, 155)
  842. COLOR 14, 7
  843. LOCATE 3, 10: PRINT "5.Journey "
  844. COLOR 5, 7
  845. LOCATE 5, 5: PRINT "Communication is the basis of this rune.  Here you"
  846. LOCATE 6, 5: PRINT "need the perfect union, a union with the self.   "
  847. LOCATE 7, 5: PRINT "You must trust your own process.  Following your "
  848. LOCATE 8, 5: PRINT "inner voice you make the right actions.  Continue "
  849. LOCATE 9, 5: PRINT "on your journey to self-knowledge."
  850. LOCATE 13, 62: PRINT "RAIDO"
  851. COLOR 14, 7
  852. LOCATE 23, 2: PRINT "Press spacebar to continue"
  853. END SUB
  854.  
  855. SUB R6
  856. SCREEN 9
  857. COLOR 5, 7
  858. PSET (528, 60), 5: LINE (528, 60)-(480, 112): LINE (480, 112)-(535, 150)
  859. COLOR 14, 7
  860. LOCATE 3, 10: PRINT "6.Opening "
  861. COLOR 5, 7
  862. LOCATE 5, 5: PRINT "This is the rune of opening up.  It clears away the"
  863. LOCATE 6, 5: PRINT "dark clouds from your life.  In relationships there"
  864. LOCATE 7, 5: PRINT "should be mutual giving, understanding and respect!"
  865. LOCATE 8, 5: PRINT "You may be limited and dependent but you are also "
  866. LOCATE 9, 5: PRINT "confident of yourself which will help you to grow."
  867. LOCATE 10, 5: PRINT "You are surrounded by darkness!, but now there is "
  868. LOCATE 11, 5: PRINT "enough light to be yourself and grow inside."
  869. LOCATE 13, 62: PRINT "KAUNAZ"
  870. COLOR 14, 7
  871. LOCATE 23, 2: PRINT "Press spacebar to continue"
  872. END SUB
  873.  
  874. SUB R7
  875. SCREEN 9
  876. COLOR 5, 7
  877. PSET (475, 60), 5: LINE (475, 60)-(545, 150): PSET (545, 60), 5
  878. LINE (545, 60)-(475, 150)
  879. COLOR 14, 7
  880. LOCATE 3, 10: PRINT "7.Partnership "
  881. COLOR 5, 7
  882. LOCATE 5, 5: PRINT "Drawing this rune means a union or partnership of"
  883. LOCATE 6, 5: PRINT "some sort is near.  But do not let this partnership"
  884. LOCATE 7, 5: PRINT "rule your life. True partnerships evolve from    "
  885. LOCATE 8, 5: PRINT "separate beings who unite, but in uniting keep their"
  886. LOCATE 9, 5: PRINT "individuality. Open flowing partnerships are the  "
  887. LOCATE 10, 5: PRINT "ultimate form of human relations!            "
  888. LOCATE 13, 62: PRINT "GEBO"
  889. COLOR 14, 7
  890. LOCATE 23, 2: PRINT "Press spacebar to continue"
  891. END SUB
  892.  
  893. SUB R8
  894. SCREEN 9
  895. COLOR 5, 7
  896. PSET (500, 155), 5: LINE (500, 155)-(500, 55): LINE (500, 55)-(540, 85)
  897. LINE (540, 85)-(500, 115)
  898. COLOR 14, 7
  899. LOCATE 3, 10: PRINT "8.Joy "
  900. COLOR 5, 7
  901. LOCATE 5, 5: PRINT "This rune finds new energy, new clarity; you may "
  902. LOCATE 6, 5: PRINT "be asked to give up existing plans or goals.  This "
  903. LOCATE 7, 5: PRINT "is the time for you to embrace Joyfulness!  You are"
  904. LOCATE 8, 5: PRINT "now able to receive materially and emotionally. "
  905. LOCATE 13, 62: PRINT "WUNJO"
  906. COLOR 14, 7
  907. LOCATE 23, 2: PRINT "Press spacebar to continue"
  908. END SUB
  909.  
  910. SUB R9
  911. SCREEN 9
  912. COLOR 5, 7
  913. PSET (480, 150), 5: LINE (480, 150)-(480, 60): PSET (540, 60), 5
  914. LINE (540, 60)-(540, 150): PSET (540, 120), 5: LINE (540, 120)-(480, 100)
  915. COLOR 14, 7
  916. LOCATE 3, 10: PRINT "9.Disruption "
  917. COLOR 5, 7
  918. LOCATE 5, 5: PRINT "This rune signifies change, freedom, and invention."
  919. LOCATE 6, 5: PRINT "Break free from your material reality.  Things beyond"
  920. LOCATE 7, 5: PRINT "your control will happen here.  Expect disruption of"
  921. LOCATE 8, 5: PRINT "your plans - your own nature is creating what is"
  922. LOCATE 9, 5: PRINT "happening.  Your inner strength is your guidance."
  923. LOCATE 13, 62: PRINT "HAGALAZ"
  924. COLOR 14, 7
  925. LOCATE 23, 2: PRINT "Press spacebar to continue"
  926. END SUB
  927.  
  928. SUB Rune1
  929.   CLS
  930.   SCREEN 9            'This makes 3 boxes at the bottom of the screen
  931.   COLOR 5, 7
  932.   LOCATE 6, 10:
  933.   PRINT "This tile represents your life situation, (ie. where you "
  934.   LOCATE 7, 10:
  935.   PRINT "are now, the goal you have in mind, and the main problem you "
  936.   LOCATE 8, 10:
  937.   PRINT "face in reaching that goal).  When doing a reading, keep in"
  938.   LOCATE 9, 10:
  939.   PRINT "mind the area of your life that you would like some help with."
  940.   LOCATE 10, 10:
  941.   PRINT "  Note - This is only meant to be used for entertainment. "
  942.   LOCATE 11, 10: PRINT "No claims of validity or accuracy of information are "
  943.   LOCATE 12, 10: PRINT "expressed or implied."
  944.   PSET (300, 190), 14: DRAW "R85D110L85U110"
  945.   LOCATE 16, 41: PRINT " GOAL"
  946.   LOCATE 20, 40: PRINT "PROBLEM"
  947.   LOCATE 18, 43: PRINT "VS"
  948.   COLOR 14, 7
  949.   LOCATE 23, 2: PRINT "Press spacebar to continue"
  950.   V$ = INPUT$(1)
  951.  
  952.    RANDOMIZE VAL(RIGHT$(TIME$, 2))
  953.    LET ind = INT(RND * 24 + 1)
  954.    CALL SCRNC1A
  955.    CALL Pick
  956.    V$ = INPUT$(1)
  957. END SUB
  958.  
  959. SUB Rune3
  960.   CLS
  961.   SCREEN 9            'This makes 3 boxes at the bottom of the screen
  962.   COLOR 5, 7
  963.   LOCATE 3, 10: PRINT "These 3 boxes represent the 3 tiles used in a reading."
  964.   LOCATE 4, 10: PRINT "They are laid out from right to left - note the numbers"
  965.   LOCATE 5, 10: PRINT "1, 2, & 3 in the lower right-hand corners of each tile."
  966.   LOCATE 6, 10: PRINT "Each tile represents an element in your life situation,"
  967.   LOCATE 7, 10: PRINT "(ie. where you are now, the goal you have in mind, and"
  968.   LOCATE 8, 10: PRINT "the main problem you face in reaching that goal.  When"
  969.   LOCATE 9, 10: PRINT "doing a reading, keep in mind the area of your life that"
  970.   LOCATE 10, 10:
  971.   PRINT "you would like some help with.  Note - This is only meant"
  972.   LOCATE 11, 10: PRINT "to be used for entertainment. No claims of validity or"
  973.   LOCATE 12, 10: PRINT "accuracy of information are expressed or implied."
  974.   PSET (150, 190), 14: DRAW "R85D110L85U110"
  975.   PSET (300, 190), 14: DRAW "R85D110L85U110"
  976.   PSET (450, 190), 14: DRAW "R85D110L85U110"
  977.   LOCATE 18, 21: PRINT " GOAL"
  978.   LOCATE 18, 40: PRINT "PROBLEM"
  979.   LOCATE 18, 59: PRINT "YOU NOW"
  980.   LOCATE 21, 28: PRINT "3"
  981.   LOCATE 21, 47: PRINT "2"
  982.   LOCATE 21, 66: PRINT "1"
  983.   COLOR 14, 7
  984.   LOCATE 23, 2: PRINT "Press spacebar to continue"
  985.   V$ = INPUT$(1)
  986.  
  987. X = 1
  988. FOR ruaa = 1 TO 3
  989.    RANDOMIZE VAL(RIGHT$(TIME$, 2))
  990.    LET ind = INT(RND * 24 + 1)
  991.      IF X = 1 THEN
  992.         CALL SCRNC3A
  993.      ELSEIF X = 2 THEN
  994.         CALL SCRNC3B
  995.      ELSE X = 3
  996.         CALL SCRNC3C
  997.      END IF
  998.    CALL Pick
  999.    V$ = INPUT$(1)
  1000.    X = X + 1
  1001.    NEXT ruaa
  1002. END SUB
  1003.  
  1004. SUB Rune6
  1005.   CLS
  1006.   SCREEN 9
  1007.   COLOR 5, 7
  1008.   LOCATE 2, 5:
  1009.   PRINT "The Runes are laid out in the shape of a Celtic cross for the "
  1010.   LOCATE 3, 5:
  1011.   PRINT "6-Rune reading. They represent 1) Significator, 2) Crossing card,"
  1012.   LOCATE 4, 5:
  1013.   PRINT "3) Below, 4) Past, 5) Overlooking, and 6) Ahead.  They are laid out"
  1014.   LOCATE 5, 5:
  1015.   PRINT "as you see below. When doing a reading, keep in mind the area"
  1016.   LOCATE 6, 5: PRINT "of your life that you would like some help with. "
  1017.   LOCATE 7, 5:
  1018.   PRINT "Note - This is only meant to be used for entertainment. No "
  1019.   LOCATE 8, 5:
  1020.   PRINT "claims of validity or accuracy of information are expressed "
  1021.   LOCATE 9, 5: PRINT "or implied."
  1022.   PSET (140, 200), 14: DRAW "R45D56L45U56"
  1023.   PSET (200, 200), 14: DRAW "R45D56L45U56"
  1024.   PSET (250, 200), 14: DRAW "R45D56L45U56"
  1025.   PSET (310, 200), 14: DRAW "R45D56L45U56"
  1026.   PSET (225, 130), 14: DRAW "R45D56L45U56"
  1027.   PSET (225, 270), 14: DRAW "R45D56L45U56"
  1028.   LOCATE 12, 31: PRINT "5"
  1029.   LOCATE 17, 21: PRINT "4"
  1030.   LOCATE 17, 28: PRINT "1"
  1031.   LOCATE 17, 35: PRINT "2"
  1032.   LOCATE 17, 42: PRINT "6"
  1033.   LOCATE 22, 31: PRINT "3"
  1034.   COLOR 14, 7
  1035.   LOCATE 23, 2: PRINT "Press spacebar to continue"
  1036.   V$ = INPUT$(1)
  1037.  
  1038. X = 1
  1039. FOR ruaa = 1 TO 6
  1040.    RANDOMIZE VAL(RIGHT$(TIME$, 2))
  1041.    LET ind = INT(RND * 24 + 1)
  1042.      IF X = 1 THEN
  1043.         CALL SCRNC6A
  1044.      ELSEIF X = 2 THEN
  1045.         CALL SCRNC6B
  1046.      ELSEIF X = 3 THEN
  1047.         CALL SCRNC6C
  1048.      ELSEIF X = 4 THEN
  1049.         CALL SCRNC6D
  1050.      ELSEIF X = 5 THEN
  1051.         CALL SCRNC6E
  1052.      ELSE X = 6
  1053.         CALL SCRNC6F
  1054.      END IF
  1055.    CALL Pick
  1056.    V$ = INPUT$(1)
  1057.    X = X + 1
  1058.    NEXT ruaa
  1059.  END SUB
  1060.  
  1061. SUB SCRNC1A
  1062.   CLS
  1063.   SCREEN 9
  1064.   COLOR 5, 7
  1065.   PSET (465, 50), 14: DRAW "R90D112L90U112"
  1066. END SUB
  1067.  
  1068. SUB SCRNC3A
  1069.   CLS
  1070.   SCREEN 9
  1071.   COLOR 5, 7
  1072.   PSET (465, 50), 14: DRAW "R90D112L90U112"
  1073.   PSET (350, 235), 14: DRAW "R45D56L45U56"
  1074.   PSET (430, 235), 14: DRAW "R45D56L45U56"
  1075.   PSET (510, 235), 14: DRAW "R45D56L45U56"
  1076.   PSET (511, 236), 14: LINE (511, 236)-(553, 289), 5, BF
  1077.   LOCATE 22, 46: PRINT "Goal"
  1078.   LOCATE 22, 54: PRINT "Problem"
  1079.   LOCATE 22, 64: PRINT "You Now"
  1080. LOCATE 23, 67: PRINT "1"
  1081. END SUB
  1082.  
  1083. SUB SCRNC3B
  1084.   CLS
  1085.   SCREEN 9
  1086.   COLOR 5, 7
  1087.   PSET (465, 50), 14: DRAW "R90D112L90U112"
  1088.   PSET (350, 235), 14: DRAW "R45D56L45U56"
  1089.   PSET (430, 235), 14: DRAW "R45D56L45U56"
  1090.   PSET (510, 235), 14: DRAW "R45D56L45U56"
  1091.   PSET (511, 236), 14: LINE (511, 236)-(553, 289), 5, BF
  1092.   PSET (431, 236), 14: LINE (431, 236)-(474, 289), 5, BF
  1093.   LOCATE 22, 46: PRINT "Goal"
  1094.   LOCATE 22, 54: PRINT "Problem"
  1095.   LOCATE 22, 64: PRINT "You Now"
  1096. LOCATE 23, 67: PRINT "1": LOCATE 23, 57: PRINT "2"
  1097. END SUB
  1098.  
  1099. SUB SCRNC3C
  1100.   CLS
  1101.   SCREEN 9
  1102.   COLOR 5, 7
  1103.   PSET (465, 50), 14: DRAW "R90D112L90U112"
  1104.   PSET (350, 235), 14: DRAW "R45D56L45U56"
  1105.   PSET (430, 235), 14: DRAW "R45D56L45U56"
  1106.   PSET (510, 235), 14: DRAW "R45D56L45U56"
  1107.   PSET (511, 236), 14: LINE (511, 236)-(553, 289), 5, BF
  1108.   PSET (431, 236), 14: LINE (431, 236)-(474, 289), 5, BF
  1109.   PSET (351, 236), 14: LINE (351, 236)-(394, 289), 5, BF
  1110.   LOCATE 22, 46: PRINT "Goal"
  1111.   LOCATE 22, 54: PRINT "Problem"
  1112.   LOCATE 22, 64: PRINT "You Now"
  1113. LOCATE 23, 67: PRINT "1": LOCATE 23, 57: PRINT "2"
  1114. LOCATE 23, 47: PRINT "3"
  1115. END SUB
  1116.  
  1117. SUB SCRNC6A
  1118.   CLS
  1119.   SCREEN 9
  1120.   COLOR 5, 7
  1121.   PSET (465, 50), 14: DRAW "R90D112L90U112"
  1122.   PSET (485, 185), 14: DRAW "R34D40L34U40"
  1123.   PSET (420, 230), 14: DRAW "R34D40L34U40"
  1124.   PSET (465, 230), 14: DRAW "R34D40L34U40"
  1125.   PSET (505, 230), 14: DRAW "R34D40L34U40"
  1126.   PSET (550, 230), 14: DRAW "R34D40L34U40"
  1127.   PSET (485, 275), 14: DRAW "R34D40L34U40"
  1128.   PSET (466, 231), 14: LINE (466, 231)-(498, 269), 5, BF
  1129.   LOCATE 16, 63: PRINT "5"
  1130.   LOCATE 19, 20: PRINT "Significator"
  1131.   LOCATE 19, 55: PRINT "4": LOCATE 19, 61: PRINT "1"
  1132.   LOCATE 19, 66: PRINT "2": LOCATE 19, 71: PRINT "6"
  1133.   LOCATE 22, 63: PRINT "3"
  1134.   COLOR 14, 7
  1135. LOCATE 23, 2: PRINT "Press any key to continue"
  1136. END SUB
  1137.  
  1138. SUB SCRNC6B
  1139.   CLS
  1140.   SCREEN 9
  1141.   COLOR 5, 7
  1142.   PSET (465, 50), 14: DRAW "R90D112L90U112"
  1143.   PSET (485, 185), 14: DRAW "R34D40L34U40"
  1144.   PSET (420, 230), 14: DRAW "R34D40L34U40"
  1145.   PSET (465, 230), 14: DRAW "R34D40L34U40"
  1146.   PSET (505, 230), 14: DRAW "R34D40L34U40"
  1147.   PSET (550, 230), 14: DRAW "R34D40L34U40"
  1148.   PSET (485, 275), 14: DRAW "R34D40L34U40"
  1149.   PSET (506, 231), 14: LINE (506, 231)-(538, 269), 5, BF
  1150.   LOCATE 16, 63: PRINT "5"
  1151.   LOCATE 19, 20: PRINT "Crossing"
  1152.   LOCATE 19, 55: PRINT "4": LOCATE 19, 61: PRINT "1"
  1153.   LOCATE 19, 66: PRINT "2": LOCATE 19, 71: PRINT "6"
  1154.   LOCATE 22, 63: PRINT "3"
  1155.   COLOR 14, 7
  1156. LOCATE 23, 2: PRINT "Press any key to continue"
  1157. END SUB
  1158.  
  1159. SUB SCRNC6C
  1160.   CLS
  1161.   SCREEN 9
  1162.   COLOR 5, 7
  1163.   PSET (465, 50), 14: DRAW "R90D112L90U112"
  1164.   PSET (485, 185), 14: DRAW "R34D40L34U40"
  1165.   PSET (420, 230), 14: DRAW "R34D40L34U40"
  1166.   PSET (465, 230), 14: DRAW "R34D40L34U40"
  1167.   PSET (505, 230), 14: DRAW "R34D40L34U40"
  1168.   PSET (550, 230), 14: DRAW "R34D40L34U40"
  1169.   PSET (485, 275), 14: DRAW "R34D40L34U40"
  1170.   PSET (486, 276), 14: LINE (486, 276)-(518, 314), 5, BF
  1171.   LOCATE 16, 63: PRINT "5"
  1172.   LOCATE 19, 20: PRINT "Foundation"
  1173.   LOCATE 19, 55: PRINT "4": LOCATE 19, 61: PRINT "1"
  1174.   LOCATE 19, 66: PRINT "2": LOCATE 19, 71: PRINT "6"
  1175.   LOCATE 22, 63: PRINT "3"
  1176.   COLOR 14, 7
  1177. LOCATE 23, 2: PRINT "Press spacebar to continue"
  1178. END SUB
  1179.  
  1180. SUB SCRNC6D
  1181.   CLS
  1182.   SCREEN 9
  1183.   COLOR 5, 7
  1184.   PSET (465, 50), 14: DRAW "R90D112L90U112"
  1185.   PSET (485, 185), 14: DRAW "R34D40L34U40"
  1186.   PSET (420, 230), 14: DRAW "R34D40L34U40"
  1187.   PSET (465, 230), 14: DRAW "R34D40L34U40"
  1188.   PSET (505, 230), 14: DRAW "R34D40L34U40"
  1189.   PSET (550, 230), 14: DRAW "R34D40L34U40"
  1190.   PSET (485, 275), 14: DRAW "R34D40L34U40"
  1191.   PSET (421, 231), 14: LINE (421, 231)-(453, 269), 5, BF
  1192.   LOCATE 16, 63: PRINT "5"
  1193.   LOCATE 19, 20: PRINT "Past"
  1194.   LOCATE 19, 55: PRINT "4": LOCATE 19, 61: PRINT "1"
  1195.   LOCATE 19, 66: PRINT "2": LOCATE 19, 71: PRINT "6"
  1196.   LOCATE 22, 63: PRINT "3"
  1197.   COLOR 14, 7
  1198. LOCATE 23, 2: PRINT "Press spacebar to continue"
  1199. END SUB
  1200.  
  1201. SUB SCRNC6E
  1202.   CLS
  1203.   SCREEN 9
  1204.   COLOR 5, 7
  1205.   PSET (465, 50), 14: DRAW "R90D112L90U112"
  1206.   PSET (485, 185), 14: DRAW "R34D40L34U40"
  1207.   PSET (420, 230), 14: DRAW "R34D40L34U40"
  1208.   PSET (465, 230), 14: DRAW "R34D40L34U40"
  1209.   PSET (505, 230), 14: DRAW "R34D40L34U40"
  1210.   PSET (550, 230), 14: DRAW "R34D40L34U40"
  1211.   PSET (485, 275), 14: DRAW "R34D40L34U40"
  1212.   PSET (486, 186), 14: LINE (486, 186)-(518, 224), 5, BF
  1213.   LOCATE 16, 63: PRINT "5"
  1214.   LOCATE 19, 20: PRINT "Overlooking"
  1215.   LOCATE 19, 55: PRINT "4": LOCATE 19, 61: PRINT "1"
  1216.   LOCATE 19, 66: PRINT "2": LOCATE 19, 71: PRINT "6"
  1217.   LOCATE 22, 63: PRINT "3"
  1218.   COLOR 14, 7
  1219. LOCATE 23, 2: PRINT "Press spacebar to continue"
  1220. END SUB
  1221.  
  1222. SUB SCRNC6F
  1223.   CLS
  1224.   SCREEN 9
  1225.   COLOR 5, 7
  1226.   PSET (465, 50), 14: DRAW "R90D112L90U112"
  1227.   PSET (485, 185), 14: DRAW "R34D40L34U40"
  1228.   PSET (420, 230), 14: DRAW "R34D40L34U40"
  1229.   PSET (465, 230), 14: DRAW "R34D40L34U40"
  1230.   PSET (505, 230), 14: DRAW "R34D40L34U40"
  1231.   PSET (550, 230), 14: DRAW "R34D40L34U40"
  1232.   PSET (485, 275), 14: DRAW "R34D40L34U40"
  1233.   PSET (551, 231), 14: LINE (551, 231)-(583, 269), 5, BF
  1234.   LOCATE 16, 63: PRINT "5"
  1235.   LOCATE 19, 20: PRINT "Future"
  1236.   LOCATE 19, 55: PRINT "4": LOCATE 19, 61: PRINT "1"
  1237.   LOCATE 19, 66: PRINT "2": LOCATE 19, 71: PRINT "6"
  1238.   LOCATE 22, 63: PRINT "3"
  1239.   COLOR 14, 7
  1240. LOCATE 23, 2: PRINT "Press spacebar to continue"
  1241. END SUB
  1242.  
  1243. SUB Titlescreen
  1244.    CLS
  1245.    SCREEN 9
  1246.    COLOR 5, 7
  1247.    LOCATE 7, 14: PRINT "                  RUNE MANIA!"
  1248.    LOCATE 9, 14: PRINT "        Created by Gamemaniacs Roger Bochek "
  1249.    LOCATE 10, 14: PRINT "                               Kim Mehrdorf"
  1250.    LOCATE 11, 14: PRINT "                               Tony Malovrh"
  1251.    COLOR 14, 7
  1252.    LOCATE 23, 2: PRINT "Press spacebar to continue"
  1253.    V$ = INPUT$(1)
  1254. END SUB
  1255.  
  1256.