HP Pascal/iX Reference Manual (31502-90022)

12- 86
Example
0 1.000 0 $XREF ON$
0 2.000 0 $TITLE 'Show_xref'$
0 3.000 0 PROGRAM show_xref (input,output);
0 4.000 0 $INCLUDE 'const'$
0 1.000 0 CONST
0 2.000 0 k = 100;
1 5.000 0 VAR
1 6.000 0 n : integer;
2 7.000 0 t : Boolean;
0 8.000 0 PROCEDURE check (VAR b : Boolean);
2 9.000 1 BEGIN
2 10.000 1 IF n > k THEN b := true
4 11.000 1 ELSE b := false;
5 12.000 1 END;
C R O S S R E F E R E N C E
--------- -----------------
Page Line # Page Line # Page Line # Page Line #
B
PXA32.EXAMPLES.ATFTEST
1 00008.000@ 1 00010.000* 1 00011.000*
BOOLEAN global scope
PXA32.EXAMPLES.ATFTEST
1 00008.000
CHECK global scope
PXA32.EXAMPLES.ATFTEST
1 00008.000
FALSE global scope
PXA32.EXAMPLES.ATFTEST
1 00011.000
K global scope
PXA32.EXAMPLE.ATFTEST
1 00010.000
N global scope
PXA32.EXAMPLES.ATFTEST
1 00010.000
TRUE global scope
PXA32.EXAMPLES.ATFTEST
1 00010.000
3 13.000 1 BEGIN
3 14.000 1 readln(n);
4 15.000 1 check(t);
5 16.000 1 IF t THEN writeln ('Too big!')
7 17.000 1 ELSE writeln ('No Problem');
8 18.000 1 END.
PAGE 2 Show_xref
C R O S S R E F E R E N C E
--------- -----------------
Page Line # Page Line # Page Line # Page Line #
BOOLEAN
PXA32.EXAMPLES.ATFTEST
1 00007.000 1 0008.000
CHECK