home *** CD-ROM | disk | FTP | other *** search
- rem -------------------------------------------------------------
- rem | TUNPLAY |
- rem | Version 2.0 |
- rem | Copyright 1994 Berthold Daum |
- rem |-----------------------------------------------------------|
- rem | r% = tunplay%:(file$,i%) |
- rem |-----------------------------------------------------------|
- rem | file$: filename of tune (.TUN) if not specified |
- rem | i%: i%=1 key press aborts tune |
- rem | i%=0 no interrupt possible |
- rem | + 2*loudness (0-4) |
- rem | (no change, 1 very loud, 4 very low) |
- rem | r%: r%=0 normal execution |
- rem | r%=-2 file does not exist |
- rem | r%=-3 file error (wrong format) |
- rem | r%=-1 other error |
- rem | r%>0 interrupt via key (r%=key+1024*kmod) |
- rem -------------------------------------------------------------
- rem
- rem
- rem Example: tunplay%:("maplerag",1)
- rem
- rem see also MUSITEST.OPL
- rem
- rem Note: TunPlay checks only for keypresses.
- rem Events go unnoticed. So if used in an application
- rem bracket it by (lock on ... lock off).
- rem
- rem -------------------------------------------------------------------
- rem SND file layout:
- rem 0: byte: tempo (120 is S3a default tempo)
- rem 1: byte: Shift value (for display purposes only)
- rem 2: word: number of notes voice 1(n1)
- rem 4: word: number of notes voice 3(n2)
- rem 6: n1*2 words: voice 1
- rem 6+4*n1: n2*2 words: voice 2
- rem 6+4*(n1+n2): r*2 words: metastructure
- rem (for display purposes only)
- rem
- rem The voice strings are in SOUND-Device format as described in the
- rem PSION S3a Programming Manual.
- rem ------------------------------------------------------------------
-
-