home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1985 September
/
64er_Magazin_85-09_1985_Markt__Technik_de.d64
/
x-gleichung
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2022-10-26
|
595b
|
17 lines
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