1 PRINT TAB(20);"MAN-EATING RABBIT" 2 PRINT TAB(20);"CREATIVE COMPUTING" 3 PRINT TAB(18);"MORRISTOWN, NEW JERSEY" 4 PRINT:PRINT:PRINT 10 PRINT "YOU ARE IN A PIT WITH A MAN-EATING RABBIT." 15 PRINT "THE CENTER IS (0,0) AND IT HAS A RADIUS OF 10" 20 PRINT "IF YOU CAN AVOID THE RABBIT FOR 10 MOVES YOU WILL BE" 25 PRINT "RELEASED. YOU AND THE RABBIT CAN MOVE ONLY 1 SPACE EACH" 26 PRINT "HOWEVER THE RABBIT CAN DO MULTIPLE JUMPS." 27 PRINT "YOU CAN TRAVEL AT THESE ANGLES" 28 PRINT "0,45,90,135,180,225,270,315,340" 40 X=INT(21*RND(1)-10) 41 Y=INT(21*RND(1)-10) 45 D=SQR(ABS((X-X1)^2+(Y-Y1)^2)) 46 IF D>10 THEN 40 47 PRINT 48 PRINT 50 PRINT "WHERE WOULD YOU LIKE TO BE DROPPED"; 51 INPUT X1,Y1 60 IF SQR(ABS(X1^2+Y1^2))>10 THEN 50 65 IF X<>X1 THEN 70 66 IF Y<>Y1 THEN 70 67 PRINT "*****SQUISH*****" 69 PRINT "THE RABBIT IS DEAD! YOU ARE SET FREE!":GOTO 340 70 FOR G=1 TO 10 71 D=SQR(ABS((X-X1)^2+(Y-Y1)^2)) 80 PRINT "RABBIT AT (";X;",";Y;") AND DISTANCE ";D 90 IF D=0 THEN 330 91 PRINT:PRINT "TURN #";G;" HUMAN AT (";X1;",";Y1;")" 100 PRINT "AT WHAT ANGLE WILL YOU RUN "; 101 INPUT A 110 IF A/45<>INT(A/45) THEN 100 111 PRINT "RUNNING ......";:P1=1 112 M=1:IF ABS((INT(A/10)*10)-A)<>5 THEN 120 113 M=SQR(2) 120 X2=(M*COS(A*(3.14159/180))) 121 Y2=(M*SIN(A*(3.14159/180))) 125 IF SQR(((X1+X2)^2+(Y1+Y2)^2))<=10 THEN 130 126 PRINT "YOU CAN'T GO INTO A WALL!" 127 GOTO 100 130 X1=INT(X1*1000)/1000+X2 131 Y1=INT(Y1*1000)/1000+Y2 132 X1=INT(X1+.5) 133 Y1=INT(Y1+.5) 135 PRINT "HUMAN YOU ARE NOW AT (";X1;",";Y1;")" 136 IF X<>X1 THEN 140 137 IF Y<>Y1 THEN 140 138 PRINT "YOU RAN RIGHT INTO THE RABBIT!!" 139 GOTO 330 140 PRINT "THE RABBIT IS POUNCING AT ANGLE.....";:P1=P1+1 150 X2=X1-X:Y2=Y1-Y 151 IF X2=0 THEN 280 152 IF Y2=0 THEN 300 160 B=INT(ATN(ABS((Y2/X2)))/(3.14159/180)) 170 ON SGN(X2)+2 GOTO 190,10,180 180 ON SGN(Y2)+2 GOTO 240,10,250 190 ON SGN(Y2)+2 GOTO 230,10,220 220 B=180-B:GOTO 250 230 B=B+180:GOTO 250 240 B=360-B 250 B=INT(B/45+.5)*45:PRINT B 255 M=1 256 IF ABS((INT(B/10)*10)-B)<>5 THEN 260 257 M=1.5 260 X2=(M*COS(B*(3.14159/180))) 261 Y2=(M*SIN(B*(3.14159/180))) 270 X=INT(X+X2+.5) 271 Y=INT(Y+Y2+.5) 272 GOTO 315 280 IF Y2<0 THEN 290 281 B=90:GOTO 315 290 B=270:GOTO 250 300 IF X2<0 THEN 310 301 B=1:GOTO 250 310 B=180:GOTO 250 315 IF SQR((X-X1)^2+(Y-Y1)^2)=0 THEN 323 320 P=INT(P1*RND(1)+1) 321 IF P<>1 THEN 323 322 GOTO 140 323 NEXT G:PRINT "YOU ARE RELEASED!":GOTO 340 330 PRINT "**CRUNCH** WELL R.I.P." 340 END