10 REM...TREAS...from MERITSS : GAME 12-21-77 100 REM...TREASURE HUNT---Revised by JLL. 110 DIM Q$(3) 112 REM...LET A$=CLK$ 114 LET Z1=PEEK(52225): REM...Z1=INT(VAL(SUBSTR(A$,5,2)))+1 116 LET Z2=PEEK(52289): REM...Z2=INT(VAL(SUBSTR(A$,8,2)))+1 120 PRINT "&K&J&J" 130 PRINT ,"T R E A S U R E" 140 PRINT "&J&J&J" 150 LET Z3=Z1*Z2 160 LET Z4=RND(0)*Z3 170 PRINT "DO YOU WISH INSTRUCTIONS ---=>"; 180 INPUT (1,0)A$ 185 IF LEN(A$)=0 THEN LET A$="N" 190 IF A$="Y" THEN 370 ELSE PRINT 200 REM...Start... 230 LET B=9-INT(RND(0)*19) 240 LET A=9-INT(RND(0)*19) 250 LET E=A*A+B*B 260 PRINT "NOW TYPE IN YOUR MOVE."; 270 INPUT "( Enter two numbers ) ---=>",C,D 280 LET M=M+1 290 LET F=(A-C)*(A-C)+(B-D)*(B-D) 300 IF F=0 THEN 340 310 IF (SGN(E-F)+2)=1 THEN PRINT " Further..." 312 IF (SGN(E-F)+2)=2 THEN PRINT " No change in distance." 314 IF (SGN(E-F)+2)=3 THEN PRINT " Closer..." 320 LET E=F 330 GOTO 270 340 PRINT "YOU FOUND IT" 350 PRINT "IT TOOK YOU ";M;" MOVES." 360 GOTO 520 370 PRINT "&KTREASURE HUNT IS PLAYED ON AN X-Y COORDINATE SYSTEM" 380 PRINT "FROM +9 TO -9 ON EACH AXIS." 390 PRINT 400 PRINT "THE MACHINE WILL CHOOSE A SINGLE LOCATION" 410 PRINT "ON THE BOARD (THAT IS, A SINGLE PAIR OF COORDINATES." 420 PRINT "THIS IS WHERE THE TREASURE IS HIDDEN. YOUR STARTING" 430 PRINT "PLACE IS 0,0. WHEN THE MACHINE ASKS FOR YOUR MOVE," 440 PRINT "RESPOND WITH THE PAIR OF COORDINATES. (TO WHICH YOU" 450 PRINT "WISH TO MOVE). THE MACHINE WILL THEN TELL YOU WHETHER" 460 PRINT "YOU ARE FURTHER, CLOSER, OR THE SAME DISTANCE FROM THE" 470 PRINT "TREASURE COMPARED WITH YOUR PREVIOUS POSITION. WHEN" 480 PRINT "YOUR COORDINATES MATCH THOSE OF THE TREASURE THE MACHINE" 490 PRINT "WILL TELL YOU THAT YOU HAVE FOUND IT" 500 PRINT 510 GOTO 200 520 PRINT ,"-=< The TREASURE HUNT is over >=-" 530 END