音乐:红星照我去战斗

Author: 湛 江 蒋 敬 权 Date: 1993-10-08

        2 0   M $  =  " >  D 8 . L 1 6 E D 8 D C <  A 8 A >   C <  L 8 A G C L 1 6 C <  A >  L 8 C D E A  A G E "
        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语言。              ( 湛 江    蒋 敬 权 )