10 ! PROGRAM NAME -CUBE- BY BOB HUNTSMAN
20 ! ADAPTED FROM A 'FOCAL' PROGRAM WRITTEN BY JOHN A. CHRISTENSEN
50 RANDOMIZE
100 PRINT:PRINT:PRINT "COMPUTER PICKS THE CUBE ROOT"
	+ " OF A NUMBER BETWEEN 0 AND 1000!"
110 PRINT:PRINT "SEE IF YOU CAN FIND THAT NUMBER!":PRINT:PRINT
130 W%,L%=0%
140 C=INT(1000%*RND(0%)):C=C-INT(C/1000%)*1000%
145 C=EXP(LOG(C)/3%)
150 PRINT "THE CUBE ROOT OF THE NUMBER IS";C:PRINT
220 P%=P%+1%:GOTO 360 IF P%>7%
240 PRINT:INPUT "YOUR GUESS IS";Y%:PRINT
250 Y=EXP(LOG(Y%)/3%)
260 GOTO 340 IF Y=C
320 PRINT "SORRY YOU ARE WRONG!  THE CUBE ROOT"
	+ " OF YOUR NUMBER IS";Y:PRINT:GOTO 220
340 PRINT "CONGRATULATIONS -- YOU GUESSED IT IN";P%;"GUESSES!":
       PRINT:PRINT
341 W%=W%+1%:GOTO 380
360 PRINT "SORRY, 7 GUESSES IS ALL YOU GET!":PRINT:
       PRINT "THE NUMBER WAS";C^3:PRINT
370 L%=L%+1%:GOTO 380
380 INPUT "DO YOU WANT TO PLAY AGAIN";A$:A$=LEFT(A$,1%)
385 GOTO 410 IF A$="N":GOTO 395 IF A$="Y"
390 PRINT "PLEASE ANSWER YES OR NO!":PRINT:GOTO 380
395 PRINT "OK!":PRINT:PRINT:P%=0%:GOTO 140
410 PRINT:PRINT "YOU WON";W%;"GAME";:PRINT "S"; IF W%<>1%:PRINT:
       PRINT:PRINT "I WON";L%;"GAME";:PRINT "S";IF L%<>1%:PRINT:
       PRINT
420 GOTO 450 IF W%>L%:GOTO 440 IF W%=L%
430 PRINT "YOU NEED MORE PRACTICE AT CUBING NUMBERS!":
	PRINT:PRINT:GOTO 32767
440 PRINT "YOU ARE ABOUT AS SMART AS ME --"
	+ " MORE PRACTICE WOULDN'T HURT!":
	PRINT:PRINT:GOTO 32767
450 PRINT "YOU KNOW YOUR CUBES FAIRLY WELL --"
	+" NOT BAD FOR INTELLIGENCE":PRINT:PRINT:
	GOTO 32767
32767 END