home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / SIMTEL / CPMUG / CPMUG013.ARK / 23MATCH.BAS < prev    next >
BASIC Source File  |  1984-04-29  |  1KB  |  45 lines
  1.  
  2. 100 REM *** '23 MATCHES'"
  3. 110 PRINT "LET'S PLAY 23 MATCHES. WE START WITH 23 MATCHES,"
  4. 115 PRINT "YOU MOVE FIRST. YOU MAY TAKE 1,2 OR 3 MATCHES."
  5. 120 PRINT "THEN I MOVE...I MAY TAKE 1,2 OR 3 MATCHES."
  6. 125 PRINT "YOU MOVE, I MOVE AND SO ON. THE ONE WHO HAS TO"
  7. 130 PRINT "TAKE THE LAST MATCH LOSES."
  8. 135 PRINT "GOOD LUCK AND HAVE FUN!"
  9. 140 PRINT
  10. 150 LET M=23
  11. 200 REM *** THE HUMAN MOVES
  12. 205 PRINT
  13. 210 PRINT "THERE ARE NOW ";M;"MATCHES."
  14. 215 PRINT
  15. 220 INPUT "HOW MANY DO YOU TAKE"; H
  16. 240 IF H>M THEN 510
  17. 250 IF H<>INT(H) THEN 510
  18. 260 IF H<=0 THEN 510
  19. 270 IF H>=4 THEN 510
  20. 280 LET M=M-H
  21. 290 IF M=0 THEN 410
  22. 300 REM *** THE COMPUTER MOVES
  23. 305 IF M=1 THEN 440
  24. 310 LET R=M-4*INT(M/4)
  25. 320 IF R<>1 THEN 350
  26. 330 LET C=INT(3*RND)+1
  27. 340 GOTO 360
  28. 350 LET C=(R+3)-4*INT((R+3)/4)
  29. 360 LET M=M-C
  30. 370 IF M=0 THEN 440
  31. 380 PRINT "I TOOK";C;"...";
  32. 390 GOTO 210
  33. 400 REM *** SOMEBODY WON (SEE LINES 290,305,370)
  34. 410 PRINT
  35. 420 PRINT "I WON!!! BETTER LUCK NEXT TIME."
  36. 430 GOTO 140
  37. 440 PRINT
  38. 450 PRINT "OK, SO YOU WON. LET'S PLAY AGAIN."
  39. 460 GOTO 140
  40. 500 REM *** THE UMAN CHEATED! (SEE LINES 240 THRU 270)
  41. 510 PRINT "YOU CHEATED! BUT I'LL GIVE YOU ANOTHER CHANCE."
  42. 520 GOTO 215
  43. 999 END
  44. OK
  45.