100 REM HIDE.ECB ... HIDE AND SEEK 02-12-81 R.E.H. 110 DIM P(4,2) 120 PRINT "&K&J&J" 130 PRINT "This is the game of HIDE AND SEEK.&J" 140 PRINT " THE OBJECT OF THE GAME IS TO FIND THE" 150 PRINT " 4 PLAYERS WHO ARE HIDDEN ON A 10 BY 10 GRID." 160 PRINT 170 PRINT " HOMEBASE WILL BE THE POSITION AT (0,0) AND ANY" 180 PRINT " GUESS YOU MAKE SHOULD CONTAIN TWO NUMBERS." 190 PRINT " THE FIRST GIVES THE UNIT DISTANCE RIGHT" 200 PRINT " OF THE HOMEBASE AND THE SECOND" 210 PRINT "IS THE UNIT DISTANCE ABOVE HOMEBASE." 220 GOSUB 790 230 PRINT " YOU WILL HAVE TEN ATTEMPTS TO LOCATE" 240 PRINT " THESE PLAYERS AND WILL BE TOLD HOW CLOSE" 250 PRINT " YOUR GUESS IS TO EACH PLAYER." 260 PRINT 270 PRINT " IF AFTER 10 TRIES YOU ARE UNABLE TO CARRY" 280 PRINT " OUT THIS TASK YOU MAY CONTINUE TO BE 'IT', BUT" 290 PRINT " THE PLAYERS WILL MOVE TO NEW LOCATIONS." 300 PRINT 310 PRINT " ARE YOU READY TO BEGIN (YES OR N0) "; 320 INPUT (1,0)"---=>",A$: LET A$=A$+"Y" 330 IF A$(1,1)="N" THEN 120 335 IF A$(1,1)="n" THEN 120 340 GOSUB 730 350 LET T=0 360 LET T=T+1 370 PRINT 380 PRINT 390 PRINT "TURN NUMBER";T;", What is your guess ? ---=>"; 400 INPUT M,N 410 FOR I=1 TO 4 420 IF P(I,1)=-1 THEN 510 430 IF P(I,1)<>M THEN 480 440 IF P(I,2)<>N THEN 480 450 LET P(I,1)=-1 460 PRINT "YOU HAVE FOUND PLAYER";I 470 GOTO 510 480 LET D=SQR((P(I,1)-M)*(P(I,1)-M)+(P(I,2)-N)*(P(I,2)-N)) 490 PRINT " Your distance from player";I;" is "; 500 PRINT INT(D*100)/100;" unit(s)." 510 NEXT I 520 FOR J=1 TO 4 530 IF P(J,1)<>-1 THEN 580 540 NEXT J 550 PRINT 560 PRINT "YOU HAVE FOUND ALL THE PLAYERS IN ";T;" TURNS!" 570 GOTO 690 580 IF T<10 THEN 360 590 PRINT 600 PRINT " YOU DIDN'T FIND ALL OF THE PLAYERS IN 10 TRIES." 610 PRINT " DO YOU WANT TO KNOW WHERE THE PLAYERS YOU" 620 PRINT " DIDN'T FIND WERE HIDDEN (YES OR NO) "; 630 INPUT (1,0)"---=>",B$: LET B$=B$+"Y" 640 IF B$(1,1)="N" THEN 690 645 IF B$(1,1)="n" THEN 690 650 FOR I=1 TO 4 660 IF P(I,1)=-1 THEN 680 670 PRINT "Player";I;" hid at (";P(I,1);",";P(I,2);")." 680 NEXT I 690 PRINT 700 PRINT " DO YOU WANT TO PLAY AGAIN (YES OR NO)"; 710 INPUT (1,0)"---=>",C$: LET C$=C$+"Y" 720 IF C$(1,1)="Y" THEN 340 725 IF C$(1,1)="y" THEN 340 ELSE 840 730 FOR J=1 TO 2 740 FOR I=1 TO 4 750 LET P(I,J)=INT(RND(0)*10) 760 NEXT I 770 NEXT J 780 RETURN 790 PRINT 800 PRINT " READY TO SEE MORE ? (Y OR N)--->"; 810 INPUT I$ 820 PRINT 830 RETURN 840 END