\P? @6XD:\68xB~BB|~~$ $$ &3280 L6,17;t$(1pl-1);7,17;t$(pl+1) $S$(A,1)"!"S$(A)="!"+S$(A)  showcarry 9840p& z=14 !10 +z,0;z;" ";C$(z) .05|L,27+z:z   carryupdate t=14 $u=31-1 .;C$(u,1)=" "C$(u)=C$(u+1):C$(u+1)=" " 8u:t j  showobjects  9870& z=14 W$(z)=P$(A,z) "10 +z,17;z;" ";W$(z) !.05|L,30-z*2:z ^ showcurrentobjects  9870& t=14 u=31-1 ;W$(u,1)=" "W$(u)=W$(u+1):W$(u+1)=" " u:t z=14 "10 +z,17;z;" ";W$(z) !.05|L,30-z*2:z   drop/pick d=14  D$(d)=" " d  9900&  nodrop=0:nopick=0 zc=05200P ?17,0;"Do you want to DROP any items? ":0 ="Y"5110 ="N"5200P  5080  9900& 619,0;"Enter item number to be dropped." i !i<1i>45110 +C$(i,1)=" "9900&:5078  nodrop=nodrop+1 D$(nodrop)=C$(i):C$(i)=" " zc=zc-1  5 &10 +i,1;" "  0 S=S-sd:9930& #$3600:3500 :9900& (?17,0;"Do you want to DROP more? Y/N ":0 2="Y"5110 <="N"5200P F 5160( P09840p&:3600:3500 :9900& Z?17,0;"Do you want to PICK UP anything?":0 _="Y"5225i a="N"5400 d 5210Z i[zc419,0;"You cannot carry any more!":1,-40(:5490r n619,0;"Type item number to be PICKED UP" xi }-(i-1)*(i-4)>05230n W$(i,1)=" "5230n nopick=nopick+1  7 (10 +i,17;" "  0 zc=zc+1 C$(zc)=W$(i):W$(i)=" " /5:0:10 +zc,2;C$(zc)  9900& ?17,0;"Do you want to PICK UP any more?":0 ="Y"5225i ="N"5400  5300 znodrop>nopick19,0;"You must pick up as many as you drop. Press any key to carry on":0:5200P Gshift W$ items upwards into P$ and insert D$ items into bottom spaces  4500  num=4 w=14 "-W$(w,1)=" "num=w-1:w=4 'w (num=05440@ )p=1num ,P$(A,p)=W$(p) 1p 3num=45480h @t=14 Eu=24 J;D$(u,1)=" "D$(u)=D$(u-1):D$(u-1)=" " Ou:t Yd=num+14 ^P$(A,d)=D$(d) cd hzac=zc r p trytask  9900& 8S17,0;"Which item you are CARRYING willyou use? Please enter number." Li V&i*(i-1-zc)>062008 `18,31;i tC$(i)e$success=0:S=S-stw:9930&:20,0;"THAT IS WRONG Press any key":1,-36$:0:6480P 41:19,10 ;" WELL DONE ":0  8600! J5:0:10 +i,1;" ":0:7 %D$(nodrop+1)=C$(i):C$(i)=" " zc=zc-1 t=14 u=31-1 ;C$(u,1)=" "C$(u)=C$(u+1):C$(u+1)=" " u:t 9840p&:3500 success=1 S=S+stc:9930& M0:7:21,0;" Press any key to carry on":0 P 9900& Z d helpneed } 9900& #S=S-shn:9930&:pick=0 this=0:17,0;"The object you need for this task is:- ";10 ;O$(need);20,0;"I'm searching for it." z=14 C$(z)=O$(need)this=1 W$(z)=O$(need)this=1 z ^this=120,0;"It is in THIS scene ":pick=1:6590 'z=1502:k=14 $P$(z,k)=O$(need)zn=z:z=502 k .02{# =,40( z %last=A:A=zn:z$=S$(zn):z1=0 'x=1̱z$:z$(x)="*"z1=x:x=z$ x =n$=z$(1z1-1):n$(1)="!"n$=n$(2) 620,0;"It is in scene: ";n$;" " 421,0;"Do you want to get it? Y/N"  0 #="Y"goback=1:6640 #="N"goback=0:6640  6600  ^ getneed S=S-sgn:9930& this=16860  3000  4000  3500  4000  5000  6900  3500  4000 #this1T=A:A=last:last=T & 9900& D Lend V6:6:0: `E5,9 ;"You scored ";S'"It is possible to get over 3800." j''''"Do you want to play again? Y/N" o 0 t="Y"70F ~ ="N"  7535o !4strip !> Z$=S$(YZ) !H)Z$(1)="!"z0=2:8540\! !R z0=1 !\ max=Z$ !f x=z0max !pZ$(x)="*"z1=x:x=max !zx !n$=Z$(z0z1-1) ! ! successbeep !k=2036$2 !%.05|L,k:.05|L,k-1:k ! #(rules #27:7:0: #<" In this adventure game with a difference, the object is to travel through 50 scenes from the NEW TESTAMENT,using items you are carrying to perform the task set in each scene." #Fb'" You then choose the next scene from a given list, but there is only ONE correct scene!" #P'" You may jump ahead,missing the chance of scoring, or you may go back to an earlier scene, but losing points in so doing." #Z'"If you are NOT carrying the itemneeded for the task, you can get help and may choose to go back to a previous scene for it." #d.5:'" Press any key to carry on " #n 0 #x 7: #" You can carry up to FOUR items at any one time!"''"A score of over 3800 is possiblebut no-one yet knows the maximum" #''"The program is not protected and this is done deliberately to encourage modification."''"Obviously, the listing will giveaway most of the game's secrets." #?5:21,0;" Press any key to carry on. " # 0 #7:78N #t$15 #split=1 $ pl=16 $t$(pl)=" " $pl=pl-1:9230$ %divide % Z$=S$(YZ) %w1=0:w2=0 %w=1̱Z$ %Z$(w)"*"9700% %(Z$(w)="*"w1=0w1=w:9700% %w2=w %w %n$=Z$(1w1-1) % t$=Z$(w+1w2-w1-1) &#need=(Z$(w2+1w2+3)) & e$=O$(need) & z1=w1:z2=w2 &> &H deletescene &R86:0:6,0;" ": &\ deletetask &f]4:0:6,17;" ";7,17;" ": &p deletecarry &zH5:0:l=10 15:l,0;" ":l & &deleteobjects &I7:0:l=10 15:l,17;" ":l & &deleteinstructions &Y0:7:l=1721:l,0;" ":l & &score &B0:7:3,17;" ";3,17;S: ' "NTADV"10 '1,30:9995 ' 2(Mary*tell of birth*002 Nazareth*convince Joseph*007 Birth of John*name child John*003 Bethlehem*find a place*004 Shepherds*give a sign*017 Magi*lead to Jesus*018 Herod*find prophecy*025 12 years old*find Jesus*014 Judean Desert*feed John*019 Baptist*baptise converts*040 Jesus' baptism*send sign to John*035 Wilderness*tempt Jesus*034 Synagogue*preach first sermon*028 Call of Peter*leave them behind*054 James and John*leave it behind*043 Sermon on Mount*build house*064 Legion*wet creatures*056 Jairus*mourn daughter*070 Herod's party*bring head*075 Lakeside*feed five thousnd*045 Transfigured*commend Son*084 Palm Sunday*enter Jerusalem*088 Temple*overturn them*078 Betrayal*pay Judas*055 Last supper*represent blood*077 Arrest*heal Malchus*102 Field of blood*recall prophecy*107 Courtyard*remind Peter*99 Trial*invent charge*113 Pilate*proclaim innocence*120 Crucifixion*Gambling prize*121 Burial*help Joseph*126 Tomb*make secure*67 Emmaus Road*explain Jesus' death*105 Upper room*choose replacement*140 Pentecost*anoint disciples*115 Beautiful Gate*heal beggar*141 First martyr*kill Stephen*130 Gaza road*transport Ethiopian*155 Damascus road*convert Saul*160 Damascus*restore Saul's sight*128 Joppa*lower animals*125 Cornelius*give gift as sign*169 Lystra*sacrifice to "gods"*168 Philippi*release chains*157 Ephesus*quieten rioters*183 Shipwreck*slow down ship*180 Malta*injure hand*189 Rome*stay somewhere*170 END*close book*181 / 2 vision Gabriel writing-pad stable king parable dream messenger cousin straw font tradition Galilee Temple cave farmhouse manger star locusts salt camel myrrh guide servant -  vision Gabriel writing-pad stable king parable dream messenger cousin straw font tradition Galilee Temple cave farmhouse manger star locusts salt camel myrrh guide servant 9 4 9 4 9 4 ma2s2# ht#ttg2Xservant"" "BIBLEchip"" ^A OW P P PM!GMQ3_3!_M\>v>>BB<DHpHDB@~BfZBBBBbRJFB~$ $$ $M~ ~~ ~b@B@@Bf@b~ ~BDB@bBB@BB~ ~~ ~M$ $$ $R|B|<BZ|R$ $BBB|RBB|BB$ $$ $M$ $$ $J@B>@~B@J$ $~BB@JB|@RB$ $$ $M~ ~~ ~F@Z@BBB@F~ ~BD$@FBD@JB ~ ~~ ~M$ $$ $B~$~<BB~B$ $Bx~B~$ $$ $y<B$|>|@~@$+<~xBBB<<<"x <B i$BB@@@x$+(B@8xDD8BDBBBBB"D8D8DD8x8x88D88x8BDbi||@| x0D, ||~~D8@,><~<#"Cornelius*give gift as sign*169" @$"Lystra*sacrifice to ""gods""*168" B"Philippi*release chains*157" D"Ephesus*quieten rioters*183" F "Shipwreck*slow down ship*180" H"Malta*injure hand*189" J"Rome*stay somewhere*170" L"END*close book*181" N+"vision","Gabriel","writing-pad","stable" P&"king","parable","dream","messenger" R%"cousin","straw","font","tradition" T'"Galilee","Temple","cave","farmhouse" V""manger","star","locusts","salt" X#"camel","myrrh","guide","servant" Z$"Micah","Psalms","Salome","Isaiah" \+"thorns","cupboard","Bethany","workbench" ^$"berries","stones","dove","ravens" `&"church","sea","well","River Jordan" b!"pigeon","letter","boat","lamp" d-"five loaves","money","mustard seed","salt" f'"bushel","pulpit","notes","Samaritan" h)"children","nets","silver coins","pigs" j&"thunder","dust","tax-money","yeast" l "bricks","plank","door","rock" n"frogs","whale","seal","fish" p!"hood","flute","devil","priest" r "axe","pole","platter","knife" t""wine","tables","meat","vinegar" v!"medal","kiss","scroll","voice" x%"horse","disciple","camel","donkey" z#"sheep","scrolls","towel","walls" |."gold coins","treasure","fig-tree","talents" ~'"paint","cross","cock-crow","rooftop" $"torch","ear","tablets","Pharisee" 1"Scriptures","crystal ball","Jeremiah","Daniel" $"bonfire","maid","shield","thorns" 1"blasphemy","defendant","fiery tongues","spear" ,"alibi","Barabbas","dream","bowl of water" 1"seamless robe","grave-clothes","dice","reward" )"sheet","Nicodemus","Saducee","Ananias" *"garden","stones","chains","secret sign" )"Genesis","gospels","fish","Revelation" '"vote","proclamation","finger","lots" 2"name of Jesus","meteorite","olive oil","shower" #"potion","crutches","mud","cloak" !"sword","arrow","noose","cross" +"elephant","whirlwind","chariot","eunuch" /"earthquake","burning bush","Gentile","light" ("spittle","leaves","sorceror","deacon" ""dogs","ropes","serpent","bulls" 5"Holy Spirit","rented house","frankincense","sails"  "idol","gold","goat","soldier" '"key","angel","prison","four anchors" )"amen","storm","city clerk","centurion" %"lifeboat","bulkhead","oars","mast" ""viper","nail","leprosy","sword" !"hotel","palace","tent","abbey" ("cover","bookmark","the end","goodbye" selectscene $z=15:s(z)=0:z nochoices=3 zy=*100d zy>491nochoices=4 zx=nochoices back=0 9(A-Amax/5)*(A-Amax/2)0back=1 K(A-Amax/2)*(A-Amax/5)0back=zx-((*2)+1) ()A>3*Amax/5back=zx-1 2o=1zx-1 <accept=1 = zw=(*(Amax-1))+1 @A>Amax-3zw=A-o Azw=Azw=A+12620< Co=12670n F n=1o Pzw=s(n)accept=0 Zn daccept=02620< nzw>A2700 xback02620< back=back-1 s(o)=zw o s(zx)=A+1 zf=(*zx)+1 zt=s(zf) s(zf)=s(zx) s(zx)=zt  choosescene  9900&  9930& O17,0;"WHICH";18,0;"SCENE";19,0;"NEXT?" ' end=0 ,z=1zx -#z1=0:y$=S$(s(z)):zmax=y$ /y=1zmax 1y$(y)="*"z1=y:y=zmax 2y 4G$=y$(1z1-1) 5"G$(1)="!"G$=G$(2) 6!16+z,13 ;z;" > ";G$ @!.05|L,30+2*z:z JI16+z,13 ;zx+1;" > END":20:.05|L,-12 Tx h0(x-1)*(x-zx-1)>02980 r'x=zx+1end=1:2990 | yy=s(x) ~ S$(yy,1)"!"2960 YZ=yy:9600% 17,0;"You cannot";18,0;"visit";19,0;" ";19,0;n$(2);20,0;"again" ("Please choose again > ";x:2920h s(x)=A+1S=S+sc s(x)AS=S+sf last=A:A=s(x) 9900&  showscene 9800H& 9820\& 9870& 0 Z$=S$(A) :z1=0:z2=0 Nz=1̱Z$ XZ$(z)"*"3200 b(Z$(z)="*"z1=0z1=z:3200 lz2=z z n$=Z$(1z1-1) "n$(1)="!"n$=n$(2) t$=Z$(z1+1z2-1) need=(Z$(z2+1̱Z$)) e$=O$(need) '6:0:6,0;n$ split=0:9200# 4:0 1split=06,17;t$: