30 PLAY"L4G.G.G.L8EFGL4B.A.G.L8GEL4F.F.F.F.C.C.D.D.P4"
40 FOR I=1 TO 2
50 FOR J=1 TO 2
60 PLAY"L8GGGGEFL4G.B.L8AAAAFAL2G.LBGGGGBAL4G.L8FL4FL8FFFFEDL2C.P16"
70 NEXT J
80 PLAY"P16>L8CCCCL4CL8CL4E.L8DDDDCCL4D.CDCL2C.<"
90 NEXT I
100 PLAY"P8>L4CL8CCL4C.E.DL8DDCCL4D.CDCL2D.C."
BASICA语言，386机通过。
(四川 李沂)