home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.ee.pdx.edu
/
2014.02.ftp.ee.pdx.edu.tar
/
ftp.ee.pdx.edu
/
pub
/
users
/
Harry
/
compilers
/
p3
/
tst
/
proc5.out.bak
< prev
next >
Wrap
Text File
|
2005-10-24
|
609b
|
110 lines
b
PROCEDURE
WRITE
101
ENDWRITE
c
x
boolean
FORMAL
PROCEDURE
WRITE
x
NOT
ENDWRITE
f
x
integer
FORMAL
PROCEDURE
WRITE
x
10
PLUS
ENDWRITE
f1
x
integer
FORMAL
PROCEDURE
x
ASSIGN
x
10
PLUS
ENDASSIGN
WRITE
x
ENDWRITE
y
20
VAR
h
x
integer
FORMAL
z
integer
FORMAL
w
integer
FORMAL
PROCEDURE
WRITE
x
z
PLUS
w
PLUS
ENDWRITE
g
x
integer
FORMAL
PROCEDURE
echo
x
integer
FORMAL
integer
PROCEDURE
WRITE
x
ENDWRITE
RETURN
x
ENDRETURN
b
CALL
ENDCALL
c
CALL
true
ENDCALL
f
CALL
10
ENDCALL
f1
CALL
y
ENDCALL
WRITE
y
ENDWRITE
h
CALL
echo
FUNCTION
10
ENDFUNCTION
echo
FUNCTION
20
ENDFUNCTION
echo
FUNCTION
30
ENDFUNCTION
ENDCALL