home *** CD-ROM | disk | FTP | other *** search
- Program SAMPLE1;
- Uses CRT, DOS, AnyUnits, etc, etc, etc.;
-
- Procedure ONE(a:integer,
- b:real,
- c:char);
- Begin
- .
- .
- code goes here
- .
- .
- End;
-
- Procedure TWO(a:integer,
- b:real,
- c:char);
- Begin
- .
- .
- code goes here
- .
- .
- End;
-
- Procedure Three;
- Begin
- .
- .
- code goes here
- .
- .
- End;
-
- Function Four():Boolean;
- Begin
- .
- .
- code goes here
- .
- .
- End;
-
- Begin
- .
- .
- code goes here
- .
- .
- End.