2 80 PRINT "NEED INSTRUCTIONS ";
6 120 PRINT "IN THIS GAME OF NIMBLE TWO PLAYERS ARE CONFRONTED WITH P"
7 130 PRINT "(2<P<7) PILES OF OBJECTS WITH N(I) ((0<I<P),(0<=N(I)<64))"
8 140 PRINT "OBJECTS IN PILE I. EACH PLAYER IN TURN MUST SELECT ONE"
9 150 PRINT "PILE AND TAKE ANY QUANTITY FROM THAT PILE FROM 1 TO ALL."
10 160 PRINT "THE PLAYER TO TAKE THE LAST OBJECT IS THE WINNER."
11 170 PRINT "THE GAME IS BEGUN WITH A COIN TOSS-THE WINNER OF THAT TOSS"
12 190 PRINT "HAS THE RIGHT TO INDICATE A PREFERENCE FOR GOING FIRST"
13 200 PRINT "OR SECOND."
14 210 PRINT "YOU INDICATE YOUR MOVE BY P,Q WHERE P=THE PILE NUMBER,"
15 220 PRINT "AND Q=THE QUANTITY."
16 260 PRINT "GOOD LUCK ! ! !"
17 290 DIM G(6,6),V(6),N(6),P(6),W(6)
18 300 PRINT "PICK A NUMBER ";
38 450 PRINT "SHOULD I SET UP GAME ";
40 470 IF A$="N" GOTO 590
41 480 PRINT "INDICATE DIFFICULTY LEVEL (1-5) ";
46 530 N=INT(RND(1)*(J9-2))+3
48 550 N(J)=INT(RND(1)*(2*V(I9)-1))+1
52 590 PRINT "HOW MANY PILES ";
53 600 PRINT "(3-";J9;")";
57 640 PRINT "HOW MANY IN PILE NO.";
61 680 IF N(J)<2*V(I9) GOTO 710
62 690 PRINT "SELECT NUMBERS LESS THAN ";2*V(I9)
67 740 PRINT "I AM ABOUT TO TOSS A COIN-CALL H OR T ";
70 770 IF A$="H" GOTO 810
71 780 IF A$="T" GOTO 810
72 790 PRINT "DON'T BE A WISE GUY-CALL H OR T ";
78 850 PRINT "THE TOSS WAS ";C$
81 880 PRINT "MY CHOICE - PONDER PONDER PONDER - ";
83 900 PRINT "YOUR CHOICE-DO YOU WANT TO GO FIRST ";
85 920 IF A$="Y" GOTO 970
88 950 IF P(I)=1 GOTO 990
90 970 PRINT "YOU GO FIRST - ";
92 990 PRINT "I GO FIRST - ";
95 1020 FOR I= I9 TO 1 STEP -1
96 1030 IF P(I)=1 GOTO 1100
98 1050 J=INT(N*RND(1))+1
99 1060 IF N(J)=0 GOTO 1050
100 1070 T=INT(N(J)*RND(1))+1
101 1080 PRINT "MY MOVE IS ";J;", ";T
105 1120 IF G(I,J)=1 GOTO 1140
110 1170 IF P(K)=0 GOTO 1210
111 1180 T=T+(2*G(K,J)-1)*V(K)
112 1190 G(K,J)=(G(K,J)-1)**2
115 1220 PRINT "MY MOVE IS ";J;", ";T
116 1230 REM WAS PRINT FORMAT
119 1260 IF N(J)<>0 GOTO 1370
121 1280 IF S=1 GOTO 1310
122 1290 PRINT "I WIN !!! ";
124 1310 PRINT "YOU WIN !!! ";
126 1330 PRINT "PLAY AGAIN ";
128 1350 IF A$="N" GOTO 1970
130 1370 IF S=1 GOTO 1000
133 1400 PRINT "YOUR MOVE ";
135 1420 IF J>=1 GOTO 1460
136 1430 PRINT "PICK A PLIE FROM 1 TO ";N;
139 1460 IF J>N GOTO 1430
140 1470 IF N(J)>0 GOTO 1510
141 1480 PRINT "THAT PILE IS EMPTY"
144 1510 IF T>=1 GOTO 1550
145 1520 PRINT "PICK A QUANTITY FROM 1 TO ";N(J);
148 1550 IF T>N(J) GOTO 1520
151 1580 FOR I=I9 TO 1 STEP -1
152 1590 IF V(I)>T GOTO 1650
154 1610 IF G(I,J)=1 GOTO 1680
156 1630 P(I)=(P(I)-1)**2
158 1650 IF G(I,J)=0 GOTO 1680
160 1670 P(I)=(P(I)-1)**2
164 1710 FOR I=I9 TO 1 STEP -1
165 1720 IF V(I)>T GOTO 1760
168 1750 P(I)=(P(I)-1)**2
171 1780 PRINT "THERE ARE ";N;" PILES"
183 1910 IF A$<>"N" GOTO 1930
185 1930 IF A$<>"Y" GOTO 1950
187 1950 PRINT "ANSWER ONLY Y OR N";
189 1970 PRINT " FINAL SCORE - ME ";W(1),"YOU ";W(2)