ô > Beep/s +ô Play sounds as characters are printed .ô Syntax: *BEEP (ON|OFF| ) (ô 25-Sep-85 J.G.Harston 2: <OSWORD=&FFF1 Fmc%=&900:ver$="1.00" P ã P=0 ¸ 1 Z P%=mc% d [OPT P*3 n .start x&LDA &20E:CMP #beep ƒ 256:BNE beep2 ‚ .store Œ&LDA &20F:CMP #beep 256:BNE beep2 –%LDA #0:STA start:\ already linked   .beep2 ª$LDA #1:LDY #0:LDX #&A8:JSR &FFDA ´ LDY #0 ¾ .loop0 È!LDA (&A8),Y:CMP #13:BEQ beep1 Ò€ #&DF:CMP #—"O":BNE beep1 ÜINY:LDA (&A8),Y æ€ #&DF:CMP #—"F":BNE beep1 ðLDA start:BNE end úLDA oldv:STA &20E LDA oldv+1:STA &20F .end RTS " .beep1 ,#LDA start:BEQ beep3:\ already î 6LDA &20E:STA oldv @LDA &20F:STA oldv+1 JLDA #beep ƒ 256:STA &20E TLDA #beep 256:STA &20F ^ .beep3 h&LDY #0:LDA (&A8),Y:CMP #13:BEQ end r€ #&DF:CMP #—"O":BEQ end |#LDA (&A8),Y:CMP #—"#":BNE beep4 †STA type:BEQ end  .beep4 š€ #3:STA sound:INY ¤#LDA (&A8),Y:CMP #32:BNE end:INY ®LDA (&A8),Y:CMP #13:BEQ end ¸'CMP #—"A":BCC number:SBC #7:.number Â,€ #15:‚ #255:STA sound+2:INC sound+2:INY Ì#LDA (&A8),Y:CMP #32:BNE end:INY ÖLDA (&A8),Y:CMP #13:BEQ end à€ #3:STA sound+6 êRTS ô .beep þPHA !LDA sound+2:STA store:PLA:PHA PHA:LDA type:BNE beep_7:PLA  .beep8 &STA sound+4 0CMP #250:BCC beep8go :LDA #0:STA sound+2 D .beep8go NTXA:PHA:TYA:PHA XLDX #sound ƒ 256 bLDY #sound 256 lLDA #7:JSR OSWORD vLDA store:STA sound+2 €PLA:TAY:PLA:TAX:PLA ŠJMP (oldv) ” .beep_7 ž/PLA:€ #3:STA sound:PLA:PHA:€ #&FC:JMP beep8 ¨ .sound ²EQUW 1:EQUW &FFF2 ¼EQUW 0:EQUW 1 Æ.type:EQUB 0 Ð .oldv Ú] äí î7ñ"*SAVE BEEP ";~(mc%„&FFFF0000);" ";~(P%„&FFFF0000) ÿ