PUZZLER jPuzzler by S.Brooks  vers 5#2  1:7:0  a$(28):b$(28) 'c$=" "  int=1 :6,8;"This is a game of";9 ,13 ;"PUZZLER":i=0302:.01z# =,i+3:.01z# =,i+5:.01z# =,i+7:i ^11 ,4;"which level of difficulty ";13 ,4;"(1 - hard or 2 - easier)?" ! i$=:i$"1"i$"2"137 xx=i$ L:i=126:a$(i)=(i+64@):i:xx=1a$(27)="" i=281-1 ,x=(*i)+1:b$(i)=a$(x):a$(x)=a$(i) "i:1:145:150 (0,7;"????? PUZZLER ?????" )40(,166:180,0: i=195-2 &16,i*8:96`,0 '144,i*8:96`,0 i i=2143 )i*8,152:0,-112p 3i*8+128,152:0,-112p i t=0 y=3 i=128 ^l$=(((i+64@)*(i<27))+((32 +95_*(i=27xx=1)))*(i27))  y,2+3*t;6;0;" ";b$(i);" ";y+1,2+3*t;" ";y,18+3*t;(6-2*((b$(i)l$)));" ";l$;" ";y+1,18+3*t;" " :.1}L,(i):275+5*((i/4)i/4) y=y+2:t=-1 y-2,16;i/4 t=t+1:i ,!17,19;"a b c d" -int=18000@ . 0 1int=1 3O18,0;c$+c$+c$;18,1;"which row do you wish to move?" 6Ai$=:i$=""i$<"1"i$>"7"Ưi$<97aůi$>100d3106 @i$>96`330J Ez=i$:p=0:340T Jz=i$-96` O p=1 T .2~L,1 V!19,1;"where from?" ^Ai$=:i$=""i$<"1"i$>"7"Ưi$<97aůi$>100d350^ hi$>96`370r mj=i$:375w rj=i$-96` w.2~L,2 |)20,1;"in which direction?"  r=1 'i$=:i$=""i$<"5"i$>"8" 390 i$="7"i$="5"r=-1 .2~L,3 18,0;c$+c$+c$ p=1600X Gi=(j-1)*3+19(r=1)*9 +193*r '(z*2+1,i)=" "500 i  3051 r=-1j=j-2 #i=ij*3+193*-r xc=z*2+1:p$=(xc,i+3*-r):ax=p$:bx=(xc,i-16):xc,i;4+2*(ax=bx);p$;xc,i-1;1;" ";xc+1,i-1;" " .01z# =,12 i }bx=(xc,i-16):p$=" ":xc,i;4+2*(bx=32 );" ";xc,i-1;1;p$;xc+1,i-1;p$ & 1000 XFi=(j-1)*2+3(r=1)*12 +32*r b((i,z*3+16)=" "650 li v 3051 r=-1j=j-2 "i=ij*2+32*-r ax=(i-2*r,z*3+16):bx=(i,z*3):i,z*3+16;4+2*(ax=bx);(i+2*-r,z*3+16);i,z*3+15;1;" ";i+1,z*3+15;" " .01z# =,12 i bx=(i,z*3):4+2*(bx=32 );i,z*3+16;" ";1;i,z*3+15;" ";i+1,z*3+15;" " y=3152 x=312 3 %(y,x)ɯ(y,x+16)3051 x:y  f$="*****************" : 18,7;f$;19,5;6;"*******";1;4;"WELL DONE";0;6;"*****";20,7;f$ i=16 $t=4+i9 +i . .1}L,t 8t:i BI:18,2;"Would you like another game?"::14;"(y/n)" L"y"Ʀ"n"1100L V ="y" `:n=115:.1}L,n/2:.07}\(,n:10 ,6;"Thanks for the game";20,5;"Press ENTER to finish":13 n:1120` a @w0: 18,0;"Do you want to go through the rules? (y/n)":8550f!:="n"int=0:3073 J18,0;" Your object is to move letters around the right square until it matches the left hand one";0,5;1;"press ENTER to continue":85004! h18,1;"You must answer 3 questions to tell the computer which row or column you want to move, where from, and in which direction" r 85004! |18,1;"eg you could move r7 along or col d down towards empty spaces by pressing 7 or d at the first prompt":85004! y 18,1;"Next input where from - using abc or d if 1 to 7 was used before, and vice-versa":85004! p 18,1;"Finally give the direction of movement using the 4 cursor keys (5 to 8)":85004! z=7:j=2:18,1;"eg if for the 1st question I typed in 7, then b and then pressed 8 I would get:":85004!:r=1:460 ̭18,1;"Now to move v down I type b (for row b), from 6, and press 6, for the cursor down - eg":85004!:z=2:j=6:r=1:600X 0,0;c$:145:19,1;"Would you like it explained again?(y/n)":8550f!:i$="y":139 :int=0:136 !9)t=110 :t:=""85004! !>(0:18,0;c$;c$;c$;c$ !H !f!i$=:i$"y"i$"n"8550f! !p n xtyLI  C I