Lines Matching refs:Floater
242 if Answer (J) = Pic.Floater then
265 and then Pic.Floater /= '#'
311 Answer (Position) /= Pic.Floater
355 elsif Pic.Floater = '<'
357 Pic.Floater = '+'
359 Pic.Floater = '-'
381 Answer (Position) := Pic.Floater;
384 elsif Pic.Floater = '$' then
406 Answer (Position) := Pic.Floater;
409 elsif Pic.Floater = '*' then
432 if Pic.Floater = '#' then
468 case Pic.Floater is
493 if Pic.Floater = '#' and then Currency_Pos /= 0 then
550 if Answer (J) = '9' or else Answer (J) = Pic.Floater then
588 elsif Answer (J) = Pic.Floater then
603 if Pic.Floater = '#' and then Currency_Pos /= 0 then
655 case Pic.Floater is
1057 if Pic.Floater /= '!' and then Pic.Floater /= '<' then
1061 Pic.Floater := '<';
1314 if Pic.Floater /= '!' and then Pic.Floater /= '$' then
1321 Pic.Floater := '$';
1364 Pic.Floater := 'Z';
1375 Pic.Floater := '*';
1388 Pic.Floater := '!';
1400 Pic.Floater := '!';
1447 if Pic.Floater /= '!' and then Pic.Floater /= '#' then
1454 Pic.Floater := '#';
1496 Pic.Floater := 'Z';
1508 Pic.Floater := '*';
1529 Pic.Floater := '!';
1539 Pic.Floater := '!';
2101 Pic.Floater := '<';
2130 Pic.Floater := '!';
2142 Pic.Floater := '!';
2171 Pic.Floater := '-';
2202 Pic.Floater := '!';
2227 Pic.Floater := '!';
2254 Pic.Floater := '+';
2285 Pic.Floater := '!';
2309 Pic.Floater := 'Z';
2319 Pic.Floater := '!';
2433 if Pic.Floater /= '!' and then Pic.Floater /= '*' then
2440 Pic.Floater := '*';
2572 Pic.Floater := 'Z';
2639 Ada.Text_IO.Put (" Floater : '" & Pic.Floater & "',");