49 lines
787 B
Plaintext
49 lines
787 B
Plaintext
100 ?=""
|
|
110 ?="A HURKLE IS HIDING ON A"
|
|
120 ?="10 BY 10 GRID. HOMEBASE"
|
|
130 ?="ON THE GRID IS POINT 00"
|
|
140 ?="AND A GRIDPOINT IS ANY"
|
|
150 ?="PAIR OF WHOLE NUMBERS"
|
|
160 ?="TRY TO GUESS THE HURKLE'S"
|
|
170 ?="GRIDPOINT. YOU GET 5 GUESSES"
|
|
180 ?=""
|
|
190 R='/100*0+%
|
|
200 A=R/10
|
|
210 B=%
|
|
220 K=1
|
|
230 ?="GUESS #";
|
|
240 ?=K
|
|
250 ?=" ?";
|
|
260 X=?/10
|
|
270 Y=%
|
|
280 ?=""
|
|
290 #=X*10+Y=R*540
|
|
300 K=K+1
|
|
310 #=K=6*440
|
|
320 ?="GO ";
|
|
330 #=Y=B*370+(Y<B*360)
|
|
340 ?="SOUTH";
|
|
350 #=370
|
|
360 ?="NORTH";
|
|
370 #=X=A*410+(X<A*400)
|
|
380 ?="WEST";
|
|
390 #=410
|
|
400 ?="EAST";
|
|
410 ?=""
|
|
420 ?=""
|
|
430 #=230
|
|
440 ?=""
|
|
450 ?="SORRY THAT'S 5 GUESSES"
|
|
460 ?="THE HURKLE IS AT ";
|
|
470 ?=A
|
|
480 ?=B
|
|
490 ?=""
|
|
500 ?=""
|
|
510 ?="LETS PLAY AGAIN."
|
|
520 ?="HURKLE IS HIDING"
|
|
530 #=180
|
|
540 ?="YOU FOUND HIM IN ";
|
|
550 ?=K
|
|
560 ?=" GUESSES"
|
|
570 #=490
|