我正在使用 Win10 上的 UCB Logo 6.0完成计算机科学徽标样式
示例之一是extract此页面上的过程：
https ://people.eecs.berkeley.edu/~bh/v2ch1/files.html
我的问题是，当我认为它应该读取所有内容直到文件末尾时，它只会从文件中读取一行。我使用 Notepad.exe 制作了示例文件（纯文本地址簿），其中 2 个条目由硬回车（ENTER）键分隔。
这是书中的过程和使用示例：
to extract :word :file
openread :file
setread :file
extract1 :word
setread []
close :file
end
to extract1 :word
local "line
if eofp [stop]
make "line readlist
if memberp :word :line [print :line]
extract1 :word
end
使用它：（
? extract "brian "phonelist作为phonelist文件名）
结果应该是：
Brian Harvey 555-2368
Brian Silverman 555-5274
我的示例文件有 2 条 Brian 行，但只检索了第一条。有什么想法吗？- 谢谢