home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 14 / CDACTUAL.iso / cdactual / demobin / share / program / Basic / QBTWEAKR.ZIP / QBTWEAK.BAS < prev    next >
Encoding:
BASIC Source File  |  1992-07-10  |  846 b   |  25 lines
  1. 'This programs demonstrates how to use the driver. A much better
  2. 'use of this driver would load samples off disk and play them. Due
  3. 'to space limitations, I can't give you any samples. Check out Amiga
  4. '.MOD files, or perhaps .VOC files.
  5. 'Remember the driver as-is only plays signed samples!
  6. 'Please read the beginning of "TWEAKR.ASM" for more info!
  7. DEFINT A-Z
  8. 'declarations:
  9. DECLARE SUB TweakOn (BYVAL freq%)
  10. DECLARE SUB TweakOff ()
  11. DECLARE SUB PlaySound (BYVAL Offset%, BYVAL Segment%, BYVAL Length%, BYVAL freq%)
  12. DECLARE FUNCTION TweakStatus ()
  13. '2k stack
  14. CLEAR , , 2048
  15. 'enable the driver(on slow computers 18,356hz may be too much!)
  16. TweakOn 18356
  17. 'plays your BIOS at 15,000 hertz (offset 0, segment C000h)
  18. PlaySound 0, &HC000, &HFFFF, 15000
  19. 'play it until done
  20. DO: LOOP WHILE TweakStatus
  21. 'turn off driver
  22. TweakOff
  23. END
  24.  
  25.