9 CLS
10 INPUT "Bitte die Zahl eingeben, deren Wurzel gezogen werden soll:", a1
11 IF a1 = 0 THEN 10
20 a = a1
21 OPEN "wurzel.txt" FOR APPEND AS #1
22 PRINT #1, "-----------------------------------------------------------"


25 limit = 20

30 b = 1
35 PRINT "      a               b        "
36 PRINT
37 PRINT #1, "Wurzel aus "; a1; " errechnet nach dem Prinzip des Heron"

39 PRINT #1, "      a               b        "

50 zaehl = zaehl + 1
51 zaehlb = zaehl - 1
60 PRINT zaehlb; "     "; a;
61 PRINT #1, zaehlb; "     "; a;
65 PRINT "     "; b
66 PRINT #1, "     "; b
70 a = (a + b) / 2
80 b = a1 / a
90 IF zaehl > limit THEN 200
95 IF a = b THEN 101
100 IF a <> b THEN 50
101 PRINT
102 PRINT "     "; a;
103 PRINT #1, "     "; a;
104 PRINT "     "; b
105 PRINT #1, "     "; b
110 PRINT "Die Quadratwurzel aus "; a1; " = "; a
111 PRINT #1, "Die Quadratwurzel aus "; a1; " = "; a
120 PRINT "Schritte: "; zaehl
121 PRINT #1, "Schritte: "; zaehl
130 GOTO 420

200 PRINT "Die Wurzel l„sst sich in "; zaehl; "Schritten nicht genau berechnen!"
210 PRINT "a = "; a; "b = "; b
220 INPUT "M”chten sie das Limit um 50 Z„hler anheben? (J)a/(N)ein", frage$
230 IF frage$ <> "j" THEN 400
240 limit = limit + 50
250 GOTO 50

400 PRINT #1, "Die Wurzel aus "; a1; " lieá sich in "; zaehl; " Schritten nicht genau berechnen."
410 PRINT #1, "Der Benutzer brach daraufhin die Berechnung ab!"
420 PRINT #1, "schoenen Tag noch!"
430 PRINT #1, "Diese Datei wurde durch eine automatische Prozedur erweitert bzw. generiert am "
440 PRINT #1, DATE$; " um "; TIME$
450 CLOSE #1
460 END