61030 REM 61030PRINT-USING UF$,UZ/UA$/UV,UN,UA,UB
61031 UV=0:UN=0:UA$="":UA=0
61032 UA=UA+1:UA$=MID$(UF$,UA,1):UV=UV-(UA$<>"."):IFUA$<>"."ANDUA<LEN(UF$)THEN61032
61033 UN=LEN(UF$)-UV-1:UA$="":UB=ABS(UZ):IFUZ<0THENUA$="-"+UA$
61034 FORUA=1TOUV:UA$=UA$+RIGHT$(STR$(INT(UB/10^(UV-UA))),1):NEXT:UA$=UA$+"."
61035 UV=INT((UB-INT(UB))*10^UN):UA$=UA$+MID$(STR$(UZ-INT(UZ)),3,UN):UA=0
61036 UA=UA+1:IFMID$(UA$,UA,1)="0"THENUA$=LEFT$(UA$,UA-1)+" "+MID$(UA$,UA+1):GOTO61036
61037 RETURN