1 REM Ins{nt av 2733
10 ! ------------------------------------------------------------
20 ! Rutin SOUND.800 F|r enkel anv{ndning av ABC 800 M o C ljud.
25 ! Obs! G}r inte att k|ra p} ABC 806.
26 ! Programmet l{nkar in instruktionen SOUND x  d{r x<65536
30 ! (c) Gunnar Faith-Ell 1984-03-23
40 ! F|r aktivering skriv SOUND L{ngd%+Frekvens%*256% Ex SOUND 200%+242%*256%
50 ! Vad g{ller frekvens och tonl{ngd f|ljer rutinen
60 ! BIT f|r BIT med ABC 800 sidan 53 ver 1,a
70 ! -----------------------------------------------------------
80 POKE 32768,PEEK(65405),PEEK(65406)
90 POKE -131,0,128
100 POKE -244,61,128
110 POKE -208,61,128
120 POKE -32766,208,1,10,128,12,128,19,128,26,128,128,83,79,85,78
130 POKE -32751,68,255,21,128,6,1,195,29,0,213,229,245,197,231,235
140 POKE -32736,175,147,202,40,128,205,46,128,193,241,225,209,239,201,66
150 POKE -32721,22,0,219,5,197,16,254,193,27,122,179,32,245,201
160 CHAIN 'NUL:' ! Obs! Programmet m}ste raderas d} BOFA {ndras
170 END