100 REM HURKL.ECB === LAST MOD. 8/1/77 R.E.H. 110 REM ...ORIGINAL 'HURKLE' EXPANDED 120 REM ....AND REVISED BY DEAN HJELLE, BRANDON 130 REM ....THIS VERSION REVISED BY BOB JAMISON-MECC 8-76 140 PRINT "&K": CURSOR 3,1 150 PRINT TAB(20);"HURKLE": PRINT 160 PRINT " FIND THE HURKLE AND LEARN ABOUT"; 170 PRINT " NUMBER LINES AND GRIDS": PRINT 180 PRINT " DO YOU WANT TO WORK ON:": PRINT 190 PRINT " 1) A HORIZONTAL LINE" 200 PRINT " 2) A VERTICAL LINE" 210 PRINT " 3) A 10 BY 10 GRID" 220 PRINT " 4) A -10 TO +10 GRID": PRINT 230 PRINT " PLEASE TYPE 1,2,3, OR 4 ---=>"; 240 INPUT (1,0)A 250 IF A<>1 AND A<>2 AND A<>3 AND A<>4 THEN 230 260 ON A GOTO 270,340,1090,2570 270 REM ========= HURKLE1 FIND HURKLE ON A HORIZONTAL LINE 280 LET N=4 290 LET G=10 300 LET A$="WEST" 310 LET B$="EAST" 320 LET D$="HORIZONTAL" 330 GOTO 400 340 REM ========= HURKLE2 FIND A HURKLE ON A VERTICAL LINE 350 LET N=4 360 LET G=10 370 LET A$="SOUTH" 380 LET B$="NORTH" 390 LET D$="VERTICAL" 400 FOR I=1 TO 10: LET T=RND(0): NEXT I 410 PRINT 420 PRINT " DO YOU NEED DIRECTIONS ( Y OR N )===>"; 430 INPUT (1,0)Y$ 440 PRINT "&K": REM .....LET Y$=CPY$(Y$,1,1) 450 IF Y$="N" THEN 540 460 IF Y$="Y" THEN 470 ELSE 420 470 PRINT " A HURKLE IS HIDING ON A ";D$;" NUMBER LINE." 480 PRINT " EACH POINT ON THE LINE IS A WHOLE NUMBER." 490 PRINT " TRY TO GUESS THE POINT ON WHICH THE" 500 PRINT " HURKLE IS HIDING. YOU GET ";N;" TRIES. AFTER" 510 PRINT " EACH TRY, I WILL TELL YOU THE APPROXIMATE" 520 PRINT " DIRECTION TO GO TO LOOK FOR THE HURKLE." 530 PRINT 540 IF A=2 THEN 680 550 REM ========= MAKE A HORIZONTAL LINE 560 PRINT A$;" "; 570 FOR J=0 TO G 580 PRINT ". "; 590 NEXT J 600 PRINT " ";B$ 610 PRINT TAB(7); 620 FOR J=0 TO G 630 PRINT J; 640 NEXT J 650 PRINT 660 PRINT 670 GOTO 750 680 REM ========= MAKE A VERTICAL LINE 690 GOSUB 3340 700 PRINT B$ 710 FOR J=G TO 0 STEP -1 720 PRINT J;TAB(3);"." 730 NEXT J 740 PRINT A$ 750 LET A=INT(G*RND(0)+1) 760 FOR K=1 TO N 770 PRINT "GUESS #";K; 780 INPUT (1,0)X 790 IF ABS(X-A)=0 THEN 910 800 REM ========= PRINT INFO 810 GOSUB 1000 820 PRINT 830 NEXT K 840 PRINT 850 PRINT "SORRY, THAT'S";N;" GUESSES" 860 PRINT "THE HURKLE IS AT ";A 870 PRINT 880 PRINT "LET'S PLAY AGAIN. HURKLE IS HIDING." 890 PRINT 900 GOTO 750 910 PRINT 920 PRINT "YOU FOUND HIM IN ";K;" GUESSES" 930 PRINT "DO YOU WANT TO TRY AGAIN"; 940 INPUT (1,0)Y$ 950 PRINT "&K": REM .....LET Y$=CPY$(Y$,1,1) 960 IF Y$="N" THEN 1070 970 IF Y$<>"Y" THEN 930 ELSE 880 980 PRINT 990 GOTO 870 1000 PRINT "GO" 1010 IF X=A THEN 1060 1020 IF X"Y" THEN 1150 1200 PRINT " A HURKLE IS HIDING ON A ";G;" BY";G;" GRID." 1210 PRINT " ANY POINT ON THE GRID IS GIVEN BY TWO NUMBERS" 1220 PRINT " SEPARATED BY A COMMA. YOU TRY TO GUESS WHERE" 1230 PRINT " THE HURKLE IS HIDING. YOU GET ";N;" TRIES." 1240 PRINT " AFTER EACH TRY, I WILL TELL YOU THE APPROXIMATE" 1250 PRINT " DIRECTION TO GO TO LOOK FOR THE HURKLE" 1260 PRINT 1270 PRINT " HERE IS A GRID OF THE HURKLE'S HIDING SPOTS" 1280 GOSUB 3340 1290 PRINT TAB(10);"NORTH" 1300 FOR J=G TO 0 STEP -1 1310 PRINT J;TAB(5); 1320 FOR K=0 TO G 1330 PRINT ". "; 1340 NEXT K 1350 PRINT 1360 NEXT J 1370 IF G>11 THEN 1440 1380 PRINT B(4);" "; 1390 FOR K=0 TO G 1400 PRINT K;" "; 1410 NEXT K 1420 PRINT 1430 GOTO 1530 1440 PRINT TAB(4); 1450 FOR K=0 TO 10 1460 PRINT K; 1470 NEXT K 1480 FOR K=12 TO G STEP 2 1490 PRINT K;" "; 1500 NEXT K 1510 AB(30);"EAST" 1520 PRINT 1530 GOSUB 3350 1540 PRINT 1550 PRINT " REM EMBER, ON A GRID YOU PICK A POINT BY TYPING" 1560 PRINT " 2 NUMBERS SEPERATED BY A COMMA.(EXAMPLE 4,5)," 1570 PRINT " WHERE THE 1ST NO. IS ALWAYS ALONG THE HORIZONTAL" 1580 PRINT " LINE AND THE SECOND ALONG THE VERTICAL LINE." 1590 PRINT 1600 PRINT " DO YOU NEED MORE HELP....." 1610 PRINT " ...IN UNDERSTANDING A 10 BY 10 GRID"; 1620 INPUT (1,0)Y$ 1630 PRINT "&K": REM .....LET Y$=CPY$(Y$,1,1) 1640 IF Y$="N" THEN 2160 1650 IF Y$<>"Y" THEN 1600 1660 PRINT " LOOK AT THE FOLLOWING GRID WHICH IS THE SAME AS" 1670 PRINT " THE HURKLE'S GRID EXCEPT IT IS SMALLER (3 X 3)" 1680 PRINT " AND LETTERS ARE REPRESENTING"; 1690 PRINT " THE POINTS ON THE GRID." 1700 PRINT " " 1710 PRINT " 3 M N O P " 1720 PRINT " 2 I J K L" 1730 PRINT " 1 E F G H" 1740 PRINT " 0 A B C D" 1750 PRINT " " 1760 PRINT " 0 1 2 3" 1770 GOSUB 3350 1780 PRINT " ON A GRID, TO REFERENCE A POINT SUCH AS 'N'" 1790 PRINT " TWO NUMBERS ARE NEEDED. THE 1ST NUMBER ALWAYS" 1800 PRINT " REPRESENTS THE NUMBER ALONG THE HORIZONTAL LINE" 1810 PRINT " AND THE 2ND THE NUMBER ALONG THE VERTICAL LINE." 1820 PRINT " FOR EXAMPLE, POINT 'N' ON OUR GRID WOULD BE" 1830 PRINT " REFERENCED BY THE NUMBERS: 1,3. (BECAUSE N " 1840 PRINT " CAN BE FOUND BY GOING 'OVER' 1 AND 'UP' 3." 1850 PRINT 1860 PRINT " WHAT ARE THE COORDINATES OF THE POINT" 1870 PRINT " 'H' ON OUR GRID "; 1880 INPUT (3,0)W$ 1890 IF W$="3,1" THEN 2040 1900 LET W4=W4+1 1910 IF W4=3 THEN 1970 1920 IF W$="1,3" THEN 2010 1930 PRINT " REM EMBER TO ENTER YOUR POINT AS FOLLOWS:" 1940 PRINT " HORIZONTAL NUMBER--COMMA--VERTICAL NUMBER." 1950 PRINT " LET'S TRY AGAIN...": PRINT 1960 GOTO 1860 1970 PRINT " THE ANSWER SHOULD BE 3,1" 1980 PRINT " I THINK YOU NEED MORE HELP, PLEASE HAVE YOUR" 1990 PRINT " TEACHER EXPLAIN THIS TO YOU. THANKS ANYWAY !" 2000 GOTO 3400 2010 PRINT " REM EMBER THE RULE,"; 2020 PRINT " NUMBER ALONG THE HORIZONTAL LINE FIRST" 2030 GOTO 1820 2040 PRINT " THAT IS RIGHT. NOW "; 2050 LET W4=0 2060 PRINT " WHAT ARE THE COORDINATORS OF THE POINT 'E'" 2070 INPUT (3,0)W$ 2080 IF W$="0,1" THEN 2140 2090 IF W4=2 THEN 1980 2100 LET W4=W4+1 2110 PRINT " NO, THAT IS WRONG. "; 2120 PRINT " REM EMBER THE RULE AND TRY AGAIN.": PRINT 2130 GOTO 2060 2140 PRINT " GOOD WORK, LET'S GET DOWN TO BUSINESS NOW" 2150 PRINT 2160 PRINT " LETS FIND THE HURKLE" 2170 PRINT 2180 LET G=G+1 2190 LET A=INT(G*RND(0)) 2200 LET B=INT(G*RND(0)) 2210 FOR K=1 TO N 2220 PRINT "GUESS #";K; 2230 INPUT (1,0)" GIVE ME 'X' ---=>",X 2235 INPUT (1,0)" O.K., NOW GIVE ME 'Y' ---=>",Y 2240 IF ABS(X-A)+ABS(Y-B)=0 THEN 2400 2250 REM ========= PRINT INFO 2260 GOSUB 2430 2270 PRINT 2280 NEXT K 2290 PRINT 2300 PRINT "THE HURKLE IS AT ";A;",";B 2310 PRINT 2320 PRINT "AGAIN"; 2330 INPUT (1,0)Y$ 2340 PRINT "&K": REM ....LET Y$=CPY$(Y$,1,1) 2350 IF Y$="N" THEN 3400 2360 IF Y$<>"Y" THEN 2320 2370 GOTO 2190 2380 PRINT 2390 GOTO 2560 2400 PRINT 2410 PRINT "YOU FOUND HIM IN";K;" GUESSES" 2420 GOTO 2310 2430 PRINT "GO" 2440 IF Y=B THEN 2490 2450 IF Y"Y" THEN 2610 2670 PRINT " A HURKLE IS HIDING ON A GRID WHICH RANGES FROM" 2680 PRINT " -10 TO 10. ANY POINT IS GIVEN BY TWO NUMBERS" 2690 PRINT " SERARATED BY A COMMA." 2700 PRINT " YOU TRY TO GUESS THE HURKLE'S HIDING SPOT." 2710 PRINT " YOU GET ";N;" TRIES TO FIND HIM" 2720 PRINT "AFTER EACH TRY, I WILL TELL YOU THE APPROXIMATE" 2730 PRINT "DIRECTION TO GO TO LOOK FOR THE HURKLE." 2740 PRINT 2750 PRINT " HERE IS A GRID OF THE HURKLE'S HIDING SPOTS" 2760 GOSUB 3340 2770 PRINT TAB(22);"NORTH" 2780 PRINT " . . . . . . . . . . 10 . . . . . . . . . ." 2790 FOR J=9 TO 1 STEP -1 2800 PRINT " . . . . . . . . . .";J;" . . . . . . . . . ." 2810 NEXT J 2820 GOSUB 3350 2830 PRINT "-10-9-8-7-6-5-4-3-2-1 0 1 2 3 4 5 6 7 8 9 10 EAST" 2840 FOR J=-1 TO -9 STEP -1 2850 PRINT " . . . . . . . . . .";J;" . . . . . . . . . ." 2860 NEXT 2870 PRINT " . . . . . . . . . . 10 . . . . . . . . . ." 2880 PRINT " LET'S FIND THE HURKLE" 2890 LET G=G-1 2900 LET A=INT(G*RND(0)+1) 2910 LET B=INT(G*RND(0)+1) 2920 LET C=INT(3*RND(0)) 2930 IF C=1 THEN 2950 2940 LET A=-A 2950 LET D=INT(3*RND(0)) 2960 IF D=1 THEN 2980 2970 LET B=-B 2980 FOR K=1 TO N 2990 PRINT "GUESS #";K; 3000 INPUT (3,0)" GIVE ME AN 'X' ---=>",X 3005 INPUT (3,0)"O.K., NOW GIVE ME AN 'Y' ---=>",Y 3010 IF ABS(X-A)+ABS(Y-B)=0 THEN 3170 3020 REM ========= PRINT INFO 3030 GOSUB 3210 3040 PRINT 3050 NEXT K 3060 PRINT 3070 PRINT "SORRY,THAT IS";N;" GUESSES" 3080 PRINT "THE HURKLE IS AT ";A;",";B 3090 PRINT 3100 PRINT "AGAIN"; 3110 INPUT (1,0)Y$ 3120 PRINT "&K": REM .....LET Y$=CPY$(Y$,1,1) 3130 IF Y$="Y" THEN 2900 3140 IF Y$<>"N" THEN 3100 ELSE 3400 3150 PRINT 3160 GOTO 3390 3170 PRINT 3180 PRINT "YOU FOUND HIM IN";K;" GUESSES" 3190 PRINT 3200 GOTO 3090 3210 PRINT "GO" 3220 IF Y=B THEN 3270 3230 IF Y"; 3360 INPUT (1,200)I$ 3370 PRINT 3380 RETURN 3400 PRINT "&K" 3410 CURSOR 5,20: PRINT "###############" 3420 CURSOR 6,20: PRINT "### THE END ###" 3430 CURSOR 7,20: PRINT "###############": CURSOR 14,1 3440 END