标题一个简单的屏幕保护程序

　　SET COLO TO W/N
　　CLEA
　　PD=0
　　A1=0
　　DO WHIL PD=0
　　B1=0
　　DO WHIL B1<=38
　　SET COLO TO N/W
　　@A1，B1 SAY "休"
　　@A1，78-B1 SAY "息"
　　SET COLO TO W/N
　　PD=INKE(0.8)
　　IF PD=0
　　@A1，B1 SAY " "
　　@A1，78-B1 SAY " "
　　ELSE
　　EXIT
　　ENDI
　　B1=B1+2
　　ENDO
　　IF A1<24
　　A1=A1+1
　　ELSE
　　A1=0
　　ENDI
　　ENDO