home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug003.ark / CHOMP.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  1.9 KB  |  87 lines
  1. REM *** THE GAME OF CHOMP  *****
  2. REM
  3. REM
  4. PRINT "THIS IS THE GAME OF CHOMP."
  5.     DIM A(12,12)
  6. INPUT "DO YOU WANT THE RULES ";R$
  7. IF LEFT$(R$,1)<>"Y" THEN 300
  8.     F=1 : R=5 : C=7
  9.     PRINT "CHOMP IS FOR 1 OR MORE PLAYERS."
  10.     PRINT
  11.     PRINT "HERE IS HOW A BOARD LOOKS:"
  12.     GOSUB 540
  13.     PRINT
  14.     PRINT "THE BOARD IS A BIG COOKIE - R ROWS HIGH AND C COLUMNS"
  15. 300    PRINT "HERE WE GO..."
  16. 360    F=0
  17. 370    FOR I=1 TO 10
  18. 372       FOR J=1 TO 10
  19.           A(I,J)=0
  20.        NEXT J
  21.     NEXT I
  22. 380     PRINT "HOW MANY PLAYERS";
  23.     INPUT P
  24. 410    I1=0
  25. 420    INPUT "HOW MANY ROWS";R
  26.     IF R<1 THEN 420
  27.     IF R<=9 THEN 470
  28. 450    PRINT "TOO MANY ROWS.  9 IS MAX. NOW ";
  29.     GOTO 420
  30. 470    INPUT "HOW MANY COLUMNS";C
  31.     IF C<1 THEN 470
  32.     IF C<=9 THEN 530
  33. 500    PRINT "TOO MANY COLUMNS. 9 IS MAX.  NOW, ";
  34.     GOTO 470
  35. 530    PRINT
  36. 540    FOR I=1 TO R
  37. 550       FOR J=1 TO C
  38.           A(I,J)=1
  39.        NEXT J
  40.     NEXT I
  41. 590    A(1,1)=-1
  42. 600 REM *** PRINT BOARD ***
  43. 610     PRINT
  44. 620    PRINT TAB(7);"1 2 3 4 5 6 7 8 9"
  45. 630    FOR I=1 TO R
  46. 640       PRINT I; TAB(7);
  47. 650       FOR J=1 TO C
  48.           IF A(I,J)=-1 THEN 700
  49.           IF A(I,J)=0 THEN 720
  50. 680          PRINT "* ";
  51. 690          GOTO 710
  52. 700          PRINT "P ";
  53. 710       NEXT J
  54. 720       PRINT
  55. 730    NEXT I
  56. 740    PRINT
  57. 750    IF F=0 THEN 770
  58. 760    RETURN
  59. 770 REM *** GET CHOMPS FOR EACH PLAYER IN TURN ***
  60. 780    I1=I1+1
  61. 790    P1=I1-INT(I1/P)*P
  62. 800    IF P1<>0 THEN 820
  63. 810    P1=P
  64. 820    PRINT "PLAYER ";P1
  65. 830    INPUT "COORDINATES OF CHOMP (ROW,COLUMN)";R1,C1
  66. 850    IF R1<1 THEN 920
  67. 860    IF R1>R THEN 920
  68. 870    IF C1<1 THEN 920
  69. 880    IF C1>C THEN 920
  70. 890    IF A(R1,C1)=0 THEN 920
  71. 900    IF A(R1,C1)=-1 THEN 1010
  72. 910    GOTO 940
  73. 920    PRINT "NO FAIR. YOU'RE TRYING TO EAT EMPTY SPACE!"
  74. 930    GOTO 820
  75. 940    FOR I=R1 TO R
  76. 950       FOR J=C1 TO C
  77. 960          A(I,J)=0
  78. 970       NEXT J
  79. 980    NEXT I
  80. 990    GOTO 610
  81. 1000 REM *** END OF GAME DETECTED IN LINE 900 ***
  82. 1010    PRINT "YOU LOSE PLAYER ";P1
  83.     PRINT
  84.     INPUT "AGAIN";R$
  85.     IF LEFT$(R$,1)="Y" THEN 300
  86.     END
  87.