home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 30 / Tiger_Disk_030_1996-09_Tiger-Crew-Disk_de_Side_C.d64 / +paul.pharisee.c (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  25KB  |  228 lines

  1. 1 poke808,252:print"[147]paradox[144]":ifi=0theni=1:load"+jerusalem.bmm.c",8,1
  2. 2 ifi=1theni=2:load"+jerusalem.csm.c",8,1
  3. 3 ifi=2theni=3:load"+temple.scn.c",8,1
  4. 4 ifi=3theni=4:load"+temple.col.c",8,1
  5. 5 poke52,131:poke51,255:poke56,131:poke55,255:v=53248:s=54272:sm=35840:cm=55296:dimlo(41),hi(41),nt(2,67),nd(1,23):goto77
  6. 6 fori=1to2000:next:return
  7. 7 fori=1to1000:next:return
  8. 8 fori=1to50:next:return
  9. 9 fori=1to4000:next:return
  10. 10 fori=1to8000:next:return
  11. 11 print""
  12. 12 print"       press <[211][208][193][195][197]> to continue";:poke198,0
  13. 13 geta$:ifa$<>" "then13
  14. 14 return
  15. 15 poke53281,15:print"[147][152]   [212]ime passes...":gosub59:gosub9:return
  16. 16 print"[147]";:forct=1to5:gosub59:gosub8:next:return
  17. 17 gosub54:poke53281,9:print"[147][155]  [215]elcome to school.":gosub63:gosub9:return
  18. 18 print"[147]  [215]e can return to school now.":gosub9:gosub56:pokev+21,3:gosub52:gosub54:gosub17:return
  19. 19 fori=1to44:ix=0:gosub23:forj=1to70:nextj:nexti:return
  20. 20 jv=peek(56320):jv=16-(jvand15):ix=0:iy=0:onjvgoto40,21,23,40,25,27,29,40,31,33,35
  21. 21 iy=-dy:ix=0:ifpeek(pn)=p7thenpokepn,p8:goto37
  22. 22 pokepn,p7:goto37
  23. 23 iy=dy:ix=0:ifpeek(pn)=p5thenpokepn,p6:goto37
  24. 24 pokepn,p5:goto37
  25. 25 ix=-dx:iy=0:ifpeek(pn)=p1thenpokepn,p2:goto37
  26. 26 pokepn,p1:goto37
  27. 27 ix=-dx:iy=-dy:ifpeek(pn)=pbthenpokepn,pc:goto37
  28. 28 pokepn,pb:goto37
  29. 29 ix=-dx:iy=dy:ifpeek(pn)=p9thenpokepn,pa:goto37
  30. 30 pokepn,p9:goto37
  31. 31 ix=dx:iy=0:ifpeek(pn)=p3thenpokepn,p4:goto37
  32. 32 pokepn,p3:goto37
  33. 33 ix=dx:iy=-dy:ifpeek(pn)=pfthenpokepn,pg:goto37
  34. 34 pokepn,pf:goto37
  35. 35 ix=dx:iy=dy:ifpeek(pn)=pdthenpokepn,pe:goto37
  36. 36 pokepn,pd:goto37
  37. 37 ifsn=0thengosub57
  38. 38 xs=xs+ix:ys=ys+iy:pokevy,ys:ifxs<256thenpokevx,xs:pokev+16,peek(v+16)andlx
  39. 39 ifxs>255thenpokevx,xs-256:pokev+16,peek(v+16)orux
  40. 40 return
  41. 41 geta$:ix=0:iy=0:ifa$="[145]"then21
  42. 42 ifa$=""then23
  43. 43 ifa$="[157]"then25
  44. 44 ifa$=""then31
  45. 45 return
  46. 46 gosub25:forj=1to60:next:return
  47. 47 gosub31:forj=1to60:next:return
  48. 48 gosub41:gosub20:x=peek(v+30):ifpeek(v+21)=1thenpokev+21,n:goto50
  49. 49 pokev+21,1
  50. 50 x=peek(v+30):ifx>0thenreturn
  51. 51 goto48
  52. 52 gosub41:gosub20:x=peek(v+30):x=1:x=peek(v+30):ifx>0thenreturn
  53. 53 goto52
  54. 54 pokev+21,0:poke56578,peek(56578)or3:poke56576,(peek(56576)and252)or1:poke648,140:poke53272,52:sm=35840:poke53265,peek(53265)and223:poke53270,peek(53270)and239:print"[147]":return
  55. 55 gosub54:poke53281,12:print"[147]":poke53272,20:poke53281,15:poke53280,8:gosub63:fori=49152to50151:pokei+6144,peek(i):next:gosub76:pn=34808:pokepn,p4:pokev+39,9:pokev+40,7:pokepn+1,41:return
  56. 56 poke53281,12:poke53280,11:print"[147]":poke56578,peek(56578)or3:poke56576,(peek(56576)and252)or0:poke648,204:poke53272,56:gosub72:poke53265,peek(53265)or32:poke53270,peek(53270)or16:fori=51200to52223:pokei+4096,peek(i):next:return
  57. 57 pokes+4,0:pokes,80:pokes+1,5:pokes+5,1:pokes+6,0:pokes+24,15:pokes+4,17:return
  58. 58 gosub62:pokes,49:pokes+1,24:pokes+5,17:pokes+6,241:pokes+24,12:pokes+3,8:forj=1to3:pokes+4,33:fori=1to150:next:pokes+4,32:fori=1to40:nexti:nextj:pokes,150:pokes+1,25:pokes+24,15:pokes+4,33:fori=1to1200:next:pokes+4,32:gosub8:gosub62:return
  59. 59 gosub62:pokes,0:pokes+1,27:pokes+5,51:pokes+6,243:pokes+24,15:pokes+4,17:fort=1to200:next:pokes+4,16:gosub8:pokes,0:pokes+1,20:pokes+4,17:fort=1to300:next:pokes+4,16:gosub8:gosub62:return
  60. 60 gosub62:pokes,8:pokes+1,7:pokes+5,51:pokes+6,243:pokes+24,15:pokes+4,17:fort=1to1200:next:pokes+4,16:pokes,176:pokes+1,4:pokes+4,17:fort=1to1200:next:pokes+4,16:gosub8:gosub62:return
  61. 61 gosub62:pokes+5,12:pokes,80:pokes+1,77:pokes+15,1:pokes+24,143:pokes+4,21:gosub6:gosub62:return
  62. 62 fori=0to24:pokes+i,0:next:return
  63. 63 gosub62:pokes+6,240:pokes+22,187:pokes+23,241:pokes+24,31:pokes,224:pokes+1,12:pokes+4,17:fori=1to400:next:pokes+4,16:pokes,53:pokes+1,18:pokes+4,17:fori=1to1600:next:pokes+4,16:gosub62:return
  64. 64 gosub62:pokes,195:pokes+1,16:pokes+7,96:pokes+8,22:pokes+3,8:pokes+10,8:pokes+5,75:pokes+12,75:pokes+24,15:pokes+4,65:pokes+11,65:gosub6:pokes+4,64:pokes+11,64:gosub62:return
  65. 65 gosub62:pokes+4,32:pokes+5,10:pokes+6,0:pokes+11,32:pokes+12,9:pokes+13,0:pokes+17,8:pokes+18,16:pokes+19,0:pokes+20,241:pokes+24,15:fori=0to67:j=nt(0,i):ifj<>100thenpokes+4,32:pokes,lo(j):pokes+1,hi(j)
  66. 66 j=nt(1,i):ifj<>100thenpokes+11,32:pokes+7,lo(j):pokes+8,hi(j)
  67. 67 j=nt(2,i):ifj<>100thenpokes+18,16:pokes+14,lo(j):pokes+15,hi(j)
  68. 68 pokes+18,17:forj=1to15:nextj:pokes+4,33:forj=1to10:nextj:pokes+11,33:forj=1totc:nextj:nexti:pokes+4,32:pokes+11,32:pokes+18,16:gosub62:return
  69. 69 gosub62:pokes+4,16:pokes+5,10:pokes+12,10:pokes+11,16:pokes+24,15:fori=0to23:j=nd(0,i):ifj<>100thenpokes+4,16:pokes,lo(j):pokes+1,hi(j)
  70. 70 j=nd(1,i):ifj<>100thenpokes+11,16:pokes+7,lo(j):pokes+8,hi(j)
  71. 71 pokes+4,17:forj=1to30:next:pokes+11,17:forj=1totc:next:nexti:gosub6:gosub62:return
  72. 72 sn=0:pn=53240:p1=26:p2=27:p3=28:p4=29:p5=30:p6=31:p7=30:p8=31:p9=26:pa=27:pb=26:pc=27:pd=28:pe=29:pf=28:pg=29:pokev+29,0:pokev+23,0:dy=4:dx=4
  73. 73 vx=v:vy=v+1:lx=255-1:ux=1:pokev+39,11:pokev+28,0:pokepn,p4:pokevy,ys:ifxs<256thenpokevx,xs:pokev+16,peek(v+16)and254
  74. 74 ifxs>255thenpokevx,xs-256:pokev+16,peek(v+16)or1
  75. 75 pokev+21,peek(v+21)or1:return
  76. 76 sn=0:pn=36856:p1=42:p2=43:p3=44:p4=45:p5=46:p6=47:p7=46:p8=47:p9=42:pa=43:pb=42:pc=43:pd=44:pe=45:pf=44:pg=45:pokev+29,0:pokev+23,0:dy=4:dx=4:goto73
  77. 77 fori=50816to51136step64:forj=0to24:reada:pokei+j,a:nextj:forj=25to64:pokei+j,0:nextj:nexti:fori=50752to50775:reada:pokei,a:next:fori=50776to50815:pokei,0:next:fori=50688to50751:pokei,0:next:fori=50688to50700step3:pokei,240:next:fori=50688to51199:pokei-15360,peek(i):next:fori=0to41:readhi(i),lo(i):next:forj=0to2:fori=0to67:readnt(j,i):nexti:nextj
  78. 78 forj=0to1:fori=0to23:readnd(j,i):nexti:nextj:gosub54:poke53280,9:poke53281,12:print"[147]":xs=344:ys=58:gosub76:iy=0:fori=1to79:gosub46:next:pokepn,p4:gosub7:print"  [200]ello.":gosub59:gosub7:print"[155]  [201] am your tour guide to the ancient":print"  city of [202]erusalem.";:gosub6:print"  [201] understand you"
  79. 79 print"  have come here to follow [208]aul through":print"  the years of his education as a":print"  [208]harisee, and his growth as a zealous":print"  protector of the [200]ebrew faith.":gosub6:print"    [201]n addition to being your eyes and":print"  legs during this time, [201] can also"
  80. 80 print"  tell you about important places in the";:print"  city, and things that are happening,":print"  that you might be interested in.":gosub6:print"  [212]hese places are marked for your":print"  convenience with a flashing light.":gosub6
  81. 81 print"    [217]ou can guide me there by using the":print"  joystick in port#2 or the cursor keys.[151]":gosub19:pokepn,p4:gosub12:pokev+21,0:ys=58:print"[155][147]":gosub7:gosub76:gosub8:print"  [201]f you want, [201] can tell you about":print"  ancient [202]erusalem and the [208]harisees"
  82. 82 print"  before we start.":gosub6:print"  [215]ould you like that(y/n)?":poke198,0
  83. 83 geta$:ifa$="y"thenpokev+21,0:goto86
  84. 84 ifa$="n"thenprint"":gosub76:goto92
  85. 85 goto83
  86. 86 print"[147]":gosub7:pokepn,p2:gosub76:print"  [207]kay,":gosub59:pokepn,p4:gosub7:print"  [202]erusalem in [208]aul's time is a city of":print"  two million people and the spiritual":print"  capital of the [202]ews.";:gosub6:print"  [212]he [202]ews are six";:print"  million altogether, about one-tenth"
  87. 87 print"  the total population of the ancient":print"  world.";:gosub6:print"  [212]he original city, established";:print"  by [203]ing [196]avid, was destroyed by the":print"  [194]abylonians under [203]ing [206]ebuchadnezzar,";:print"  and the [202]ews driven into exile in"
  88. 88 print"  [194]abylon.";:gosub6:print"  [197]ventually the [202]ews":print"  returned, and under the leadership of":print"  the priest [197]zra and the statesman":print"  [206]ehemiah, rebuilt the city.";:gosub6:print"  [196]uring":print"  many struggles in which the [202]ews"
  89. 89 print"  gained their independence, only to":print"  lose it to the [211]yrians and then the":print"  [210]omans, the city has grown to become":print"  the center it is in [208]aul's time.[151]":gosub6:gosub19:pokepn,p4:gosub12:pokev+21,0:ys=58:gosub76:print"[147][155]    [212]he [208]harisees are [202]ews of [208]aul's"
  90. 90 print"  time who believe that [201]srael exists to";:print"  serve [199]od, and that we serve [199]od by":print"  following [200]is [204]aw, given to the [202]ews":print"  by [205]oses, in everything we do.";:gosub6:print"  [201]n":print"  order to do this, they have created"
  91. 91 print"  many rules, based on the [204]aw, to":print"  govern every phase of life.";:gosub6:print"  [194]y":print"  following every rule, one might avoid":print"  sin, for it is sin that separates man":print"  from [199]od.":gosub10
  92. 92 print"    [215]e can now go into [202]erusalem.[151]":gosub59:gosub19:pokepn,p4:gosub7:gosub12:xs=28:ys=228:gosub56:tc=95:gosub65:pokev+2,92:pokev+3,114:pokev+4,148:pokev+5,112:pokev+6,172:pokev+7,144:pokev+8,168:pokev+9,220:pokev+10,228:pokev+11,220:pokev+12,244:pokev+13,214:pokev+14,24:pokev+15,216:pokev+16,128:ct=0
  93. 93 fori=1to7:pokev+39+i,7:poke53240+i,25:c(i)=0:next:n=255:pokev+21,n
  94. 94 gosub48:ifx=3goto108
  95. 95 ifx=5goto132
  96. 96 ifx=9goto111
  97. 97 ifx=17goto117
  98. 98 ifx=33goto122
  99. 99 ifx=65goto126
  100. 100 ifx=129goto129
  101. 101 goto94
  102. 102 gosub12:ifct=7then104
  103. 103 gosub72:gosub56:pokev+21,n:poke53281,12:poke53280,11:goto94
  104. 104 poke53281,12:print"[147][155]   [215]e have seen all we can now.  [217]ou can";:print"revisit some of the places, or join [208]aul";:print"in his studies at school.":poke198,0:print"[193]re you ready to join [208]aul(y/n)?":gosub59
  105. 105 geta$:ifa$="y"then138
  106. 106 ifa$="n"then103
  107. 107 goto105
  108. 108 gosub54:poke53281,7:print"[147][151]  [212]his is the [149][193][206][212][207][206][201][193][160][198][207][210][212][210][197][211][211]":gosub58:print"  [194]uilt by [203]ing [200]erod the [199]reat, in":print"honor of his friend and ally, [205]ark ":print"[193]ntony, the fortress serves as a base of";:print"operations for [210]oman control of the"
  109. 109 print"city.  [200]ere [208]ontius [208]ilate, the [210]oman":print"governor of [202]udea, holds court, and":print"governs the city.":gosub10:gosub58:n=253:ifc(1)=0thenc(1)=1:ct=ct+1
  110. 110 goto102
  111. 111 gosub54:poke53281,9:print"[147]     [212]he [208][193][204][193][195][197] [207][198] [212][200][197] [200][193][211][197][205][207][206][197][193][206][211]":gosub58:gosub6:print"[155]  [212]he early [200]asemonean [203]ings have a":print"place of honor in the history of the":print"[202]ewish people.";:gosub9:print"  200 years previously,":print"they led the [205]accabean revolt.";:gosub9:print"  [193]gainst"
  112. 112 print"great odds, they fought for and won":print"for the [202]ews, freedom to worship [199]od, as";:print"well as independence and economic power.":gosub10:print"  [213]nfortunately the later [200]asemoneans":print"didn't do as well.";:gosub60:gosub6:print"  [212]hey abandoned much"
  113. 113 print"of their [202]ewish heritage and adopted the";:print"popular [199]reek ways of the time.";:gosub9:print"  [194]y":print"murder and treachery they lived, and the";:print"people grew to hate them.";:gosub9:print"  [212]wo ruling":print"parties emerged, the [208]harisees and the"
  114. 114 print"[211]adducees.";:print"  [215]hile the [208]harisees saw in":print"the [202]ewish nation a way to preserve":print"man's faith in [199]od, the [211]adducees saw":print"their religion as a tool to unite the":print"nation and assimilate conquered people."
  115. 115 print"[195]ivil war and the lack of trust of the":print"people in their rulers weakened [202]udea,":print"and eventually [202]udea fell to the [210]omans.[129]";:tc=105:gosub65:gosub9:n=247:ifc(3)=0thenc(3)=1:ct=ct+1
  116. 116 goto102
  117. 117 gosub54:poke53281,2:print"[147][156]  [212]his is [158][203][201][206][199][160][200][197][210][207][196]'[211][160][208][193][204][193][195][197]":gosub58:gosub6:print"  [212]he [210]oman conquerors, although they":print"want to extend their empire over all the";:print"world, do not wish to get involved in":print"the local affairs of the countries they"
  118. 118 print"control (unless of course it affects":print"their empire).";:gosub10:print"  [211]o they have let the":print"[202]ews retain a king whom they approve of.";:gosub9:print"  [200]erod [193]ntipas is the present king of":print"[202]udea and he is ruthless in exerting his";
  119. 119 print"authority over the people.";:gosub10:print"  [204]ike his":print"father, [200]erod the [199]reat, he has built":print"many public buildings and helped make":print"[202]erusalem one of the great cities of thetime.":gosub10:print"  [200]owever, he is concerned only with"
  120. 120 print"power and wealth, and ignores the people";:print"and [199]od to whom he is responsible.[156]":gosub60:gosub10:n=239:ifc(4)=0thenc(4)=1:ct=ct+1:gosub58
  121. 121 goto102
  122. 122 poke53281,5:gosub54:print"[147][153][212]he [208]alace of the [200]igh [208]riest [195]aiaphas":gosub58:gosub6:print"  [212]he [200]igh priest is traditionally the":print"spiritual leader of the [202]ewish people.":gosub6:print"[213]nfortunately at this time, the position";:print"of the [200]igh [208]riest has diminished, and"
  123. 123 print"he is now appointed by the king.";:gosub6:print"  [203]ing":print"[200]erod is rather greedy, and the [200]igh":print"[208]riest is someone who has paid the king":print"handsomely for the position.";:gosub6:print"  [212]he":print"present [200]igh [208]riest is [195]aiaphas, a man"
  124. 124 print"of much wealth and power.":gosub10:gosub58:n=223:ifc(5)=0thenc(5)=1:ct=ct+1
  125. 125 goto102
  126. 126 gosub54:poke53281,3:print"[147][151]   [212]his is [203][201][206][199][160][196][193][214][201][196]'[211][160][212][207][205][194]":gosub58:print"  [212]his monument, in the old part of the":print"city, is located where [203]ing [196]avid was":print"thought to be buried.":gosub9:print"  [196]avid, of course, is the shepherd boy"
  127. 127 print"who killed [199]oliath and later became king";:print"of [201]srael.";:gosub9:print"  [199]od was his trusted":print"companion, and he wrote many psalms,":print"which are preserved in the [194]ible.[151]":tc=135:gosub69:gosub6:n=191:ifc(6)=0thenc(6)=1:ct=ct+1:gosub58
  128. 128 goto102
  129. 129 gosub54:poke53281,1:print"[147][155]   [212]his is the [156][197][211][211][197][206][197] [199][193][212][197]":gosub59:print"  [212]he [197]ssenes are a group of [202]ews who":print"have decided to give up all worldly":print"things, in order to live in harmony with";:print"[199]od.";:gosub9:print"  [212]hey share all they have, and live";
  130. 130 print"together, very simply, in the hills.":gosub9:print"[211]ometimes they come to [202]erusalem, and":print"the other towns around [202]udea, and preach";:print"to the people.[155]":gosub6:n=127:ifc(7)=0thenc(7)=1:ct=ct+1:gosub59
  131. 131 goto102
  132. 132 xt=xs:yt=ys:xs=28:ys=150:gosub55:gosub63:gosub9:gosub54:poke53281,1:print"[147]               [212][200][197] [212][197][205][208][204][197]":gosub63:gosub6:print"[154]   [212]his is the second [212]emple, built on":print"the site of the original [212]emple which":print"was built 950 years ago by [203]ing [211]olomon.";:gosub9
  133. 133 print"   [212]he [212]emple is [199]od's house on earth.":gosub9:print"[201]nside the [212]emple is a special chamber":print"called the [200]oly of [200]olies which holds":print"[199]od's [196]ivine [208]resence.";:gosub61:gosub9:print"  [212]he people":print"cannot enter this room.";:gosub9:print"  [207]nly the [200]igh"
  134. 134 print"[208]riest goes in, once a year, to make":print"sacrifice for the sins of the people.":gosub9:print"  [193]ll faithful [202]ews, who can make the":print"trip, come to [202]erusalem once a year,":print"during the [208]assover, to worship and"
  135. 135 print"offer sacrifices at the [212]emple.":gosub10:print"":gosub12:gosub55:pokev+2,230:pokev+3,170:pokev+21,3:n=3:gosub48:gosub54:xs=xt:ys=yt:pokev+2,92:pokev+3,114:poke53281,1:print"[147][152]       [212][200][197][160][211][193][206][200][197][196][210][201][206][160][195][207][213][206][195][201][204][160][210][207][207][205]":gosub59:gosub9:print"  [212]he [211]anhedrin, which is the governing"
  136. 136 print"  body in [202]ewish matters, meet here.":gosub9:print"[155]":n=251:ifc(2)=0thenc(2)=1:ct=ct+1
  137. 137 goto102
  138. 138 print"   [207]kay, you will find the school near":print"the [193]ntonia [198]ortress.[145][145][145]";:gosub168:pokev+2,92:pokev+3,130:pokev+40,1:poke53241,24:gosub56:pokev+21,3:gosub52:gosub17:print"[212]his school is run by the [208]harisees, for";:print"the religious teaching of [202]ewish boys,"
  139. 139 print"to enable them to be scholars, teachers,";:print"and leaders.":gosub9:print"   [208]aul is a student here.":gosub9:print"   [215]e will now cover beliefs and":print"practices central to [208]harisaic thought.[129]":gosub168:goto146
  140. 140 print"[147][155]   [198]irst, the relationship between":print"[199]od and man, and why we have the [204]aw.":return
  141. 141 gosub9:print"   [215]e know from the [212]orah, that [199]od":print"created man in [200]is image,";:gosub9:print" but that man's";:print"nature, as told in the story of [193]dam and";:print"[197]ve in the garden of [197]den, caused him to";:print"sin, and he was separated from [199]od.[129]":gosub60:gosub11:return
  142. 142 print"   [194]ut [199]od did not give up on man.";:gosub61:print"  [200]e":print"raised up a people, [201]srael, to be [200]is":print"people, to be an example to all, so that";:print"man may once more be close to [199]od.[129]":gosub9:gosub11:return
  143. 143 print"  [212]hrough [200]is prophet [205]oses, [200]e gave [200]is";:print"people the [204]aw,";:gosub63:print" so that they might know":print"right from wrong, and behave as [199]od's":print"chosen people.[129]":gosub9:gosub11:return
  144. 144 print"   [200]owever, man's sinful nature is":print"still with us,";:gosub60:print" and even though we know":print"the [204]aw, we sin and break the [204]aw.":gosub9:print"[212]herefore we cannot approach [199]od.":gosub9:print"[201]nstead, [200]e has appointed priests,";:gosub9:print"to"
  145. 145 print"offer sacrifices and intercede for us,":print"so that we do not become completely":print"separate from [200]im, as the pagans are.[145][145][129]":gosub9:gosub11:return
  146. 146 gosub140:gosub141:gosub140:gosub142:gosub140:gosub143:gosub140:gosub144:gosub140:print"   [215]e, as [208]harisees, try to understand":print"the meaning of the [204]aw,";:gosub63:print" in order to":print"apply it to every part of our lives,":gosub9:print"so that we may be as sinless as it is"
  147. 147 print"possible for man to be.";:gosub9:print"  [212]o help us":print"do this, we have interpreted the [204]aw,":print"into many rules that govern our daily":print"lives,";:gosub9:print" so that in following these rules,";:print"we will not sin.":gosub9
  148. 148 print"   [215]e advise all to follow these same   rules.[145][145][145][145][145][145][129]":gosub9:gosub11:poke198,0:print"[147][155]   [215]ould you like to review today's":print"lesson(y/n)?";:gosub59
  149. 149 geta$:ifa$="y"goto146
  150. 150 ifa$="n"goto152
  151. 151 goto149
  152. 152 print"[147][155]   [215]e are now going to take a tour of":print"the temple.";:gosub9:print"  [201]ts structure will tell us":print"something of the relationship of [199]od and";:print"man, and also, within mankind, the":print"special role of priests, men, and women,";
  153. 153 print"and the [202]ews as [199]od's people.":gosub9:print"   [215]e will meet at the temple.[129]":gosub9:gosub11:gosub56:pokev+21,5:n=5:gosub48:xt=xs:yt=ys:ct=0:xs=28:ys=150:gosub55:pokev+2,180:pokev+3,210:pokev+21,3
  154. 154 n=3:gosub48:ct=ct+1:gosub54:onctgosub156,159,160,162,163,164,170:ifct<7goto154
  155. 155 goto173
  156. 156 poke53281,15:print"[147]        [195][207][213][210][212] [207][198] [212][200][197] [199][197][206][212][201][204][197][211]":gosub63:gosub6:print"   [199]entiles, or non-[202]ews, are forbidden":print"to enter the [212]emple.";:gosub9:print"  this court is as":print"close as they can get.":gosub9:print"   [211]till, many of the [199]entiles have felt";
  157. 157 print"the call of the one true [199]od, and prefer";:print"the highly moral [202]ewish religion, over":print"the pagan religions with their many":print"cruel gods, statue-worship, and lack of":print"respect for life.":gosub10:print"   [207]nly the strict [202]ewish requirements"
  158. 158 print"of diet and circumcision have kept some":print"of these people from adopting [202]udaism.[145][145][145][145][145][145]";:gosub169:pokev+2,65:pokev+16,2:pokev+3,142:return
  159. 159 poke53281,1:print"[147][154]           [212][200][197] [212][197][205][208][204][197] [199][193][212][197]":gosub63:gosub6:print"[155]   [212]his is the [194]eautiful [199]ate, or":print"entrance to the [212]emple.";:gosub9:print"  [201]t is about":print"9 feet above the [195]ourt of the [199]entiles.[154]":gosub169:pokev+2,50:pokev+16,3:pokev+3,125:return
  160. 160 poke53281,1:print"[147][154]            [215][207][205][197][206]'[211] [195][207][213][210][212]":gosub63:gosub6:print"[152]   [212]his is the [215]omen's [195]ourt, thus named";:print"because [202]ewish women can only go this":print"far into the [212]emple.";:gosub9:print"  [212]his court is":print"about 11 feet above the entrance.[154][145]"
  161. 161 gosub169:pokev+2,10:pokev+16,3:pokev+3,110:return
  162. 162 poke53281,1:print"[147][152]             [201][211][210][193][197][204] [195][207][213][210][212]":gosub63:gosub6:print"[154]   [212]his court is exclusively for [202]ewish":print"men and boys.";:gosub9:print"  [201]t is about 11 feet":print"above the [215]omen's [195]ourt.[152]":gosub169:pokev+2,240:pokev+3,154:pokev+16,1:return
  163. 163 poke53281,1:print"[147]           [208][210][201][197][211][212][211]' [195][207][213][210][212]":gosub63:gosub6:print"[154]   [212]his court, which includes the large":print"sacrificial altar, is reserved for":print"priests only.";:gosub9:print"  [201]t is slightly higher":print"than the [201]srael [195]ourt.";:gosub169:pokev+2,220:pokev+3,138:return
  164. 164 poke53281,1:print"[147]   [212][200][197] [211][193][206][195][212][213][193][210][217]":gosub63:gosub6:print"     [159]       [146] [176] [200][207][204][217] [207][198] [200][207][204][201][197][211] -- the":gosub167:print"_[189]  place of the [196]ivine":print"     [159] [146]  [158] [146][159]   [146]    [208]resence, where sinful":print"     [159] [146][185][185][185][185][185][159] [146]    man cannot enter.";:gosub61:gosub9
  165. 165 print"  [207]nly":gosub167:print"    the [200]igh [208]riest enters":gosub167:print"    here, once a year, to":gosub167:print"    offer sacrifice to":gosub167:print"    atone for the sins of":print"   [159]   [146]        [146]  the people.":gosub10:print"   [159] [146]          [146]_[174]"
  166. 166 print"   [159] [146]          [146] [173] [212][200][197] [200][207][204][217] [208][204][193][195][197] -- here":print"   [159]     [146]      [146]    the priests perform":printspc(18)"their regular duties.":gosub9:print"   [207]nly priests can enter into the":print"   sanctuary.[154][145][145][145][145][145][145][145][145][145]";:gosub169:pokev+2,28:pokev+3,150:return
  167. 167 print"     [159] [146]      [146]";:return
  168. 168 gosub9:gosub59:gosub11:return
  169. 169 gosub168:gosub55:pokev+21,3:return
  170. 170 poke53281,1:gosub59:print"[147][152]   [212]he temple tour is now over.";:gosub9:gosub15:print"[147][149]   [208]aul becomes an eager student.";:gosub9:print"  [200]is":print"desire to become close to [199]od grows, and";:print"so he becomes a '[208]harisee of [208]harisees',";:gosub9
  171. 171 print"by learning and following closely all":print"the rules that the [208]harisees have made,":print"to apply the law to every part of life.":tc=110:gosub65:gosub11:print"[147][151]   [215]e now return to school, to see more":print"of what [208]aul may have learned as a"
  172. 172 print"student of the [208]harisees.":gosub9:gosub11:return
  173. 173 xs=xt:ys=yt:pokev+2,92:pokev+3,130:pokev+40,1:gosub56:pokev+21,3:gosub52:gosub17:print"[207]ur knowledge and beliefs are based on":print"divine revelation and the [204]aw given to":print"man, as recorded by [205]oses in the [212]orah,":gosub9:print"and later as given through the prophets"
  174. 174 print"and recorded by the scribes in the":print"[194]ible.[129]":gosub9:gosub11:print"[147][155]   [212]his knowledge tells us of a life":print"beyond this earthly life,";:gosub61:print" which we may":print"attain, through prayer, sacrifice, and":print"careful adherence to the [204]aw.";:gosub9:print"  [193]fter we"
  175. 175 print"die, we will be resurrected into the new";:print"life.[129]":gosub9:gosub11:print"[147][155]   [217]our assignment today will be: to go":print"to the library, near [200]erod's palace, and";:print"look up information in the [194]ible which":print"informs about resurrection.":gosub59:gosub9
  176. 176 print"   [217]ou will find the information in":print"three books.[129]":gosub9:gosub11:pokev+2,176:pokev+3,208:gosub56:pokev+21,3:gosub52:xt=xs:yt=ys:n=0:fori=1to3:c(i)=0:next
  177. 177 lt=0:xs=32:ys=148:gosub54:pokev+40,7:poke36857,40:x=peek(v+30)
  178. 178 ht=0:poke53280,9:poke53281,6:gosub76:dx=6:dy=6:pokev+39,1:print"[147][155]";:gosub196:gosub197:print"[157]e[157]x[157]i[157]t[155]";:gosub197:print" ";:gosub197:print"";:gosub197:print"[157] [157]";:gosub196:print"[159]"tab(6)"*[211][193][205][213][197][204] "tab(22)"*[197][195][195][204][197][211][201][193][211][212][197][211] ":printtab(6)"*[202][213][196][199][197][211] "tab(22)"*[195][200][210][207][206][201][195][204][197][211] [201] ":printtab(6)"*[197][211][212][200][197][210] "tab(22)"*[197][218][210][193] "
  179. 179 printtab(6)"*[203][201][206][199][211] [201][201] "tab(22)"*[206][197][200][197][205][201][193][200] ":printtab(6)"*[202][197][210][197][205][201][193][200] "tab(22)"*[202][207][194] ":printtab(6)"*[208][211][193][204][205][211] "tab(22)"*[218][197][195][200][193][210][201][193][200] ":printtab(6)"*[210][213][212][200] "tab(22)"*[196][193][206][201][197][204] ":printtab(6)"*[202][207][206][193][200] "tab(22)"*[203][201][206][199][211] [201] "
  180. 180 ct=0:gosub41:gosub20:if(n=3)and(xs>328)and(ys>135)and(ys<156)goto198
  181. 181 fori=1to4:pokev+3,83+ct:gosub193:next:gosub41:gosub20:fori=1to4:pokev+3,99+ct:gosub193:next:ifht=0goto180
  182. 182 poke53280,15:poke53281,15:pokev+21,0:print"[147]"spc(15)"looking...":gosub59:gosub6:ifht=16thenlt=ht:goto186
  183. 183 ifht=88thenlt=ht:goto188
  184. 184 ifht=112thenlt=ht:goto190
  185. 185 print"[147]"spc(15)"[151]not here":gosub60:gosub6:lt=ht:goto178
  186. 186 poke53280,14:poke53281,9:ifc(1)=0thenc(1)=1:n=n+1
  187. 187 print"[147][158] [197]cclesiastes, [195]hapter 12, [214]erse 14":gosub64:print"'[193]nd the dust returns to the ground it":print"came from,":gosub9:print"[193]nd the spirit returns to [199]od who gave":print"it.'":gosub6:gosub61:gosub10:goto178
  188. 188 poke53280,14:poke53281,9:ifc(2)=0thenc(2)=1:n=n+1
  189. 189 print"[147][158] [208]salm 49, [214]erse 15":gosub64:print"'[194]ut [199]od will redeem my soul from the   grave;":print"[200]e will surely take me to [200]imself.'":tc=145:gosub69:gosub9:goto178
  190. 190 poke53280,14:poke53281,9:ifc(3)=0thenc(3)=1:n=n+1
  191. 191 print"[147][158] [196]aniel, [195]hapter 12: [214]erses 2,3":gosub64:print"'[205]ultitudes who sleep in the dust will":print"awake, some to everlasting life, others":print"to shame and everlasting contempt.":gosub63:gosub9:print"[212]hose who are wise will shine like the"
  192. 192 print"brightness of the heavens, and those who";:print"lead many to righteousness, like the":print"stars for ever and ever.'":gosub9:gosub63:gosub10:goto178
  193. 193 pokev+2,72:gosub194:pokev+2,202:gosub194:return
  194. 194 pokev+21,3:ct=ct+8:pokev+21,1:x=peek(v+30):if(x>0)and(ct<>lt)thenht=ct
  195. 195 return
  196. 196 fori=1to38:print" ";:next:return
  197. 197 fori=1to8:print"[157] ";:next:return
  198. 198 poke53280,6:poke53281,15:pokev+21,0:print"[147]  [215]ould you like to see those writings  again (y/n)?":gosub59
  199. 199 geta$:ifa$="y"goto177
  200. 200 ifa$="n"goto202
  201. 201 goto199
  202. 202 gosub15:print"[147][149][208]aul takes these lessons to heart.";:gosub61:gosub9:print"  [200]e  becomes convinced that the righteousness";:print"of the [208]harisees is essential for man's":print"salvation, and resolves to do all he can";
  203. 203 print"to help others follow the same teaching.[152]":tc=115:gosub65:gosub11:xs=xt:ys=yt:pokev+2,92:pokev+3,130:gosub18:gosub16:print"[155]  [193] student arrives with the news:":print"' [212]here is something exciting going on":print"just outside the [197]ssene (south) gate!":gosub59:gosub9
  204. 204 print"  [204]et's go see what is happening.'[129]":gosub11:n=5:pokev+16,4:pokev+4,40:pokev+5,240:gosub56:gosub48:gosub54:poke53280,6:poke53281,15:print"[147][152]  [193] group of [156][197]ssenes[152] are camping here.":gosub9:print"[212]heir leader, [154][202]ohn (the [194]aptist)[152], is":print"preaching to the people:":gosub63:gosub6
  205. 205 print"'[210]epent, for the [196]ay of [202]udgement is":print"coming soon.";:gosub64:gosub6:print"  [212]urn from the ways of the":print"world and seek the ways of [199]od.'[152]":gosub61:gosub9:gosub11:gosub18:print"[215]e [202]ews, have at different times in our":print"history, been blessed with special"
  206. 206 print"leaders anointed by [199]od,";:gosub61:gosub9:print" who have done":print"great things for us.[129]":gosub9:gosub11:print"[147][155]  [211]ome of those anointed leaders, or":print"[205]essiahs, are:":gosub9:print"[205]oses[155],";:gosub64:print" who led us out of slavery in"
  207. 207 print"[197]gypt and through whom the [204]aw was":print"given,":gosub9:print"[196]avid[155],";:gosub64:print" who saved us from the [208]hilistines";:print"and made us into a powerful nation.[145][145][129]":gosub9:gosub11:print"[147][155][205]ore recently, during these times of"
  208. 208 print"oppression by foreign powers and rule by";:print"corrupt and cruel kings, our people have";:print"prayed for a [205]essiah,";:gosub9:print" who will save us":print"from the rule of others and restore our":print"nation to righteousness.[129]":gosub6:gosub63:gosub9:gosub11
  209. 209 print"[147][155]  [201]t has been prophesied that [199]od will":print"send [200]is [205]essiah soon.";:gosub9:print"  [205]any hope he":print"will come to defeat our enemies, and":print"make us again into a powerful nation,":print"as the [205]essiahs of old did.";:gosub58:gosub9:print"  [207]thers "
  210. 210 print"look for a spiritual leader, who will":print"restore us to the way of righteousness.[129]":gosub61:gosub10:gosub11:print"[147][155]  [212]hus ends the lesson...":gosub10:gosub16:print"   [193] messenger arrives with the news:":gosub59:print"'[202]ohn, a leader amongst the [197]ssenes, is"
  211. 211 print"is calling all to repent of their sins":print"and be baptized, at the river [202]ordan.":gosub9:print"[208]erhaps he is the [205]essiah.";:gosub9:print"  [201] am going":print"there to see and will let you know.'[129]":gosub9:gosub11:gosub56:pokev+39,11:fori=1to18:gosub46:next:gosub54:poke53281,15
  212. 212 xs=xs+320:gosub76:pokev+39,11:fori=1to80:gosub46:next:pokev+21,0:poke53281,13:xs=xs+320:print"[147]";:fori=1to24:printspc(7)"  ":next:printspc(7)"  ";:pokev+21,3:fori=1to61:gosub46:next:gosub7:gosub64:gosub61:gosub64:gosub6:fori=1to61:gosub47:next:pokev+21,0:print"[147]":poke53281,15:xs=xs-320:pokev+21,1:fori=1to80:gosub47:next:xs=xs-320:gosub56:pokev+39,11:pokev+21,3
  213. 213 fori=1to18:gosub47:next:gosub8:gosub54:poke53281,9:gosub16:print"[155]  [212]he messenger returns with his story:":gosub59:gosub6:print"[158]'[215]e asked [202]ohn if he was the [205]essiah.":gosub9:print"[200]e said that he was not, then he said,":gosub9:printchr$(34)"[201] am the voice of one calling in the"
  214. 214 print"wilderness, 'make straight the way of":print"the [204]ord.'"chr$(34):gosub221:gosub64:gosub9:print"[158][212]hen:":gosub6:printchr$(34)"[201] baptise you with water for":print"repentance,";:gosub9:print"but there will come after":print"me, one whose sandals [201] am unfit to tie.";:gosub221:gosub64
  215. 215 print"[200]e will baptise with the [200]oly [211]pirit."chr$(34):gosub221:gosub61:gosub9:print"[158][195]an you make any sense of that?'[129]":gosub6:gosub12:poke53280,12:gosub15:print"[147][149]  [208]aul finishes his schooling, and":print"stays in [202]erusalem, as a member of the"
  216. 216 print"[208]harisee community.";:gosub9:print"  [200]e is very strong":print"in his desire to serve [199]od, and feels":print"that the best way to do it is to observe";:print"the teaching of the [208]harisees, and to":print"spread and protect these ideals, above"
  217. 217 print"all else.[152]";:tc=115:gosub65:gosub11:print"[147]  [215]e can stop now, or go on to the next":print"part of [208]aul's life, his conversion.":print"[215]ould you like to go on (y/n)?":poke198,0
  218. 218 geta$:if(a$<>"n")and(a$<>"y")then218
  219. 219 ifa$="n"thenprint"[147]  [211]ee you later.":stop
  220. 220 print"[147]  [208]lease wait...":clr:poke52,134:poke56,134:poke45,255:poke46,132:poke47,255:poke48,132:poke49,255:poke50,132:i=2:load"+paul.conv.c",8
  221. 221 forct=1to5:poke53280,14:gosub8:poke53280,6:gosub8:next:poke53280,11:return:data24,0,0,24,0,0,30,0:data0,58,0,0,203,0,0,28:data0,0,100,0,0,71,0,0,193:data24,0,0,24,0,0,12,0:data0,30,0,0,122,0,0,14:data0,0,28,0,0,38,0,0,98:data24,0,0,24,0,0,120,0:data0,92,0,0,211,0,0,56:data0,0,38,0,0,226,0,0,131
  222. 222 data24,0,0,24,0,0,48,0:data0,120,0,0,94,0,0,112:data0,0,56,0,0,100,0,0,70:data24,0,0,24,0,0,60,0:data0,90,0,0,90,0,0,62:data0,0,36,0,0,52,0,0,20:data24,0,0,24,0,0,60,0:data0,90,0,0,90,0,0,124:data0,0,36,0,0,44,0,0,40:data8,0,0,20,0,0,255,128:data0,99,0,0,99,0,0,255
  223. 223 data128,0,20,0,0,8,0,0:data0,0,3,244,4,48,4,180,4,251,5,71,5,152,5,237,6,71,7,12,7,233,8,97,9,104:data10,143,11,48,11,218,12,143,14,24,15,210,16,195,18,209,21,31,22,96:data23,181,25,30,28,49,31,165,33,135,6,167,8,225,9,247,13,78,17,195,19,239
  224. 224 data26,156,35,134,3,134,4,112,7,119,14,239,29,223,37,162:data0,25,25,24,22,20,100,100,17,25,24,22:data24,100,100,25,24,100,20,22:data22,100,25,100,0,41,100,27,25,100,100,100:data35,25,25,24,22,20,100,100,0,25,24,22:data24,20,100,100,0,0,20,21,22,100,20,100
  225. 225 data19,17,19,20,100,100,100,100,100,100,100,100:data20,22,22,21,0,14,100,16,14,22,21,20:data0,39,100,19,39,100,39,100:data17,100,0,0,20,100,20,100,0,24,24,22:data21,20,20,20,0,14,14,16,14,22,21,20:data0,39,100,17,39,100,100,100,17,100,14,100
  226. 226 data0,0,16,16,14,100,100,100,100,100,100,100:data3,9,38,9,3,9,38,9,3,9,38,9:data8,12,30,12,8,8,6,5:data3,5,6,8,9,100,38,100,0,0,36,36:data36,36,1,37,3,9,38,9,3,9,38,9:data8,12,30,12,8,12,16,12,3,9,38,9:data13,9,9,36,3,9,38,9,3,100,100,100
  227. 227 data19,100,25,100,100,100,40,24,27,100,100,100,40,24,22,100,100,100:data21,100,22,100,100,100:data19,100,22,100,100,100,22,100,22,100,21,100,20,100,19,100,20,100:data19,39,17,100,100,100
  228.