println('amount 2');
bold := false;
{ 打印具有边框的数据 }
cleartabs;
settab(0.5,pjleft,3.5,2,boxlineall,0);
settab(na,pjcenter,1.0,2,boxlineall,0);
settab(na,pjright,1.5,2,boxlineall,10);
settab(na,pjright,1.5,2,boxlineall,0);
for i1 := 1 to 10 do begin
str(i1 * 1.23:2:2,s1);
str(i1 * 98.76:2:2,s2);
print(#9'lastname' + inttostr(i1) + ', ');
setfont('times new roman',8);
print('firstname m.');
setfont('times new roman',12);
println(#9 + inttostr(i1) + #9'$' + s1 + #9'$' + s2);
end; { for }
{ 打印具有阴影的数据 }
cleartabs;
settab(0.5,pjleft,3.5,2,boxlinenone,0);
settab(na,pjcenter,1.0,2,boxlinenone,0);
settab(na,pjright,1.5,2,boxlinenone,0);
settab(na,pjright,1.5,2,boxlinenone,0);
for i1 := 11 to 20 do begin
if odd(i1) then begin
tabshade := 0;
end else begin
