Google
 
Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/chess.elib
There are no other files named chess.elib in the archive.
PW[0 +8+fq(+4)[1
0fo10f"g+q1'
+fq()+4u1
fq1"l 0'
,q1:m(q1+4(]1]0))Qh^rQ-

	7,)B0lv|<]4H'#1>81& Chess One Move& Chess Position Cursor& Chess Read Position& Setup CHESS LibraryChess BoardChess CompileChess MovesChess Reset~DIRECTORY~~DOC~ & Chess One Move!~DOC~ & Chess Position Cursor~DOC~ & Chess Read Position~DOC~ & Setup CHESS Library~DOC~ Chess Board~DOC~ Chess Compile~DOC~ Chess Moves~DOC~ Chess Reset~DOC~ ~FILENAME~~FILENAME~

~INVERT~	CHESS:i*Chess Moves[..j
-:s

"E bj'
s|- l
6l
f+ @v
[.1
@ft
Whose move?  fi:@fc-W"E @ftWhite.
			   :i.1White'
"# @ftBlack.
			   :i.1Black'
[.2
[.3
ff"E 1'"# ':\[.4
f<!Move from!
    m(m.m& Chess Read Position).4. Move from .1: u.2
q.2"E 1;'
q.1,q.2m(m.m& Chess Position Cursor)
30:w
.u.2
m(m.m& Chess Read Position).4. Move to .1: u.3
q.3"E oMove from'
q.1,q.3m(m.m& Chess Position Cursor)
30:w
.u.3
q.2,q.3m(m.m& Chess One Move)
f=.1White"E :i.1Black'
"# :i.1White
.4+1 :\u.4'
>
[.1
[.2
-:s

"E bj'
s|- l
f=.1White"E 14l'
0,1:g.2[.3
1,2:g.2[.4
0[.5
f~.4B"E 1u.5'
f~.4N"E 2u.5'
f~.4R"E 3u.5'
f~.3Q"E 10-(3*q.5)c'
f~.3K"E 13+(3*q.5)c'
fshposu.3
fq.2-2"G 2,3:g.2u.4'
f=.1White"E
-2*(.4-1)l'
f=.1Black"E
2*(.4-1)l'
q.3c
@v [.1
[.2
q.1j 2fx*[.3 i  
q.2j
2fx*[.4
g.3
f=.4  "N
-:s

"E bj'
s|- l
f=.4W+1"E
14l'
:l 0a-|"E i   '
"# i,'
i.4
'
q.2j
@v 7:i*[.1
[.2
[.3
14.fs rereadw
f<!Valid Position!
<  1,m(m.m& Read Line).1u.2
q.2"E f;Valid Position'
fq.2-3"G ft
Positions 3 letters max, of form: <Q/K> {<R/N/B>} <#>
		1;'
fq.2-2"L ft
Positions 2 letters min, of form: <Q/K> {<R/N/B>} <#>
		1;'
0,1:g.2u.3
f~.3Q"N f~.3K"N ft
Positions start with Q or K, of form: <Q/K> {<R/N/B>} <#>
			 1;''
       1,2:g.2u.3
.3 fRNBrnb12345678"L ft
Positions have second letter R, N, B, or 1-8, of from: <Q/K> {<R/N/B>} <#>
				     1;'
       fq.2-3"E 2,3:g.2u.3
.3 f12345678"L ft
Positions have optional third letter 1-8, of form: <Q/K> {<R/N/B>} <#>
					1;''
       f;Valid Position
       >
>
q.2 
fs hpos"G i
	    '
i

|-----------------------|
|BR|BN|BB|BQ|BK|BB|BN|BR|
|--|--|--|--|--|--|--|--|
|BP|BP|BP|BP|BP|BP|BP|BP|
|--|--|--|--|--|--|--|--|
|  |  |  |  |  |  |  |  |
|--|--|--|--|--|--|--|--|
|  |  |  |  |  |  |  |  |
|--|--|--|--|--|--|--|--|
|  |  |  |  |  |  |  |  |
|--|--|--|--|--|--|--|--|
|  |  |  |  |  |  |  |  |
|--|--|--|--|--|--|--|--|
|WP|WP|WP|WP|WP|WP|WP|WP|
|--|--|--|--|--|--|--|--|
|WR|WN|WB|WQ|WK|WB|WN|WR|
|-----------------------|

GAME 

1.



 -14l >-:s

"E bj'
 .,(c :s

"E zj'). k
m(m.mChess Board)
Hbj
 < 0,fs z fs boundw
:s

"E 1;'
:s|"E 1;' 0l
.,(:s

"E zj'
-sGAME 0l). fs boundw
bj < :s-|; -d >
bj < :s

	       ; -2d >
bj k
bj <:sWK; @>
   bj <:sWQ; B>
   bj <:sWR; D>
   bj <:sWB; F>
   bj <:sWN; H>
   bj <:sWP; J>
   bj <:sBK; `>
   bj <:sBQ; b>
   bj <:sBR; d>
   bj <:sBB; f>
   bj <:sBN; h>
   bj <:sBP; j>

   bj <:s,; -d>
bj <:s  ; 0>
bj 4< 4< c 1a+1i d>
l
4< 1a+1i d c>
l
>


   bj i2333333334

8< 0l i9 8c i5 l>
i8777777776
bj i.select 1

zj i.select 0

>
0,fs z fs boundw
bji.xgp
.font 1 S50CHS
.font 0 25FGB1
.nofill
.vsp 0
.nohead


 bj <:s

; .page
    >
 bj :s.page

%0fo..qCHESS Setup Hookf"n[0m0w'"Chess board -*-TECO-*- macros.dC Mode to move pieces.
    It will ask whose move is first; type W or B.
    ARG (1) is move number started from.
    Move from: type board position, e.g. KB7 or QN2, of the color moving.
    Move to: type board position.
    If a piece is captured, it will be placed to the right of the board.
	Captured pieces are separated by commas (must be).#S Put cursor at KB3, QN5, etc.
    Numarg1 is string pointer for whose move.
    Numarg2 is string pointer for the position.
    Assumes white is at bottom.S Edit one move, from numarg1 point to numarg2 point.
    Captures placed at right of board, separated by commas (must be).	S Read line, verify legal position or repeat.
    String arg is prompt string.
    Returns string pointer that & Read Line returns.C Insert a new board.)C Delete this board and make new one.2C Make buffer of boards into xgp chess boards.cS IVORY-Generated Setup -- Calls hook.
This object file was compressed on 3:27pm  Wednesday, 10 April 1996
by ALDERSON on toed.xkl.com from the following source libraries:

   DXX:<EMACS>CHESS.EMACS.1,	04/10/96 15:25:47Chess Moves
& Chess Position Cursor
& Chess One Move
& Chess Read Position
Chess Board
Chess Reset
Chess Compile
& Setup CHESS Library
\+8+fq(+4)[2 0[3
< %3,-q2f2u3 q3&1@; q3"l 0' >
f[BBind q3-1*5,q3*5g2 q:..o(0)+q2