10 !
        CHECKERS INITALIZATION PROGRAM

15 ! PROGRAM BY JEFF DALTON, CLASS OF '74, NORTHFIELD MT. HERMON SCH.
30 K$=K$+"0" FOR C0%=1% TO 35%: B$="1111111101111": FOR C0%=1% TO 22%:
        B$=B$+"0": R$=R$+"0": NEXT C0%: R$=R$+"1111011111111"
40 S$=SYS(CHR$(8%)+B$+R$+K$) ! WRITE POS INTO CORE COM STRING
50 &:&"WELCOME TO PDP-11 CHECKERS!": INPUT "INSTRUCTIONS"; C$:
        IF LEFT(C$,1%)="N" THEN 300
65 &:&" THIS IS A GAME OF COMPUTERIZED CHECKERS.":
&"YOU ARE RED (SQUARES 23 TO 35), AND I AM BLACK (SQUARES 1 TO 13)."
70 &"TO SIMPLIFY THE GAME FOR THE COMPUTER, SQUARES 9, 18, AND 27":
&"ARE NOT USED."
75 &"WHEN THE COMPUTER MOVES, IT PRINTS THE NUMBER OF THE SQUARE IT":
&"MOVES FROM AND THE NUMBER OF THE SQUARE IT MOVES TO. IT WILL THEN":
&"TELL YOU WHAT CHECKERS, IF ANY, HAVE BEEN JUMPED OVER."
80 &:&"WHEN IT IS YOUR MOVE, YOU MAY:"
:&"     1) TYPE 'BOARD' TO SEE THE BOARD"
85 &"   2) TYPE 'NUM' TO SEE HOW THE BOARD IS NUMBERED":
&"      3) TYPE 'MOVES' TO SEE ALL YOUR LEGAL MOVES"
90 &"   4) TYPE 'RESIGN' TO RESIGN":
&"      5) TYPE A MOVE TO MAKE A MOVE"
100&:&"YOU TYPE YOUR MOVE AS A SERIES OF NUMBERS SEPARATED BY '-'.":
&"A NUMBER LESS THAN TEN MUST BE PRECEDED BY A ZERO, FOR EXAMPLE,"
105&"SEVEN WOULD BE TYPED AS '07'. THE FIRST NUMBER IS ALWAYS THE":
&"NUMBER OF THE SQUARE YOU WILL MOVE FROM, AND THE LAST NUMBER IS"
110&"ALWAYS THE NUMBER OF THE SQUARE YOU WILL MOVE TO. THE NUMBERS OF"
115&"ANY SQUARES YOU WILL JUMP OVER GO IN BETWEEN.":
&:&"IF YOU ARE IN DOUBT, GET A LIST OF YOUR LEGAL MOVES (TYPE 'MOVES')."
120&:&"THIS PROGRAM IS IN TWO PARTS. THIS, THE FIRST PART, PRINTS THE":
&"INSTRUCTIONS AND SETS UP THE INITAL BOARD POSITION. IT THEN CHAINS":
&"THE SECOND PROGRAM WHICH DOES THE ACTUAL GAME PLAYING.":&
200 &"HERE IS HOW THE BOARD IS NUMBERED:":&
210 &"--35--34--33--32":&"31--30--29--28--"
215 &"--26--25--24--23":&"22--21--20--19--"
220 &"--17--16--15--14":&"13--12--11--10--"
225 &"--08--07--06--05":&"04--03--02--01--":&
230 &:&"GOOD LUCK!":&
300 CHAIN "[2,11] MACH" 10: END