solitaire  R   SOLITAIRE has been converted for any Spectrum by A.R.Bright of Stratford -upon-Avon in Warwickshire. ] SINCLAIR USER Issue No.33 december 1984,page 204 K:10 ,12 ;"LOADED":n=160<:.009ztj,20:n ""7 = ""8 0:0:7: 9000(# .b$(9 ,9 ):xb=10 :yb=6 <0,10 ;1;2;6;"*SOLITAIRE*" ~y=19 :x=19 :y>3y<7x>3x<7y+yb,x+xb;5;0;"":b$(y,x)="A" (x:y - g=0 2Gb$(5,5)="E":5+yb,5+xb;5;2;"" P]87W,47/:73I,0:0,73I:-73I,0:0,-73I dy=11 :x=15 i?#1;1,0;"Select Peg to move " k""107k x7y,x;1;1;8;8;1;" " a=x-xb:b=y-yb a$= ua$="q"a$="Q"20,0; g;" goes.":#1;1,0;"Press any key to restart ":7 a$=""110n a$="0"500 a$="5"a$="8" 200 /a$"6"a$"7" .2~L,-10 :110n Qy,x;8;1;8;" ":y=y+(a$="6"y<15)-(a$="7"y>7) 110n %y,x;8;1;8;" " -x=x+(a$="8"x<19)-(a$="5"x>11 ) 110n b$(b,a)"A"105i ""505 >#1;1,0;"Select direction " a$=:a$=""520 a$="0"105i a$="6"1000 &a$="5"1100L 0a$="7"1200 :a$="8"1300 D 520 b>7500 Mb$(b+1,a)="A"b$(b+2,a)="E"yd=1:xd=0:2000  500 VNb$(b,a-1)="A"b$(b,a-2)="E"yd=0:xd=-1:2000 ` 500 b<3500 Nb$(b-1,a)="A"b$(b-2,a)="E"xd=0:yd=-1:2000  500 a>7500 Mb$(b,a+1)="A"b$(b,a+2)="E"xd=1:yd=0:2000 ( 500 Q#1;1,0;"Will Make Move ":.4L,40( y,x;5;2;"":.2~L,5:b$(b,a)="E":y=y+yd:x=x+xd:b=b+yd:a=a+xd:y,x;5;2;"":.3,30:b$(b,a)="E":y=y+yd:x=x+xd:b=b+yd:a=a+xd:y,x;5;0;""  g=g+1 K.3,25:b$(b,a)="A":x=x-2*xd:y=y-2*yd:105i #(>:n=12:a$:z=07:a:a$+z,a:z:n #2M"a",0,24,60<,126~,126~,60<,24,0 #FK"d",0,24,36$,66B,66B,36$,24,0 # (#(#aAdV AAA AAA AAA AAAAAAAAAAAAAEAAAAAAAAAAAAA AAA AAA AAA   gX