home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / NIBBLE / MAKE.SPEEDDRAW (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1991-05-09  |  213 b   |  13 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 10  REM 
  2. 20  REM  MAKE.SPEEDDRAW
  3. 30  REM 
  4. 40  REM 
  5. 50  REM 
  6. 60  REM 
  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"