home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib35a.dsk / NOVEMBER.1988 / MAKE.SPEEDDRAW.bas < prev    next >
BASIC Source File  |  2023-02-26  |  355b  |  13 lines
  1. 10  REM *
  2. 20  REM * MAKE.SPEEDDRAW
  3. 30  REM * BY JIM SAVAGE
  4. 40  REM * COPYRIGHT(C) 1988
  5. 50  REM * MICROSPARC, INC.
  6. 60  REM * CONCORD, MA 01742
  7. 70  REM *
  8. 80 D$ =  CHR$(4):P = 3.1416/512
  9. 90  PRINT D$"BLOAD SPEEDDRAW.0"
  10. 100  FOR I = 0 TO 245:SN =  SIN(I *P)
  11. 110 SN =  INT((SN *256) +.5): POKE 17267 +I,SN
  12. 120  NEXT 
  13. 130  PRINT D$"BSAVE SPEEDDRAW,A$4069,L$414"