Listing of file='FMAT.SRC;01' on disk='vmedia/utility-sector.ccvf'
THE FOLLOWING PROGRAM OVERCOMES POSSIBLE ERRORS ENCOUNTERED IN THE FORMATTED PRINTING ROUTINE (REF:COLORCUE V1.1 APRIL 1980) THESE ERRORS OCCURRED WHEN A VALUE INCLUDED A PRECISION ERROR FROM A PREVIOUS CALCULATION IT ALSO ALLOWS 5 DIGITS TO THE LEFT OF THE DP. N=NUMERIC VALUE TO BE FORMATTED N$=FORMATTED OUTPUT STRING 10 N= N+ .0001:IN= INT (N):RE= N- IN 20 N$= " "+ STR$ (IN) 30 IF INT (RE* 100)= 0THEN N$= N$+ ".00":GOTO 50 40 N$= N$+ MID$ (STR$ (RE+ .001),2,3) 50 N$= RIGHT$ (N$,8) END OF ROUTINE