1 92 Roots
380 PRINT"Therefore SQ.ROOT 16=";A
390 PRINT"YOUR COMPUTER SAYS ROOT 16=";A 400 LOCATE 1,24:PRINT"	PRESS [
ENTER]":INPUT X$
410 CLS
420 PRINT"Example: To find SQ.ROOT of 25
430 LOCATE 3,3:PRINT"LET G=3 AGAIN"; 440 PRINT:PRINT:G=3:N=25:GOSUB 280
450 LOCATE 1,5:PRINT"G=";G;"GIVES A=";A 460 PRINT:PRINT"WE NOW LET G=";A:PRINT 470 G=A:GOSUB 280
480 PRINT"G=";G;": A=";A
490 IF A=G THEN GOTO 510
500 GOTO 470
510 PRINT:PRINT"THEREFORE SQ.ROOT OF 25 =HO
520 PRINT: PRINT"BUT YOUR COMPUTER FAILE D TO STOP THE	FIRST TIME THAT G AND A
BOTH EQUALLED 5"
530 PRINT:PRINT"[BECAUSE G IS NOT PRECIS ELY 5!]";
540 PRINT:PRINT:PRINT"PRESS [R] TO REPEA T THE EXAMPLES OR ANY OTHER KEY TO T RY YOUR OWN."
550 X$=INKEY$:IF X$="" THEN 550
560 IF X$="R" OR X$="r" THEN CLS:GOTO 20 0
570 CLS:PRINT"	R 0 0 T S	@1983 MIC
HAEL BEWS
580 LOCATE 1,3:PRINT"ENTER NUMBER [N] :":PRINT"( >0 and <1000000)":LOCATE 27,3:INPUT N$
590 IF N$="" THEN GOTO 580 ELSE IF ASC(N s)<4e THEN LOCATE 27,3:PRINT CHR$(18);: GOTO 580
600 IF VAL(N$)<0.01 OR VAL(N$)>1000000 T HEN LOCATE 27,3:PRINT CHR$(18);: GOTO 58 0
610 N=VAL(N$)
620 LOCATE 1,7:PRINT"ENTER ROOT NUMBER [R] :":PRINT"( >1 and <50)":LOCATE 27,7 :INPUT R$
630 IF R$="" THEN GOTO 620