home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 May / 64er_Magazin_90-05_1990_Markt__Technik_de_Side_A.d64 / 61030print-using (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  394b  |  9 lines
  1. 61030 rem 61030print-using uf$,uz/ua$/uv,un,ua,ub
  2. 61031 uv=0:un=0:ua$="":ua=0
  3. 61032 ua=ua+1:ua$=mid$(uf$,ua,1):uv=uv-(ua$<>"."):ifua$<>"."andua<len(uf$)then61032
  4. 61033 un=len(uf$)-uv-1:ua$="":ub=abs(uz):ifuz<0thenua$="-"+ua$
  5. 61034 forua=1touv:ua$=ua$+right$(str$(int(ub/10^(uv-ua))),1):next:ua$=ua$+"."
  6. 61035 uv=int((ub-int(ub))*10^un):ua$=ua$+mid$(str$(uz-int(uz)),3,un):ua=0
  7. 61036 ua=ua+1:ifmid$(ua$,ua,1)="0"thenua$=left$(ua$,ua-1)+" "+mid$(ua$,ua+1):goto61036
  8. 61037 return
  9.