LetterMoveVbVXYLetter Move by Arthur Lindon from Sinclair User #24 (Mar'84) (:0,0;"RE-ARRANGE LETTERS";1,0;"INTO ALPHABETICAL";2,0;"ORDER";3,0;"as shown";4,0;"below:-";6,2;"ABCD";7,2;"EFGH";8,2;"IJKL";9 ,2;"MNO " 20,22;"MOVES 0" <23658j\,8 FI7;3,9 ;"***********";13 ,9 ;"***********" PP=19 Z97;3+P,9 ;"*";3+P,19;"*" dP nQ=15 x216*Q+68D,139:0,-64@ 184T,155-16*Q:64@,0 Q D$="ABCDEFGHIJKLMNO " A$(4,4) Y=14 X=14 D=(*D$)+1 A$(Y,X)=D$(D) "D$=D$(D-1)+D$(D+1) .2*Y+3,2*X+9 ;A$(Y,X) X Y N=0 p19,0;"PRESS A LETTER - Letter pressed will move to the vacant square Press ""X"" to stop" ""270 =""280 "B$= ,U16,0;" " 6B$=88X @X b$<65Aůb$>79 O16,0;"NO """;b$;""" ON THE BOARD":270 J N=N+1 T0,28;N ^Y=14 hX=14 r6(2*Y+3,2*X+9 )=B$400 |X Y (2*Y+1,2*X+9 )=" "2*Y+1,2*X+9 ;B$:2*Y+3,2*X+9 ;" ":270 (2*Y+5,2*X+9 )=" "2*Y+5,2*X+9 ;B$:2*Y+3,2*X+9 ;" ":270 (2*Y+3,2*X+11 )=" "2*Y+3,2*X+11 ;B$:2*Y+3,2*X+9 ;" ":270 (2*Y+3,2*X+7)=" "2*Y+3,2*X+7;B$:2*Y+3,2*X+9 ;" ":270 ,16,0;"""";b$;""" CANNOT MOVE"  270 $