10 REM CHOMP.ECB 20 REM ...PROGRAM NAME: BITE VERSION: 07/20/77 30 REM ...ALTERNATE NAMES: CHOMP 40 REM ...AUTHOR: PEOPLE'S COMPUTER COMPANY 50 REM ...CDC CYBER 70/73-26 BASIC 3.1 60 REM ...ASSOCIATED FILES AND PROGRAMS: 70 PRINT "&K&J" 80 DIM A(9,9),B(9,9) 100 PRINT 110 PRINT "THIS IS THE GAME OF BITE, AN EDUCATIONAL ADAPTATION" 120 PRINT "OF THE GAME OF CHOMP (SCIENTIFIC AMERICAN, JAN. 1973)." 130 PRINT 140 PRINT 150 PRINT 160 PRINT "DO YOU WANT THE RULES - YES OR NO"; 170 INPUT (1,0)R$ 175 IF LEN(R$)=0 THEN LET R$="N" 180 PRINT "&K" 190 IF R$="N" THEN 450 200 IF R$<>"Y" THEN 160 210 LET F=1 220 LET R=9: LET C=9 230 PRINT "CHOMP IS FOR 1 OR MORE PLAYERS (HUMANS ONLY)." 240 PRINT 250 PRINT "HERE'S HOW A BOARD LOOKS..." 260 GOSUB 600 265 INPUT (1,0)"<#> Enter any letter to see more ---=>",I$ 270 PRINT "&K" 280 PRINT "THE BOARD IS A BIG CHOCOLATE CHIP COOKIE---IT HAS 9 ROWS" 290 PRINT "AND 9 COLUMNS OF CHOCOLATE CHIPS. IN THE UPPER LEFT" 300 PRINT "CORNER OF THE COOKIE IS A POISON CHIP (P). THE ONE WHO" 310 PRINT "CHOMPS THE POISON CHIP LOSES. TO TAKE A CHOMP TYPE THE" 320 PRINT "ROW AND COLUMN OF ONE OF THE CHIPS ON THE COOKIE." 330 PRINT "YOU MUST ALSO GIVE THE NUMBER OF CHIPS IN THE PIECE YOU ARE" 340 PRINT "CHOMPING; THERE IS A 20 SECOND TIME LIMIT ON THIS." 350 PRINT "ALL OF THE CHIPS BELOW AND TO THE RIGHT OF THAT CHIP" 360 PRINT "(INCLUDING THAT CHIP TOO) DISAPPEAR--CHOMP!!" 370 PRINT "NO FAIR CHOMPING SQUARES THAT HAVE ALREADY BEEN CHOMPED," 380 PRINT "OR THAT ARE OUTSIDE THE ORIGINAL DIMENSIONS OF THE COOKIE." 390 PRINT 400 PRINT "IN GIVING THE NUMBERS OF CHIPS , DO NOT COUNT CHIPS" 410 PRINT "BITTEN, ONLY CHIPS STILL REMAINING WHICH YOU" 420 PRINT "PROPOSE TO EAT." 430 INPUT (1,0)"<#> Enter any letter to see more ---=>",I$ 440 PRINT 450 PRINT "HERE WE GO..." 460 LET R=9: LET C=9 470 LET A1=81 480 LET F=0 540 PRINT 550 PRINT "HOW MANY PLAYERS"; 560 INPUT P 570 LET I1=0 580 LET R1=10: LET C1=10 590 PRINT 600 FOR I=1 TO R 610 FOR J=1 TO C 620 LET A(I,J)=1 630 NEXT J 640 NEXT I 650 LET A(1,1)=-1 660 REM ...*** PRINT THE BOARD 670 PRINT 680 PRINT TAB(7);"1 2 3 4 5 6 7 8 9" 690 FOR I=1 TO R 700 PRINT I;TAB(7); 710 LET J=1: REM ...FOR J=1 TO C 720 IF A(I,J)=-1 THEN 760 730 IF A(I,J)=0 THEN 780 740 PRINT "* "; 750 GOTO 770 760 PRINT "P "; 770 LET J=J+1: IF J0 THEN 880 870 LET P1=P 880 PRINT "PLAYER ";P1 910 PRINT "COORDINATES OF CHOMP (ROW,COLUMN)"; 920 INPUT R1,C1 930 IF R1<1 THEN 1000 940 IF R1>R THEN 1000 950 IF C1<1 THEN 1000 960 IF C1>C THEN 1000 970 IF A(R1,C1)=0 THEN 1000 980 IF A(R1,C1)=-1 THEN 1160 990 GOTO 1030 1000 PRINT "NO FAIR. YOU'RE TRYING TO CHOMP ON EMPTY SPACE" 1010 GOTO 880 1020 REM ...**** AREA OF CHOMP **** 1030 LET T9=RND(0)*3600000: REM ......WAS--> LET T9=CLK(0)*3600000 1040 PRINT "NUMBER OF CHIPS IN THE CHOMP? "; 1050 INPUT A9 1051 PRINT 1054 REM ......WAS---> IF CLK(0)*3600000-T9>25000 THEN 1230 1055 REM ...IF RND(0)*3600000-T9>25000 THEN 1230 1058 FOR I=1 TO 9 1059 FOR J=1 TO 9 1060 LET B(I,J)=A(I,J) 1061 NEXT J 1062 NEXT I 1064 FOR I=R1 TO R 1066 FOR J=C1 TO C 1068 LET A(I,J)=0 1070 NEXT J 1072 NEXT I 1074 LET A2=A1 1076 LET A1=0 1078 FOR I=1 TO R 1080 FOR J=1 TO C 1082 LET A1=A1+ABS(A(I,J)) 1084 NEXT J 1086 NEXT I 1087 LET A8=A2-A1 1088 IF A9<>A8 THEN 1270 1090 GOTO 670 1140 GOTO 670 1150 REM ...*** END OF GAME DETECTED IN LINE 900 1160 PRINT "YOU LOSE, PLAYER ";P1 1170 PRINT 1180 PRINT "AGAIN - YES OR NO"; 1190 INPUT R$ 1200 IF R$="Y" THEN 450 1201 IF R$<>"N" THEN 1180 1210 GOTO 1330 1220 REM ...***** TIME LIMIT HANDLING ***** 1230 PRINT 1240 PRINT "THAT WAS OVER THE TIME LIMIT, TRY AGAIN." 1250 GOTO 910 1260 REM ...***** INCORRECT AREA ***** 1270 PRINT "INCORRECT ANSWER. YOU LOSE YOUR TURN." 1280 PRINT "CORRECT ANSWER=";A8 1282 FOR I=1 TO 9 1284 FOR J=1 TO 9 1286 LET A(I,J)=B(I,J) 1288 NEXT J 1290 NEXT I 1300 LET A1=A2 1310 PRINT 1320 GOTO 840 1330 END