solitaire | R SOLITAIRE was written Ken Rylett of Burnage SU aug-83-57   9000(# 5:5:0: n=164@ p(n)=1 "1;2;v(n),h(n);"" $n . 8n=2014816 B60<,n:128,0 Ln V `n=60<18816 jn,20:0,128 tn ~ $2,8;"A B C D E F G H"  4,6;1;6,6;2;8,6;3;10 ,6;4;12 ,6;5;14,6;6;16,6;7;18,6;8  uv(28),h(28);" ";v(29),h(29);" ";v(36$),h(36$);" ";v(37%),h(37%);" " Tp(28)=0:p(29)=0:p(36$)=0:p(37%)=0 moves=0:pegs=60< 1;1;7;0,0;"MOVES=";moves;0,25;"PEGS=";pegs;4,0;6;0;1;"INPUT";5,0;"99 TO";6,0;"QUIT." i6;0;1;9 ,0;"ONLY ";10 ,0;" ";11 ,0;" " /0;7;1;"MOVE FORM ? ";f$ f$="99"3560 f$(1)<"1"f$(1)>"8"f$(2)<"A"f$(2)>"H"1,1:2;7;1;1;20,0;"ONLY NUMBER THEN LETTER e.g. 2A":n=1250:n:20,0;" ":2020 C1;1;7;1;10 ,25;"FROM ";f$ -0;7;1;"MOVE TO ? ";t$ t$="99"3560 t$(1)<"1"t$(1)>"8"t$(2)<"A"t$(2)>"H"1,1:2;7;1;1;20,0;"ONLY NUMBER THEN LETTER e.g. 2A":n=1250:n:20,0;" ":2040 C1;1;7;1;12 ,25;" TO ";t$   =f=((f$(1)-491)*8)+(f$(2)-64@)  =t=((t$(1)-491)*8)+(t$(2)-64@) *p(f)=0p(t)=11,1:2;7;1;1;20,6;" INVALID MOVE ":n=1250:n:20,6;" ";10 ,25;" ";12 ,25;" ":2020 4 >diffv=v(f)-v(t) Cdiffh=h(f)-h(t) H)diffh=4diffv=03100 R*diffh=-4diffv=03200 \)diffv=4diffh=03300 f*diffv=-4diffh=03400H p1,1:2;7;1;1;20,6;" INVALID MOVE ":n=1250:n:20,6;" ";10 ,25;" ";12 ,25;" ":2020 01,1 5"p(t+1)=04000 :@2;v(t),h(t);"";v(t),h(t+1);" ";v(f),h(f);" ": D2p(t)=1:p(t+1)=0:p(f)=0 N 3500 1,1 "p(t-1)=04000 @2;v(t),h(t);"";v(t),h(t-1);" ";v(f),h(f);" ": 2p(t)=1:p(t-1)=0:p(f)=0 3500 1,1 "p(t+8)=04000 @2;v(t),h(t);"";v(t+8),h(t);" ";v(f),h(f);" ": 2p(t)=1:p(t+8)=0:p(f)=0  3500 \1,1 a"p(t-8)=04000 f@2;v(t),h(t);"";v(t-8),h(t);" ";v(f),h(f);" ": p2p(t)=1:p(t-8)=0:p(f)=0 moves=moves+1 pegs=pegs-1 `1;7;1;0,31;" ";0,6;moves;0,30;pegs Upegs>110 ,25;" ";12 ,25;" ":2020 X0;7;1;1;" END OF GAME , ANOTHER ? ";a$:a$=""3560 a$="Y"1020    INVALID MOVE  2;7;1;1;20,8;" INVALID MOVE ":n=1250:n:20,8;" ";10 ,25;" ";12 ,25;" ":2020  #( SET UP #2 #< p(64@) #F v(64@) #G h(64@) #H f$(2) #K t$(2) #Zn=07 #d a:"A"+n,a #nn #xO60<,126~,255,255,255,255,126~,60< #n=18 #v(n)=4 #v(n+8)=6 #v(n+16)=8 #v(n+24)=10 #v(n+32 )=12 #v(n+40()=14 #v(n+480)=16 #v(n+568)=18 #n #n=15798 $h(n)=8 $h(n+1)=10 $h(n+2)=12 $"h(n+3)=14 $,h(n+4)=16 $6h(n+5)=18 $@h(n+6)=20 $Jh(n+7)=22 $Tn $h23658j\,8 $|n=07 $ b:"B"+n,b $ c:"C"+n,c $ d:"D"+n,d $ e:"E"+n,e $ f:"F"+n,f $ g:"G"+n,g $ h:"H"+n,h $ i:"I"+n,i $n $-0,0,0,0,127,254,1,128,0,0,1,128,480,12 ,1,128,0,0,3,192,24,24,1,128,0,0,7,224,0,0,5,160,0,0,5,160,0,0,7,224,24,24,1,128,0,0,3,192,480,12 ,1,128,0,0,1,128,127,254,1,128,0,0,1,0 $ $ C@C@ C@        4B4Da<bcdefghioveeg;tiffiff