home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 September / 64er_Magazin_85-09_1985_Markt__Technik_de.d64 / x-gleichung (.txt) < prev   
Encoding:
Commodore BASIC  |  1985-01-01  |  595 b   |  17 lines
  1. 0 input"[147]gleichung";g$:fori=1tolen(g$):ifmid$(g$,i,1)="="then2
  2. 1 next:goto0
  3. 2 l$=left$(g$,i-1):r$=right$(g$,len(g$)-i):print"[147]5deffna(x)=";l$:poke198,6
  4. 3 print"6deffnb(x)=";r$:print"run5"
  5. 4 fori=1to6:poke630+i,13:next:end
  6. 5 :
  7. 6 :
  8. 7 x=-1e+6:i=1e+6:a$=chr$(34):print"[147]";:
  9. 8 iffna(x)<fnb(x)then12
  10. 9 a=fna(x):b=fnb(x):print"x=";x;"                  ":ifa<btheni=i/10:x=v:goto9
  11. 10 poke198,0:ifa=bthenprint"[147]x=";x:wait198,1:poke198,0:run
  12. 11 gosub14:v=x:x=x+i:goto9
  13. 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$"
  14. 13 [129]i[178]1[164]6:[151]630[170]i,13:[130]:[151]198,6:[153]"?"a$""a$";":[155]5[171]6
  15. 14 [139][194](198)[178]0[167][142]
  16. 15 [138]   (c) 20.02.1985 by chri[144]h rockenstein [172] bahnhofstr.4 [172] 8452 hirschau
  17.