HP SunSoft Pascal 4.0 manual Pascal program, list.p, Pascal Preprocessor 261

A

The Pascal program, list.p

The include file, types.h

Comments

The %list directive and the -lcompiler option perform the same function.

Example

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 }

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