三次动态地从右向左显示变量S内容的字幕程序:
CLEAR
S-SPACE(80)+“热烈庆祝北京审半2008年奥运会成功!热烈呼唤!!”+SPACE(60)
N-O
[9]
I=1
DO WHILE 1<160
@20,0 SAY SUBSTR(S,I,80)
H=INKEY(0,1，”H”)
I=1+2
[10]
[11]
ENDDO