TOP:
PRINT "Enter Number to Find Square Root";
INPUT NUM
IF NUM > 0 THEN GOTO ENTEREDOK
BEEP
PRINT "Number must be greater that zero - Try again"
GOTO TOP
ENTEREDOK:
LET OLDANS = NUM / 2
CALCANS:
LET NEWANS = NUM / OLDANS
PRINT "Intermediate Answer is"; NEWANS
LET OLDANS = (NEWANS + OLDANS) / 2
IF ABS(NEWANS - OLDANS) < .00001 THEN GOTO FINISHED
GOTO CALCANS
FINISHED:
PRINT "Square Root Of "; NUM; " Is"; NEWANS
END