# memopad table .bas
# for HotPaw Basic
# creates a new Memo 
#  containing a trig table

open new "memo","trig table 1" as #4

for d = 0 to 180 step 15
  r = fn rad(d)
  print #4, d,sin(r),cos(r)
next d

close #4
end