Sliding , .wSliding Block Puzzle aka.Picture Slide by Pete Cooke from Sinclair User, Nov'84 30999y  a(x=8*(x)=8*(x+1) #31000y33!9500% (23658j\,0 d8000@:DRAW SCREEN i 7 n2000:SHUFFLE xmove=1 x#1;0,0;7;"PRESS ARROWS TO MOVE . MOVE ";move;1,0;" *** Press q to quit ***" *z$=:z$"q"(z$<"5"z$>"8")1020 z$="q"1100L +1500:move=move+1:1000 Ll"":#1;0,0;6;"**** Stopped **** Press ENTER to try again, R to reshuffle. "; V""1110V `'z$=:z$13 z$"r"1120` j z$="r"2000:1000 t <z$="8"x-(y=4)>3.1}L,12 ::X=5 Y=4 Oz$=("5"x=0)(z$="7"y=0)(z$="6"y=4).1}L,12 : 'x=5z$"5".1}L,12 : .a=x-(z$="5")+(z$="8"):b=y-(z$="7")+(z$="6") 3000 :  O"How many swaps (0 TO 200) ";swaps:swaps<0swaps>2002000 2n=16:z$="555777"(n):1500:n An=1swaps:z$="5678"((1+*4)):1500:n  ** SWAP X,Y WITH A,B ** €31001y,32 *a+8:31002y,32 *b+8:31004y,32 *x+8:31005y,32 *y+8 x=a:y=b:EMPTY SQUARE v=31000y  @** SET UP SCREEN ** JH7:0:7::0,0;"" T5n=115:n,0;"";21;"":n ^)16,0;"";21;"" h:n=1720:n,0;"";21;" ":n "" x=5:y=4 0,23;1;7;1;" ";1,23;" Sliding ";2,23;" Block ";3,23;" Puzzle ";4,23;" " F6,23;6;" P.Cooke ";7,23;" May 84 "  \ ** PUT YOUR DESIGN HERE ** On=120:n,1;6-(n<6);" ":n @1:n=2080P2:n,20:0,n:n &S2:n=2080P2:n+76L,20:0,100d-n:n 088:n=10 30:88X,90Z+n,n:n :a4:0:18,2;" Puzzle this out ";19,2;" If you can!! " D\3:n=40(13696`:m=-1515:n,90Z:m,557:m:n N\2:n=40(13696`:m=-1515:n,70F:m,15:m:n Xd1,3;7;1;"OOOOOOOOOOOOOOOO";1,3;1;"/\/\/\/\" b/2,3;2;7;"" l " #(a33!,168,136,1,136,136,34",246,121y,237 #2b67C,248,121y,34",250,121y,237,67C,252,121y #,32 ,502,254,121y,237,75K,250,121y,205 #Fa172,121y,4,237,67C,250,121y,229,237,75K #Pb252,121y,205,172,121y,4,237,67C,252,121y #ZZ209,6,4,26,119w,62>,0,18,35#,19 #d`16,247,58:,254,121y,214,1,502,254,121y #nb32 ,209,237,75K,246,121y,237,67C,250,121y #x`237,75K,248,121y,237,67C,252,121y,62>,4 #c502,254,121y,237,75K,250,121y,205,220,121y #a120x,198,8,71G,237,67C,250,121y,229,237 #a75K,252,121y,205,220,121y,120x,198,8,71G #^237,67C,252,121y,209,6,4,26,119w,58: #_141,92\,18,19,35#,16,246,58:,254,121y #`214,1,502,254,121y,32 ,202,201,62>,191 #a144,216,120x,245,230,568,38&,16,111o,41) #b41),241,245,230,192,203,63?,203,63?,203 #b63?,132,103g,241,230,7,132,103g,121y,230 #_7,87W,121y,203,63?,203,63?,203,63?,133 #c111o,124|,206,0,103g,201,120x,230,248,111o #^38&,22,41),41),121y,230,7,87W,121y,203 #_63?,203,63?,203,63?,133,111o,62>,0,132 $103g,201 %N:5,3;"Poking in machine code.";7,9 ;"Please wait." %&Mtotal=0:9000(#:n=31000y31221y:a:total=total+a:n,a %0n %:4total29212r''"Data error ... do not RUN": %D ro\inh