home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: ISDigitiser Old / Lowe_ISDigitiserOld.img / SAMPINTA.BSC < prev    next >
Encoding:
Text File  |  1985-11-20  |  1.2 KB  |  27 lines
  1. 10    REM        EXAMPLE OF USING SAMPLES
  2. 20    REM        (USING TIMER A INTERUPT)
  3. 30    REM             IN ATARI BASIC
  4. 40    REM
  5. 50    REM   BY R.PERRY FOR INNOVATED SOFTWARE
  6. 60    REM              (C)1987,1988
  7. 70    REM
  8. 80    DEFDBL R : DEF SEG = 0
  9. 90    REM
  10. 100   DIM SAMROUTINE%(1000)                        : REM SPACE FOR CODE
  11. 110   DIM SAMPLEDATA%(13000)                       : REM SPACE FOR SAMPLE
  12. 120   REM
  13. 130   BLOAD "SAMINT.EXE",VARPTR(SAMROUTINE%(0))   : REM LOAD ROUTINES
  14. 140   BLOAD "NICESOFT.DAT",VARPTR(SAMPLEDATA%(0))  : REM LOAD SAMPLE
  15. 150   REM
  16. 160   RSAMSTART       = VARPTR(SAMROUTINE%(0)) + 28
  17. 170   RSAMLENGTH     = VARPTR(SAMROUTINE%(0)) + 32
  18. 180   RSAMSPEED      = VARPTR(SAMROUTINE%(0))+ 36
  19. 190   REM
  20. 200   POKE RSAMSTART,VARPTR(SAMPLEDATA%(0))        : REM START ADDRS OF DATA
  21. 210   POKE RSAMLENGTH,VARPTR(SAMPLEDATA%(0))+12880 : REM END ADDRS OF SAMPLE
  22. 220   POKE RSAMSPEED,6                             : REM SAMPLE SPEED IN KHZ
  23. 230   REM
  24. 240   CODE            = VARPTR(SAMROUTINE%(0))+40
  25. 245   CALL CODE
  26. 250   END
  27.