goblin XGoblin Dungeon by Peter Watson from ZX Computing Feb/Mar.1986 0:0:3: G11 ,5;1;7;1;" Please wait a moment " 9000(#:7000X (p(3):q(3) <8000@:900 F,d=5:k=0:l=3:t=1 Pj$="" dMove man & goblins n a=x:b=y xx=x-(="5"x>1ƫ(y,x-1)5ƫ(y,x-1)7)+(="8"x<30ƫ(y,x+1)5ƫ(y,x+1)7) Xy=y-(="7"y>1ƫ(y-1,x)5)+(="6"y<19ƫ(y+1,x)5) ="0"4000 axbyb,a;" " T(y,x+1)=7kū(y,x-1)=7k.1}L,30:1000 3(y,x+1)=32 k3500 :2000 +y,x;k;6;"":.005y# =,502 z=13 q(z),p(z);" " p(z)=p(z)+1 )(q(z),p(z))=7p(z)=p(z)+1 8q(z)>yƫ(q(z)-1,p(z))5q(z)=q(z)-1 8q(z)0,4;4;1;"I N S T R U C T I O N S" \2,0;7;"Your quest is to retrieve all the treasure from the dungeon." v5,0;7;"Treasure must be collected in order (highest level first) and taken to the green door." 9 ,0;7;"Any item not due for collection will block your path (but not the goblin's!!). However, if adjacent to such a treasure, youcan use your dynamite to blast holes in the floor (or ceiling if on the bottom level)." Ў17,0;7;"You have three lives - but if caught by a goblin whilst in possesion of treasure it's instant death!!" Y#0;1,0;6;2;1;" Press any key for controls ..." 0:.1}L,30: Game controls 63,8;4;1;"C O N T R O L S" 7,1;7;"5 6 7 8 0 left down up right dynamite"  b13 ,6;1;6;"";13 ,8;0;7;"treasure collected" K21,3;2;6;1;" Press any key to play ..."  0::.1}L,30 * @Screen construction J8a=1302:b=3192 T$b,a;5;"":.005y# =,b+a ^b:a hc=3172 r&c,4+(*5)*5;" " |c <1,1;5;"" H20,0;7;3;"" d=119 [d,0;7;3;"";d,31;7;3;"":.005y# =,502-d d o2,31;4;0;"";0,0;2;6;" TREASURE " H21,0;2;6;" DYNAMITE LIVES " ̽4,7;7;"";6,22;"";8,17;"";10 ,12 ;"";12 ,27;"";14,7;"";16,12 ;"";18,22;""  #( Graphics #2n=115:a$ #<p=07:q:a$+p,q #Fp:n #P"A",255,255,219,228,25,164,8,0,"B",255,129,189,189,129,161,129,129,"C",28,28,136,126~,29,28,20,546,"D",579,579,17,255,185,579,170,238,"E",34",255,136,255,34",255,136,255,"F",255,255,255,60<,24,126~,90Z,24 #Z"G",8,8,20,20,20,20,28,0,"H",8,20,42*,69E,42*,20,8,0,"I",1,26,4,10 ,18,32 ,64@,0,"J",16,84T,568,254,568,84T,16,0,"K",0,2,5,253,69E,229,162,0,"L",16,68D,40(,130,568,186,568,0,"M",0,16,4,18,36$,82R,8,0,"N",24,189,153,90Z,126~,90Z,126~,0,"O",0,6,24,568,112p,224,192,0 #d ':"goblin"1 '810 ,0;7;"Re-wind tape then run to" ' "goblin" ' A10 ,0;7;" Tape Verified ": Z