' calcuclates sine table of 1/3 amplitude for 3 part harmony
100 OPEN "sintab3.a51" FOR OUTPUT AS #1
110 pi = 4 * ATN(1)
120 c = 360 / 256
130 FOR i = 0 TO 255
140 d = c * i
150 e = d * pi / 180
160 f = SIN(e)
170 g = f * &H2A
180 h = &H2A + g
190 j = CINT(h)
200 a$ = "0" + HEX$(j)
210 IF i MOD 8 = 0 THEN PRINT #1, "    DB  ";
220 IF j <= (15) THEN PRINT #1, "0";
230 PRINT #1, a$; "H";
240 IF i MOD 8 <> 7 THEN PRINT #1, ",";  ELSE PRINT #1,
250 NEXT
260 PRINT #1,
270 END