0 REM BEEP (SEPT 1/85)                :
1 :
2 REM  1 STATEMENT, 0 FUNCTIONS
3 :
4 REM KEYWORD CHARACTERS: 4
5 :
6 REM KEYWORD     ROUTINE  LINE   SER #
7 REM S/BEEP      BEE      8966    133
8 :
9 REM =================================
10 :
137 .ASC "BEE[208]"
1137 .WORD BEE-1
8966 BEE BEQ BP1
8968 JSR $B79E
8970 INX
8972 .BYTE $2C
8974 BP1 LDX #1
8976 TXA
8978 PHA
8980 LDX #$21
8982 LDY #$87
8984 JSR $79
8986 BEQ BP2
8988 JSR $AEFD
8990 JSR $AD8A
8992 JSR $B7F7
8994 TAX
8996 BP2 STY $D40E
8998 STX $D40F
9000 LDX #0
9002 STX $D413
9004 STX $D417
9006 LDA #$F0
9008 STA $D414
9010 LDA #$0F
9012 STA $D418
9014 LDA #$21
9016 STA $D412
9018 PLA
9020 SEC
9022 BP3 LDY #8
9024 BP4 DEX
9026 BNE BP4
9028 DEY
9030 BNE BP4
9032 SBC #1
9034 BNE BP3
9036 LDA #$20
9038 STA $D412
9040 RTS
9042 ;