Defusion  lDefusion by Damien Murphy from Your Sinclair #9 (Sep'86)  1986 WRENCH  *SET UP* @7:0:7::3;" ",,," - 1986 WRENCH-",,,," YOUR SPECTRUM IS NOW DEFINING THE U.D.G.s";14,9 ;"*PLEASE WAIT*"  9000(# 99 ,5,,,,:23658j\,8:CAPS LOCK ON ,14,9 ;0;"*INPUT NAMES*" "NAME OF DROID: ";d$ %d$>6d$=d$(16) d$>122zd$=""7 "NAME OF MINE: ";m$ %m$>6m$=m$(16) m$>122zm$=""10 m$=d$10 x=210-1:.01z# =,x:(x-21),0;1;x/4,,:x:x=1502:x:x=021:.01z# =,x:3280 :x *INITIALISE* 0:7:7 PLAYER'S X POSITIONS x=3:x1=14  *DISPLAY*  4,0;" " h1:0,64@:96`,96`:96`,175:0,-15:159,0 *CHOOSE START POSITION* Y20,0;2;"";4;" PRESS KEY FOR START POSITION";2;"" DROID'S START POSITION /0,13 ;"CHOOSE START,";1;d$ #3,14;"A D W X"  23658j\,8:CAPS LOCK a$= (a$"A"a$"D"a$"W"a$"X"430 a$="A"y=14 a$="D"y=18 a$="W"y=22 a$="X"y=26 K.05|L,10 :.05|L,12 :3,14;" " x,y;"";x+1,y;"" MINE'S START POSITION 0,26;" " 0,26;1;m$ #17,2;"G J Y N"  23658j\,8:CAPS LOCK a$= (a$"G"a$"J"a$"Y"a$"N"444 a$="G"y1=3 a$="J"y1=7 a$="Y"y1=11 a$="N"y1=15 (.05|L,10 :.05|L,12 #17,2;" " 820,0;" " 820,3;0;"";21,3;"" ;21,5;":";6;1," "  b=31  *MAIN LOOP* DROID'S MOVE L0,13 ;1;d$;0;"'S MOVE ":.05|L,12 a$= x$="QWEADZXC" (z=18:a$=x$(z)508 z  503 c=0:x2=x:y2=y  2000 )c=0.5,10 :503 x+1,y;""  (.05|L,10 :.05|L,12 3x=3x,y;" ";x+1,y;"":530 x,y;"";x+1,y;""  x=x2:y=y2 "A",255 x=3"A",15 !x,y;"";x+1,y;"" &x=x1y=y13000 0x=144000 X MINE'S MOVE YL0,13 ;1;m$;0;"'S MOVE ":.05|L,12 Za$= [x$="TYUGJBNMH" \(z=19 :a$=x$(z)607_ ]z ^ 602Z _CHECK IF MOVE IS LEGAL `-a$="T"x1-1=xy1-3=y617i a-a$="Y"x1-1=xy1+1=y617i b-a$="U"x1-1=xy1+5=y617i c%a$="G"x1=xy1-4=y617i d%a$="J"x1=xy1+4=y617i e-a$="B"x1+1=yy1-5=y617i f-a$="N"x1+1=xy1-1=y617i g-a$="M"x1+1=xy1+3=y617i h 620l i.5,10 :602Z la$"H"640 q818,0;"VIEW MINE'S POSITION? (Y/N) " r0:z$= s6z$="N"18,0,," ":0:602Z tz$="Y"630v u 626r v18,0,," " wx1+1,y1;"" x 0 yx1+1,y1;"" {0:602Z 18,0,," " c=0:x2=x1:y2=y1  2000 )c=0.5,10 :602Z x1=x2:y1=y2 ?.05|L,10 :.05|L,12 :c=110 :c 5b=b-1:21,b;" ":b=63000  500 *CHECK + EXECUTE MOVE* a$x$(1)2005 x2=3x2+y2=17 x2=x2-1:y2=y2-3  c=1: a$x$(2)2010 x2=3 x2=x2-1:y2=y2+1  c=1: a$x$(3)2015 x2=3x2+y2=29 x2=x2-1:y2=y2+5  c=1: a$x$(4)2020 x2+y2=17 y2=y2-4  c=1: a$x$(5)2025 x2+y2=29 y2=y2+4  c=1: a$x$(6)2030 x2=14x2+y2=17 x2=x2+1:y2=y2-5  c=1: a$x$(7)2035 x2=14 x2=x2+1:y2=y2-1  c=1: a$x$(8) x2=14x2+y2=29 x2=x2+1:y2=y2+3  c=1: *ROBOT DEATH* DEATH MARCH .8L,-12 :.8L,-12 :.3,-12 :.8L,-12 :.9ffff,-9 :.3,-10 :.73333,-10 :.3,-12 :.6,-12 :.4L,-13 :.73333,-12  D10 ,10 ;1;1;m$;0;0;" WINS!" 4080  *ROBOT WIN*  VICTORY TUNE x=12 .2~L,7:.2~L,5:.2~L,4:.2~L,2:.2~L,0:.2~L,0:.2~L,2:.2~L,2:.2~L,4:.2~L,7 x  D10 ,10 ;1;1;d$;0;0;" WINS!"  0  3;" ",,," - 1986 WRENCH-" d$="":m$="":"A",15  5 #' #(*DEFINING UDGs* #2x="A""U"+7 #<a:x,a #Fx #PD15,16,39',72H,255,128,182,182,255,19,229,9 ,241,21,213,213,143,160,159,128,255,45-,90Z,247,21,90Z,148,24,240,96`,192,128:Data for player #Z143,160,159,128,255,34",68D,127,21,90Z,148,24,240,32 ,64@,128:Data for Real Feet #d1,2,4,8,16,32 ,64@,128,255,255,255,255,255,255,255,255,255,0,0,0,0,0,0,0,255,3,7,13 ,21,43+,87W,175,171,86V,172,72H,176,96`,192,0,255,2,4,8,16,32 ,64@,128:Data for block #n;0,3,3,15,29,59;,557,127,0,192,192,240,248,252,252,254,127,127,63?,63?,31,15,3,0,254,254,252,252,248,240,192,0:Data for block #x14,17,491,66B,135,128,143,144,0,0,0,0,255,0,240,31,0,0,0,0,240,8,8,240,144,143,144,143,144,144,135,248,16,240,32 ,224,64@,64@,192,0:Data for hand ' ;