'File: singener.lst
'
min=0           !Starting angle for table
max=PI/2        !Final angle for table
cnt=360         !required length of table
file$="sine.dmp" !Name of file containing table
'
stp=(max-min)/(cnt-1)   !step width for table calculations
OPEN "O",#1,file$       !open output file
'
FOR x=min TO max+stp/2 STEP stp         !For the desired angle x
        PRINT #1,MKI$(INT(32767*SIN(x)+0.5)); !write table values to
                                              !file
NEXT x
'
CLOSE #1