16.2.1 Procedure Declaration program Box; Var I : Integer; procedure DrawBox( X1, Y1, X2, Y2: Integer); Var I : Integer; begin GotoXY(X1, Yl); forI := X1 to X2 do write( a#39;- aquot; ); GotoXY(X1, Yl+1); for I : = Yl+1 to Y2 do begin OotoXY(X1, I); Write(a#39;l a#39;)anbsp;...
Title | : | Turbo Pascal reference manual |
Author | : | Borland International |
Publisher | : | - 1983 |
You must register with us as either a Registered User before you can Download this Book. You'll be greeted by a simple sign-up page.
Once you have finished the sign-up process, you will be redirected to your download Book page.
How it works: