音乐:红星照我去战斗
3 0 P L A Y " L 8 E L 1 6 G A L 8 > C < B A 4 . G A > D L 1 6 D C L 8 < A G 4 . E D . E 1 6 D C
< A . > C 1 6 < G A > C 2 ” "
4 0 F O R K = 1 T O 2 : P L A Y " L 8 C . D 1 6 E A G L 1 6 E D C 4 G 8 E G L 8 A > D C 2 "
5 0 P L A Y " < A . G 1 6 A > E D . L 1 6 E D C < A 8 G 2 > C 8 L 1 6 C D < A > C < G A
> C 2 < A 8 A "
6 0 P L A Y " > C < A G E D E 2 L 8 > C . D 1 6 C < A G 1 6 G L 1 6 > C < A G L 8 E D .
E 1 6 D C "
7 0 P L A Y " L 1 6 < A > C < G A > C 4 E 8 G A L 8 > C < B A 4 . G A > D L 1 6 D C
< A 8 G 2 "
8 0 I F K = 1 T H E N P L A Y " L 8 D . E 1 6 D C < A . > C 1 6 < G A > C 2 "
9 0 N E X T : P L A Y " X M $ ; L 8 G , L 1 6 F D E C D E 2 ; X M $ ; "
1 0 0 P L A Y " L 8 > C < L 1 6 A G L 8 > C D E 2 . < A L 1 6 G A > L 8 D E . C 2 . " : E N D
IBMPC及兼容机GWBASIC语言。 ( 湛 江 蒋 敬 权 )