[求助]求一段指令

Anson

米看懂……再详细点说明看看～

tvrcnywfb

graph
for i=1 to 80:cls
box 0,0,i,80,1,2
locate 3,8:print "X"
for k=1 to 100:next k,i
for m=160 to 80 step -1:box 80,0,160,80,0
box 160,0,i,80,1,2
locate 3,12:print "X"
for k=1 to 100:next k,m
cls
for n=1 to 10
box 0,0,160,80,1,2
locate 3,8:print "X"
locate 3,12:print "X"
for k=1 to 100:next k,n
cls
locate 3,6:print "送给XX"
end
注：精确的3秒需要用PEEK，和机器型号。

gcafj

素偶帮偶朋友设计的，可惜偶的技术........所以高手帮忙个，谢谢先

素

FOR I=0 TO 80 STEP 1.0

BOX 0,0,I,80

LOCATE 3,8: PRINT“X

然后让这块闪动一段时间，在闪的同时接上面的指令黑色区域继续前进到右边，出现“X字，然后右边的一半也开始闪，和左边一致，而且字要在，一小会后全屏闪3秒左右停止，屏幕显示“送给XX”，就这

Who can help me？