home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 June / 64er_Magazin_89-06_1989_Markt__Technik_de_Side_A.d64 / +. (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  160b  |  5 lines
  1. 10 z=int(log(zz)/log(10)+.)
  2. 20 ifxx=0thenxr=0:return
  3. 30 xl=int(log(abs(xx))/log(10)+.):xh=int(10^xl+.):ifxl<0thenxh=1/int(1/10^xl+.)
  4. 40 xr=val(left$(str$(xx/xh+sgn(xx)*5/zz+.),2+z)+"e"+str$(xl)):return
  5.