]LIST

 1000  TEXT : HOME : SPEED= 255
 1010  REM  NEWTON'S METHOD FOR FINDING THE SQUARE ROOT OF A NUMBER
 1020  REM 
 1030  PRINT "NEWTON'S METHOD:"
 1040  PRINT "================================================================================"
 1050  PRINT "ENTER A NUMBER TO FIND THE SQUARE ROOT OF:";
 1060  INPUT N
 1070  REM  BEGIN NEWTON'S METHOD
 1080  LET G = 1
 1085  LET I = 0
 1090  LET NG = (N / G + G) / 2
 1095  LET I = I + 1
 1100  IF G = NG THEN 1130
 1110  LET G = NG
 1120  GOTO 1090
 1130  LET R = NG
 1140  REM  FOUND A CLOSE APPROXIMATION, END NEWTON'S METHOD
 1150  PRINT 
 1160  PRINT "THE APPROXIMATE SQUARE ROOT OF ";N;" IS ";R
 1165  PRINT "TOTAL ITERATIONS OF NEWTON'S METHOD: ";I
 1170  PRINT 
 1175  PRINT "================================================================================"
 1180  PRINT "END PROGRAM."
 1190  END