FIGCHESS # I=:file="65000":CLR="39923":DRAW="39864":REV="39817":MOVE="39805":HI="39649":SUB="39600":LD="39793":FNY=:FNX= I::ڰ"7"::  LD:SUB BEEP="39843"  KK= LN="100":FR="100":"8900" J:"23606","214":"23607","155":"23658","8":"23609","80" aPAS=:PAST=:FNX1=:FNY1=:wkx="5":bkx=wkx:wky="7":bky= ;K$(2,3):K$(1)="NNN":K$(2)="NNN" MOVE:DRAW 5I;ܰ"8";ڰ"6";,"5";"A Figgins Production" >#1;I,;ٰ"5";" Do you want instuctions (y/n) " !4"21","13";ܥ;5*+1;1;" " (A$=:A$"Y"A$"N""30" ->#I;ٰ"7";1,;" " .A$="Y""8400" 9"21","13";ڰ"6";I;I;;" ":SUB:"8900" Aa$(2,5):a$(2)="BLACK ":a$(1)="WHITE " FLG=:f=I2 DRAW col=:f=Icol=12 FFR="100":LN="50":"8900":FR="27":LN=0:"8900":"8000" STAD=FILE+STY*8+STX FNAD=FILE+FNY*8+FNX !STAD=FNAD500:210 4STADCOL+11 500:210 <FNADCOL+1ƾFNADCOL+11 500:210 %STAD=0500:210 "1000" ERR=I"500":"210" FLG=1K$(F,2)="*":K$(F,NN)="*":FLG=0:KNG+STAD,STAD:STAD,0:DRAW:8900":STAD+RK,(RRK+STAD):RRK+STAD,0:300, jPAST=1PAST=0:FNAD,STAD:STAD,0:DRAW:8900":STAD+FNX-STX,0:300, 'ERR=FNAD,STAD:STAD, #FNAD=11 K$(F,2)="*" DFNAD=3+COLSTX=0STY=0K$(2,1)="*" DFNAD=3+COLSTX=7STY=0K$(2,3)="*" DFNAD=3+COLSTX=7STY=7K$(1,3)="*"  DFNAD=3+COLSTX=0STY=7K$(1,1)="*" ,f:200 k#I;I,"11";2;6;"ILLEGAL":LN="100":FR=:"8900":"10":#I;I,"11";" ":  PI=STAD PI=3+COL4000 (PI=1+COL2030:3000 PI=7+COL2020 PI=5+COL2000 7PI=9 +COL2020:ERR=14000: QPI=11 +COL2070:ERR=02020:ERR=14000:  +ERR=0:D1=(STX-FNX):D2=(STY-FNY) &D1=2D2=1ERR=0: &D1=1D2=2ERR=0: ERR=1: ?ERR=1:D1=(STX-FNX):D2=(STY-FNY):D1=D2ERR=0  ZZZ=(FNX1+FNY1*"8"+FILE+((COL0)*2-1)*8):(ZZZ=IZZZ="13")FNX1=FNXFNY1=FNYPAS="1"PAS="0":PAST="1":"2036" @(FNX=STXƾFNAD0)(FNAD=0STXFNX)ERR=1: /D1=STY-FNY:ERR=:COL="2050" CSTY=6D1=2PAS=1:FNY1=FNY+1:FNX1=FNX: D1=1 ERR=1: DSTY=1D1=-2PAS=1:FNX1=FNX:FNY1=FNY-1: D1=-1 ERR=1: +ERR=0:D1=(STX-FNX):D2=(STY-FNY) ]STX1K$(F,2)="N"K$(F,3)="N"STY=0STY=72091+ fFNX-STX=-2D1>1K$(F,2)="N"K$(F,1)="N"STY=0STY=72093- FLG=1  $D1>1D2>1ERR=1 * +8L=STAD+1STAD+2:L0ERR=1: ,DL:NN=3:RRK=3:KNG=2:RK=1:FLG=1: -AL=STAD-1STAD-3-1:L0ERR=1: .GL:NN=1:RRK=-4:KNG=-2:RK=-1:FLG=1: 2err=0COL=12 FNY=03010 1err=0COL=0FNY=73010  ¼FNAD,STAD:STAD,"0":DRAW:LN="140":FR="230":"8900":LN="70":FR="100":"8900":#1;1,0;1;7;ܰ"1";"PROMOTION.";5;" Select (R,N,B or Q)" <LN=70F:i$=:i$="Q"i$="B"i$="R"i$="N"3020 3011 jFR="100":"8900":STAD,COL+1+(i$="R")*2+(i$="N")*4+(i$="B")*6+(i$="Q")*8 SUB: 3(stx-fnx)0ƽ(sty-fny)=04010 3(stx-fnx)=0ƽ(sty-fny)04010 err=1: err=0: @Z#"1";ܰ"1";ڰ"1";ٰ"6";"0","0";" ":LN=70F:X$="" A#"1";ڰ"1";ٰ"5";"1","0";" Press {M} for menu of commands":FR=502:#1;8;8;0,2;A$(F);" To Move () ":Z$=:X$=Z$Z$=""8001A BX$=Z$:XPR="17":#"1";ڰ"8";ٰ"8";"0",XPR+"1";" ":Z$>"H"Z$<"A"Z$"R"Z$"M"8900":.03{u\,502:8001A CZ$="R""8800":"8000" DZ$="M""8500" E#"1";"1","0";" ":FR="100":"8900":#"1";ٰ"8";ڰ"8";"0",XPR;Z$;")":STX=(Z$)-65A FXPR=XPR+"1" GX$=:X$=""X$=Z$8007G JBZ$=X$:Z$>"8"Z$<"1"8900":.03{u\,502:8001A O>"8900":#"1";ٰ"8";ڰ"8";"0",XPR;Z$;")":STY=8-Z$ PXPR=XPR+"1" QX$=:X$=""X$=Z$8017Q SBZ$=X$:Z$>"H"Z$<"A"8900":.03{u\,502:8001A TE"8900":#"1";ڰ"8";ٰ"8";"0",XPR;"-";Z$;")":FNX=(Z$)-65A UXPR=XPR+2 XX$=:X$=""X$=Z$8024X Y6Z$=X$:Z$>"8"Z$<"1".03{u\,502:8001A ZS.1}L,0:#1;8;8;0,XPR;Z$;")":FNY=8-Z$ r>#1;,;" " FR=140:8900": I:I:U=6:U,;" ":U:0,10 ;6;"INSTRUCTIONS";7''"Enter the co-ordinate of the piece to be moved (Letter first then number.),then enter the co-ordinate of the place it is to be moved to." Pڰ"1";ٰ"5";"To CASTLE merely move the king to its end position e.g:(E1-C1) " +#I;I;I,I+I;;"PRESS ANY KEY TO" ="""8404" ,#I;I;I,;" PRESS ANY KEY TO " :ڰ"7":CLR:SUB: !4 #1;0,0;0;7;" ":FR=100d:LN=100d:8900":0:1:0;6;0,0;" MENU ";7'"{C} To Save game {L} To Load old game {R} To Reverse Board "'"{Q} To Quit "'"{S} To Restart Game "'"{I} For Instructions "'"{P} To Continue game " !>ER=:="Q"move:CLR:64000:39600:"23658","0":10 ,9 ;6;1;"RUN THE TAPE":"23606",0:"23607",60<:"" !? ="S" !@5="I""8900":FR="50":"8900":"8400":"8550" !A="P""8550" !B="R""8800":"8550" !C="C"ER=1:CLR:SUB:8900":0:0,0;"WHAT DO YOU WANT TO NAME IT."'N$:N$""ƱN$<11 ER=0:N$FILE,64@:"8550" !D="L"ER=1:CLR:SUB:8900":0:0,0;"WHAT IS THE NAME OF THE FILE."'N$:N$<11 ER=0:N$FILE,64@:DRAW:"8950":8000@ !GER=I"8500" !H "8510" !f:CLR:SUB:"8000" "`#I;,;" ":CLR:SUB::FR="50":LN="70":IN="6":PA=I+I:"8810":PA=:IN="7"::"8810": "j["8900": REV:DRAW:"8900":#I;I,;PA;IN;" PRESS ANY KEY FOR FRONT VIEW. ": "/"64001",LN:"64000",FR+KK:BEEP:: "U,;"WHO'S MOVE BLACK (2)or WHITE (1)"'F:F<1F>2"8950" #u:#I;,;;;" ": #)32999:*"M";1;"FIG CODE": #432999:"5","6";"LOADING SOME CODE":"": 'P:*"M";1;"FIGCHESS"ʰ"9090":*"M";1;"FIG CODE""39500","11200": '4:"FIGCHESS"ʰ"9100":"FIG CODE""39500","11200" FIG CODE +L$+  @!> =¾> Ԛ_ »>W:g.?:g.?*\&{;;;)))))Q(~/G$%# #>(>=A!b!b=Q(# f!ڬ@!L@`!@'!`~#:G:Ox «q@!~&j)0W~2#~2z?Ơ2#Ͱ!X6x# $$(|(|(>h> ~+6 5&$9lf; 8p````p8>~00`~ 0` 000`0`0<<  >sccccc|b|cc~>c``c>|fccf|`x```x```>c`gc>ccccccf>flxlfc`````cwkccs{ogcc>cccc>~cc~``>cckg>~cc~fc>`>c>Yccccc>cccc6cckkw"c66cc60` 0`0 pp8T60|08n6nff;p6;33N6nFf;>p>alg>p6;33v<fN<n2$8&c<6kccvn332w>gcc>v;3;6p6nfn6w;~0~0`r<w2fv;wcfl8v3ck6f< ` @` P B@@ 0?? 4 < < ,,(p008 (`@`PA@ @ ????xl Z2-5_BGoy6/ K ǀ04zC_g@ @@ ?????``00 hTh | x0P0.0@` PC@@ ?????@ : n  ~88<  `@ @PA@@@ @?????@p@|Vr,,>[888 `` PB@@@ )=Rfz(<Qfz&;Qe{%,:,P,e,{,,,,#;9;O;e;|;;;;"J7JNJdJ|JJJJ[6[M[c[{[[[[m3mKmcm{mmmm:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcws{UUUUUUUUUU?~o~~|yy?UUEUUUUUUTUUUUUUUUU_????{??UUUUUUUUUUUUQUU5UTUUGxhp/ {y/ UUUUUUUUUUUUUUUUUUUUWꪪ* / /@ /@? /?@?| /~?@ /UUUUUUUUUWUUUUUUUUUꪪ@_/?@_/?^_/??_/?_? /?}_ //*UUUUUUUUUUUUUUUUUUUUUU_? ?{ ?/; } w Ϟ UUUUUUUUUUUUUUUUUUUUUW?/ / / ?/ w?~/ ~~?_?_5UU@UUUUUVUUVꪪUU@UUUUUUUUT@@@@?@@??@@~@@~|@~p@_UUVUUU*UUUUUU_UUUUUUUUUUUT???߿>????~߿|x??2??_xE; 0>TU@EtUcgO7IhOʵnȅ * "ˀX'!1^VR0##ox;!10>0^VR8<(m ##m'd DG`\*J}~#m > > m>m1͇0!(6 #>2D>,2.>2A! """$!"4"":!1v\1͇go"&"( "!:!!v( ( ####^#V!~m#:/G>8>8 >