100 REM  NAME--GAMNIM
110 REM 
120 REM  DESCRIPTION--PLAYS GAME OF NIM.
130 REM 
140 REM  SOURCE--UNKNOWN
150 REM 
160 REM  INSTRUCTIONS--TYPE 'RUN' AND FOLLOW INSTRUCTIONS.  
170 REM 
180 REM 
190 REM  *  *  *  *   MAIN PROGRAM  *  *  *  *  *  *  *  *  *  *  *  *  
200 DIM A(100),B(100,10),D(2)   
210 PRINT "THIS IS THE GAME OF NIM."
220 PRINT "DO YOU WANT INSTRUCTIONS";   
230 INPUT Z$
240 IF Z$="NO" THEN 380 
250 IF Z$="YES" THEN 280
260 PRINT "INCORRECT ANSWER.  PLEAST TYPE YES OR NO";   
270 GOTO 230
280 PRINT "THE GAME IS PLAYED WITH A NUMBER OF PILES OF OBJECTS."   
290 PRINT "ANY NUMBER OF OBJECTS  ARE REMOVED FROM ONE PILE BY YOU AND" 
300 PRINT "THE MACHINE ALTERNATELY.  YOU MUST SPECIFY WHETHER WINNING"  
310 PRINT "IS DEFINED AS TAKING OR NOT TAKING THE LAST OBJECT, THE" 
320 PRINT "NUMBER OF PILES IN THE GAME, AND HOW MANY OBJECTS ARE"   
330 PRINT "ORIGINALLY IN EACH PILE.  EACH PILE MAY CONTAIN A"   
340 PRINT "DIFFERENT NUMBER OF OBJECTS."
350 PRINT "THE MACHINE WILL S@HN$="####"=H
 INPUT "INPUT TABLE LIMITS"; N1,N2EQVHPRINT:PRINT:PRINTIPRINT"    ";IFOR X=N1 TO N2&IPRINT USING N$; X,.I(NEXT X4I2PRINTDI7FOR X=N1 TO N2SI8PRINT USING N$; X,cI<FOR Y=N1 TO N2tIFPRINT USING N$; X-Y,|IPNEXT YFORIZPRI
 USING N$; X,.I(NEXT