12 lines
177 B
Plaintext
12 lines
177 B
Plaintext
VAL INT q IS 11:
|
|
#INCLUDE "include.inc"
|
|
#USE "include2"
|
|
#USE "include2.occ"
|
|
PROC P ()
|
|
INT x:
|
|
SEQ
|
|
x := defined.thing
|
|
#INCLUDE "includeproc.inc"
|
|
ASSERT (q = 11)
|
|
:
|