home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / CORDIC.ARC / CORDIC64.BAS (.txt) < prev   
Encoding:
Commodore BASIC  |  2019-04-13  |  260 b   |  9 lines
  1. 1 S%=.:POKE163,PEEK(71):POKE164,PEEK(72):C%=.
  2. 2 POKE158,PEEK(71):POKE159,PEEK(72)
  3. 10 FORI=.TO64:POKE832+I,255:NEXT:POKE53269,1:POKE2040,13
  4. 11 FORI=1TO360
  5. 15 POKE780,IAND255:POKE781,I/256:SYS49152:POKE53249,150+C%:POKE53248,S%+150
  6. 20 NEXT
  7. 30 FORI=1TO360:POKE53249,150+COS(I*(null)/180)*100:POKE53248,150+SIN(I*(null)/180)*100
  8. 40 NEXT
  9.