JOYTemplate for Footer group   hXNkIz k phL9̪I Y%z kZ-KiZ-K N"զI` {x R< N"զI` {x R<L$ЦIz yx UL$ЦIz xx UL$ЦIz x UL$ЦIz ~x UL$ЦIz }x UL$ЦIz |x UL$ЦIz sx UL$ЦIz rx U xScript 1: 0x R<   Numerologyx xScript 1: 0x R<  &JPage=== 3(c)copyright1989byGeoffBuckeridge xScript 1: 0x R< p Numerology(cont)x xScript 1: 0x R<  &JPage=== 3(c)copyright1989byGeoffBuckeridge x xScript 1: 0x R<   D123456789  DaBCDeFGHi DJKLMNoPQR DSTuVWXYZ  W@Numerologyisthenamegiventotheancientartoffortunetellingusing J3numbers.Itisthoughttohavebeenpractisedinoneformoranother,by  4theancientEgyptians.ButitspresentformappearstobebasedmainlyonthetheoriesoftheGreekmathematicianandphilosopherPythagoras.  Hebelievedthateverythinginthenaturalworldcouldbeexpressed  .numericallythehumanbody,forinstance,cangenerallyberelieduponto 1havetwoeyes,onemouth,tentoes,fivesenses,andsoon.Thisbeingthecasehefeltthatnumbersheldthekeytotheuniverse.  {Itisusedtodaychieflytoprovidecharacteranalysis.Butnumerical  # patternscanbeproducedfromwhich,itissaid,youcandetermineyourowndestiny. Onlythesingledigits1to9areimportantinnumerology,soletsshowthat 7 bydoinganexample.Ifyouwerebornon5thJuly1947yourbirthnumbercanbedeterminedbyaddingallthenumbersinyourbirthdate:4 ,5+6+1+9+4+7=32thisgivesyouatwodigitnumberwhichmustbereducedlikethis:H ,3+2=5Soyourbirthordestinynumberis5.Itisalsoyourluckynumber. $ xScript 1: 0x R<  Anotherimportantnumberisyournamenumberwhichwillbeusedto  /determineyourpersonality.Thisisobviouslyderivedfromthelettersin  bKyourname.Butfirsttheymustbeconvertedtonumbersusingthetable(above.ForexampleifyournameisBillyWhite: ,BILLYWHITE ,2+9+3+3+7+5+8+9+2+5=53or8  J3Thereforeyournamenumberis8.Twoothernumbersneedtobesimilarly  ncalculated.Theyarethevowelnumber,whichistheproductofvalues  attributedtojustthevowelsinyourname,andthisrepresentsyourvisible  personalityorego.Andtheconsonantnumberwhichiscalculatedidentically&usingjusttheconsonantsinyourname,representsyoursubconsciousorid.  XAFromthesefournumbersitpossibletogainagreatdealofinsightinto  peopleslives,liketheirluckyday,colour,orflower.Youcancalculatethe  +bestandworstperiodsoftheirlife,theirlikesanddislikes,andwhatjobtheyaremostsuitedto. Youonlyneedenterthesubjectsnameanddateofbirth.Thenamecanbein 1amixtureofupperandlowercaseandthedatemustbeeitherdd/mm/yyorwdd/mm/yyyyformat.Inthecaseoftheformer20thcenturyisassumed.  Goaheadandprintoutforecastsforyourfamilyandfriendswhosebirthdate youknow.Onlyyoucantellwhetherornottheyareaccurate,butwhateveryyoufindit'sgreatfuntodo.  Theprogramusesthemathematicalandanalyticalruleslaiddownandagreed  xbynumerologists,inordertomakeitspredictionsandforecasts.But  <%rememberthatitlacksthehumanelementofexperiencewhichisneededtoproduceanaccurateanddetailedanalysis. 4IfyouwerefascinatedasIwas,bythissubjectthenIsuggestyouobtain  S<someofthemanybooksavailableonthesubject,andusethemtodevelop xScript 1: 0x R< yourskills.  xScript 1: 0x R< p 210'NUMEROLOGYl220'(predictingthefuturebynumbers) 230'byGeoffBuckeridge<240'250DEFINTa-z:WIDTH255:vowel$="AEIOU":e$=CHR$(27)0:again$=e$+"A"+e$+"K":cls$=e$+"H"+e$+"E"p260WIDTHLPRINT255:LPRINTe$;"M";e$;"3";CHR$(70);e$;"l";CHR$(3);e$;"Q";CHR$(93);e$;"E"`270FORi=1TO9280READplanet$(i),day$(i),stone$(i),flower$(i),colour$(i)290READpos$(i),morepos$(i),neg$(i),moreneg$(i)l300READego$(i),id$(i),likes$(i),job$(i)310NEXT<320'p330'calculatenamenumberst340PRINTcls$;350LINEINPUT"EnterName:";name$:name$=UPPER$(name$)360name.len=LEN(name$):ego=0:id=0370FORi=1TOname.len380n$=MID$(name$,i,1) 390IFn$<"A"ORn$>"Z"THEN420400a=ASC(n$)-64:num=(INT(a/9)+a)MOD10:IFnum=0THENnum=9,410IFINSTR(vowel$,n$)>0THENego=ego+numELSEid=id+num|420NEXT:IFego=0ORid=0THENPRINTagain$;:GOTO350<430'440WHILEego>9:ego=INT(ego/10)+egoMOD10:WENDD450WHILEid>9:id=INT(id/10)+idMOD10:WEND`460names=ego+id470WHILEnames>9:names=INT(names/10)+namesMOD10:WEND:PRINT<480'p490'calculatebirthnumber500LINEINPUT"Dateofbirth:";birth.date$D510date.len=LEN(birth.date$):birth=0:num=0520FORi=1TOdate.lenp530d$=MID$(birth.date$,i,1)  xScript 1: 0x R<  540IFd$<"0"ORd$>"9"THEN560 550birth=birth+VAL(d$):num=num+1560NEXT:IFnum=6THENbirth=birth+1570IFnum<>6ANDnum<>8THENPRINTagain$;:GOTO500T580WHILEbirth>9:birth=INT(birth/10)+birthMOD10:WEND<590'600'printforecastx610PRINT:PRINT"EGO=";ego,"ID=";id,,"NAME=";names,"BIRTH=";birthT620PRINT:PRINT"Yourguidingplanetis";planet$(birth)|630PRINT"Yourluckydayoftheweekis";day$(birth)640PRINT"Yourluckygemstonesare";stone$(birth)650PRINT"Yourluckyflowersare";flower$(birth)660PRINT"Yourluckycoloursare";colour$(birth)670comp=egoMOD2+idMOD2:IFcomp=0ORcomp=2THENcomp$="C"$:state$="stability"ELSEcomp$="Inc":state$="conflict"680PRINT:PRINTcomp$;"ompatabilityexistsbetweenyouregoandyourid,suggestinginner";state$;"."690GOSUB890:PRINT"Thereis";accord$;"accordlinkingyourbirthand$namenumbers,whichindicates"700PRINT"thatyourlifewill";acc$;"happyandsatisfying."710PRINT:PRINT"Periodsofyourlifeofferingthegreatestpotentialfortadvancementaretheages":PRINTpos$(birth);"andparticularly";morepos$(birth);"."720PRINT"Lessenjoyableperiodswhicharemorefraught,problematicanddifficultare":PRINTneg$(birth);"andnotably";moreneg$(birth);"."730PRINT:PRINT"Outwardly";ego$(ego)p740PRINT"Inwardly";id$(id)750PRINT"Youenjoy";likes$(names)760PRINT"Youarewellsuitedto";job$(birth)<770'  xScript 1: 0x R< 780'hardcopyoutput790IFp$="Y"THENp$="N":POKE18527,100:GOTO840,800PRINT:PRINT"Doyouwanttoprintthisforecast(Y/N)";:p$=UPPER$(INPUT$(1))810IFp$<>"Y"THEN840820POKE18527,90:PRINT"Name:";name$:PRINT"BirthDate:$";birth.date$:PRINT830GOTO590840PRINT:PRINTagain$;"Doyouwantanotherforecast(Y/N)";:f$=UPPER$(INPUT$(1))850IFf$="Y"THEN340$860PRINTcls$;:END<870'880'accordsubroutine890b=birth$900IFb=9THENb=1910pattern1$="0+++0---0":pattern2$="+++0---0+"D920accord$=RIGHT$(pattern1$,b-1)+pattern2$ 930accord$=MID$(accord$,names,1)940IFaccord$="+"THENaccord$="positive":acc$="be"950IFaccord$="-"THENaccord$="negative":acc$="belessthan"960IFaccord$="0"THENaccord$="neutral":acc$="bemoderately"970RETURN<980'T990' < =onep1000DATA"TheSun","Sunday"1010DATA"Diamond,AmberandTopaz"1020DATA"MarigoldandSunflower"1030DATA"Gold,OrangeandYellow"d1040DATA"14-26,56-68","13-14and89-90","34-41","2-7,41-46and(78-83"d1050DATA"youareambitious,confident,innovative,individualandfriendly.Youarebasicallyselfishbutagoodleaderandorganizer."1060DATA"youhaveastrongsenseofselfrighteousness,andfeelbound  xScript 1: 0x R< toputtheworldtorights.Youmaintainhighstandardsandexpectthemfromothers."1070DATA"sunnydays,openair,forestsandmountains,helpingothers,royalty,bittertastes,dogsandhorses."1080DATA"businessandcommerce,politics,communitywork,teachingand<law."T1090' < =two\1100DATA"TheMoon","Monday"1110DATA"Emerald,MoonstoneandRuby" 1120DATA"Poppy,andWaterLily"1130DATA"Amber,Green,andWhite"1140DATA"52-56","0-2and76-78","26-34,68-76","7-13,46-52and83-89"1150DATA"youarearatherrelaxedcharacter;athinkerwithartistictalents.Butyoulackselfconfidence,makingyoubetteratfollowingthanleading."1160DATA"youareimaginativeintuitive,evenpsychic.Youpreferloneactivitieslikereading,drawingorpainting."<1170DATA"nighttime,saltyfoods,silverjewellery,rainyweather,positivepeople,boatsandnewclothes."1180DATA"hospitalwork,diplomacy,farming,orpaintinganddecorating.",1190' < =threeH1200DATA"Jupiter","Thursday" 1210DATA"AmethystandSapphire"1220DATA"CarnationandWallflower"1230DATA"Blue,Orange,andPurple"1240DATA"2-7,41-46,78-83","23-26and65-68","13-23,56-65,89-90","34-41"1250DATA"youareanextrovertedtalentedandpopularperson,wholikes(tobefrankandhonestandexpectsfranknessandhonestyinreturn."1260DATA"youbelievethereisadevinepresenceinyourlife.Youarecapableofgreatinsightsandpropheticdreams."1270DATA"openair,drivingfastcars,nighttime,sweetfoods, xScript 1: 0x R< expensiveclothes,animalsandchildren."d1280DATA"editingandpublishing,dowsing,hairstyling,andhotel(work."@1290' < =four1300DATA"Uranus","Sunday"1310DATA"AmethystandAquamarine"1320DATA"ButtercupandFoxglove"l1330DATA"BrightBlue,GreenandViolet"(1340DATA"7-13,46-52,83-89","52,56","0-2,76-78","26-34and68-76"1350DATA"youaregenerallyresponsibleanddependable,andvery'down(toearth'.Youdon'tliketakingordersandworkhardtomaintain$yourindependence."(1360DATA"youarecreative,andwellknownforyourstubbornness.Youareconcernedabouttheworldandarethetypetopubliclyprotesttobringaboutachange."1370DATA"afternoonandearlyevening,interestingclothes,dryriver,beds,pottery,birdsandplants,especiallyshrubs."1380DATA"photography,journalism,computing,oranythingelectrical."@1390' < =five41400DATA"Mercury","Wednesday"1410DATA"OpalandOnyx" 1420DATA"GladiolusandOrchid"D1430DATA"LightGreen,Orange,andYellow"(1440DATA"34-41","2-7,41-46and78-83","23-26,65-68","13-23,56-65and89-90"1450DATA"youareclever,enablingfastlearningandabsorptionofthefacts.Youlovetotalkandargueandhaveapersuasivetongue."d1460DATA"youareinclinedtobequicktemperedandhighlystrung,<perhapsevenalittlenervous.Trustyourhunchesparticularlyin4gambling,apastimeyouenjoy."1470DATA"publicplaces,theatre,music,earlyevening,autumn,walkingintherain,andeatingdifferentvarietiesoffoods." xScript 1: 0x R< 1480DATA"sales,writing,teaching,acting,inventing,andtaxidriving."T1490' < =six1500DATA"Venus","Friday"1510DATA"Jade,andOpal" 1520DATA"VioletandWhiteRose"1530DATA"Blue,GreenandViolet"1540DATA"26-34,68-76","7-13,46-52and83-89","52-56","0-2and76-78"d1550DATA"youhaveawellbalancedpersonality,somewherebetweenextrovertandintrovert.Youarereliableandtrustworthy,butcanbea8littleobstinate."d1560DATA"youarecalmwithasenseofharmonyandpeace.YouarePsomeonewhoprefersto'settledown'asastablehomesituationis8importanttoyou."<1570DATA"theoutdoors,summer,windowshopping,sourfoods,eating|out,readingpoetry,singingandwearingjewellery."1580DATA"publicrelations,diplomacy,design,pawnbroking,orbartending.",1590' < =sevenp1600DATA"Neptune","Monday" 1610DATA"EmeraldandSapphire"p1620DATA"VioletandAster"1630DATA"Blue,MauveandPurple"(1640DATA"13-23,56-65,89-90","34-41","2-7,41-46,78-83","23-26and(65-68"1650DATA"youareabrightandquitecreativepersonbutlackdirection<andstayingpower.However,youarenobody'sfoolandlovetolearn."(1660DATA"youarehighlyintuitive,evenpsychicbutperhapsalittle<toointroverted.Yourdreamsarecolourfulandvividandyouarepevengiventodaydreaming."<1670DATA"theoutdoorsonlyifbythewater,nighttime,mysteries,(storiesaboutthesea,andapreferenceforthecompanyofwomen." xScript 1: 0x R< P1680DATA"nursing,chiropody,tradeunionactivities,orrestaurant(work.",1690' < =eight\1700DATA"Saturn","Saturday" 1710DATA"GarnetandTourmaline"l1720DATA"Nightshade,Rose,andThistle"1730DATA"BlackandGrey"P1740DATA"0-2,76-78","26-34and68-76","7-13,46-52,83-89","52-56"(1750DATA"youarestableandcautious,anddresssensibly.Patienceanddeterminationaretypicaltraits,abitofaplodder."<1760DATA"youarecarefulandwontactwithoutweighingtheprosandcons.Youareloyalandkeepyourword.Butyoucan'teasilyforgiveandforget."<1770DATA"openair,woodlandandmountains,lakesandrivers,sharp0tastes,fishandmeat,winterandgardening."d1780DATA"policework,funeraldirecting,orcomputerprogramming."@1790' < =nine1800DATA"Mars","Tuesday"\1810DATA"Diamond,andRuby"l1820DATA"Gorse,Thistle,andWildRose" 1830DATA"BrightGreenandRed"(1840DATA"13-14,23-26,65-68,89-90","14-23and56-65","34-41","2-7,`41-46and78-83"<1850DATA"youareexcitable,hotbloodedandextroverted.Youlikeeverythingintermsof'blackandwhite'.Sometimesselfishandarrogantbutalwaysgenerous."P1860DATA"youfinditextremelydifficulttorelax.Youtrytorundbeforeyoucanwalk.Payattentiontoyourdreamsandintuition,though."1870DATA"thecountrybydayandtownatnight,noise,colour,activity,crowds,games,pungenttastes,warmtemperaturesandlaughing."d1880DATA"insurance,accountancy,animaltrainingandzookeeping."