Pseudocode:
start
perform
housekeeping( )
while
bothDone = “N”
perform
mainLoop( )
perform
finishUp( )
stop
housekeeping( )
declare
variables
open files
perform
readLakewood( )
perform
readHanover( )
if lakeZip
= 99999 then
if
hanZip = 99999 then
bothDone
= “Y”
endif
endif
return
readLakewood( )
read
lakeRec
if eof then
lakeZip
= 99999
endif
return
readHanover( )
read hanRec
if eof then
hanZip
= 99999
endif
return
mainLoop( )
if hanZip
write
hanName, hanAdd, hanCity, hanState, hanZip
perform
readHanover( )
else
write
lakeName, lakeAdd, lakeCity, lakeState, lakeZip
perform
readLakewood( )
endif
if lakeZip
= 99999 then
if
hanZip = 99999 then
bothDone
= “Y”
endif
endif
return
finishUp( )
close files
return





