Listing of file='HURKLE.BAS;01' on disk='vmedia/ncc_5-sector.ccvf'
0 PLOT 6,9,12:FOR I= 1TO 500:NEXT I:PLOT 6,2,12,27,11,14 10 PRINT TAB( 33);"HURKLE" 20 PRINT TAB( 15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY" 30 PRINT 40 S= PEEK (33209):FOR I= 0TO S:Q= RND (1):NEXT I 110 N= 5 120 G= 10 210 PRINT 220 PRINT "A HURKLE IS HIDING ON A";G;" BY";G;" GRID. HOMEBASE" 230 PRINT "ON THE GRID IS POINT 0,0 AND ANY GRIDPOINT IS A" 240 PRINT "PAIR OF WHOLE NUMBERS SEPARATED BY A COMMA. TRY TO" 250 PRINT "GUESS THE HURKLE'S GRIDPOINT. YOU GET ";N;" TRIES." 260 PRINT "AFTER EACH TRY, I WILL TELL YOU THE APPROXIMATE" 270 PRINT "DIRECTION TO GO TO LOOK FOR THE HURKLE." 280 PRINT 282 PRINT "FIRST NUMBER IS 0 TO";G;" GOING WEST TO EAST" 284 PRINT "SECOND NUMBER IS 0 TO";G;" GOING SOUTH TO NORTH" 285 PRINT :A= INT (G* RND (1)) 286 B= INT (G* RND (1)) 310 FOR K= 1TO N 320 PRINT "GUESS #";K; 330 INPUT X,Y 340 IF ABS (X- A)+ ABS (Y- B)= 0THEN 500 350 REM PRINT INFO 360 GOSUB 610 370 PRINT 380 NEXT K 410 PRINT 420 PRINT "SORRY, THAT'S";N;" GUESSES." 430 PRINT "THE HURKLE IS AT ";A;",";B 440 PRINT 450 INPUT "PLAY AGAIN (Y/N) ?";Q$ 455 IF LEFT$ (Q$,1)< > "Y"THEN 999 457 PRINT "HURKLE IS HIDING." 460 PRINT 470 GOTO 285 500 REM 510 PRINT 520 PRINT "YOU FOUND HIM IN";K;" GUESSES!" 540 GOTO 440 610 PRINT "GO "; 620 IF Y= BTHEN 670 630 IF Y< BTHEN 660 640 PRINT "SOUTH"; 650 GOTO 670 660 PRINT "NORTH"; 670 IF X= ATHEN 720 680 IF X< ATHEN 710 690 PRINT "WEST"; 700 GOTO 720 710 PRINT "EAST"; 720 PRINT 730 RETURN 999 FOR I= 1TO 500:NEXT I 1000 PLOT 6,2,12,27,11,15 1010 LOAD "MENU":RUN 1 1020 END