Author: 贵州 邓启飚 Date: 1996-08-02
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