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

  1. 1 poke808,252:poke52,136:poke56,136:v=53248:s=54272:sm=35840:cm=55296:dimlo(35),hi(35),nt(1,64),p(11):goto118
  2. 2 fori=1to2000:next:return
  3. 3 jv=peek(56320):jv=16-(jvand15):ix=0:iy=0:onjvgoto23,4,6,23,8,10,12,23,14,16,18
  4. 4 iy=-dy:ifpeek(pn)=p7thenpokepn,p8:goto20
  5. 5 pokepn,p7:goto20
  6. 6 iy=dy:ifpeek(pn)=p5thenpokepn,p6:goto20
  7. 7 pokepn,p5:goto20
  8. 8 ix=-dx:ifpeek(pn)=p1thenpokepn,p2:goto20
  9. 9 pokepn,p1:goto20
  10. 10 ix=-dx:iy=-dy:ifpeek(pn)=pbthenpokepn,pc:goto20
  11. 11 pokepn,pb:goto20
  12. 12 ix=-dx:iy=dy:ifpeek(pn)=p9thenpokepn,pa:goto20
  13. 13 pokepn,p9:goto20
  14. 14 ix=dx:ifpeek(pn)=p3thenpokepn,p4:goto20
  15. 15 pokepn,p3:goto20
  16. 16 ix=dx:iy=-dy:ifpeek(pn)=pfthenpokepn,pg:goto20
  17. 17 pokepn,pf:goto20
  18. 18 ix=dx:iy=dy:ifpeek(pn)=pdthenpokepn,pe:goto20
  19. 19 pokepn,pd:goto20
  20. 20 ifsn=0thengosub34
  21. 21 xs=xs+ix:ys=ys+iy:pokevy,ys:ifxs<256thenpokevx,xs:pokev+16,peek(v+16)andlx
  22. 22 ifxs>255thenpokevx,xs-256:pokev+16,peek(v+16)orux
  23. 23 return
  24. 24 geta$:ix=0:iy=0:ifa$="[145]"then4
  25. 25 ifa$=""then6
  26. 26 ifa$="[157]"then8
  27. 27 ifa$=""then14
  28. 28 return
  29. 29 print"";:ify=0then31
  30. 30 fori=1toy:print"";:nexti
  31. 31 printspc(x);:return
  32. 32 poke56578,peek(56578)or3:poke56576,(peek(56576)and252)or1:poke648,140:poke53272,52:sm=35840:poke53265,peek(53265)and223:pokev+21,0:return
  33. 33 poke56578,peek(56578)or3:poke56576,(peek(56576)and252)or0:poke648,204:poke53272,56:poke53265,peek(53265)or32:return
  34. 34 pokes+4,0:pokes,80:pokes+1,5:pokes+5,1:pokes+6,0:pokes+24,15:pokes+4,17:return
  35. 35 gosub38:pokes,49:pokes+1,28:pokes+5,17:pokes+6,241:pokes+24,15:forj=1to3:pokes+4,33:fori=1to150:next:pokes+4,32:fori=1to50:next:nextj:pokes,181:pokes+1,23:pokes+4,33:fori=1to800:next:gosub38:return
  36. 36 gosub38:pokes+1,69:pokes+5,17:pokes+6,241:pokes+24,15:pokes+4,17:fori=1to750:next:pokes+1,117:fori=1to1500:next:gosub38:return
  37. 37 gosub38: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:gosub38:return
  38. 38 fori=0to24:pokes+i,0:next:return
  39. 39 gosub38:pokes+5,9:pokes+12,9:pokes+19,8:pokes+3,8:pokes+10,8:pokes+17,8:pokes+24,15:goto43
  40. 40 forj=1tok:jj=j-8*int((j-1)/8):fori=0to1:sb=s+7*i:ifnt(i,j)<>0thenpokesb+4,32:pokesb,lo(nt(i,j)):pokesb+1,hi(nt(i,j))
  41. 41 pokesb+4,33:nexti:sb=s+14:ifn3(jj)<>0thenpokesb+4,32:pokesb,lo(n3(jj)):pokesb+1,hi(n3(jj))
  42. 42 pokesb+4,33:fort=1to20:nextt:nextj:return
  43. 43 ifnr=0thenk=64:gosub40:return
  44. 44 k=57:gosub40:fort=1to1375:next:gosub38:return
  45. 45 gosub38:pokes+10,8:pokes+17,8:pokes+5,10:pokes+6,2:pokes+13,32:pokes+20,32:pokes+24,15:dt=100:at=0:pokes+14,143:pokes+15,12:fori=0to9:pokes+4,32:pokes,lo(ns(i)):pokes+1,hi(ns(i)):fort=1to40:next:pokes+4,33:ifat<>0then47
  46. 46 pokes+11,64:pokes+18,64:pokes+7,lo(n4(i)):pokes+8,hi(n4(i)):pokes+11,65:pokes+18,65
  47. 47 at=at+ts(i):ifat>2thenat=0
  48. 48 fort=1todt*ts(i)-40:next:nexti:gosub38:return
  49. 49 print"    [145][157][157][157][157][157]   [145][157][157][157][157][157]     [157][157][157][157][152] [149] [157] [146]";:return
  50. 50 print"[151][157][157] [145][157] [146]";:return
  51. 51 print"   [145][157][157][157]   [145][157][157][157]   [145][157][157][157]  [145][157][157][157]   [157][157][151] [146]";:return
  52. 52 print"  [145][157][157][157]  [145][157][157][157]   [145][157][157][157]   [145][157][157][157]   [145][157][157][157][129][169] [223][157][157][152] [157] [146]";:return
  53. 53 print"  [145][157][157][157]  [145][157][157][157]   [145][157][157][157]  [145][157][157][157]   [145][157][157][157][129][169] [223][157][157][152] [157][149] [157] [146]";:return
  54. 54 print"    [145][157][157][157][157][157]   [145][157][157][157][157][157]     [145][157][157][157][157][157][129][169]   [223][157][157][157][157][152]  [157][157][157] [146]";:return
  55. 55 print"[151][157][157][157][157] [145][157] [146]";:return
  56. 56 print"[151][157][157][145][166]";:return
  57. 57 print"  [145][157][157][157][157]  [145][157][157][157][157]    [146]";:ln=ln+4:return
  58. 58 print"    [145][157][157][157][157][157][157][157][157][157][157]    [145][157][157][157][157][157][157][157][157][157][157]          [146]";:return
  59. 59 print"      [145][157][157][157][157][157][157][157]    [145][157][157][157][157][157][157][157]     [145][157][157][157][157][157][157][157]      ";:print" [145][157][157][157][157][157][157][157][129][169]     [223][157][157][157][157][157][157][152]  [157][157][157][157][157] [149] [152] [157][157][157][149] [146]";:return
  60. 60 print"[151][157][157][157][157][157][157][145][166][145][157][166][166][157][166]";:return
  61. 61 print"        [145][157][157][157][157][157][157][157][157][157][157][157]        [145][157][157][157][157][157][157][157][157][157][157][157]           ";:print"[145][157][157][157][157][157][157]     [145][157][157][157][157][157][129][169]   [223][146]";:return
  62. 62 print"[184]            [184][145][157][157][157][157][157][157][157][157][157][157][157][157]    [145][157][157][157][157][157][157][157][157][157][157][157]";:gosub58:return
  63. 63 print"++++++++++++++++++++++++++++++++++++++++";:return
  64. 64 print"[159]";:fori=1to12:x=int(20-2*rnd(0)):forj=1to2:printspc(x)"            ":nextj:nexti:printspc(x)"            [146]";:fori=sm+98tosm+960step80:x=peek(i):x=((x=32)or(x=96)):y=peek(i-40):y=((y=32)or(y=96)):ifxand(noty)thenpokei-40,95
  65. 65 if(notx)andythenpokei,233
  66. 66 nexti:fori=sm+110tosm+960step80:x=peek(i):x=((x=32)or(x=96)):y=peek(i-40):y=((y=32)or(y=96)):ifxand(noty)thenpokei-40,105
  67. 67 if(notx)andythenpokei,223
  68. 68 nexti:return
  69. 69 print"[147][142]";:fori=1to3:gosub63:next:fori=4to22:print"++++"spc(32)"++++";:next:gosub63:gosub63:fori=960to999:pokecm+i,1:pokesm+i,43:next:return
  70. 70 print"[147][142]";:fori=1to24:print"++++":next:print"++++";:return
  71. 71 print"[147][142]";:fori=1to24:printspc(36)"++++";:next:fori=996to999:pokecm+i,1:pokesm+i,43:next:return
  72. 72 print"[147][142]":gosub63:gosub63:fori=960to999:pokecm+i,1:pokesm+i,43:next:return
  73. 73 print"[147][142]";:fori=1to3:gosub63:next:return
  74. 74 fori=1to20:x=int(4+32*rnd(0)):y=int(3+19*rnd(0)):x=x+40*y:pokesm+x,88:pokecm+x,5:nexti:return
  75. 75 print"city limits":return
  76. 76 gosub73:gosub74:gosub75:gosub110:return
  77. 77 gosub70:print""spc(33)"city"spc(35)"limits";:gosub64:gosub111:return
  78. 78 gosub71:gosub74:gosub75:gosub110:return
  79. 79 gosub72:gosub74:gosub75:gosub110:return
  80. 80 print"[147]";:gosub74:gosub64:gosub111:return
  81. 81 gosub69:x=5:y=9:gosub29:gosub53:print"[157]";:gosub58:x=23:y=10:gosub29:print"[158]";:gosub49:gosub50:print"";:gosub54:x=8:y=19:gosub29:gosub49:print"";:gosub59:print"";:gosub54:gosub55:gosub56:pokev+2,80:pokev+3,122:pokev+4,240:pokev+5,130:pokev+6,16:pokev+7,130:pokev+8,120:pokev+9,202:pokev+10,176:pokev+11,202:pokev+12,224:pokev+13,202
  82. 82 pokev+16,(peek(v+16)and1)or8:pokev+40,9:pokev+41,11:pokev+42,12:pokev+43,9:pokev+44,9:pokev+45,11:pokev+21,126:st(1)=9:fori=2to6:st(i)=11:next:gosub110:return
  83. 83 gosub69:x=11:y=9:gosub29:gosub53:print"[157]";:gosub58:print"[157]";:gosub53:x=5:y=20:gosub29:print"[158]";:gosub59:gosub60:x=17:y=16:gosub29:gosub49:print"[158]";:gosub49:gosub50:print"";:gosub54:gosub56:pokev+2,128:pokev+3,122:pokev+4,232:pokev+5,122:pokev+6,88:pokev+7,210:pokev+8,192:pokev+9,178:pokev+10,240:pokev+11,178:pokev+12,16:pokev+13,178
  84. 84 pokev+16,(peek(v+16)and1)or64:pokev+40,9:pokev+41,9:pokev+42,9:pokev+43,9:pokev+44,11:pokev+45,12:pokev+21,126:st(1)=3:st(2)=3:fori=3to6:st(i)=11:next:gosub110:return
  85. 85 gosub69:x=18:y=8:gosub29:gosub58:gosub51:x=7:y=9:gosub29:gosub54:x=4:y=16:gosub29:gosub54:gosub56:print"[158]";:gosub49:x=22:y=20:gosub29:gosub57:print"[157]";:gosub57:print"[157]";:gosub54:gosub55:pokev+2,8:pokev+3,210:pokev+4,16:pokev+5,114:pokev+6,96:pokev+7,122:pokev+8,72:pokev+9,178:pokev+10,136:pokev+11,178
  86. 86 pokev+16,(peek(v+16)and1)or6:pokev+40,11:pokev+41,1:pokev+42,12:pokev+43,12:pokev+44,9:pokev+21,62:st(1)=2:st(2)=9:fori=3to5:st(i)=11:next:gosub102:gosub110:return
  87. 87 gosub69:x=7:y=9:gosub29:gosub59:gosub60:x=20:y=8:gosub29:gosub54:gosub55:print"[158]";:gosub49:x=5:y=20:gosub29:gosub57:gosub54:x=18:y=16:gosub29:gosub49:print"  ";:gosub59:gosub55:pokev+2,104:pokev+3,122:pokev+4,200:pokev+5,114:pokev+6,8:pokev+7,114:pokev+8,200:pokev+9,178:pokev+10,0:pokev+11,178:pokev+12,112:pokev+13,210
  88. 88 pokev+16,(peek(v+16)and1)or40:pokev+40,9:pokev+41,11:pokev+42,9:pokev+43,9:pokev+44,11:pokev+45,12:pokev+21,126:st(1)=10:fori=2to6:st(i)=11:next:gosub102:gosub110:return
  89. 89 gosub69:x=6:y=10:gosub29:gosub53:x=19:y=12:gosub29:gosub62:x=4:y=19:gosub29:gosub49:print"";:gosub54:gosub56:print"";:gosub49:pokev+2,224:pokev+3,146:pokev+4,88:pokev+5,130:pokev+6,88:pokev+7,202:pokev+8,120:pokev+9,202:pokev+10,184:pokev+11,202:pokev+16,peek(v+16)and1:pokev+40,1:pokev+41,9:pokev+42,9:pokev+43,12:pokev+44,9:pokev+21,62
  90. 90 st(1)=4:st(2)=9:fori=3to5:st(i)=11:next:gosub110:return
  91. 91 gosub69:x=19:y=11:gosub29:gosub58:x=19:y=17:gosub29:gosub58:x=15:y=14:gosub29:gosub52:gosub56:x=30:y=14:gosub29:gosub52:gosub56:x=5:y=6:gosub29:gosub49:gosub50:print"[158][157]";:gosub49:x=4:y=19:gosub29:gosub54:pokev+2,160:pokev+3,162:pokev+4,24:pokev+5,162:pokev+6,96:pokev+7,98:pokev+8,136:pokev+9,98:pokev+10,72:pokev+11,202
  92. 92 pokev+16,(peek(v+16)and1)or4:pokev+40,12:pokev+41,12:pokev+42,11:pokev+43,9:pokev+44,12:pokev+21,62:st(1)=6:st(2)=6:fori=3to5:st(i)=11:next:gosub102:gosub110:return
  93. 93 gosub69:x=7:y=7:gosub29:gosub54:print"";:gosub49:x=21:y=12:gosub29:gosub61:x=5:y=19:gosub29:gosub52:gosub50:print"";:gosub57:gosub54:pokev+2,208:pokev+3,146:pokev+4,232:pokev+5,146:pokev+6,0:pokev+7,146:pokev+8,80:pokev+9,202:pokev+10,96:pokev+11,106:pokev+12,160:pokev+13,106:pokev+14,144:pokev+15,202:pokev+16,(peek(v+16)and1)or8:pokev+40,15
  94. 94 pokev+41,15:pokev+42,15:pokev+43,11:pokev+44,12:pokev+45,9:pokev+46,12:pokev+21,254:fori=1to3:st(i)=1:next:st(4)=9:fori=5to7:st(i)=11:next:gosub110:return
  95. 95 gosub69:x=4:y=8:gosub29:gosub58:gosub52:x=23:y=10:gosub29:gosub59:gosub60:print"[157]";:gosub49:x=6:y=18:gosub29:gosub49:print"[158]";:gosub49:gosub50:print"";:gosub54:x=28:y=17:gosub29:gosub49:pokev+2,160:pokev+3,114:pokev+4,232:pokev+5,130:pokev+6,32:pokev+7,130:pokev+8,24:pokev+9,186:pokev+10,104:pokev+11,194:pokev+12,152:pokev+13,194
  96. 96 pokev+14,184:pokev+15,194:pokev+16,(peek(v+16)and1)or24:pokev+40,12:fori=41to44:pokev+i,9:next:pokev+45,11:pokev+46,12:pokev+21,254:st(1)=9:fori=2to7:st(i)=11:next:gosub110:return
  97. 97 gosub69:x=4:y=11:gosub29:gosub54:print"[158][157]";:gosub49:x=20:y=9:gosub29:gosub52:gosub50:print"";:gosub59:x=6:y=18:gosub29:gosub58:x=24:y=20:gosub29:gosub52:gosub50:gosub56:print"";:gosub57:pokev+2,200:pokev+3,122:pokev+4,240:pokev+5,122:pokev+6,232:pokev+7,210:pokev+8,72:pokev+9,138:pokev+10,128:pokev+11,138:pokev+16,peek(v+16)and1
  98. 98 pokev+40,11:pokev+41,9:pokev+42,11:pokev+43,12:pokev+44,9:pokev+21,62:st(1)=5:st(2)=5:st(3)=9:st(4)=11:st(5)=11:gosub102:gosub110:return
  99. 99 gosub77:x=17:y=13:gosub29:fori=57to960step40:forj=0to1:pokesm+i+j,195:pokecm+i+j,12:nextj:nexti:x=6:y=13:gosub29:gosub57:print"";:gosub57:x=11:y=21:gosub29:gosub57:gosub111:ifpt<12then101
  100. 100 poke36857,39:pokev+23,2:pokev+29,2:pokev+40,7:pokev+28,3:pokev+2,168:pokev+16,peek(v+16)and1:pokev+3,80:pokev+21,3
  101. 101 return
  102. 102 poke36857,37:pokev+28,1:pokev+23,0:pokev+29,0:return
  103. 103 gosub32:poke53280,2:poke53281,2:print"[147][158]"spc(15)"not [210]ome":gosub109:return
  104. 104 gosub32:poke53280,1:poke53281,1:print"[147][154]"spc(14)"not [195]orinth":gosub109:return
  105. 105 gosub32:poke53280,1:poke53281,1:print"[147][155]"spc(15)"not [193]thens":gosub109:return
  106. 106 gosub32:poke53280,13:poke53281,13:print"[147]"spc(14)"not [197]phesus":gosub109:return
  107. 107 gosub32:poke53280,7:poke53281,7:print"[147]"spc(13)"not [193]lexandria":gosub109:return:gosub32:poke53280,15:poke53281,15:print"[147]"spc(15)"not [212]arsus":gosub109:return:gosub32:poke53280,9:poke53281,9:print"[147][158]"spc(13)"not [202]erusalem":gosub109:return
  108. 108 gosub32:poke53280,9:poke53281,9:print"[147][129]"spc(14)"not [193]ntioch"
  109. 109 gosub37:gosub2:poke53280,0:gosub33:return
  110. 110 sn=0:pn=36856:p1=40:p2=41:p3=42:p4=43:p5=44:p6=45:p7=46:p8=47:p9=40:pa=41:pb=40:pc=41:pd=42:pe=43:pf=42:pg=43:vx=v:vy=v+1:lx=255-1:ux=1:dy=4:dx=8:dt=150
  111. 111 pokev+39,8:pokev+37,9:pokev+38,1:pokev+28,peek(v+28)or1:pokev+23,peek(v+23)and2:pokev+29,peek(v+29)and2:pokepn,p3:pokevy,ys:ifxs<256thenpokevx,xs:pokev+16,peek(v+16)and254
  112. 112 ifxs>255thenpokevx,xs-256:pokev+16,peek(v+16)or1
  113. 113 pokev+21,peek(v+21)or1:return
  114. 114 sn=1:pn=53241:p1=32:p2=33:p3=34:p4=35:p5=32:p6=33:p7=34:p8=35:p9=32:pa=33:pb=36:pc=37:pd=38:pe=39:pf=34:pg=35:vx=v+2:vy=v+3:lx=255-2:ux=2:dx=3:dy=2:dt=150:pokev+28,3:pokev+29,0:pokev+23,0:pokev+40,8:pokev+37,0:pokev+38,3
  115. 115 pokepn,p3:pokevy,ys:ifxs<256thenpokevx,xs:pokev+16,peek(v+16)and253
  116. 116 ifxs>255thenpokevx,xs-256:pokev+16,peek(v+16)or2
  117. 117 gosub33:pokev+21,2:poke53280,15:return
  118. 118 fori=35328to35776step64:forj=0to62:readn:pokei+j,n:nextj:nexti:fori=35200to35262:readn:pokei,n:nexti:fori=0to62:poke35264+i,peek(51200+i):next:fori=35136to35199:pokei,0:next:fori=35136to35157step3:pokei,255:next:fori=1to35:readhi(i),lo(i):next:fori=0to1:forj=1to64:readnt(i,j):nextj:nexti:forj=1to8:readn3(j):next:fori=0to9:readns(i),n4(i),ts(i):next:goto132
  119. 119 fori=51136to51198:pokei,0:next:fori=51139to51145step3:pokei,112:next:pokev+41,1:poke53242,31:xs=100:ys=180:ifpt=12thenxs=306:ys=123
  120. 120 gosub114:gosub45:fori=1to8:c(i)=0
  121. 121 gosub24:gosub3:xp=64:yp=82:gosub129:ifciand(c(1)=0)thenc(1)=1:gosub103
  122. 122 xp=156:yp=133:gosub129:ifciand(c(2)=0)thenc(2)=1:gosub104
  123. 123 xp=168:yp=125:gosub129:ifciand(c(3)=0)thenc(3)=1:gosub105
  124. 124 xp=220:yp=125:gosub129:ifciand(c(4)=0)thenc(4)=1:gosub106
  125. 125 xp=258:yp=218:gosub129:ifciand(c(5)=0)thenc(5)=1:gosub107
  126. 126 xp=322:yp=197:gosub129:ifciand(pt=12)then236
  127. 127 xp=329:yp=143:gosub129:ifciand(c(8)=0)thenc(8)=1:gosub108
  128. 128 goto121
  129. 129 pokev+21,2:x=peek(v+30):ifxp<256thenpokev+4,xp:pokev+16,peek(v+16)and251
  130. 130 ifxp>255thenpokev+16,peek(v+16)or4:pokev+4,xp-256
  131. 131 pokev+5,yp:pokev+21,6:ci=((peek(v+30)and6)=6):return
  132. 132 print"[147]   [215]e have cleared customs and are free":print"to move about.  .[213]se the joystick in":print"port#2 or the cursor keys.  [212]here are":print"ten things to see in [212]arsus.  [211]ee if you";:print"can find them.  [217]ou can go outside the"
  133. 133 print"screen, but don't go beyond the city":print"limits, or you might get lost.":gosub2:print"[152]         [208][210][197][211][211] <[211][208][193][195][197]> [212][207] [211][212][193][210][212]";:poke198,0
  134. 134 geta$:ifa$<>" "then134
  135. 135 xs=28:ys=120:fori=1to10:p(i)=1:next:p(11)=0:pt=0:fori=36857to36863:pokei,37:next:sc=11:goto136
  136. 136 pokev+21,0:printchr$(142):if(sc<1)or(sc>24)or(sc=20)then182
  137. 137 if(sc<4)thengosub79:goto144
  138. 138 if(sc=5)or(sc=10)or(sc=15)thengosub78:goto144
  139. 139 if(sc>20)and(sc<24)thengosub76:goto144
  140. 140 if(sc=9)or(sc=19)thengosub77:goto150
  141. 141 if(sc=14)thengosub99:goto150
  142. 142 if(sc=4)or(sc=24)thengosub80:goto150
  143. 143 onscgosub1,1,1,1,1,81,83,85,1,1,87,89,91,1,1,93,95,97:goto175
  144. 144 gosub24:gosub3:if(xs<24)and((sc=5)or(sc=10)or(sc=15))then182
  145. 145 if(xs>320)thenxs=30:sc=sc+1:goto136
  146. 146 if(xs<24)thenxs=314:sc=sc-1:goto136
  147. 147 if(ys<50)thenys=224:sc=sc-5:goto136
  148. 148 if(ys>229)thenys=56:sc=sc+5:goto136
  149. 149 goto144
  150. 150 if(xs>168)and(xs<248)then168
  151. 151 gosub24:gosub3:if(sc=14)and(xs=158)and(p(7)>-1)thengosub183
  152. 152 if(xs>168)and(xs<248)then161
  153. 153 x=peek(v+30):if(xand3)=3thengoto234
  154. 154 ifxs>320then182
  155. 155 ifxs<24thenxs=314:sc=sc-1:goto136
  156. 156 if(ys<50)and(sc<>4)thensc=sc-5
  157. 157 ifys<50thenys=224:goto136
  158. 158 if(ys>229)and(sc<>24)thensc=sc+5
  159. 159 ifys>229thenys=56:goto136
  160. 160 goto150
  161. 161 p1=38:p2=38:p3=38:p4=38:p5=38:p6=38:p7=38:p8=38:p9=38:pa=38:pb=38:pc=38:pd=38:pe=38:pf=38:pg=38:pokev+21,peek(v+21)and254:print"[147]"spc(11)"going swimming...":gosub2:ifp(8)=1thenpt=pt+1
  162. 162 ifp(8)<0then165
  163. 163 p(8)=p(8)-1:print"   [212]his is the river [195]ygnus that flows":print"from the [212]aurus [205]ountains down to the":print"[205]editerranean [211]ea.  [211]hips can sail up":print"the river as far as [212]arsus.":print"   [208]aul probably swims here.  [211]wimming"
  164. 164 print"is a pretty useful thing to learn.  [217]ou":print"never know when it may come in handy.":print"[152]";:gosub223
  165. 165 printchr$(142):if(sc=9)or(sc=19)thengosub77:goto168
  166. 166 ifsc=14thengosub99:goto168
  167. 167 gosub80:print"ancient [199]reek world.  [200]ere [208]aul is":print"exposed to [199]reek ideas and learns the":print"ways of thinking of peoples other than":print"his own.":gosub223
  168. 168 gosub24:gosub3:x=peek(v+30):if(xand3)=3thengoto222
  169. 169 ifys<50andsc<>4thensc=sc-5
  170. 170 ifys<50thenys=224:goto136
  171. 171 ifys>229andsc<>24thensc=sc+5
  172. 172 ifys>229thenys=56:goto136
  173. 173 if(xs>168)and(xs<248)then168
  174. 174 gosub110:goto150
  175. 175 gosub24:gosub3:x=peek(v+30):ifxs<24thenxs=314:sc=sc-1:goto136
  176. 176 ifxs>320thenxs=30:sc=sc+1:goto136
  177. 177 ifys<50thenys=224:sc=sc-5:goto136
  178. 178 ifys>229thenys=56:sc=sc+5:goto136
  179. 179 x=peek(v+30):ifx<>0thengosub226
  180. 180 if(pt=10)and(sc<>11)thenpt=11:gosub232
  181. 181 goto175
  182. 182 pokev+21,0:print"[147]"spc(14)"[217]ou are lost.":gosub37:fori=1to1000:next:print:printspc(15)"[211]tart over.":gosub2:goto135
  183. 183 pokev+21,0:pt=pt+p(7):p(7)=-1:print"[147]   [217]ou are standing on the docks.  [200]ere":print"timber from the forests nearby and":print"articles made of the fine long hair of":print"goats grazed on the neighbouring":print"mountains are loaded onto ships to be"
  184. 184 print"sent to other parts of the ancient":print"world.":print"[152]";:gosub223:printchr$(142):gosub99:return
  185. 185 poke53281,3:print"[147]         [212]his is [208]aul's home.":gosub2:ifpt=11then191
  186. 186 ifp(10)<0then190
  187. 187 print"  [208]aul's parents are [200]ebrews who are":print"proud of their heritage as the people of";:print"[199]od, and they follow the [200]ebrew law and":print"traditions.  [212]he traditional language of";:print"[193]ramaic is spoken at home, although"
  188. 188 print"[199]reek is the language used outside.":print"[208]aul's parents are passing on to him a":print"strong desire to follow [199]od, and to do":print"well, in all he does.":print"  [208]aul's family is fortunate to have":print"received [210]oman citizenship, a privilege"
  189. 189 print"reserved for only the more influential":print"families in the lands occupied by [210]ome.":print"[210]oman citizens enjoy special rights that";:print"other people do not have.":gosub223
  190. 190 return
  191. 191 pt=12:print"  [208]aul's parents say to him:":print"'[217]ou have done well in your studies at":print"the synagogue.  [217]our teachers are very":print"impressed with your zeal and desire to":print"serve our [204]ord [199]od.  [212]hey think you may"
  192. 192 print"become a great teacher and leader of our";:print"people.  [201]n order that you may have this";:print"opportunity, we are sending you to":print"[202]erusalem, to study with the [208]harisees":print"under the great teacher, [199]amaliel.":gosub2:gosub2
  193. 193 print"  [193] ship is at the dock to take you":print"there, and your bags are already on":print"board.  [200]urry, because they are waiting.";:print"[205]ay [199]od go with you, son.'":gosub223:return
  194. 194 poke53281,1:print"[147][154]       [212]his is the synagogue.":gosub2:ifp(1)<0then198
  195. 195 print"  [200]ere [208]aul receives regular instruction";:print"in the faith and traditions of his":print"people.  [211]ome of the things he learns":print"are the ten commandments given by [199]od to";:print"the people, so they would know what is"
  196. 196 print"right, and the many other laws which [199]od";:print"provided through [205]oses, which form the":print"basis for the [200]ebrew law and traditions.";:print"[200]e also reads the writings of the":print"prophets, those persons who spoke the"
  197. 197 print"will of [199]od and guided the [202]ews in their";:print"faith.":gosub223
  198. 198 return
  199. 199 poke53281,9:print"[147][155]      [212]his is the tentmaker's shop.":gosub2:ifp(2)<0then202
  200. 200 print"  [193]ll [200]ebrew boys in the ancient world,":print"even those from wealthy families or":print"planning to enter higher professions,":print"are taught a trade.  [208]aul, even though":print"he is likely to be a teacher or lawyer,"
  201. 201 print"comes here daily to learn the trade of":print"tentmaking.":print"  [212]he tents are made from cloth woven":print"from the long hair of goats grazed on":print"the nearby hills.":gosub223
  202. 202 return
  203. 203 poke53281,15:print"[147]       [212]his is the university.":gosub2:ifp(3)<0then206
  204. 204 print"  [212]arsus, as a seat of learning, is":print"alive with the ideas and culture of the":print"ancient [199]reeks.  [200]ere [208]aul is exposed to";:print"the ways of thought of other peoples,":print"and comes to understand and respect"
  205. 205 print"their ideas as well as his own.":gosub223
  206. 206 return
  207. 207 poke53281,0:print"[147][129]      [212]his is the [212]emple of [194]aal":gosub37:gosub2:ifp(4)<0then210
  208. 208 print"  [200]ardly a fit place for a nice [202]ewish":print"boy.";:gosub37:print"  [208]aul's parents would undoubtedly":print"have kept him from such places.  [200]owever";:print"[212]arsus is at this time a center of [194]aal-";:print"worship, which involves statue-worship,"
  209. 209 print"immoral orgies, cruel sacrifices, and":print"lack of respect for life.  [208]aul cannot":print"help hearing of such things, and feels":print"pity for these pagan people who do not":print"know the true [199]od.  [193] desire to spread":print"the truth grows in him.":gosub223
  210. 210 return
  211. 211 poke53281,2:print"[147][158]          [212]his is the inn.":gosub2:ifp(5)<0then213
  212. 212 print"  [200]ere stay travellers from all parts":print"of the known world, with exciting tales":print"of foreign lands and strange peoples.":gosub223
  213. 213 return
  214. 214 poke53281,15:print"[147]       [212]his is the marketplace.":gosub2:ifp(6)<0then217
  215. 215 print"  [212]he market square is full of people":print"of all kinds, from all walks of life.":print"[211]lave, freedman and citizen, they are":print"all here.  [201]n the large throng, [208]aul can";:print"see the common humanity that they (and"
  216. 216 print"we) all share, as fellow travellers in":print"this world, of equal worth before [199]od.":nr=1:gosub39:gosub223
  217. 217 return
  218. 218 poke53281,7:print"[147]         a [210]oman sentry tower":gosub35:gosub2:ifp(9)<0then221
  219. 219 print"  [212]arsus, like the rest of the ancient":print"world, is under [210]oman rule.  [212]he [210]omans":print"have conquered the known world, and":print"imposed order, which keeps the different";:print"city-states from fighting, and makes it"
  220. 220 print"possible to travel between cities":print"without fear.  [212]arsus, although under":print"the control of [210]ome, is permitted a":print"limited amount of self-rule, so long as":print"the [210]oman order is respected.":gosub223
  221. 221 return
  222. 222 print"[147][152]            a [212]arsus house.":gosub2:return
  223. 223 gosub2:print"       press <[211][208][193][195][197]> to continue";:poke198,0
  224. 224 geta$:ifa$<>" "then224
  225. 225 return
  226. 226 i=1:ip=2
  227. 227 if(xandip)=ipthen230
  228. 228 i=i+1:ip=ip*2:ifi>7thenprint"error":stop
  229. 229 goto227
  230. 230 pokev+21,0:ii=st(i):oniigosub194,199,203,207,211,214,1,1,218,185,222:print"[147][142]":poke53281,15:ifp(ii)>-1thenpt=pt+p(ii):p(ii)=p(ii)-1
  231. 231 onscgosub1,1,1,1,1,81,83,85,1,1,87,89,91,1,1,93,95,97:pokev+21,(peek(v+21)and(255-ip)):return
  232. 232 poke53281,6:pokev+21,0:print"[147][155]  [217]ou are interrupted by a servant:":gosub2:print"'[208]aul is called home.";:gosub2:print"  [200]is parents have":print"something exciting to tell him!'":gosub2:gosub2:print"  [199]o to [208]aul's house to see what it is.":print""
  233. 233 gosub223:poke53281,15:print"[147][142]":gosub231:return
  234. 234 pokev+21,0:poke53281,3:print"[147]"spc(13)"[215]elcome aboard..":gosub36:gosub2:print"  [215]e now journey with [208]aul as he":print"proceeds to[202]erusalem to commence his":print"studies in the school of the [208]harisees,":print"under the tutelage of [199]amaliel.":gosub2:gosub2
  235. 235 print"  [213]se the joystick to guide the ship to its destination.[151]":gosub223:goto119
  236. 236 gosub32:poke53281,9:poke53280,8:print"[147][155]  [215]e have arrived at [195]aesarea, which is":print"the nearest seaport to [202]erusalem.  [212]he":print"rest of the journey is on land, and [208]aul";:print"has gone on ahead to start his studies":print"with the [208]harisees."
  237. 237 print"   [215]e can stop now and continue with":print"the next stage of [208]aul's life later, or":print"continue.":print"[196]o you want to continue(y/n)?":poke198,0
  238. 238 geta$:if(a$<>"y")and(a$<>"n")then238
  239. 239 ifa$="n"thenprint"[207]kay, see you later.":stop
  240. 240 print"[193]s we are time-travellers we will have":print"to wait for a special tour guide who":print"will be here shortly.":clr:load"paul.pharisee",8:data0,36,0,0,169,0,0,185,0:data2,170,0,0,170,0,0,40,0:data0,255,0,1,253,64,1,253,80:data1,253,84,165,255,20,165,255,10
  241. 241 data0,255,10,0,170,0,0,255,0:data0,255,0,3,255,0,3,255,224:data3,255,160,2,0,32,42,0,160:data0,36,0,0,169,0,0,185,0:data2,170,0,0,170,0,0,40,0:data0,255,0,0,253,0,0,245,0:data0,245,64,0,245,104,2,149,40:data2,151,0,0,170,0,0,255,0:data0,255,0,0,255,128,0,255,128
  242. 242 data0,255,128,0,32,128,2,162,128:data0,24,0,0,106,0,0,110,0:data0,170,128,0,170,0,0,40,0:data0,255,0,1,127,64,5,127,64:data21,127,64,20,255,90,160,255,90:data160,255,0,0,170,0,0,255,0:data0,255,0,0,255,192,11,255,192:data10,255,192,8,0,128,10,0,168
  243. 243 data0,24,0,0,106,0,0,110,0:data0,170,128,0,170,0,0,40,0:data0,255,0,0,127,0,0,95,0:data1,95,0,41,95,128,40,86,128:data0,214,128,0,170,0,0,255,0:data0,255,0,0,255,0,2,255,0:data2,255,0,2,8,0,2,138,128:data0,20,0,0,170,0,0,238,0:data0,170,0,0,170,0,0,40,0
  244. 244 data1,255,64,1,255,64,1,255,64:data1,255,64,1,254,128,2,254,128:data2,255,0,0,170,0,0,255,0:data0,255,0,0,255,0,0,255,0:data0,255,0,0,130,0,2,130,0:data0,20,0,0,170,0,0,187,0:data0,170,0,0,170,0,0,40,0:data1,255,64,1,255,64,1,255,64:data1,255,64,2,191,64,2,191,128
  245. 245 data0,255,128,0,170,0,0,255,0:data0,255,0,0,255,0,0,255,0:data0,255,0,0,130,0,0,130,128:data0,20,0,0,85,0,0,85,0:data0,150,0,0,170,0,0,40,0:data1,255,64,1,255,64,1,255,64:data1,255,64,1,255,64,2,255,128:data2,255,0,0,170,0,0,255,0:data0,255,0,0,255,0,0,255,0
  246. 246 data0,191,0,0,130,0,0,130,128:data0,20,0,0,85,0,0,85,0:data0,150,0,0,170,0,0,40,0:data1,255,64,1,255,64,1,255,64:data1,255,64,1,255,64,2,255,128:data0,255,128,0,170,0,0,255,0:data0,255,0,0,255,0,0,255,0:data0,254,0,0,130,0,2,130,0:data0,0,0,0,0,0,0,0,0:data0,0,0,0,0,0,0,0,0
  247. 247 data0,0,0,0,0,0,0,0,0:data1,85,0,5,85,64,6,170,64:data38,238,96,42,170,160,9,169,128:data10,86,128,2,170,0,0,168,0:data10,170,128,42,170,160,42,170,160:data3,244,4,48,4,180,4,251,5,71,5,152,5,237,6,71,7,12,7,233,8,97,9,104
  248. 248 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:data26,156,35,134:data21,0,0,0,20,0,0,0,21,0,0,0,18,0,0,0,21,0,21,0,23,0,0,0
  249. 249 data24,0,25,24,23,0,0,0,26,0,26,0,25,0,25,0,24,0,25,24,23,0,18,0:data21,0,0,0,20,0,23,0,21,0,0,0,17,0,0,0:data16,0,0,0,14,0,0,0,16,0,0,0,15,0,0,0,16,0,0,0,17,0,0,0:data18,0,0,0,17,0,0,0,21,0,0,0,20,0,0,0,18,0,0,0,17,0,0,0:data16,0,0,0,15,0,0,0,16,0,0,0,15,0,0,0
  250. 250 data5,0,13,5,1,10,3,4:data20,18,3,24,18,3,24,18,3,20,18,3,21,19,1,33,19,1,21,19,1,24,19,2:data21,19,1,20,18,6
  251.