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
/
arrays5.out.bak
< prev
next >
Wrap
Text File
|
2005-10-24
|
502b
|
109 lines
T
integer
TYPE
U
T
TYPE
V
boolean
TYPE
a
T
100
0
VAR
b
U
10
t
10
0
VAR
c
V
10
true
VAR
x
1
VAR
echo
q
integer
FORMAL
integer
PROCEDURE
WRITE
q
ENDWRITE
RETURN
q
ENDRETURN
WRITE
a
0
ENDWRITE
WRITE
b
1
1
ENDWRITE
WRITE
c
2
ENDWRITE
a
0
ASSIGN
38
ENDASSIGN
a
4
x
MINUS
ASSIGN
48
ENDASSIGN
b
1
1
ASSIGN
39
ENDASSIGN
b
echo
FUNCTION
2
ENDFUNCTION
echo
FUNCTION
1
ENDFUNCTION
ASSIGN
88
ENDASSIGN
c
2
ASSIGN
false
ENDASSIGN
WRITE
a
0
ENDWRITE
WRITE
a
x
2
PLUS
ENDWRITE
WRITE
b
1
1
ENDWRITE
WRITE
c
2
ENDWRITE