模拟北京时间报点程序

Author: 兰州侯丰胜 Date: 1992-05-29

        程序1在IBM_PC机上运行通过，程序2在APPLE_Ⅱ机上运行通过。程序1：
        40 FOR I=1 TO 5
        50 SOUND 800,10
        60 FOR J=1 TO 2400
        70 NEXT J
        80 NEXT I
        100 SOUND 2000,10
        程序2：
        10 FOR I=0  TO 20
        20 READ N
        30 POKE I+770,N
        40 NEXT I
        50 DATA 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96
        100 READ I,J
        110 IF J=0 THEN END
        120 POKE 768,I:POKE 768,J
        130 CALL 770
        140 FOR M=1 TO 1000
        150 NEXT M
        160 GOTO 100
        170 DATA 76,100,76,100,76,100
        180 DATA 76,100,76,100
        190 DATA 80,50,0,0
        程序1说明：
        40～80：发5次“嘟”音，频率为800HZ，音长为10个时钟单位。其中60～70的循环语句是为了延时，使得两次发音之间有一定的时间间隔。
        100：发出频率2000HZ，音长为10个时钟单位的音。
        程序2说明：
        10～50：建立机器语言子程序。
        100～190：调用机器语言子程序并发出报点时的6个音。