1 REM +++++++++++++++++++++++++++++++++
2 REM ! Program ....   SQRROOT.BAS
3 REM ! Utg}va
4 REM ! av (c) Olle Bliding <2182>
7 REM ! Minne 16 Kbytes
9 REM +++++++++++++++++++++++++++++++++
10 REM 
11 REM Screening av
12 REM Allan Varcoe & G|ran Olsson
13 REM 
14 IF PEEK(472)=80 THEN ; INP(3)
15 REM +++++++++++++++++++++++++++++++++
40 REM +---------------------+
50 REM ! AVBROTT N[R DEN     !
60 REM ! 'NYA' S\KTA ROTEN   !
70 REM ! [R ST\RRE [N        !
80 REM ! .999999E+127        !
90 REM +---------------------+
100 ONERRORGOTO 260
110 ; CHR$(12)
120 ; : ; "KVADRATROTSURDRAGNING" : ; "MED STOR NOGGRANNHET."
130 ; "VILKET TAL SKALL JAG" : ; "DRA ROTEN UR "; : INPUT A
140 D=INT((LOG10(A)+1)/2+.5)
150 ; : ; " ROTEN UR"A" [R =";
160 IF A<1 THEN 180
170 N=10^(D-1)
180 IF N*N>A N=N-1 : A=(A-N*N)*100 : ; N; ELSE N=N+1 : GOTO 180
190 IF N=0 K=D-1 : GOTO 210
200 K=INT(LOG10(N))
210 REM *** RESTEN AV DECIMALERNA
220 C=(C+N*2)*10
230 N=1 : K=K+1 : IF K/3=INT(K/3) THEN ; "  ";
240 IF D=K ; ",";
250 IF (C+N)*N>A N=N-1 : A=(A-(C+N)*N)*100 : ; N; : GOTO 220 ELSE N=N+1 : GOTO 250
260 ; : ; : ;