sa *****************************************************************a ******** CPM MODIFIED PROGRAMS BY M BENNETT ***********a CPM NUMBER 27.11 ORIGINAL HIDESEEK.ASC *7b MWB VERSION 01.00 DATE 22 : 12 : 81 *|b SOURCE NAME HIDESEEK.ASC OBJECT NAME HIDESEEK.MBS *b SOURCE DISK 175 FINAL OBJECT DISK 186 *c ***************************************************************** cd P(,) Ncn "THIS IS THE GAME OF HIDE AND SEEK." Tcxc "THE OBJECT OF THE GAME IS TO FIND THE FOUR PLAYERS " c "WHO ARE HIDDEN ON A 10 BY 10 GRID." cd "HOMEBASE WILL BE THE POSITION AT (0,0) AND ANY GUESS "Bd "YOU MAKE SHOULD CONTAIN TWO NUMBERS. THE FIRST GIVES"d "THE UNIT DISTANCE RIGHT OF THE HOMEBASE AND THE SECOND" d "IS THE UNIT DISTANCE ABOVE HOMEBASE."d d "YOU WILL HAVE TEN ATTEMPTS TO LOCATE THESE PLAYERS" (e "AND WILL BE TOLD HOW CLOSE YOUR GUESS IS"Ae "TO EACH PLAYER." Je e "IF AFTER 10 TRIES YOU ARE UNABLE TO CARRY OUT THIS TASK" e "YOU MAY CONTINUE TO BE 'IT', BUT THE PLAYERS WILL" e "BE PERMITTED TO MOVE TO NEW LOCATIONS." f f" 8f, "ARE YOU READY TO BEGIN (YES OR N0)" Af6 A$Vf@ A$"NO"  bfJ  mfT T |f^ TT fh fr f| "TURN NUMBER";T;", WHAT IS YOUR GUESS?" f M,N f I f P(I,)  g P(I,)M  $g P(I,)N  7g P(I,) Xg "YOU HAVE FOUND PLAYER";I bg g D((P(I,)M)(P(I,)N))g "YOUR DISTANCE FROM PLAYER";I;"IS";(Dd)d;"UNIT(S)." g I g J g P(J,) 0 h J h Gh "YOU HAVE FOUND ALL THE PLAYERS IN ";T;" TURNS!" Qh& eh0 T ^ nh: hD "YOU DIDN'T FIND ALL OF THE PLAYERS IN TEN TRIES."hN " DO YOU WANT TO KNOW WHERE THE PLAYERS YOU DID NOT" iX "FIND WERE HIDDEN (YES OR NO)"ib B$'il B$"NO"  5iv I Ni P(I,)  i "PLAYER";I;"HID AT (";P(I,);",";P(I,);")." i I i i "DO YOU WANT TO PLAY AGAIN (YES OR NO)" i C$i C$"YES" Jj "THEN PLEASE LOGOUT." j  j J  1j I  KjP(I,J)(() ) Tj I ]j J dj  jjHEN PLEASE LOGOUT." j  j J  1j I