REM From Amiga Interface Magazine Issue 6-1989 (page 28-29) REM Typed/Cleaned up by Stone Oakvalley - 18 January 2018 REM ///////////////////////////////////// OPEN "ram:TABLES" FOR OUTPUT AS #1 pi=3.141592654# s=360/512 d=0 PRINT #1,"sin_table:" FOR a=0 TO 511 b=16384&*SIN(d*pi/180) PRINT #1,CHR$(9)"dc.w";CHR$(9);INT(b) d=d+s NEXT a d=0 PRINT #1,CHR$(13);"cos_table:" FOR a=0 TO 511 b=16384&*COS(d*pi/180) PRINT #1,CHR$(9)"dc.w";CHR$(9);INT(b) d=d+s NEXT a CLOSE#1 STOP