DRAUGHTS **,' DRAUGHTS   AMS 1985 23658j\,8:40(  LOAD CODE  #0:1:1:1:64099c:23658j\,8:7;0;1;1;9 ,9 ;" ";10 ,9 ;" PLEASE WAIT! ";11 ,9 ;" ":.5,-10 :*"M";1;"CHARACTERS"64100d,1437:40(  0:1:1:1:64099c:23658j\,8:7;0;1;1;9 ,9 ;" ";10 ,9 ;" PLEASE WAIT! ";11 ,9 ;" ":.5,-10 :"CHARACTERS"64100d,1437 (a=110 :.05|L,24:.05|L,31:a:1:0:0:7::pr=64100d:1440:1260 2 PRINT MEN AND STATUS  <:hmen=0:cmen=0:g=10 90Z10 Fh=19 :ch=g+h Pa$(ch)>"E"120x Z(a$(ch)=c$a$(ch)=i$cmen=cmen+1 d(a$(ch)=h$a$(ch)=k$hmen=hmen+1 n2*(g/10 ),2*(h-1);p$(a$(ch)-64@);2*(g/10 )+1,2*(h-1);q$(a$(ch)-64@) xh:g 1:8,23;"YOUR";9 ,23;"MEN ";hmen;" ";11 ,23;"MY";12 ,23;"MEN ";cmen;" " ,14,23;5;"MOVES ";moves hmen8204 cmen800  0:  PRINT BOARD  E:a=118:a,1;2;0;s$(18):a Ca=217:a,2;6;0;s$(16):a ;a=121:a,21;1;s$(11 ):a I1:z$="02220102DRAUGHTS!":s=pr:5,21;" A.M.Scott" 16,26;"Q";17,26;"";18,24;"OIP";19,26;"";20,26;"A" 0:  COMPUTER'S MOVE   60< t.05|L,7:.05|L,11 :.05|L,14:.1}L,19:z$="20050102 My move. ":s=pr  CAPTURES BY SPECTRUM  ""flag=0:a=112 , loc=b(a) 6#a$(loc)c$a$(loc)i$440 @(b=1+(2a$(loc)=c$)4 J dir=x(b) T+a$(loc+dir)h$a$(loc+dir)k$420 ^#a$(loc+2*dir)b$420 ha$(loc+2*dir)=a$(loc) ra$(loc)=b$:a$(loc+dir)=b$ |+b(a)=loc+2*dir:loc=loc+2*dir loc>80P850R 60<:flag=1  320@ b flag880p a  CAPTURES BY HUMAN  a=112  loc=b(a) #a$(loc)c$a$(loc)i$640 (b=1+(2a$(loc)=c$)4  dir=x(b) a$(loc+dir)b$630v (t$=a$:t$(loc+dir)=t$(loc):t$(loc)=b$ c=112  pos=c(c) &#t$(pos)h$t$(pos)k$610b 0(d=1+(2t$(pos)=h$)4 : dir1=x(d) D-t$(pos-dir1)c$t$(pos-dir1)i$600X N$t$(pos-2*dir1)=b$630v Xd bc la$=t$:740 vb a  SAFE MOVES FOR SPECCY  a=112  loc=b(a) #a$(loc)c$a$(loc)i$780  $<.25~a$(loc)=i$780  (b=1+(2a$(loc)=c$)4  dir=x(b) a$(loc+dir)b$770 !a$(loc+dir)=a$(loc):a$(loc)=b$ b(a)=loc+dir "loc+dir>80Pa$(loc+dir)=i$  860\ b  a  HUMAN TRIUMPHANT   :840H:z$="20030202YOU WIN":s=pr:1620T * SPECTRUM TRIUMPHANT  4:840H:z$="20030202 I WIN ":s=pr:1620T > FANFARE  H20,0;s$(20);21,0;s$(20):.2~L,0:.1}L,0:.1}L,0:.13~R,4:.13~R,0:.13~R,4:.4L,7: R a$(loc)=i$ \ 60< f HUMAN'S MOVE  p.05|L,0:.05|L,4:.05|L,7:.1}L,12 :z$="20000102"+s$(20):s=pr:z$="20050102Your move.":s=pr zmoves=moves+1  CURSOR MOVEMENT  x=16:y=16 a=12 Ax,y;1;8;8;1;" ";x+1,y;" " v$=:v$=""940  ox=x:oy=y v$="R"8204 <y=y+(2v$="P"y<16)-(2v$="O"y>2) <x=x+(2v$="A"x<16)-(2v$="Q"x>2) Eox,oy;1;8;8;0;" ";ox+1,oy;" " v$"I"930 %.2~L,12 *a:xpos=x:ypos=y 2y(a)=(xpos/2):z(a)=(ypos/2)+1 x=xpos:y=ypos:a  DECODE MOVE  Jfrom=10 *y(1)+z(1):dest=10 *y(2)+z(2) $ ILLEGAL MOVES?  .Xfrom<12 from>89Ydest<12 dest>89Y.5,-30:910 88a$(from)h$a$(from)k$.5,-30:910 B,a$(dest)b$.5,-30:910 L UPDATE POSITION  Va$(dest)=a$(from) `a=112 jc(a)=fromc(a)=dest ta ~dest<20a$(dest)=k$  a$(from)=b$ "(dest-from)11 260 a$((from+dest)/2)=b$  60<  MULTIPLE JUMP?  8#1;1;1,1;"Jump again? (y/n)" !j$=:j$"Y"j$"N"1220 +"":.05|L,20:j$="Y"880p  270  INITIALISE  a$="":t$="":s$(32 ):p$(5,10 ):q$(5,10 ):b(12 ):c(12 ):x(4):y(2):z(2) moves=0 11390n:a=110 :z$:a$=a$+z$:a  #a=15:p$(a),q$(a):a 7a=112 :sq:b(a)=sq:c(a)=101e-sq:a #a=14:dx:x(a)=dx:a ((i$="A":c$="B":b$="C":h$="D":k$="E" 2 FIRST MOVE  <>:z$="10000102Do you want to move first? (y/n)":s=pr F!g$=:g$"Y"g$"N"1350F P5"":.2~L,25:g$="Y"190:860\ Z190:260 d  DATA  n"WWWWWWWWWW","WMBMBMBMBW","WBMBMBMBMW","WMBMBMBMBW","WCMCMCMCMW","WMCMCMCMCW","WDMDMDMDMW","WMDMDMDMDW","WDMDMDMDMW","WWWWWWWWWW" x"","","",""," "," ","","","","" m28,24,22,26,33!,37%,39',35#,19,15,17,13 %-11 ,-9 ,9 ,11  ASK FOR INSTRUCTONS  236066\,88X:236077\,251:z$="04030203STOP THE TAPE":s=pr:z$="08060102Instructions? (y/n)":s=pr !i$=:i$"Y"i$"N"1450 i$="N".2~L,40(::  PAGE ONE  ;.2~L,40(::z$="00060203 DRAUGHTS ":s=pr 4,0;"DRAUGHTS is played by one playeragainst the Spectrum."''"All the normal rules apply, withthe exception of huffing. You are not forced to make captures if you do not want to." ܖ'"To make your move, move the cursor to the piece you wish to move using Q,A,O and P, then press I to register the move." P'"Then follow the same procedure in selecting the square you wishto move to."  PAGE TWO  1580,:"This procedure must be followed several times if you make multiple jumps. The Spectrum will capture automatically." t'"The winner is the first to take all his opponent's pieces or theplayer who leaves his opponent unable to move." ;'"To resign, press R when it is your turn to move." 1580,: " WAIT FOR KEYPRESS  ,V#1;1,3;ٺ(*7)+1;1;"PRESS ANY KEY TO CONTINUE" 6=""4:1580, @=.1}L,18:.1}L,22:.2~L,30:: J END OF GAME  TL250:#1;1,2;1;5;"Another go? (y/n)" ^!l$=:l$"Y"l$"N"1630^ h'.2~L,40(:l$="Y"1260 | 0 WCHARACTERSd*K\~Z(.()o #^#V7Z w #~(##~3(2( 1(> > >>~0GwF >w~'''w ~~8^~#((( ('(3:\%F :\ǰF:\ F:\濰2\F :\2\=/~p0~*{\֐'''O N*6\ p[![V^ FN>>:\82\"  2\yO= #xG= ~'''݆w#= $$66666 ?h> ~`f 0f8ll8mf; 0 000 0 0~<~~0~ 0` 80 0`0 ~~0  0 l8flxpxlf``````~cwkkccffv~nff>f>``|fff|fff>ff><``|ffff8<8p``flxlf8<6kkc|ffffff>lv```>`<|00|0000ffff>fff<ckk6f<<~ 0~ p 001kF{y|??ޞ>??0~~0888|88|888 ~~ o