1 SIGNIFICANCE 11
5 ! PROGRAM TO FIND AND LET YOU FIND SQUARE ROOTS
6 ! BY ADAM FEDOR
10 INPUT'NUMBER:
20      ?"WHAT NUMBER DO YOU WANT SQUARE ROOTEDED?"
30              INPUT NUMBER
40 INPUT'GUESS:
50      INPUT "GUESS? ",GUESS
60      WRONG=ABS(NUMBER-(GUESS^2))
70      ?"YOU WERE ";WRONG;" OFF"
80      ? : ?"DO YOU WANT TO:"
90      ?TAB(15);"1. GUESS AGAIN"
100     ?TAB(15);"2. TRY ANOTHER SQUARE ROOT"
110     ?TAB(15);"3. LET THE COMPUTER TRY"
120     ?TAB(15);"4. QUIT"
130             INPUT D
140             ON D GOTO INPUT'GUESS,INPUT'NUMBER,COMPUTER,QUIT
150     GOTO 80
160 COMPUTER:
170     ?"WHAT NUMBER DO YOU WANT SQUARE ROOTED?"
180             INPUT NUMBER
200     GUESS=RND(0)*NUMBER
210     FOR K=1 TO 50
220             GUESS2=NUMBER/GUESS
230             AVERAGE=(GUESS+GUESS2)/2
240             GUESS=AVERAGE
250     NEXT K
260     WRONGY=ABS(NUMBER-(GUESS^2))
270     ?"THE COMPUTER'S GUESS WAS";GUESS
300     GOTO 80
305 QUIT:
310     ?"BYE"
320 END