Pascal News
Pascal News
Pascal News
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
480<br />
481<br />
482<br />
483<br />
484<br />
485<br />
486<br />
487<br />
488<br />
489<br />
490<br />
491<br />
492<br />
493<br />
494<br />
495<br />
496<br />
497<br />
498<br />
499<br />
500<br />
501<br />
502<br />
503<br />
504<br />
505<br />
506<br />
507<br />
508<br />
509<br />
510<br />
511<br />
512<br />
513<br />
514<br />
515<br />
516<br />
517<br />
518<br />
519<br />
520<br />
end;<br />
end;<br />
end;<br />
ctrim;<br />
for w := (width div 2) to width-l do<br />
cout (' *');<br />
for w := 1 to (width div 2) do<br />
cout (' ');<br />
p : .. p + 1;<br />
end;<br />
(* We have now finished an entire line of tree. *)<br />
H := H".next;<br />
end; (* while Hnil *)<br />
(* Start up on a new page of material. *)<br />
startposition := startposition + pagewidth;<br />
end; (* while startposi tion