10  REM *** BUTTON, BUTTON, WHO'S GOT THE BUTTON ? ***
20  REM *** WRITTEN BY DAVE KAUFMAN * AUGUST 1973 ***
30  REM *** PEOPLE'S COMPUTER COMPANY ***
40  REM *** 1919 MENALTO AVENUE, MENLO PARK, CA.  94025 ***
100  REM FNM COMPUTES X MODULO 7
110  REM FNN COMPUTES THE NEXT ONE TO GET THE BUTTON
120  DEF FNM()=(=0)*7+(>0 AND <8)*+(=8)*1
130  DEF FNN()=FNM(+SGN(RND(0)-.5))
140  PRINT "WANT THE RULES ? (1 MEANS YES,  0 NO) ";
150  INPUT X
160  IF X=0 THEN 200
170  GOSUB 1000
200  REM *** GAME STARTS HERE ***
210  REM B  THE ONE WITH THE BUTTON
220  B=INT(RND(0)*7)+1
230  PRINT 
240  PRINT 
300  REM *** GUESSING STARTS HERE ***
310  REM G  PLAYER'S GUESS
320  PRINT "WHO DO YOU GUESS HAS IT";
330  INPUT G
340  IF G=0 THEN 9999
350  IF G=B THEN 500
360  IF G=FNM(B+1) OR G=FNM(B-1) THEN 450
370  IF G>0 AND G<8 THEN 400
380  PRINT "SILLY - THERE'S NO ONE HERE BY THAT NUMBER"
390  PRINT "TRY AGAIN ... ";
395  GOTO 320
400  REM *** PLAYER'S GUESS HASN'T GOT IT NOR DOES HIS NEIGHBOR ***
410  PRINT G;":  'WHO, ME?'"
420  PRINT 
430  PRINT 
440  PRINT "WHOEVER HAS IT, KEEPS IT"
445  GOTO 300
450  REM *** PLAYER'S GUESS DOESN'T HAVE IT, BUT HIS NEIGHBOR DOES ***
460  PRINT G;":  'MY NEIGHBOR HAS IT'"
470  PRINT 
480  PRINT 
490  PRINT "... BUT WHOEVER HAS IT, PASSES IT"
492  B=FNN(B)
495  GOTO 300
500  REM *** A WINNER ! ***
510  PRINT G;":  'RIGHT YOU ARE - LUCKY !"'7"!"'7"!"'7"'"
520  PRINT 
530  PRINT 
540  PRINT "DO YOU WANT TO PLAY AGAIN ? (1 MEANS YES,  0 NO) ";
550  INPUT X
560  IF X=1 THEN 200
570  STOP 
1000  REM *** THE INTRO ***
1010  PRINT 
1020  PRINT 
1030  PRINT "BUTTON, BUTTON, WHO'S GOT THE BUTTON?"
1040  PRINT 
1050  PRINT 
1060  PRINT "SEVEN FRIENDS ARE SITTING IN A CIRCLE"
1070  PRINT "AND YOU'RE IN THE CENTER"
1080  PRINT 
1090  PRINT 
1100  PRINT "      1"
1110  PRINT 
1120  PRINT " 7        2"
1130  PRINT 
1140  PRINT "   YOU'RE"
1150  PRINT "6    IT     3"
1160  PRINT 
1170  PRINT "   5     4"
1180  PRINT 
1190  PRINT 
1200  PRINT "SOMEONE HAS THE BUTTON AND YOU HAVE TO GUESS WHO"
1210  PRINT 
1220  PRINT "AFTER YOU GUESS, HE CAN PASS THE BUTTON (IF HE WANTS TO)"
1230  PRINT "BUT ONLY TO SOMEONE NEXT TO HIM IN THE CIRCLE"
1240  PRINT 
1250  PRINT "IF YOU WANT TO STOP, TYPE 0 (ZERO)"
1260  PRINT 
1270  PRINT "GOOD LUCK!"'7"!"'7"!"'7
1280  RETURN 
9999  END 
