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
/
stat6.out.bak
< prev
next >
Wrap
Text File
|
2005-10-24
|
242b
|
47 lines
i
j
integer
0
VAR
WRITE
"a nested loop:"
ENDWRITE
LOOP
WRITE
"i = "
i
ENDWRITE
i
ASSIGN
i
1
PLUS
ENDASSIGN
LOOP
WRITE
"j = "
j
ENDWRITE
j
ASSIGN
j
1
PLUS
ENDASSIGN
IF
j
2
GREATER
THEN
EXIT
ENDIF
ENDLOOP
IF
i
3
GREATER
THEN
EXIT
ENDIF
ENDLOOP