start tok64 d64-zr9FkM
1 DEFFNs(x)=((x-47)ANDx>47ANDx<58):v=3
2 DEFFNt(x)=-(x=43)+(x=45)+(3ANDx=61)+(4ANDx=0):t$="0123456789+-*=x "
3 PRINT"skriv ekvationen: ";:OPEN1,0:INPUT#1,i$:CLOSE1:o=LEN(i$):PRINT
4 FORu=1TOo:FORj=1TO16:IFMID$(i$,u,1)=MID$(t$,j,1)THENNEXTu:GOTO6
5 NEXT:PRINT"ogiltigt tecken!":END
6 GOSUB47:l=l-(w=3ANDq=0):IFdOR(fANDi<o+3)THENONq+1GOTO33,35,41,45
7 IFl-1THEN49
8 a=2*s(2):b=s(1):c=s(0):IFaTHEN12
9 GOSUB28:c=-c:IFb=1THENPRINT"x ="c"{space*2}= "c:RUN
10 PRINT"x ="c"/"b"{space*2}=";:IFbTHENPRINTc/b:RUN
11 PRINT"ol{pound}slig":RUN
12 k=-b:m=k*k-2*a*c
13 FORi=INT(SQR(ABS(m))+1)TO1STEP-1:l=i*i:IFm/l>INT(m/l)THENNEXT
14 m=m/l:l=i:t=-1:g=m=0ORm=1:PRINT"x1=";:GOSUB15:t=0:PRINT"x2=";:GOSUB15:RUN
15 b=0:IFgTHENc=k-(lAND-mANDt)+(lANDt=0AND-m):b=a:GOSUB28
16 IFbTHENPRINTc;:y=POS(.):PRINT" = "c/b:GOTO26
17 FORi=INT((ABS(k)+l+ABS(a))/3+1)TO1STEP-1:IFzTHEN20
18 IFk/i>INT(k/i)ORl/i>INT(l/1)ORa/i>INT(a/i)THENNEXT
19 k=k/i:l=l/i:z=l:a=a/i:IFa<0THENk=-k:a=-a
20 IFkTHENPRINTk"{left}";
21 IFg=0AND(kORt)THENPRINTCHR$(43-2*t);
22 IFl-1THENPRINTl"{left}*";
23 IFg=0THENPRINT"sqr("m"{left})";
24 b=a:y=POS(.):PRINT"{space*2}= ";:IFm<0THENPRINT"ej reell":GOTO26
25 PRINT(k-z*SQR(m))/a:z=-l
26 q$="":FORi=1TOy-3:q$=q$+"{sh asterisk}":NEXT:IFb=1THENRETURN
27 PRINTTAB(3)q$:PRINTTAB(2+(y-3)/2)b:RETURN
28 FORi=INT((ABS(b)+ABS(c))/2+1)TO1STEP-1:IFb/i>INT(b/i)ORc/i>INT(c/i)THENNEXT
29 b=b/i:c=c/i:IFb<0THENc=-c:b=-b
30 RETURN
33 f=1:w=FNt(d):k=-(w=0ANDv=3<w):i=i-k:IFk=0ANDw=kTHEN49
34 w=w-(wANDk)+k:q=-(w<3):s=0:r=0:v=w:GOTO6
35 t=FNs(d):IFtTHENs=s*10+t-1:r=r+1:GOTO6
36 IFd=rTHEN49
37 s=v*(s-((s-1)ANDr=0)):i=i-1:x=0:GOSUB47
38 IFFNt(d)ANDr>0ANDx=0THEN46
39 IFd=42ANDrANDx=0THENx=1:GOSUB47:GOTO38
40 IFd=88THENx=1:q=2:GOTO6
41 IFq<2OR(d>42ANDd<>50ANDFNt(d)=0)THEN49
42 IFFNt(d)THEN46
43 x=2:IFd=50THENq=3:GOTO6
44 GOSUB47:IFd=88THENGOSUB47:IFFNt(d)THEN46
45 IF FN t(d)=0 OR q<3 THEN 49
46 i=i-1:s(x)=s(x)+s-((2*s) AND l>0):q=0:f=0:GOTO 6
47 i=i+1:d=ASC(MID$(i$,i)+CHR$(.)):IF d=32 THEN 47
48 RETURN
49 PRINT"syntax fel":RUN
stop tok64
(bastext 1.0)