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 FORI=1TO2000:NEXT:RETURN 3 JV=PEEK(56320):JV=16-(JVAND15):IX=0:IY=0:ONJVGOTO23,4,6,23,8,10,12,23,14,16,18 4 IY=-DY:IFPEEK(PN)=P7THENPOKEPN,P8:GOTO20 5 POKEPN,P7:GOTO20 6 IY=DY:IFPEEK(PN)=P5THENPOKEPN,P6:GOTO20 7 POKEPN,P5:GOTO20 8 IX=-DX:IFPEEK(PN)=P1THENPOKEPN,P2:GOTO20 9 POKEPN,P1:GOTO20 10 IX=-DX:IY=-DY:IFPEEK(PN)=PBTHENPOKEPN,PC:GOTO20 11 POKEPN,PB:GOTO20 12 IX=-DX:IY=DY:IFPEEK(PN)=P9THENPOKEPN,PA:GOTO20 13 POKEPN,P9:GOTO20 14 IX=DX:IFPEEK(PN)=P3THENPOKEPN,P4:GOTO20 15 POKEPN,P3:GOTO20 16 IX=DX:IY=-DY:IFPEEK(PN)=PFTHENPOKEPN,PG:GOTO20 17 POKEPN,PF:GOTO20 18 IX=DX:IY=DY:IFPEEK(PN)=PDTHENPOKEPN,PE:GOTO20 19 POKEPN,PD:GOTO20 20 IFSN=0THENGOSUB34 21 XS=XS+IX:YS=YS+IY:POKEVY,YS:IFXS<256THENPOKEVX,XS:POKEV+16,PEEK(V+16)ANDLX 22 IFXS>255THENPOKEVX,XS-256:POKEV+16,PEEK(V+16)ORUX 23 RETURN 24 GETA$:IX=0:IY=0:IFA$="[145]"THEN4 25 IFA$=""THEN6 26 IFA$="[157]"THEN8 27 IFA$=""THEN14 28 RETURN 29 PRINT"";:IFY=0THEN31 30 FORI=1TOY:PRINT"";:NEXTI 31 PRINTSPC(X);:RETURN 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 POKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)OR0:POKE648,204:POKE53272,56:POKE53265,PEEK(53265)OR32:RETURN 34 POKES+4,0:POKES,80:POKES+1,5:POKES+5,1:POKES+6,0:POKES+24,15:POKES+4,17:RETURN 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 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 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 FORI=0TO24:POKES+I,0:NEXT:RETURN 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 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 POKESB+4,33:NEXTI:SB=S+14:IFN3(JJ)<>0THENPOKESB+4,32:POKESB,LO(N3(JJ)):POKESB+1,HI(N3(JJ)) 42 POKESB+4,33:FORT=1TO20:NEXTT:NEXTJ:RETURN 43 IFNR=0THENK=64:GOSUB40:RETURN 44 K=57:GOSUB40:FORT=1TO1375:NEXT:GOSUB38:RETURN 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 POKES+11,64:POKES+18,64:POKES+7,LO(N4(I)):POKES+8,HI(N4(I)):POKES+11,65:POKES+18,65 47 AT=AT+TS(I):IFAT>2THENAT=0 48 FORT=1TODT*TS(I)-40:NEXT:NEXTI:GOSUB38:RETURN 49 PRINT"  [145][157][157][157][157][157]   [145][157][157][157][157][157] [157][157][157][157][152] [149] [157] [146]";:RETURN 50 PRINT"[151][157][157] [145][157] [146]";:RETURN 51 PRINT" [145][157][157][157] [145][157][157][157] [145][157][157][157]  [145][157][157][157] [157][157][151] [146]";:RETURN 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 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 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 PRINT"[151][157][157][157][157] [145][157] [146]";:RETURN 56 PRINT"[151][157][157][145][166]";:RETURN 57 PRINT"  [145][157][157][157][157]  [145][157][157][157][157] [146]";:LN=LN+4:RETURN 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 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 PRINT"[151][157][157][157][157][157][157][145][166][145][157][166][166][157][166]";:RETURN 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 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 PRINT"++++++++++++++++++++++++++++++++++++++++";:RETURN 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 IF(NOTX)ANDYTHENPOKEI,233 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 IF(NOTX)ANDYTHENPOKEI,223 68 NEXTI:RETURN 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 PRINT"[147][142]";:FORI=1TO24:PRINT"++++":NEXT:PRINT"++++";:RETURN 71 PRINT"[147][142]";:FORI=1TO24:PRINTSPC(36)"++++";:NEXT:FORI=996TO999:POKECM+I,1:POKESM+I,43:NEXT:RETURN 72 PRINT"[147][142]":GOSUB63:GOSUB63:FORI=960TO999:POKECM+I,1:POKESM+I,43:NEXT:RETURN 73 PRINT"[147][142]";:FORI=1TO3:GOSUB63:NEXT:RETURN 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 PRINT"CITY LIMITS":RETURN 76 GOSUB73:GOSUB74:GOSUB75:GOSUB110:RETURN 77 GOSUB70:PRINT""SPC(33)"CITY"SPC(35)"LIMITS";:GOSUB64:GOSUB111:RETURN 78 GOSUB71:GOSUB74:GOSUB75:GOSUB110:RETURN 79 GOSUB72:GOSUB74:GOSUB75:GOSUB110:RETURN 80 PRINT"[147]";:GOSUB74:GOSUB64:GOSUB111:RETURN 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 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 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 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 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 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 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 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 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 ST(1)=4:ST(2)=9:FORI=3TO5:ST(I)=11:NEXT:GOSUB110:RETURN 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 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 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 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 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 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 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 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 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 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 RETURN 102 POKE36857,37:POKEV+28,1:POKEV+23,0:POKEV+29,0:RETURN 103 GOSUB32:POKE53280,2:POKE53281,2:PRINT"[147][158]"SPC(15)"NOT [210]OME":GOSUB109:RETURN 104 GOSUB32:POKE53280,1:POKE53281,1:PRINT"[147][154]"SPC(14)"NOT [195]ORINTH":GOSUB109:RETURN 105 GOSUB32:POKE53280,1:POKE53281,1:PRINT"[147][155]"SPC(15)"NOT [193]THENS":GOSUB109:RETURN 106 GOSUB32:POKE53280,13:POKE53281,13:PRINT"[147]"SPC(14)"NOT [197]PHESUS":GOSUB109:RETURN 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 GOSUB32:POKE53280,9:POKE53281,9:PRINT"[147][129]"SPC(14)"NOT [193]NTIOCH" 109 GOSUB37:GOSUB2:POKE53280,0:GOSUB33:RETURN 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 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 IFXS>255THENPOKEVX,XS-256:POKEV+16,PEEK(V+16)OR1 113 POKEV+21,PEEK(V+21)OR1:RETURN 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 POKEPN,P3:POKEVY,YS:IFXS<256THENPOKEVX,XS:POKEV+16,PEEK(V+16)AND253 116 IFXS>255THENPOKEVX,XS-256:POKEV+16,PEEK(V+16)OR2 117 GOSUB33:POKEV+21,2:POKE53280,15:RETURN 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 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 GOSUB114:GOSUB45:FORI=1TO8:C(I)=0 121 GOSUB24:GOSUB3:XP=64:YP=82:GOSUB129:IFCIAND(C(1)=0)THENC(1)=1:GOSUB103 122 XP=156:YP=133:GOSUB129:IFCIAND(C(2)=0)THENC(2)=1:GOSUB104 123 XP=168:YP=125:GOSUB129:IFCIAND(C(3)=0)THENC(3)=1:GOSUB105 124 XP=220:YP=125:GOSUB129:IFCIAND(C(4)=0)THENC(4)=1:GOSUB106 125 XP=258:YP=218:GOSUB129:IFCIAND(C(5)=0)THENC(5)=1:GOSUB107 126 XP=322:YP=197:GOSUB129:IFCIAND(PT=12)THEN236 127 XP=329:YP=143:GOSUB129:IFCIAND(C(8)=0)THENC(8)=1:GOSUB108 128 GOTO121 129 POKEV+21,2:X=PEEK(V+30):IFXP<256THENPOKEV+4,XP:POKEV+16,PEEK(V+16)AND251 130 IFXP>255THENPOKEV+16,PEEK(V+16)OR4:POKEV+4,XP-256 131 POKEV+5,YP:POKEV+21,6:CI=((PEEK(V+30)AND6)=6):RETURN 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 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 GETA$:IFA$<>" "THEN134 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 POKEV+21,0:PRINTCHR$(142):IF(SC<1)OR(SC>24)OR(SC=20)THEN182 137 IF(SC<4)THENGOSUB79:GOTO144 138 IF(SC=5)OR(SC=10)OR(SC=15)THENGOSUB78:GOTO144 139 IF(SC>20)AND(SC<24)THENGOSUB76:GOTO144 140 IF(SC=9)OR(SC=19)THENGOSUB77:GOTO150 141 IF(SC=14)THENGOSUB99:GOTO150 142 IF(SC=4)OR(SC=24)THENGOSUB80:GOTO150 143 ONSCGOSUB1,1,1,1,1,81,83,85,1,1,87,89,91,1,1,93,95,97:GOTO175 144 GOSUB24:GOSUB3:IF(XS<24)AND((SC=5)OR(SC=10)OR(SC=15))THEN182 145 IF(XS>320)THENXS=30:SC=SC+1:GOTO136 146 IF(XS<24)THENXS=314:SC=SC-1:GOTO136 147 IF(YS<50)THENYS=224:SC=SC-5:GOTO136 148 IF(YS>229)THENYS=56:SC=SC+5:GOTO136 149 GOTO144 150 IF(XS>168)AND(XS<248)THEN168 151 GOSUB24:GOSUB3:IF(SC=14)AND(XS=158)AND(P(7)>-1)THENGOSUB183 152 IF(XS>168)AND(XS<248)THEN161 153 X=PEEK(V+30):IF(XAND3)=3THENGOTO234 154 IFXS>320THEN182 155 IFXS<24THENXS=314:SC=SC-1:GOTO136 156 IF(YS<50)AND(SC<>4)THENSC=SC-5 157 IFYS<50THENYS=224:GOTO136 158 IF(YS>229)AND(SC<>24)THENSC=SC+5 159 IFYS>229THENYS=56:GOTO136 160 GOTO150 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 IFP(8)<0THEN165 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 PRINT"IS A PRETTY USEFUL THING TO LEARN. [217]OU":PRINT"NEVER KNOW WHEN IT MAY COME IN HANDY.":PRINT"[152]";:GOSUB223 165 PRINTCHR$(142):IF(SC=9)OR(SC=19)THENGOSUB77:GOTO168 166 IFSC=14THENGOSUB99:GOTO168 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 GOSUB24:GOSUB3:X=PEEK(V+30):IF(XAND3)=3THENGOTO222 169 IFYS<50ANDSC<>4THENSC=SC-5 170 IFYS<50THENYS=224:GOTO136 171 IFYS>229ANDSC<>24THENSC=SC+5 172 IFYS>229THENYS=56:GOTO136 173 IF(XS>168)AND(XS<248)THEN168 174 GOSUB110:GOTO150 175 GOSUB24:GOSUB3:X=PEEK(V+30):IFXS<24THENXS=314:SC=SC-1:GOTO136 176 IFXS>320THENXS=30:SC=SC+1:GOTO136 177 IFYS<50THENYS=224:SC=SC-5:GOTO136 178 IFYS>229THENYS=56:SC=SC+5:GOTO136 179 X=PEEK(V+30):IFX<>0THENGOSUB226 180 IF(PT=10)AND(SC<>11)THENPT=11:GOSUB232 181 GOTO175 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 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 PRINT"SENT TO OTHER PARTS OF THE ANCIENT":PRINT"WORLD.":PRINT"[152]";:GOSUB223:PRINTCHR$(142):GOSUB99:RETURN 185 POKE53281,3:PRINT"[147] [212]HIS IS [208]AUL'S HOME.":GOSUB2:IFPT=11THEN191 186 IFP(10)<0THEN190 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 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 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 RETURN 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 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 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 POKE53281,1:PRINT"[147][154] [212]HIS IS THE SYNAGOGUE.":GOSUB2:IFP(1)<0THEN198 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 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 PRINT"WILL OF [199]OD AND GUIDED THE [202]EWS IN THEIR";:PRINT"FAITH.":GOSUB223 198 RETURN 199 POKE53281,9:PRINT"[147][155] [212]HIS IS THE TENTMAKER'S SHOP.":GOSUB2:IFP(2)<0THEN202 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 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 RETURN 203 POKE53281,15:PRINT"[147] [212]HIS IS THE UNIVERSITY.":GOSUB2:IFP(3)<0THEN206 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 PRINT"THEIR IDEAS AS WELL AS HIS OWN.":GOSUB223 206 RETURN 207 POKE53281,0:PRINT"[147][129] [212]HIS IS THE [212]EMPLE OF [194]AAL":GOSUB37:GOSUB2:IFP(4)<0THEN210 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 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 RETURN 211 POKE53281,2:PRINT"[147][158] [212]HIS IS THE INN.":GOSUB2:IFP(5)<0THEN213 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 RETURN 214 POKE53281,15:PRINT"[147] [212]HIS IS THE MARKETPLACE.":GOSUB2:IFP(6)<0THEN217 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 PRINT"WE) ALL SHARE, AS FELLOW TRAVELLERS IN":PRINT"THIS WORLD, OF EQUAL WORTH BEFORE [199]OD.":NR=1:GOSUB39:GOSUB223 217 RETURN 218 POKE53281,7:PRINT"[147] A [210]OMAN SENTRY TOWER":GOSUB35:GOSUB2:IFP(9)<0THEN221 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 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 RETURN 222 PRINT"[147][152] A [212]ARSUS HOUSE.":GOSUB2:RETURN 223 GOSUB2:PRINT" PRESS <[211][208][193][195][197]> TO CONTINUE";:POKE198,0 224 GETA$:IFA$<>" "THEN224 225 RETURN 226 I=1:IP=2 227 IF(XANDIP)=IPTHEN230 228 I=I+1:IP=IP*2:IFI>7THENPRINT"ERROR":STOP 229 GOTO227 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 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 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 GOSUB223:POKE53281,15:PRINT"[147][142]":GOSUB231:RETURN 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 PRINT" [213]SE THE JOYSTICK TO GUIDE THE SHIP TO ITS DESTINATION.[151]":GOSUB223:GOTO119 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 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 GETA$:IF(A$<>"Y")AND(A$<>"N")THEN238 239 IFA$="N"THENPRINT"[207]KAY, SEE YOU LATER.":STOP 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 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 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 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 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 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 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 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 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 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 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