0 INPUT"[147]GLEICHUNG";G$:FORI=1TOLEN(G$):IFMID$(G$,I,1)="="THEN2
1 NEXT:GOTO0
2 L$=LEFT$(G$,I-1):R$=RIGHT$(G$,LEN(G$)-I):PRINT"[147]5DEFFNA(X)=";L$:POKE198,6
3 PRINT"6DEFFNB(X)=";R$:PRINT"RUN5"
4 FORI=1TO6:POKE630+I,13:NEXT:END
5 :
6 :
7 X=-1E+6:I=1E+6:A$=CHR$(34):PRINT"[147]";:
8 IFFNA(X)<FNB(X)THEN12
9 A=FNA(X):B=FNB(X):PRINT"X=";X;"                  ":IFA<BTHENI=I/10:X=V:GOTO9
10 POKE198,0:IFA=BTHENPRINT"[147]X=";X:WAIT198,1:POKE198,0:RUN
11 GOSUB14:V=X:X=X+I:GOTO9
12 PRINT"[147]?"A$"[145][145][145][145][145][145]5 DEFFNB[157][157][157][157][157][157][157][157]6 DEFFNA[157][157][157][157][157][157][157][157]RUN5"A$"
13 [129]I[178]1[164]6:[151]630[170]I,13:[130]:[151]198,6:[153]"?"A$""A$";":[155]5[171]6
14 [139][194](198)[178]0[167][142]
15 [138]   (C) 20.02.1985 BY CHRI[144]H ROCKENSTEIN [172] BAHNHOFSTR.4 [172] 8452 HIRSCHAU