Roots 193
640 IF VAL(R$)>50 OR VAL(R$)<2 THEN LOCA TE 27,7:PRINT SPACE$(11):GOTO 620
650 R=1NT(VAL(R$))
660 FOR X = 1 TO 500:NEXT
670 MODE 2:BORDER 0:PAPER 0:INK I,24:INK 0,0:CLS:PRINT "
R 0 0 T S":LOCATE 1,3
680 G=2*(W(1/R)):X=1
690 A=(N/G(R-1)+G*(R-1))/R
700 SOUND 1,100,5: PRINT X;:SOUND 1,180, ,J:PRINT"› A=";:SOUND I,120,5:PRINT A,':S OUND 1,90,20
710 IF ABS(A-G)<0.00001 THEN GOTO 730 720 X=X+1:G=A:GOTO 690
730 LOCATE 20,18:PRINT"	THE ";R;" ROOT
OF ";N;"= ";A
740 LOCATE 20,19: PRINT"	CHECK USING C
OMPUTER [.'] FUNCTION"
750 LOCATE 23,20:PRINT"	";A;"'";R;"=";
A'R
760 LOCATE 27,22:PRINT"	PRESS [D] TO
QUIT"
770 LOCATE 38,23:PRINT"OR"
780 LOCATE 27,24:PRINT" ANY OTHER KEY TO REPEAT"
790 IF INKEY$<>"" THEN 790
800 X$=INKEY$:IF X$="" THEN 800
810 IF X$="0" THEN STOP
820 MODE 1:GOTO 570