1 REM ***************************
2 REM * NOLLS\K.BAC             *
3 REM * VER 1.0 / 1982-09-08    *
4 REM * Gjort o. ins{nt av 2415 *
5 REM * Stig Rosenlund          *
6 REM * V{stmannagatan 93       *
7 REM * 113 43 Stockholm        *
8 REM * Tel. 08/331736          *
9 REM ***************************
600 REM NOLLS\K finner nollst{llen till kontinuerliga funktioner. MERGE med     V[RD. P} rad 280 {ndras 580 till 630.
610 REM Ber{kna R11=f(R10) p} rad 670   fram}t utan att f|r{ndra Z%,R8,R9,R10.  Avsluta med RETURN. Om f har ett enda 
620 REM nollst{lle i (a,b) f}s detta p} sk{rmen och i R10.
630 ; "a"; : INPUT B$ : I%=8% : GOSUB 330 : ; "b"; : INPUT B$ : I%=9% : GOSUB 330 : S%=FNK%(22%,10%,8%) : GOSUB 670
640 Z%=FNI%(3%,11%)
650 I%=10% : S%=FNS%(10%,9%,8%)+FNR%(42%) : IF FNK%(7%,10%,8%)*FNK%(7%,10%,9%)=0% GOSUB 450 : ; CHR$(7);B$ : END 
660 GOSUB 670 : IF Z%=FNI%(3%,11%) S%=FNK%(22%,8%,10%) : GOTO 650 ELSE S%=FNK%(22%,9%,10%) : GOTO 650