20 PRINT＂___北风吹@白毛女___＂
30 M＄(1)=＂O3e4d4d8o2a8 b8a8b4b4＂
40 M＄(2)=＂O3d4c4o2b8a8a8e8g4g4＂
50 M＄(3)=＂b4b8o3d8O2a8g8g8d8e4e4＂
60 M＄(4)=＂e4a4p8a8f8a8d4d4＂
70 M＄(5)=＂o3e4d4d8o2a8b8a8b4b4＂
80 M＄(6)=＂o3d4c4o2b8a8a8e8g4g4＂
90 M＄(7)=＂a4g4a4b8b16O3d16o2b8a8＂
100 M＄(8)=＂e8e4g8f8e8d4＂
110 PLAY ＂Mbt90L4＂
120 FOR I=1 TO 8
130 PLAY＂X＂＋VARPTR＄(M＄(I))
140 NEXT I
150 END
(GW BASIC)语言PC机)