10 ! FALLTON. SPARAS MED LIST 20 ! Slingan alstrar ljud som fallande bomb p} ABC 800 C/M och ABC802. 21 EXTEND : INTEGER 25 ! B M}rtensson W & M 1983. 30 FOR A=1 TO 100 40 Z1=FNTut(A,200) 50 NEXT A 60 EXTEND : INTEGER 70 DEF FNTut(Frek,L{ngd) LOCAL Tut$=15 80 Tut$=CHR$(66,22,0,219,5,197,16,254,193,27,122,179,32,245,201) 90 RETURN CALL(VARPTR(Tut$),Frek*256+L{ngd) 100 FNEND