home *** CD-ROM | disk | FTP | other *** search
/ Fujiology Archive / fujiology_archive_v1_0.iso / !MAGS / !BONUS / COVERDSK / STFORMAT / STF03.ZIP / STF03.MSA / GFADEMOS / SAMPLE.LST < prev    next >
File List  |  1985-11-20  |  346b  |  17 lines
  1. Dim A%(2000),B%(5000)
  2. Code%=Varptr(A%(0))
  3. Sample%=Varptr(B%(0))
  4. Print "Loading Code..."
  5. Bload "BASCODE.EXE",Code%
  6. Start%=Code%+28
  7. Print "Loading Sample."
  8. Bload "SAMPLE1.SPL",Sample%
  9. Length%=20530
  10. Speed%=4
  11. Lpoke Start%+2,Sample%
  12. Lpoke Start%+6,Length%
  13. Lpoke Start%+10,Speed%
  14. Print "Playing Sample..."
  15. Call Start%
  16. Print "Finished."
  17.