Directory of image this file is from
This file as a plain text file

100PRINT"THIS GAME IS VERY MUCH LIKE A GAME CALLED 	NIM	."
110PRINT"TO WIN YOU MUST MOVE SO THAT YOU TAKE THE LAST UNIT IN THE"
120PRINT"GAME.  THE NUMBER OF UNITS PRESENTLY IN THE GAME PRECEDES"
130PRINT"THE WORD 	REMAINING	.  ON THE FIRST MOVE, YOU MAY NOT TAKE"
140PRINT"ALL OF THE UNITS, AND ON ALL OTHER MOVES, NO MORE THAN TWICE"
150PRINT"THE NUMBER THAT WERE TAKEN BY THE COMPUTER ON THE MOVE"
160 PRINT"PRECEDING YOURS.  THE COMPUTER OBSERVES THESE RULES TOO."
170PRINT"SHOULD THE COMPUTER TAKE THE LAST UNIT DURING ITS MOVE,"
180PRINT"IT WINS."
190PRINT
200PRINT
210READG(1),G(2),G(3),G(4),G(5),G(6),G(7),G(8)
220PRINT"PICK A NUMBER BETWEEN 1 AND 55";
230INPUTT
240IFT<2THEN220
250IFT>54THEN220
260LETT=INT(T+.5)
270LETM=T-1
280PRINT"SHOULD I START (TYPE 1 FOR YES, 0 FOR NO)";
290INPUTQ
300IFQ=1THEN450
310IFQ=0THEN340
320PRINT"I SAID ONE OR ZERO: TRY AGAIN",
330GOTO290
340PRINTT;"REMAINING"
350PRINT"YOUR MAXIMUM MOVE IS";M,"YOUR MOVE";
360INPUTP
370LETP=INT(P+.5)
380IFP>MTHEN600
390IFP<1THEN600
400LETT=T-P
410IFT=0THEN720
420PRINTT;"REMAINING"
430LETM=2*P
440IFM>=TTHEN630
450LETS=T
460IF(3-M)*(S-2)=1THEN540
470LETX=9
480LETX=X-1
490IFG(X)>=TTHEN480
500LETT=T-G(X)
510IFT*3>=STHEN470
520IFT<=MTHEN550
530GOTO470
540LETT=1
550PRINT"I TAKE";T
560LETM=2*T
570LETT=S-T
580PRINTT;"REMAINING"
590GOTO350
600PRINT"THATS A NO-NO"
610PRINT"CORRECTED MOVE";
620GOTO360
630 PRINT "I TAKE";T,"***";CHR$(135);"I WIN";CHR$(135),"THE PDP-8 IS SUPERIOR!!"
640PRINT"DO YOU WANT TO PLAY AGAIN (TYPE 1 FOR YES, 0 FOR NO)";
650INPUTZ7
660IFZ7=1THEN220
670IFZ7=0THEN700
680PRINT"I SAID ONE OR ZERO: TRY AGAIN",
690GO TO 650
700PRINT"ITS BEEN FUN, TRY AGAIN SOMETIME...?"
710 CHAIN "DEMON "
720 PRINT "YOU WIN.   DARN IT!   ?!?!?!?!?!?!?!?  JUST BEGINNER	S LUCK"
730GOTO640
740DATA0,1,2,4,7,12,20,33
750 CHAIN "DEMON "
760 END