有如下程序段，其功能是顯示漢字“2008年北京申奧成功！”從屏幕的頂部移至底部，設屏幕共24行。請?zhí)羁昭a充該程序。
CLEAR
CH=〝2008年北京申奧成功！〞
R=1
DO WHILE （）
@（）, 26 SAY CH
T=INKEY(0.2)
（）
ENDDO
RETURN

設供應商.DBF用于存放供應商信息，其字段有：姓名(字符型)，電話(字符型)，地址(字符型)。下面程序的功能是：查找電話號碼中含有“123”的所有姓李的供應商的信息。
SET TALK OFF
CLEAR
（）
DO WHILE .NOT. EOF()
IF SUBSTR(姓名，1，2)=“李” AND （）
？姓名+電話+地址
（）
ENDDO
USE
SET TALK ON
RETURN