home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / EXTRA-ST / APPLE-II / APPLE2-V.TAR / apple2 / disks / disk_s6d1 / MAKESIN.bas < prev    next >
Encoding:
BASIC Source File  |  1994-09-04  |  142 b   |  6 lines
  1. 10  FOR I = 0 TO 255
  2. 15 V =  INT(128 *( SIN(2 *3.1415926535 *I/256)))
  3. 16  IF V <0  THEN V = 256 +V
  4. 17  PRINT I,V
  5. 20  POKE I +16384,V
  6. 30  NEXT