4) SQUARE ROOT (188 B)
To use: LOAD 1, RUN 300

310 REM
320 REM SQUARE ROOT
330 REM
340 PRINT "ENTER THE NUMBER"
350 INPUT X
360 LET J=0
370 LET K=J*J
380 LET D=X-K
390 IF D=0 THEN GOTO 430
400 IF D<0 THEN GOTO 450
410 LET J=J+1
420 GOTO 370
430 PRINT "THE ROOT IS ";J
440 GOTO 460
450 PRINT "THE ROOT LIES BETWEEN ";J-1;" AND ";J
460 STOP