Adlib-S3M player for QuickBasic, with effects support

Some entirely in QuickBasic written subroutines for playing Adlib-S3M or MidiS3M files in a QuickBasic program.

• +Does not require any difficult timing loops or calling a subroutine regularly. It works "behind the scenes".
• +Supports changing the song any time you want.
• +Uses really little memory.
• -It accesses your hard disk / floppy often: it loads and keeps only one pattern at time from the file to memory. You shouldn't notice this though if you're using a disk cache program like smartdrv).
• +Allows playing adlib sound effects on the top of music. The sound effects are actually music tracks.
• +Entirely written in QuickBasic. This does not require any assembler-written modules.
• +The following S3M effects and control codes are supported:
  Axx, Txx, Dxx, Kxx, Exx, Fxx, Hxx, Cxx, Bxx, SBx, SCx, SDx, SEx
• +It supports MPU-401 (midi) playing also.
• +The subroutines are fairly easy to copy to your own program to add nice music.

The archive contains some example songs and one example effect file.
Two of the example songs are made by Future Crew, four by me, and two by Warp.

The current version just assumes you have MPU-401 too. If you don't have, just edit the MPUwrite subroutine and add a EXIT SUB clause there to be the first command.

It uses ON PLAY event mechanism for the timing, and plays short silent pause commands. Therefore you can not make speaker beeps while the player is playing. This does not affect the performance of the main program.

In the example program, you must press a key (try a,b,c,d,e,f,i,j,g,h,v,0,1 keys).
Note that your sound card must really be Adlib compatible. Creative Sound Blaster AudioPCI 128, for example, is not.

The player uses following global static tables, and nothing else:

Var	Size in bytes	Type
fmperiod	24	int[0..11]
order	512	int[0..255]
adldata	2400	int[1..100,0..11]
insdata	1200	{6 ints}[1..100]
adlchan	896	{14 ints}[0..31]
MIDInote	64	int[0..31]
MIDIchan	64	int[0..31]
fmfilename	4+n	string
fmpattern	4+n	string
fmeffect	4+n	string
fmdata	46	{17 ints,double,long}
fmeff	24	{3 ints}[0..3]
Total:	5242+n

(I am sorry for the big amount of names used, but QuickBasic does not allow putting arrays or dynamic strings inside typedefs.)

'$INCLUDE: 'fmengine.bi'
pleiplei: IF FMtimer% THEN RETURN
IF FMinit < 0 THEN PRINT "FM sound not available.": END
FMload "mysidia.s3m"
' The main loop
WHILE INKEY$ = "": WEND
FMend
END
Could it any way be simpler than this?
 
(Note you must copy FMinit%(), FMtimer%(), MPUDetect%(), MPUvol%(), VibVal%(), note2period%(), FMend(), FMload(), FMnoteoff(), FMplayeffect(), FMplayrowfrom(), FMtouch(), FMupdate(), FMwrite(), MPUwrite() and Vaikene() to the program, but these do not bother your editing, do they? :) )

Okay, who uses QuickBASIC today? If you find this program useful, you are strongly encouraged to tell me.
However I'm planning to make a QuickBASIC compiler for *nix systems like Linux. See the project page for details. You are encouraged to join as a developer if possible :)

fmengineqb has been written by Joel Yliluoma, a.k.a. Bisqwit,
and is distributed under the following terms:

* No warranty. You are free to modify this source and to
* distribute the modified sources, as long as you keep the
* existing copyright messages intact and as long as you
* remember to add your own copyright markings.
* You are not allowed to distribute the program or modified versions
* of the program without including the source code (or a reference to
* the publicly available source) and this notice with it.

The official home page of fmengineqb is at http://oktober.stc.cx/source/fmengineqb.html.
Check there for new versions.