10 REM SNARK.ECB 50 REM ======= LAST MOD. 8/1/77 R.E.H. 100 PRINT "&K": CURSOR 5,1 110 REM *** SNARK *** CATCH HIM WITH A WELL PLACED CIRCLE 120 REM *** PEOPLE"S COMPUTER COMPANY, MENLO PARK, CA. 130 REM *** ADAPTED TO RTB BASIC BY LEE A. RICHARDS 140 REM === RANDOMIZE 150 PRINT TAB(10);"0000000000000000000000000" 160 PRINT TAB(10);"000 S N A R K 000" 170 PRINT TAB(10);"0000000000000000000000000" 180 PRINT 190 PRINT " WANT THE RULES "; 200 INPUT (1,100)Z$ 210 IF Z$="N" THEN 530 ELSE PRINT "&K&J" 220 IF Z$="Y" THEN 250 230 PRINT " YES OR NO, PLEASE"; 240 GOTO 200 250 REM ============== HERE ARE THE RULES ========== 260 PRINT 270 PRINT " A SNARK IS HIDDING IN A 10 BY 10 GRID LIKE" 280 PRINT " THE ONE SHOWN BELOW:" 290 PRINT 300 PRINT " Y" 310 FOR Y=9 TO 0 STEP -1 320 PRINT Y;" . . . . . . . . . ." 330 NEXT Y 340 PRINT " X 0 1 2 3 4 5 6 7 8 9" 350 GOSUB 1000 360 PRINT 370 PRINT " TRY TO CATCH HIM. HERE'S HOW ..." 380 PRINT " WHEN I ASK, YOU TYPE THE X, Y, COORDINATES" 390 PRINT " OF A GRIDPOINT (IF YOU DON'T KNOW WHAT THAT" 400 PRINT " MEANS, ASK SOMEONE) AND PRESS THE RETURN KEY." 410 PRINT " THEN, WHEN I ASK FOR 'RADIUS', YOU TYPE THE" 420 PRINT " RADIUS OF A CIRCLE CENTERED ON THE GRIDPOINT" 430 PRINT " WHOSE X, Y COORDINATES YOU JUST ENTERED." 440 GOSUB 990 450 PRINT " I WILL THEN TELL YOU WHETHER THE SNARK" 460 PRINT " IS 'INSIDE' YOUR CIRCLE, 'OUTSIDE' " 470 PRINT " YOUR CIRCLE, OR 'ON' YOUR CIRCLE." 480 PRINT 490 PRINT TAB(10);" ***IMPORTANT***" 500 PRINT " IF YOU THINK YOU KNOW WHERE HE IS HIDING," 510 PRINT " ENTER 0 (ZERO) AS THE RADIUS. GOOD HUNTING." 520 REM ============ HIDE THE SNARK ============= 530 LET X=INT(10*RND(-3)) 540 LET Y=INT(10*RND(-2)) 550 PRINT 560 PRINT " THE SNARK IS HIDING ... START GUESSING." 570 REM ============ GUESSING BEGINS ============= 580 LET K=1 590 PRINT 600 PRINT " COORDINATES"; 610 INPUT A,B 620 IF A=INT(A) THEN 640 630 GOTO 650 640 IF B=INT(B) THEN 680 650 PRINT " FORGOT TO TELL YOU ----" 660 PRINT " ---- COORDINATES MUST BE INTEGERS." 670 GOTO 590 680 LET D2=(X-A)*(X-A)+(Y-B)*(Y-B) 690 PRINT " RADIUS"; 700 INPUT R 710 IF R=INT(R) THEN 730 720 GOTO 740 730 IF R>=0 THEN 770 740 PRINT " WHOOPS. THE RADIUS MUST BE A WHOLE NUMBER." 750 PRINT 760 GOTO 690 770 IF R<>0 THEN 790 780 IF D2=0 THEN 900 790 IF D2R*R THEN 840 810 IF D2=R*R THEN 860 820 PRINT " SNARK IS INSIDE YOUR CIRCLE." 830 GOTO 870 840 PRINT " SNARK IS OUTSIDE YOUR CIRCLE." 850 GOTO 870 860 PRINT " SNARK IS ON YOUR CIRCLE." 870 LET K=K+1 880 GOTO 590 890 REM =============== WE GOT A WINNER ============ 900 PRINT 910 PRINT " YOU CAUGHT HIM IN ";K;" GUESSES." 920 PRINT " GOOD SHOW !!" 930 PRINT " WANT TO PLAY AGAIN"; 940 INPUT (1,0)A$ 950 IF A$="Y" THEN 530 960 IF A$="N" THEN 1040 970 PRINT " YES OR NO,PLEASE"; 980 GOTO 940 990 PRINT 1000 PRINT " READY TO SEE MORE =========>"; 1010 INPUT (1,100)I$ 1020 PRINT 1030 RETURN 1040 END