home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9005a.d64 / 61030print-using (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.