1
function [stk,txt,top]=sci_format()
12
d=5;hex=%f;bank=%f;compact=%f;loose=%f,ratf=%f;symb=%f;unk=%f
26
case '''compact''' then
41
stk=list('mtlb_format('+stk(top)(1)+')','0','0','0','0')
43
stk=list('mtlb_format('+stk(top)(1)+','+stk(top+1)(1)+')','0','0','0','0')
45
elseif ratf|loose|compact|bank|hex then
46
set_infos('No equivalent to '+f+' format. Ignored',2)
47
stk=list(' ','-2','0','0','0','0')
50
stk=list('format('+string(d+1)+')','0','0','0','0')
52
stk=list('format('+fp+','+string(d+1)+')','0','0','0','0')
54
stk=list('format(''v'',6)','0','0','0','0')