'*TUTONE2.BAS*  (C) Zappy TV 15MAR04 (PE9ZZ)
pi = 3.141592654#
RETLW$ = "RETLW   0x"
OPEN "tutone2.bin" FOR APPEND AS #1
n = 1
DO
        sample$ = HEX$(1 + INT(70.2 * (1.809 + SIN(2 * pi * n / 182) - SIN(10 * pi * n / 182))))
        PRINT #1, RETLW$, sample$
        n = n + 1
LOOP WHILE n < 183
CLOSE #1
END