![](/images/backgrounds/286549/hp-sunsoft-pascal-4-0-users-manual-549395285x1.png)
A
| Comments |
| The %list directive and the |
| Example |
The Pascal program, list.p |
|
program list_example(output); | |
| { This program demonstrates the use of the %list |
| and %nolist directives. } |
| %list; |
| %include 'types.h'; |
| %nolist; |
| begin |
| pri := [red, yellow, blue]; |
| pos := [true, false]; |
| cap := ['A'..'Z']; |
| dig := [0..100]; |
| writeln('There are ',card(pri): 4, ' primary colors.'); |
| writeln('There are ',card(pos): 4, ' possibilities.'); |
| writeln('There are ',card(cap): 4, ' capital letters.''); |
| writeln('There are ',card(dig): 4, ' digits.') |
| end. { list_example } |
|
|
The include file, types.h | type |
lowints = 0..100;
primary_colors = set of (red, yellow, blue); possibilities = set of boolean; capital_letters = set of 'A'..'Z';
digits = set of lowints;
var
pri: primary_colors;
pos: possibilities;
cap: capital_letters;
dig: digits;
Pascal Preprocessor | 261 |