dSTEPS n X(7) x C=6 A=2 7 X(A)=C+2-A A X(1)=0 ZZ=-1 1100L ;Y=14:X=0:1700:"PRESS S FOR SOLUTION" 380| 8Y=12 :X=0:1700:"PRESS KEYS 1 TO 6" 3X=0:Y=10 :1700:"************" 1500 G$="S"650 NK$=G$:P=1:2700 :G=A-480:G<1 G>6 230 B=1 C+1 G=X(B) Q=B X(B)=0 R=B "B ,(Q-R)<3 330J 63X=0:Y=10 :1700:"INVALID MOVE" @"T=5:1400x:220 JX(Q)=0 TX(R)=G ^ 380| h 220 r DRAWS BOARD |6X=0:Y=4:1700:" ***************" +Y=6:1700:" ***************" +Y=5:1700:" " /N=1 C+1:X=2*N:1700 1X(N)>0 R=X(N)-16:2500 :R$; 3N:X=1 15 2:1700:"*"; X ZZ=ZZ+1:F=0 N=1 C+1 X(N)N-1 F=1 N F=1 1G$="S":"I ONLY TOOK ";ZZ;" MOVES":530 9X=0:Y=12 :1700:"CONGRATULATIONS !!" :"YOU TOOK ";ZZ;" MOVES " #X=0:Y=15:1700  &COMPUTER MOVES 0B=1 C+1 :G=X(B) Q=B DX(B)=0 R=B NB XX(Q)=0 bX(R)=G l 380| vT=2:1400x   AUTOPLAY  1100L A=1 C+1 X(A)=C+2-A A X(1)=0  380| M=1 4 G=5 1 -2  550& G M=4 : G=2 6 2  550& G  M SPECTRUM SUBROUTINES L1W=32 :D=22:F=8:1200: :8,0;: R=(N*+1): xZ=1 200*T:Z: ""1500 =""1510 G$=: @K$=:  Y,X;:  (X);: l(11 );: (9 );: 42200:K=("0"+K$): K$="" !1500:(G$)=13 : ,(G$)12 K$=K$+G$:G$;:2210 (K$)=0 2210 @(8);" ";(8);:K$=K$( ̱(K$)-1):2210 : `.1}L,Z/10 -6: R$=(R+64@): ( P$=K$(P): 2600( :A=(P$): : TV$(26): W$(60<,26):  GG=(G$):