HP Business BASIC/XL Reference Manual - HP 3000 MPE/iX Computer Systems - Edition 1 (32715-90001)

G- 27
, array_element_num:3
, c_2_spaces
);
{----------------------------------------------------------------}
{ Check to ensure that there will not be a numeric overflow when }
{ the decimal value is converted to a real. }
{----------------------------------------------------------------}
if
( decimal_array[array_element_num].decimal_rep.exponent > -308 ) and
( decimal_array[array_element_num].decimal_rep.exponent < 308 ) then
begin { decimal element }
bb_dtor( c_convert_decimal_to_real
, decimal_array[array_element_num]
, temp_real
);
writeln( tstfil, temp_real );
end { decimal element }
else
writeln( tstfil, 'Decimal value is too large to convert' )
end
end;
c_short_integer_type:
begin
writeln( tstfil, 'SHORT INTEGER Array' );
for array_element_num := 0 to ( total_elements - 1 ) do
writeln( tstfil
, c_2_spaces
, array_element_num:3
, c_2_spaces
, sinteger_array[array_element_num]:1
)
end;
c_integer_type:
begin
writeln( tstfil, 'INTEGER Array' );
for array_element_num := 0 to ( total_elements - 1 ) do
writeln( tstfil
, c_2_spaces
, array_element_num:3
, c_2_spaces
, integer_array[array_element_num]:1
)
end;
c_short_real_type:
begin
writeln( tstfil, 'SHORT REAL Array' );
for array_element_num := 0 to ( total_elements - 1 ) do
writeln( tstfil
, c_2_spaces
, array_element_num:3
, c_2_spaces
, short_array[array_element_num]
)
end;
c_real_type:
begin
writeln( tstfil, 'REAL Array' );
for array_element_num := 0 to ( total_elements - 1 ) do
writeln( tstfil
, c_2_spaces
, array_element_num:3
, c_2_spaces
, real_array[array_element_num]
)
end;
c_whole_string_type:
process_string_array( p_actual_param_table, param_index, tstfil );