home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug027.ark / NIM.ASC < prev    next >
Encoding:
Text File  |  1984-04-29  |  1.2 KB  |  28 lines
  1. 100 REM  NAME--GAMNIM
  2. 110 REM 
  3. 120 REM  DESCRIPTION--PLAYS GAME OF NIM.
  4. 130 REM 
  5. 140 REM  SOURCE--UNKNOWN
  6. 150 REM 
  7. 160 REM  INSTRUCTIONS--TYPE 'RUN' AND FOLLOW INSTRUCTIONS.  
  8. 170 REM 
  9. 180 REM 
  10. 190 REM  *  *  *  *   MAIN PROGRAM  *  *  *  *  *  *  *  *  *  *  *  *  
  11. 200 DIM A(100),B(100,10),D(2)   
  12. 210 PRINT "THIS IS THE GAME OF NIM."
  13. 220 PRINT "DO YOU WANT INSTRUCTIONS";   
  14. 230 INPUT Z$
  15. 240 IF Z$="NO" THEN 380 
  16. 250 IF Z$="YES" THEN 280
  17. 260 PRINT "INCORRECT ANSWER.  PLEAST TYPE YES OR NO";   
  18. 270 GOTO 230
  19. 280 PRINT "THE GAME IS PLAYED WITH A NUMBER OF PILES OF OBJECTS."   
  20. 290 PRINT "ANY NUMBER OF OBJECTS  ARE REMOVED FROM ONE PILE BY YOU AND" 
  21. 300 PRINT "THE MACHINE ALTERNATELY.  YOU MUST SPECIFY WHETHER WINNING"  
  22. 310 PRINT "IS DEFINED AS TAKING OR NOT TAKING THE LAST OBJECT, THE" 
  23. 320 PRINT "NUMBER OF PILES IN THE GAME, AND HOW MANY OBJECTS ARE"   
  24. 330 PRINT "ORIGINALLY IN EACH PILE.  EACH PILE MAY CONTAIN A"   
  25. 340 PRINT "DIFFERENT NUMBER OF OBJECTS."
  26. 350 PRINT "THE MACHINE WILL S@HN$="####"=H
  27. INPUT "INPUT TABLE LIMITS"; N1,N2EQVHPRINT:PRINT:PRINTIPRINT"    ";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
  28.