/


        program fltscn
v:      .flt4   123.456
	nl=12
	comma=',
	space=40
        auto str[40.],n,floater[8.]
function fltscn[flag,arg,fd,func]
        r4 := func
        r2 := &str
        n := 0
        do forever
            r3 := (r4)[fd]
	    break if r3 ne #space and r3 ne #tab
        od
	    br a
        do forever
            r3 := (r4)[fd]
a:
	    break if r3 = #space or r3 = #tab
	    break if r3 = 0 or r3 = #nl
            break if r3 = #comma
            movb r3,(r2)+
            inc n
            break if n gt 38
        od
        clrb (r2)
	btod[&str,n,&floater]
	r3 := &floater
	r4 := arg
	if r4 ne 0
	if flag =  0
	   mov (r3)+,(r4)+
	   mov (r3)+,(r4)+
	else
	   mov (r3)+,(r4)+
	   mov (r3)+,(r4)+
	   mov (r3)+,(r4)+
	   mov (r3)+,(r4)+
	fi
	fi
        ret
        .end