Remove old files

author: Flamefire <git@grundis.de> 2018-12-15 18:00:47 +0100
committer: Flamefire <git@grundis.de> 2018-12-15 18:00:47 +0100
commit: b44ca1bc7b214c0ff4ef12a9cc3c6057af433b5f (patch)
tree: 1f0eed20dbbc14f7c8122c7c02dcc6417935d42a
parent: 5fa2ceaf2968dccaa8c0825c6d3498bd173055ef (diff)
download: libADLMIDI-b44ca1bc7b214c0ff4ef12a9cc3c6057af433b5f.tar.gz
libADLMIDI-b44ca1bc7b214c0ff4ef12a9cc3c6057af433b5f.tar.bz2
libADLMIDI-b44ca1bc7b214c0ff4ef12a9cc3c6057af433b5f.zip
10 files changed, 0 insertions, 1957 deletions
diff --git a/_old_files/Makefile.cygwin b/_old_files/Makefile.cygwin
deleted file mode 100644
index 1424af8..0000000
--- a/_old_files/Makefile.cygwin
+++ /dev/null
@@ -1,26 +0,0 @@
-CC=i686-pc-mingw32-gcc -static
-CXX=i686-pc-mingw32-g++ -static
-CXXLINK=$(CXX)
-
-#DEBUG=-O0 -fno-inline -D_GLIBCXX_DEBUG -g -fstack-protector-all -fdata-sections
-
-DEBUG=-O3 -g -fexpensive-optimizations -ffast-math
-
-#DEBUG += -fno-tree-vectorize
-
-# -march=pentium -mno-sse -mno-sse2 -mno-sse3 -mmmx
-
-CPPFLAGS += $(SDL)
-
-CPPFLAGS += -ansi -Wall -W 
-
-CC += -mwin32 -mconsole -mno-cygwin
-CXX += -mwin32 -mconsole -mno-cygwin
-CPPFLAGS += -I/usr/include/mingw -mno-cygwin -I/usr/include/w32api
-LDLIBS += -L/usr/local/lib -L/usr/lib/w32api -lwinmm
-
-# ^For cygwin. For anything else, remove this line.
-
-
-include make.rules
-
diff --git a/_old_files/Makefile.old b/_old_files/Makefile.old
deleted file mode 100644
index f1a2ead..0000000
--- a/_old_files/Makefile.old
+++ /dev/null
@@ -1,24 +0,0 @@
-#CXX=i686-w64-mingw32-g++ -static
-CC=gcc
-CXX=g++
-CXXLINK=$(CXX)
-MKDIR=mkdir -p
-RM=rm
-RM_F=rm -Rf
-
-#DEBUG=-O0 -fno-inline -D_GLIBCXX_DEBUG -g -fstack-protector-all -fdata-sections
-
-DEBUG=-Ofast -g
-
-#DEBUG += -fno-tree-vectorize
-
-# -march=pentium -mno-sse -mno-sse2 -mno-sse3 -mmmx
-
-CFLAGS += -DLIBADLMIDI_VISIBILITY
-
-CPPFLAGS += -DLIBADLMIDI_VISIBILITY
-
-CPPFLAGS += -std=c++11 -pedantic -Wall -Wextra
-
-include make.rules
-
diff --git a/_old_files/Makefile.w32 b/_old_files/Makefile.w32
deleted file mode 100644
index c9c303f..0000000
--- a/_old_files/Makefile.w32
+++ /dev/null
@@ -1,24 +0,0 @@
-CXX=i686-w64-mingw32-g++ -static
-#CXX=g++
-CXXLINK=$(CXX)
-MD=md
-RM=del
-RM_F=del /Q /F /S
-
-#DEBUG=-O0 -fno-inline -D_GLIBCXX_DEBUG -g -fstack-protector-all -fdata-sections
-
-DEBUG=-Ofast -g
-
-#DEBUG += -fno-tree-vectorize
-
-# -march=pentium -mno-sse -mno-sse2 -mno-sse3 -mmmx
-
-CC += -mwin32 -mconsole
-CXX += -mwin32 -mconsole
-CPPFLAGS += -DLIBADLMIDI_VISIBILITY -I/usr/include/mingw -I/usr/include/w32api
-LDLIBS += -L/usr/local/lib -L/usr/lib/w32api -lwinmm
-
-CPPFLAGS += -std=c++11 -pedantic -Wall -Wextra
-
-include make.rules
-
diff --git a/_old_files/Readme.txt b/_old_files/Readme.txt
deleted file mode 100644
index 3cbe239..0000000
--- a/_old_files/Readme.txt
+++ /dev/null
@@ -1,125 +0,0 @@
-==================================================================================
-    libADLMIDI is a free MIDI to WAV conversion library with OPL3 emulation
-==================================================================================
-
-Original ADLMIDI code: Copyright (c) 2010-2014 Joel Yliluoma <bisqwit@iki.fi>
-ADLMIDI Library API:   Copyright (c) 2015-2017 Vitaly Novichkov <admin@wohlnet.ru>
-
-Library is based on the ADLMIDI, a MIDI player for Linux and Windows with OPL3 emulation:
-=========================================
-http://iki.fi/bisqwit/source/adlmidi.html
-=========================================
-
-=========================================
-      Differences with original tool
-=========================================
-* Reverb code has been removed.
-* Doesn't contains platform specific code.
- Library can be used with various purposes include making of a custom music decoders
- for a media players and usage with a games
-
-=========================================
-              Key features
-=========================================
-
-* OPL3 emulation with four-operator mode support
-* FM patches from a number of known PC games, copied from files typical to AIL = Miles Sound System / DMX / HMI = Human Machine Interfaces / Creative IBK.
-* Stereo sound
-* Number of simulated soundcards can be specified as 1-100 (maximum channels 1800!)
-* Pan (binary panning, i.e. left/right side on/off)
-* Pitch-bender with adjustable range
-* Vibrato that responds to RPN/NRPN parameters
-* Sustain enable/disable
-* MIDI and RMI file support
-* loopStart / loopEnd tag support (Final Fantasy VII)
-* Use automatic arpeggio with chords to relieve channel pressure
-* Support for multiple concurrent MIDI synthesizers (per-track device/port select FF 09 message), can be used to overcome 16 channel limit
-
-
-=========================================
-              How to build
-=========================================
-You can build shared version and additional tools on the Linux when you will run a "make" command and you will have libadlmidi.so and additional tools in the "bin" directory.
-
-You also can build library manually:
-You need to make in the any IDE a library project and put into it next files
-(or include those files into subfolder of your exist project instead if you want to use it statically):
-
-* adlmidi.h             - Library API, use it to control library
-
-* dbopl.h               - DOSBOX OPL Emulation header
-* nukedopl3.h           - Nuked OPL3 Emulation header
-* fraction.h            - Fraction number handling
-* adldata.hh            - bank structures definition
-* adlmidi_private.hpp   - header of internal private APIs
-* adlmidi_mus2mid.h     - MUS2MID converter header
-* adlmidi_xmi2mid.h     - XMI2MID converter header
-
-* dbopl.cpp             - DOSBOX OPL Emulation code (used when ADLMIDI_USE_DOSBOX_OPL macro is defined)
-* nukedopl3.c           - Nuked OPL3 Emulation code (used by default)
-* adlmidi.cpp           - code of library
-* adldata.cpp           - Automatically generated dump of FM banks from "fm_banks" directory via "gen_adldata" tool
-* adlmidi_load.cpp      - Source of file loading and parsing processing
-* adlmidi_midiplay.cpp	- MIDI event sequencer
-* adlmidi_opl3.cpp      - OPL3 chips manager
-* adlmidi_private.cpp   - some internal functions sources
-* adlmidi_mus2mid.c	    - MUS2MID converter source
-* adlmidi_xmi2mid.c	    - XMI2MID converter source
-
-**Important**: Please use DosBox emulator on mobile devices because it requires small CPU power.
- Nuked OPL synthesizer is very accurate (compared to real OPL3 chip), but it requires much more power
- device and is high probability your device will lag and playback will be choppy.
-
-=========================================
-              Example
-=========================================
-In the src/midiplay you will found alone CPP file which an example of library usage.
-That example is a simple audio player based on SDL Audio usage.
-
-To build that example you will need to have installed SDL2 library.
-
-=========================================
-              Todo
-=========================================
-* Time based Seek/Tell support
-* Support of title and other meta-tags retrieving
-* Support of real-time listening of incoming MIDI-commands.
-  That will allow to use library as software MIDI Output device
-  to play any MIDI via this library.
-
-=========================================
-Changelog
-=========================================
-## 1.2.1    2017-07-30
- * Minor fixes
- * Added 72'th bank by Sneakernets
- * Updated "gen_adldata" utility to use ini file
-
-## 1.2.0    2017-02-15
- * Fixed 12'th bank where are drums and melodic sets are was swapped
- * Fxied logariphmic volumes flag which autoreseted to false on playing begin moment
- * Added TRUE support for MUS and XMI formats (added the conversion functions to make right MIDI data to play it)
-
-## 1.1.1	2016-12-09
- * Added a changable volume ranges models (Automatic for some banks, Generic, CMF, DMX, Apogee and 9X)
-
-## 1.1.0	2016-12-06
- * Added Nuked OPL3 emulator which is more accurate (but requires more CPU power, therefore kept ability to use DosBox OPL3 via macro)
- * Fixed warnings of CLang code model plugin
- * Fixed bend coefficient which makes hi-hats in DOOM banks be incorrectly
-
-## 1.0.3	2016-08-06
- * Added handling of 111'th controller as "loopStart" (which used by RPG-Maker)
- * Fixed infinite loop caused by blank MIDI-files (add extra second of waiting if over 10000 0-waiting loops are been detected)
- * Fixed damaged playing of IMF files (cased by wrong implementation of getc() function where return type must be int, not unsigned char)
-
-## 1.0.2	2016-03-16
- * Fixed infinite loop causes swapped loopEnd and loopStart (when loopEnd goes before loopStart)
- * Fixed sielent volume tracks (when initial voule is zero, tracks wouldn't be playd even after applying fading in volume events)
- * More accurate fine tuning for second voice for DMX-based banks (playback now is more like original DOOM than before!)
- * Library's Output data now in short format (no more need to do extra conversions to make 16-bit audio stream from every 16-bit
-   sample stored into each 32-bit integer)
-
-## 1.0.0	2015-10-10
- * First release of library
-
diff --git a/_old_files/depfun.mak b/_old_files/depfun.mak
deleted file mode 100644
index 64618c7..0000000
--- a/_old_files/depfun.mak
+++ /dev/null
@@ -1,197 +0,0 @@
-# This is Bisqwit's generic depfun.mak, included from Makefile.
-# The same file is used in many different projects.
-#
-# depfun.mak version 1.6.2
-#
-# Required vars:
-#
-#  ${CPP}        - C preprocessor name, usually "gcc"
-#  ${CPPFLAGS}   - preprocessor flags (including defs)
-#
-#  ${ARCHFILES}  - All file names to include in archive
-#                  .depend, depfun.mak and Makefile are
-#                  automatically included.
-#  ${ARCHNAME}   - Name of program. Example: testprog-0.0.1
-#
-# Optional vars:
-#
-#  ${ARCHDIR}       - Directory for the archives.
-#                     Must end with '/'.
-#  ${INSTALLPROGS}  - Programs to be installed (space delimited)
-#  ${BINDIR}        - Directory for installed programs (without /)
-#                     Example: /usr/local/bin
-#  ${INSTALL}       - Installer program, example: install
-#  ${DEPDIRS}       - Optional dependency dirs to account in .depend
-#
-#  ${EXTRA_ARCHFILES} - More files to include in archive,
-#                       but without dependency checking
-
-
-# Note: This requires perl. FIXME change it to sed
-.depend: ${ARCHFILES}
-	@echo "Checking dependencies..."
-	@rm -f $@.tmp
-	@for dir in "" ${DEPDIRS}; \
-	 do n="`pwd`";\
-	    if [ ! -z "$$dir" ]; then cd "$$dir"; fi; \
-	    for s in *.c *.cc *.cpp; \
-	    do if echo "$$s"|grep -vq '^\*';\
-	       then \
-	       cd "$$n";\
-	       ${CPP} ${CPPFLAGS} -MM -MG "$$dir""$$s" |\
-	        perl -pe "s|^([^ ])|$$dir\\1|" \
-	         > $@."$$s";\
-	    fi&done; \
-	    cd "$$n"; \
-	 done; wait
-	@touch $@.dummy
-	@cat $@.* >$@
-	@cp -f $@ $@.tmp
-	@sed 's/\.o:/.lo:/' <$@.tmp >>$@
-	@rm -f $@.*
-
-depend dep: .depend
-
-
--include .depend
-
-git_release: ${ARCHFILES} ;
-	# Create the release commit
-	git commit --allow-empty -a -m 'Release version ${VERSION} (dev)' # commit in dev brach
-	git rev-parse HEAD > .git/PUSHED_HEAD
-	git checkout -f release || git checkout -b release
-	 #
-	 # Set the cache & index to exact copy of the original branch
-	 #
-	 git rm -fr --cached '*' &> /dev/null
-	 git checkout PUSHED_HEAD .
-	 #
-	 # Limit the index to those files we publish
-	 #
-	 git rm -fr --cached '*' &> /dev/null
-	 git add -f --ignore-errors ${ARCHFILES} ${EXTRA_ARCHFILES} depfun.mak Makefile
-	 @if [ -f docmaker.php ]; then php -q docmaker.php ${ARCHNAME} > README.html; git add docmaker.php README.html; fi
-	 @if [ -f makediff.php ]; then git add makediff.php; fi
-	 #
-	 # Create a merge commit
-	 #
-	 cp .git/PUSHED_HEAD .git/MERGE_HEAD
-	 git commit -m 'Release version ${VERSION}' # commit in release
-	 #
-	 # Create the archive
-	 #
-	 @- mkdir ${ARCHDIR} 2>/dev/null
-	 git archive --format=tar --prefix=${ARCHNAME}/ HEAD > ${ARCHDIR}${ARCHNAME}.tar
-	# Return to the original branch
-	git checkout -f $$(cd .git/refs/heads;grep -l `cat ../../PUSHED_HEAD` * || echo PUSHED_HEAD)
-	git update-server-info
-	@make arch_finish_pak
-	@make omabin_link${DEPFUN_OMABIN}
-
-git_test_release: ${ARCHFILES}
-	# Create the testing commit
-	git commit --allow-empty -a -m 'Test release ${VERSION} (dev)' # commit in dev branch
-	git rev-parse HEAD > .git/PUSHED_HEAD
-	git checkout release || git checkout -b release
-	 # 
-	 # Backup the HEAD in release branch
-	 #
-	 git rev-parse release > .git/RELEASE_HEAD
-	 #
-	 # Set the cache & index to exact copy of the original branch
-	 #
-	 git rm -fr --cached '*' &> /dev/null
-	 git checkout PUSHED_HEAD .
-	 #
-	 # Limit the index to those files we publish
-	 #
-	 git rm -fr --cached '*' &> /dev/null
-	 git add -f --ignore-errors ${ARCHFILES} ${EXTRA_ARCHFILES} depfun.mak Makefile
-	 @if [ -f docmaker.php ]; then php -q docmaker.php ${ARCHNAME} > README.html; git add docmaker.php README.html; fi
-	 @if [ -f makediff.php ]; then git add makediff.php; fi
-	 #
-	 # Create a merge commit
-	 #
-	 cp .git/PUSHED_HEAD .git/MERGE_HEAD
-	 git commit -m 'Test release' # commit in release
-	 #
-	 # Create the testing directory
-	 #
-	 rm -rf test_release
-	 git archive --format=tar --prefix=test_release/ HEAD | tar xvf - | sed 's/^/	/'
-	 #
-	 # Reset the release branch to its previous state
-	 #
-	 git reset --hard RELEASE_HEAD
-	# Return to the original branch
-	git checkout -f $$(cd .git/refs/heads;grep -l `cat ../../PUSHED_HEAD` * || echo PUSHED_HEAD)
-	git update-server-info
-	git gc --quiet
-	@echo
-	@echo ----------------------------------------------------------------------
-	@echo 'Would-be release extracted to test_release/ -- go ahead and try it.'
-	@echo ----------------------------------------------------------------------
-	@echo
-
-UNUSED_archpak: ${ARCHFILES} ;
-	@if [ "${ARCHNAME}" = "" ]; then echo ARCHNAME not set\!;false;fi
-	- mkdir ${ARCHNAME} ${ARCHDIR} 2>/dev/null
-	cp --parents -lfr ${ARCHFILES} ${EXTRA_ARCHFILES} depfun.mak Makefile ${ARCHNAME}/ 2>&1 >/dev/null | while read line;do cp --parents -fr "`echo "$$line"|sed 's/.*${ARCHNAME}\///;s/'\''.*//'`" ${ARCHNAME}/; done
-	- if [ -f docmaker.php ]; then php -q docmaker.php ${ARCHNAME} >README.html; ln -f docmaker.php README.html ${ARCHNAME}/;fi
-	if [ -f makediff.php ]; then ln -f makediff.php ${ARCHNAME}/; fi
-	#- rm -f ${ARCHDIR}${ARCHNAME}.zip
-	#- zip -9rq ${ARCHDIR}${ARCHNAME}.zip ${ARCHNAME}/
-	#- rar a ${ARCHDIR}${ARCHNAME}.rar -mm -m5 -r -s -inul ${ARCHNAME}/
-	#tar cf ${ARCHDIR}${ARCHNAME}.tar ${ARCHNAME}/
-	#
-	find ${ARCHNAME}/ -type d > .paktmp.txt
-	find ${ARCHNAME}/ -not -type d | rev | sort | rev >> .paktmp.txt
-	#find ${ARCHNAME}/|/ftp/backup/bsort >.paktmp.txt
-	tar -c --no-recursion -f ${ARCHDIR}${ARCHNAME}.tar -T.paktmp.txt
-	rm -rf .paktmp.txt ${ARCHNAME}
-	@make arch_finish_pak
-
-arch_finish_pak:	
-	- if [ "${NOBZIP2ARCHIVES}" = "" ]; then bzip2 -9 >${ARCHDIR}${ARCHNAME}.tar.bz2 < ${ARCHDIR}${ARCHNAME}.tar; fi
-	if [ "${NOGZIPARCHIVES}" = "" ]; then gzip -f9 ${ARCHDIR}${ARCHNAME}.tar; wine /usr/local/bin/DeflOpt.exe ${ARCHDIR}${ARCHNAME}.tar.gz ; fi
-	rm -f ${ARCHDIR}${ARCHNAME}.tar
-
-# Makes the packages of various types...
-UNUSED_pak: archpak ;
-	if [ -f makediff.php ]; then php -q makediff.php ${ARCHNAME} ${ARCHDIR} 1; fi
-
-omabin_link${DEPFUN_OMABIN}:
-	- @rm -f /WWW/src/arch/${ARCHNAME}.tar.{bz2,gz}
-	- ln -f ${ARCHDIR}${ARCHNAME}.tar.{bz2,gz} /WWW/src/arch/
-	if [ -f progdesc.php ]; then cp -p --remove-destination progdesc.php /WWW/src/.desc-$(subst /,,$(dir $(subst -,/,$(ARCHNAME)))).php 2>/dev/null || cp -fp progdesc.php /WWW/src/.desc-$(subst /,,$(dir $(subst -,/,$(ARCHNAME)))).php; fi
-
-# This is Bisqwit's method to install the packages to web-server...
-UNUSED_omabin${DEPFUN_OMABIN}: archpak
-	if [ -f makediff.php ]; then php -q makediff.php ${ARCHNAME} ${ARCHDIR}; fi
-	#- @rm -f /WWW/src/arch/${ARCHNAME}.{zip,rar,tar.{bz2,gz}}
-	#- ln -f ${ARCHDIR}${ARCHNAME}.{zip,rar,tar.{bz2,gz}} /WWW/src/arch/
-	@make omabin_link${DEPFUN_OMABIN}
-
-install${DEPFUN_INSTALL}: ${INSTALLPROGS}
-	- if [ ! "${BINDIR}" = "" ]; then mkdir --parents $(BINDIR) 2>/dev/null; mkdir $(BINDIR) 2>/dev/null; \
-	   for s in ${INSTALLPROGS} ""; do if [ ! "$$s" = "" ]; then \
-	     ${INSTALL} -c -s -o bin -g bin -m 755 "$$s" ${BINDIR}/"$$s";fi;\
-	   done; \
-	  fi; \
-	  if [ ! "${MANDIR}" = "" ]; then mkdir --parents $(MANDIR) 2>/dev/null; mkdir $(MANDIR) 2>/dev/null; \
-	   for s in ${INSTALLMANS} ""; do if [ ! "$$s" = "" ]; then \
-	     ${INSTALL} -m 644 "$$s" ${MANDIR}/man"`echo "$$s"|sed 's/.*\.//'`"/"$$s";fi;\
-	   done; \
-	  fi
-	
-uninstall${DEPFUN_INSTALL} deinstall${DEPFUN_INSTALL}:
-	for s in ${INSTALLPROGS}; do rm -f ${BINDIR}/"$$s";done
-	- for s in ${INSTALLLIBS}; do rm -f ${LIBDIR}/"$$s";done
-	for s in ${INSTALLMANS} ""; do if [ ! "$$s" = "" ]; then \
-	  rm -f ${MANDIR}/man"`echo "$$s"|sed 's/.*\.//'`"/"$$s";fi;\
-	done; \
-
-.PHONY: pak dep depend archpak omabin \
-	install${DEPFUN_INSTALL} \
-	deinstall${DEPFUN_INSTALL} \
-	uninstall${DEPFUN_INSTALL}
diff --git a/_old_files/docmaker.php b/_old_files/docmaker.php
deleted file mode 100644
index 4576ed9..0000000
--- a/_old_files/docmaker.php
+++ /dev/null
@@ -1,125 +0,0 @@
-<?php
-
-# This is Bisqwit's generic docmaker.php, activated from depfun.mak.
-# The same program is used in many different projects to create
-# the README.html file from progdesc.php.
-#
-# docmaker.php version 1.2.0
-
-# Copyright (C) 2000,2004 Bisqwit (http://iki.fi/bisqwit/)
-
-# Syntax:
-
-# argv[1]: Archive name
-# argv[2]: Source file (default: progdesc.php)
-
-# Requires:
-#   /usr/local/bin/htmlrecode
-#   /WWW/document.php (document formatting module)
-#
-# From the source file, requires the following:
-#   $title
-#   $progname
-
-@$archivename = $argv[1];
-@$docmodulefn = $argv[2];
-$docformatfn = '/WWW/document.php';
-
-if(!$docmodulefn) $docmodulefn = 'progdesc.php';
-
-foreach(array($docmodulefn, $docformatfn) as $fn)
-  if(!file_exists($fn))
-  {
-    print "$fn not found, not making document.\n";
-    exit(1);
-  }
-
-function shellfix($s){return "'".str_replace("'", "'\''", $s)."'";}
-
-$content_array = file($docmodulefn);
-$content = implode('', $content_array);
-$fw = fopen('docmaker-temp.php', 'w');
-fwrite($fw, preg_replace('/include \'.*;/U', '', $content));
-fclose($fw);
-include 'docmaker-temp.php';
-unlink('docmaker-temp.php');
-
-if(!isset($outset)) $outset='';
-if($outset) ob_start();
-
-?>
-<html><head><meta http-equiv="Content-type" content="text/html; charset=iso-8859-1">
- <title><?=htmlspecialchars($title)?></title>
- <style type="text/css"><!--
-TABLE.toc {border:0px}
-A:link,A:visited{text-decoration:none;color:#2A3B83}
-A:hover{text-decoration:underline;color:#002040}
-A:active{text-decoration:underline;color:#004060;background:#CCD8FF}
-TD.toc   {font-size:80%; font-family:Tahoma; text-align:left}
-H1       {font-size:250%; font-weight:bold} .level1 {text-align:center}
-H2       {font-size:200%; font-weight:bold} .level2 {margin-left:1%}
-H3       {font-size:160%; font-weight:bold} .level3 {margin-left:2%}
-H4       {font-size:145%; font-weight:bold} .level4 {margin-left:3%}
-H5       {font-size:130%; font-weight:bold} .level5 {margin-left:4%}
-H6       {font-size:110%; font-weight:bold} .level5 {margin-left:5%}
-BODY{background:white;color:black}
-CODE{font-family:lucida console,courier new,courier;color:#105000}
-PRE.smallerpre{font-family:lucida console,courier new,courier;font-size:80%;color:#500010;margin-left:30px}
-SMALL    {font-size:70%}
-.nonmail { visibility:hidden;position:absolute; top:0px;left:0px }
-.ismail  { font-weight:normal }
---></style></head>
- <body>
-  <h1><?=htmlspecialchars($title)?></h1>
-  <h2 class=level2> 0. Contents </h2>
-  
-  This is the documentation of <?=htmlspecialchars($archivename)?>.
-<?
-
-$url = 'http://iki.fi/bisqwit/source/'.rawurlencode($progname).'.html';
-$k = '
-   The official home page of '.htmlspecialchars($progname).'
-   is at <a href="'.htmlspecialchars($url).'">'.htmlspecialchars($url).'</a>.<br>
-   Check there for new versions.
-';
-if(isset($git))
-{
-  $k .=
-    '<p>'.
-    'Additionally, the most recent source code (bleeding edge) for '.htmlspecialchars($progname).
-    ' can also be downloaded by cloning the Git repository'.
-    ' by:<ul style="margin-left:3em;margin-top:0px">'.
-    '<li><code> git clone <a href="'.htmlspecialchars($git).'">'.htmlspecialchars($git).'</a></code></li>'.
-    '<li><code> git checkout origin/release -b release</code></li>'.
-    '<li><code> git checkout origin/master  -b master</code></li>'.
-    '</ul></p>';
-}
-$text['download:99999. Downloading'] = $k;
-
-include $docformatfn;
-
-$st1 = stat($docmodulefn);
-$st2 = stat('docmaker.php');
-?>
- <p align=right><small>Generated from
-       <tt><?=$docmodulefn?></tt> (last updated: <?=date('r', $st1[9])?>)<br>
-  with <tt>docmaker.php</tt> (last updated: <?=date('r', $st2[9])?>)<br>
-  at <?=date('r')?></small>
- </p>
-</body>
-</html>
-<?
-
-if($outset)
-{
-  $s = ob_get_contents();
-  ob_end_clean();
-  if(file_exists('/usr/local/bin/htmlrecode'))
-  {
-    /* Try to ensure browser interpretes japanese characters correctly */
-    passthru('echo '.shellfix($s).
-             '|/usr/local/bin/htmlrecode -Iiso-8859-1 -O'.$outset.' 2>/dev/null');
-  }
-  else
-    print $s;
-}
diff --git a/_old_files/make.rules b/_old_files/make.rules
deleted file mode 100644
index cd3ab6d..0000000
--- a/_old_files/make.rules
+++ /dev/null
@@ -1,170 +0,0 @@
-VERSION=1.0.0
-ARCHNAME=adlmidi-$(VERSION)
-ARCHDIR=archives/
-NOGZIPARCHIVES=1
-
-ARCHFILES=\
-	src/adlmidi.cpp src/adlmidi.h \
-    src/adlmidi_load.cpp src/adlmidi_midiplay.cpp src/adlmidi_opl3.cpp src/adlmidi_private.cpp \
-	src/dbopl.cpp src/dbopl.h \
-	src/adldata.cpp src/adldata.hh \
-	src/dumpbank/dumpbank.cc src/dumpmiles/dumpmiles.cc \
-	src/gen_adldata/gen_adldata.cc \
-	midiplay.bas \
-	progdesc.php \
-	make.rules \
-	fraction.h \
-	\
-	fm_banks/bnk_files/drum.bnk \
-	fm_banks/bnk_files/file131.bnk \
-	fm_banks/bnk_files/file132.bnk \
-	fm_banks/bnk_files/file133.bnk \
-	fm_banks/bnk_files/file134.bnk \
-	fm_banks/bnk_files/file142.bnk \
-	fm_banks/bnk_files/file143.bnk \
-	fm_banks/bnk_files/file144.bnk \
-	fm_banks/bnk_files/file145.bnk \
-	fm_banks/bnk_files/file159.bnk \
-	fm_banks/bnk_files/file167.bnk \
-	fm_banks/bnk_files/file168.bnk \
-	fm_banks/bnk_files/hamdrum.bnk \
-	fm_banks/bnk_files/hammelo.bnk \
-	fm_banks/bnk_files/intdrum.bnk \
-	fm_banks/bnk_files/intmelo.bnk \
-	fm_banks/bnk_files/melodic.bnk \
-	fm_banks/bnk_files/rickdrum.bnk \
-	fm_banks/bnk_files/rickmelo.bnk \
-	fm_banks/bnk_files/d2drum.bnk \
-	fm_banks/bnk_files/d2melo.bnk \
-	fm_banks/bnk_files/normdrum.bnk \
-	fm_banks/bnk_files/normmelo.bnk \
-	fm_banks/bnk_files/ssdrum.bnk \
-	fm_banks/bnk_files/ssmelo.bnk \
-	fm_banks/doom2/genmidi.htc \
-	fm_banks/doom2/genmidi.op2 \
-	fm_banks/doom2/default.op2 \
-	fm_banks/ibk_files/game.ibk \
-	fm_banks/ibk_files/mt_fm.ibk \
-	fm_banks/ibk_files/soccer-genmidi.ibk \
-	fm_banks/ibk_files/soccer-percs.ibk \
-	fm_banks/ibk_files/nitemare_3d.ibk \
-	fm_banks/op3_files/fat2.op3 \
-	fm_banks/op3_files/fat4.op3 \
-	fm_banks/op3_files/jv_2op.op3 \
-	fm_banks/op3_files/wallace.op3 \
-	fm_banks/opl_files/file12.opl \
-	fm_banks/opl_files/file13.opl \
-	fm_banks/opl_files/file15.opl \
-	fm_banks/opl_files/file16.opl \
-	fm_banks/opl_files/file17.opl \
-	fm_banks/opl_files/file19.opl \
-	fm_banks/opl_files/file20.opl \
-	fm_banks/opl_files/file21.opl \
-	fm_banks/opl_files/file23.opl \
-	fm_banks/opl_files/file24.opl \
-	fm_banks/opl_files/file25.opl \
-	fm_banks/opl_files/file26.opl \
-	fm_banks/opl_files/file27.opl \
-	fm_banks/opl_files/file29.opl \
-	fm_banks/opl_files/file30.opl \
-	fm_banks/opl_files/file31.opl \
-	fm_banks/opl_files/file32.opl \
-	fm_banks/opl_files/file34.opl \
-	fm_banks/opl_files/file35.opl \
-	fm_banks/opl_files/file36.opl \
-	fm_banks/opl_files/file37.opl \
-	fm_banks/opl_files/file41.opl \
-	fm_banks/opl_files/file42.opl \
-	fm_banks/opl_files/file47.opl \
-	fm_banks/opl_files/file48.opl \
-	fm_banks/opl_files/file49.opl \
-	fm_banks/opl_files/file50.opl \
-	fm_banks/opl_files/file53.opl \
-	fm_banks/opl_files/file54.opl \
-	fm_banks/opl_files/sample.ad \
-	fm_banks/opl_files/sample.opl \
-	fm_banks/opl_files/sc3.opl \
-	fm_banks/opl_files/simfarm.ad \
-	fm_banks/opl_files/simfarm.opl \
-	fm_banks/opl_files/warcraft.ad \
-	fm_banks/opl_files/nemesis.opl \
-	fm_banks/opl_files/nhlpa.opl \
-	fm_banks/tmb_files/d3dtimbr.tmb \
-	fm_banks/tmb_files/swtimbr.tmb \
-	fm_banks/raptor/genmidi.op2
-
-INSTALLPROGS=adlmidi
-
-all: directories libadlmidi.so gen_adldata dumpmiles dumpbank
-
-directories:
-	${MKDIR} obj
-	${MKDIR} bin
-
-libadlmidi.so: obj/adlmidi.o obj/adlmidi_load.o obj/adlmidi_midiplay.o obj/adlmidi_opl3.o obj/adlmidi_private.o obj/adlmidi_xmi2mid.o obj/adlmidi_mus2mid.o obj/nukedopl3.o obj/adldata.o
-	$(CXXLINK)  $^  $(DEBUG) -shared -o bin/$@  $(LDLIBS)
-
-obj/adlmidi.o: src/adlmidi.cpp src/adlmidi.h src/dbopl.h src/nukedopl3.h src/adldata.hh
-	$(CXX) $(CPPFLAGS) $<  $(DEBUG) -c -fPIC -o $@
-
-obj/adlmidi_load.o: src/adlmidi_load.cpp src/adlmidi_private.hpp src/adlmidi.h src/adldata.hh
-	$(CXX) $(CPPFLAGS) $<  $(DEBUG) -c -fPIC -o $@
-
-obj/adlmidi_midiplay.o: src/adlmidi_midiplay.cpp src/adlmidi_private.hpp src/adlmidi.h src/adldata.hh
-	$(CXX) $(CPPFLAGS) $<  $(DEBUG) -c -fPIC -o $@
-
-obj/adlmidi_opl3.o: src/adlmidi_opl3.cpp src/adlmidi_private.hpp src/adlmidi.h src/adldata.hh
-	$(CXX) $(CPPFLAGS) $<  $(DEBUG) -c -fPIC -o $@
-
-obj/adlmidi_private.o: src/adlmidi_private.cpp src/adlmidi_private.hpp src/adlmidi.h src/adldata.hh
-	$(CXX) $(CPPFLAGS) $<  $(DEBUG) -c -fPIC -o $@
-
-obj/dbopl.o: src/dbopl.cpp src/dbopl.h
-	$(CXX) $(CPPFLAGS) $<  $(DEBUG) -DADLMIDI_USE_DOSBOX_OPL -c -fPIC -o $@
-
-obj/nukedopl3.o: src/nukedopl3.c src/nukedopl3.h
-	$(CC) $(CFLAGS) $<  $(DEBUG)  -c -fPIC -o $@
-
-obj/adlmidi_xmi2mid.o: src/adlmidi_xmi2mid.c src/adlmidi_xmi2mid.h
-	$(CC) $(CFLAGS) $<  $(DEBUG)  -c -fPIC -o $@
-
-obj/adlmidi_mus2mid.o: src/adlmidi_mus2mid.c src/adlmidi_mus2mid.h
-	$(CC) $(CFLAGS) $<  $(DEBUG)  -c -fPIC -o $@
-
-obj/adldata.o: src/adldata.cpp src/adldata.hh
-	$(CXX) $(CPPFLAGS) $<  $(DEBUG)  -c -fPIC -o $@
-
-gen_adldata: obj/gen_adldata.o obj/measurer.o obj/nukedopl3.o obj/progs_cache.o obj/ini_processing.o
-	$(CXXLINK)  $^  $(DEBUG)  -o bin/$@  $(LDLIBS) -lpthread
-
-obj/gen_adldata.o: src/gen_adldata/gen_adldata.cc
-	$(CXX) $(CPPFLAGS) $<  $(DEBUG)  -c -o $@
-
-obj/measurer.o: src/gen_adldata/measurer.cpp src/nukedopl3.h
-	$(CXX) $(CPPFLAGS) $<  $(DEBUG)  -c -o $@
-
-obj/progs_cache.o: src/gen_adldata/progs_cache.cpp
-	$(CXX) $(CPPFLAGS) $<  $(DEBUG)  -c -o $@
-
-obj/ini_processing.o: src/gen_adldata/ini/ini_processing.cpp
-	$(CXX) $(CPPFLAGS) $<  $(DEBUG)  -c -o $@
-
-dumpmiles: obj/dumpmiles.o
-	$(CXXLINK)  $^  $(DEBUG)  -o bin/$@  $(LDLIBS)
-
-obj/dumpmiles.o: src/dumpmiles/dumpmiles.cc
-	$(CXX) $(CPPFLAGS) $<  $(DEBUG)  -c -o $@
-
-dumpbank: obj/dumpbank.o
-	$(CXXLINK)  $^  $(DEBUG)  -o bin/$@  $(LDLIBS)
-
-obj/dumpbank.o: src/dumpbank/dumpbank.cc
-	$(CXX) $(CPPFLAGS) $<  $(DEBUG)  -c -o $@
-
-.PHONY: clean
-
-clean:
-	${RM_F} obj bin
-
-include depfun.mak
-
diff --git a/_old_files/makediff.php b/_old_files/makediff.php
deleted file mode 100644
index 22a21c8..0000000
--- a/_old_files/makediff.php
+++ /dev/null
@@ -1,497 +0,0 @@
-<?php
-
-# This is Bisqwit's generic makediff.php, activated from depfun.mak.
-# The same program is used in many different projects to create
-# a diff file version history (patches).
-#
-# makediff.php version 3.0.6
-
-# Copyright (C) 2000,2002 Bisqwit (http://bisqwit.iki.fi/)
-
-# Syntax:
-
-# argv[1]: Newest archive if any
-# argv[2]: Archive directory if any
-# argv[3]: Disable /WWW/src/arch linking if set
-
-function ShellFix($s)
-{
-  return "'".str_replace("'", "'\''", $s)."'";
-}
-
-if(isset($REMOTE_ADDR))
-{
-  header('Content-type: text/plain');
-  readfile($PHP_SELF);
-  exit;
-}
-
-error_reporting(E_ALL & ~E_NOTICE);
-
-ob_implicit_flush(true);
-
-if(strlen($argv[2]))
-{
-  chdir($argv[2]);
-  echo "\tcd ", $argv[2], "\n";
-}
-
-function calcversion($versionstring)
-{
-  $k = '.'.str_replace('.', '..', $versionstring).'.';
-  $k = preg_replace('/([^0-9])([0-9][0-9a-z][0-9a-z][0-9a-z][^0-9a-z])/', '\1-\2', $k);
-  $k = preg_replace('/([^0-9])([0-9][0-9a-z][0-9a-z][^0-9a-z])/', '\1--\2', $k);
-  $k = preg_replace('/([^0-9])([0-9][0-9a-z][^0-9a-z])/', '\1---\2', $k);
-  $k = preg_replace('/([^0-9])([0-9][^0-9a-z])/', '\1----\2', $k);
-  $k = str_replace('.', '', $k);
-  $k = str_pad($k, 6*5, '-');
-  # Reverse:
-  #$k = strtr($k, '0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ',
-  #               '9876543210ZYXWVUTSRQPONMLKJIHGFEDCBAzyxwvutsrqponmlkjihgfedcba');
-  return $k;
-}
-
-
-$openfiles = Array();
-$archtmpdir = 'archives.tmp';
-$subtmpdir = 'subarch.tmp';
-$istmp=0;
-function GoTmp()
-{
-  global $istmp, $archtmpdir;
-  if($istmp)return;
-  $istmp=1;
-  if(@mkdir($archtmpdir, 0700))print "\tmkdir $archtmpdir\n";
-  print "\tcd $archtmpdir\n";
-  chdir($archtmpdir);
-}
-function IsInTmp() { global $istmp; return $istmp; }
-function UnGoTmp()
-{
-  global $istmp, $archtmpdir;
-  if(!$istmp)return;
-  $istmp=0;
-  print "\tcd ..\n";
-  chdir('..');
-}
-function Open($files, $keeplist=array())
-{
-  global $openfiles;
-  global $archtmpdir, $subtmpdir;
-
-  /* Open any of the given files */
-  foreach($files as $fn)
-  {
-    // If any of the files is already open, return true.
-    $puh = $openfiles[$fn];
-    if($puh) return $puh['dir'];
-  }
-
-  #echo count($openfiles), " files open now...\n";
-  if(count($openfiles) >= 2)
-  {
-    $oldest=''; $oldesttime=999999999;
-    foreach($openfiles as $fn => $puh)
-    {
-      $keep = 0;
-      foreach($keeplist as $keepfn) if($fn == $keepfn) { $keep=1; break; }
-      if($keep) continue;
-      if($puh['time'] < $oldesttime) { $oldesttime = $puh['time']; $oldest = $fn; }
-    }
-    if($oldest)
-    {
-      Close($oldest);
-    }
-  }
-  
-  $pick = '';
-  foreach($files as $fn)
-    if(preg_match('@\.tar\.gz$@', $fn))
-    {
-      $pick = $fn;
-      break;
-    }
-
-  if(!$pick)
-  {
-    reset($files);
-    list($dummy, $pick) = each($files);
-  }
-  
-  GoTmp();
-  
-  @mkdir($subtmpdir, 0700);
-  chdir($subtmpdir);
-  
-  if(preg_match('@\.tar\.gz$@', $pick))
-  {
-    print "\ttar xfz ../".shellfix($pick)."\n";
-    exec('tar xfz ../../'.shellfix($pick));
-  }
-  else
-  {
-    print "\tbzip2 -d < ../".shellfix($pick)."| tar xf -\n";
-    exec('bzip2 -d < ../../'.shellfix($pick).'| tar xf -');
-  }
-  $thisdir = exec('echo *');
-  exec('mv * ../');
-  chdir('..');
-
-  global $timeind;
-  $openfiles[$pick] = array('dir' => $thisdir, 'time' => ++$timeind);
-  
-  return $thisdir;
-}
-function Close($fn)
-{
-  global $openfiles;
-  global $archtmpdir;
-  
-  $puh = $openfiles[$fn];
-  if(!$puh) return;
-  
-  $prefix = IsInTmp() ? '' : $archtmpdir.'/';
-  
-  $cmd = 'rm -rf '.shellfix($prefix.$puh['dir']);
-  print "\t$cmd\n";
-  exec($cmd);
-  unset($openfiles[$fn]);
-}
-function CloseAll()
-{
-  global $openfiles;
-  global $archtmpdir;
-  
-  UnGoTmp();
-  
-  $openfiles = Array();
-  $cmd = 'rm -rf '.shellfix($archtmpdir);
-  print "\t$cmd\n";
-  exec($cmd);
-}
-function MakeDiff($dir1, $dir2, $patchname)
-{
-  GoTmp();
-  #print "## Building $patchname from $dir1 and $dir2\n";
-  #passthru('ls -al');
-  
-  /*
-    Before doing the diff, we should do the following:
-      - Remove all symlinks
-      - Remove all duplicate hardlinks
-  */
-  
-  /* Gather up inode numbers. */
-  
-  $data1 = FindInodes($dir1);
-  $data2 = FindInodes($dir2);
-  
-  $era1 = Array();
-  $era2 = Array();
-  
-  foreach($data1['if'] as $ino => $fils)
-  {
-    if(count($fils) > 1)
-    {
-      $bestcommoncount = 0;
-      $bestcommon = $fn;
-      $group2 = array();
-      foreach($fils as $fn)
-      {
-        $ino2 = $data2['fi'][$fn];
-        if(!isset($ino2))continue;
-        
-        $fils2 = $data2['if'][$ino2];
-        
-        $common = array_intersect($fils, $fils2);
-        if(count($common) > $bestcommoncount)
-        {
-          $bestcommoncount = count($common);
-          $bestcommon = $fn;
-          $group2 = $fils2;
-        }
-      }
-      $common = array_intersect($fils, $group2);
-      
-      // Leave one file so that diff works
-      reset($common);
-      list($dummy, $fn) = each($common);
-      unset($common[$dummy]);
-      
-      foreach($common as $fn)
-      {
-        $era1[] = $fn;
-        $era2[] = $fn;
-      }
-    }
-  }
-  
-  if(count($era1))
-  {
-    chdir($dir1); print "\tcd $dir1\n";
-    $cmd = 'rm -f';
-    foreach($era1 as $fn)$cmd .= ' '.shellfix($fn);
-    print "\t$cmd\n";
-    exec($cmd);
-    chdir('..'); print "\tcd ..\n";
-  }
-  if(count($era2))
-  {
-    chdir($dir2); print "\tcd $dir2\n";
-    $cmd = 'rm -f';
-    foreach($era1 as $fn)$cmd .= ' '.shellfix($fn);
-    print "\t$cmd\n";
-    exec($cmd);
-    chdir('..'); print "\tcd ..\n";
-  }
-  
-  $cmd = 'LC_ALL=C LANG=C diff -NaHudr '.shellfix($dir1) . ' ' . shellfix($dir2).' > '.shellfix($patchname);
-  print "\t$cmd\n";
-  exec($cmd);
-}
-function FindInodes($directory)
-{
-  for($try = 0; $try < 10; $try++)
-  {
-    $fp = @opendir($directory);
-    if($fp) break;
-    print "OPENDIR $directory failed (cwd=".getcwd()."), retrying\n";
-    sleep(1);
-  }
-  if($try == 10)
-  {
-    print "OPENDIR $directory failed (cwd=".getcwd().")!\n";
-    exit;
-  }
-  
-  $inofil = array();
-  $filino = array();
-  
-  while(($fn = readdir($fp)))
-  {
-    if($fn=='.' || $fn=='..')continue;
-    
-    if($directory != '.')
-      $fn = $directory.'/'.$fn;
-    
-    $st = stat($fn);
-    $ino = $st[0].':'.$st[1];
-    
-    $inofil[$ino][] = $fn;
-    $filino[$fn] = $ino;
-    
-    if(is_dir($fn))
-    {
-      $sub = FindInodes($fn);
-      $filino = $filino + $sub['fi'];
-      
-      foreach($sub['if'] as $ino => $fil)
-      {
-        $tgt = &$inofil[$ino];
-        if(is_array($tgt))
-          $tgt = array_merge($tgt, $fil);
-        else
-          $tgt = $fil;
-      }
-      unset($tgt);
-    }
-  }
-  closedir($fp);
-  return array('if' => $inofil, 'fi' => $filino);
-}
-function MakePatch($progname, $v1, $v2, $paks1, $paks2)
-{
-  // print "Make patch for $progname $v1 - $v2\n";
-  // Available packages for prog1: print_r($paks1);
-  // Available packages for prog2: print_r($paks2);
-  
-  $v1 = preg_replace('/(-----)*$/', '', $v1);
-  $v2 = preg_replace('/(-----)*$/', '', $v2);
-  
-  $v1string = preg_replace('/\.$/', '', preg_replace('|(.....)|e', '(str_replace("-","","$1"))."."', $v1));
-  $v2string = preg_replace('/\.$/', '', preg_replace('|(.....)|e', '(str_replace("-","","$1"))."."', $v2));
-  
-  $files1 = Array();
-  foreach($paks1 as $ext)
-    $files1[] = $progname . '-' . $v1string . '.' . $ext;
-
-  $files2 = Array();
-  foreach($paks2 as $ext)
-    $files2[] = $progname . '-' . $v2string . '.' . $ext;
-  
-  $keeplist = array_merge($files1, $files2);
-  $dir1 = Open($files1, $keeplist);
-  $dir2 = Open($files2, $keeplist);
-  
-  $patchname = "patch-$progname-$v1string-$v2string";
-  
-  MakeDiff($dir1, $dir2, $patchname);
-  
-  GoTmp();
-  
-  $cmd = "gzip -9 ".shellfix($patchname);
-  print "\t$cmd\n";
-  exec($cmd);
-  
-  $cmd = "gzip -d < ".shellfix($patchname). ".gz | bzip2 -9 > ".shellfix($patchname).".bz2";
-  print "\t$cmd\n";
-  exec($cmd);
-  
-  $cmd = "mv -f ".shellfix($patchname).".{gz,bz2} ../";
-  print "\t$cmd\n";
-  exec($cmd);
-  
-  UnGoTmp();
-
-  $cmd = "touch -r".shellfix($files2[0])." ".shellfix($patchname).".{gz,bz2}";
-  print "\t$cmd\n";
-  exec($cmd);
-
-  $cmd = "chown --reference ".shellfix($files2[0])." ".shellfix($patchname).".{gz,bz2}";
-  print "\t$cmd\n";
-  exec($cmd);
-
-  global $argv;
-  if(!$argv[3])
-  {
-    $cmd = 'ln -f '.shellfix($patchname).'.{gz,bz2} /WWW/src/arch/';
-    print "\t$cmd\n";
-    exec($cmd);
-  }
-}
-
-$progs = array();
-$fp = opendir('.');
-$f = array();
-while(($fn = readdir($fp)))
-{
-  if(preg_match('@\.sh\.(gz|bz2)$@', $fn))continue;
-  if(preg_match('@^patch-.*-[0-9].*-[0-9].*\...*@', $fn))
-  {
-    preg_match(
-      '/^patch-(.*(?:-opt)?)-([0-9][0-9.a-z-]*)-([0-9][0-9.a-z-]*)\.([a-z0-9]+)$/', $fn, $tab);
-    // tab[0] = fn
-    // tab[1] = progname
-    // tab[2] = old version
-    // tab[3] = new version
-    // tab[4] = compression type (gz, bz2)
-
-    $progname = $tab[1];
-    $version1 = calcversion($tab[2]);
-    $version2 = calcversion($tab[3]);
-    $archtype = $tab[4];
-
-    # print "patch prog {$tab[1]} vers1 {$tab[2]} vers2 {$tab[3]} comp {$tab[4]}\n";
-
-    $progs[$progname]['p'][$version1][$version2][$archtype] = $archtype;
-  }
-  else
-  {
-    preg_match('/(.*(?:-opt)?)-((?!-opt)[0-9][0-9.a-z-]*)\.(tar\.[a-z0-9]+|zip|rar)$/', $fn, $tab);
-    // tab[0] = fn
-    // tab[1] = progname
-    // tab[2] = version
-    // tab[3] = archive type (tar.gz, tar.bz2, zip, rar)
-    
-    #print "$fn:\n";
-    #print_r($tab);
-    
-    $progname = $tab[1];
-    $version  = calcversion($tab[2]);
-    $archtype = $tab[3];
-    
-    if($archtype != 'zip' && $archtype != 'rar')
-    {
-      # print "prog {$tab[1]} vers {$tab[2]} comp {$tab[3]}\n";
-      
-      $progs[$progname]['v'][$version][$archtype] = $archtype;
-    }
-  }
-}
-closedir($fp);
-
-$argv[1] = preg_replace('@^[^-]*(?:-opt)?-([0-9])@', '\1', $argv[1]);
-$wantversion = strlen($argv[1]) ? calcversion($argv[1]) : '';
-
-foreach($progs as $progname => $data)
-{
-  $versions = $data['v'];
-  ksort($versions);
-  
-  $wantpatches = Array();
-  
-  $verstabs = Array();
-  for($c=1; $c<=6; $c++)
-  {
-    foreach($versions as $version => $paks)
-    {
-      $k = substr($version, 0, $c*5);
-      $verstabs[$c][$k] = $k;
-    }
-    asort($verstabs[$c]);
-  }
-
-  $lastversio = '';
-  foreach($versions as $version => $paks)
-  {
-    if($lastversio)
-    {
-      $did = Array($lastversio => 1);
-      
-      $wantpatches[$lastversio][$version] = 1;
-      
-      for($c=1; $c<=5; ++$c)
-      {
-        $prev = '';
-        $k = substr($version, 0, $c*5);
-        
-        $test = str_pad($k, 5*6, '-');
-        if($test != $version
-        && isset($versions[$test])) continue;
-        foreach($verstabs[$c] as $k2)
-        {
-          if($k2 == $k)break;
-          $prev = $k2;
-        }
-        
-        if($prev)
-        {
-          $prev = str_pad($prev, 5*6, '-');
-          if(isset($versions[$prev]) && !$did[$prev])
-          {
-            $did[$prev] = 1;
-            
-            // Extra
-            $wantpatches[$prev][$version] = 1;
-          }
-        }
-      }
-    }
-    $lastversio = $version;
-  }
-  
-  foreach($wantpatches as $version1 => $v2tab)
-  {
-    foreach($v2tab as $version2 => $dummy)
-    {
-      if(strlen($wantversion))
-      {
-        if($version2 != $wantversion)
-        {
-          continue;
-        }
-      }
-      else if(isset($progs[$progname]['p'][$version1][$version2]))
-      {
-        continue;
-      }
-      
-      MakePatch($progname, $version1, $version2,
-                $versions[$version1],
-                $versions[$version2]);
-    }
-  }
-}
-print_r($thisdir);
-CloseAll();
-UnGoTmp();
diff --git a/_old_files/midiplay.bas b/_old_files/midiplay.bas
deleted file mode 100644
index 2aa1324..0000000
--- a/_old_files/midiplay.bas
+++ /dev/null
@@ -1,590 +0,0 @@
-0 REM MIDI PLAYER EXAMPLE PROGRAM COPYRIGHT (C) 2010 JOEL YLILUOMA
-1 DEFINT A-Z: OPTION BASE 0: KEY OFF:   REM http://iki.fi/bisqwit/
-
-2 DIM adl(180, 11), chins(17), chpan(17), chpit(17)
-3 FOR i = 0 TO 180: FOR x = 0 TO 11: READ adl(i, x): NEXT x, i
-4 GOTO 100 ' Begin program
-
-5 'Set up OPL parameters (In: c = channel (0..17))
-6 'Out: p=I/O port, q = per-OPL channel (0..8), o=operator offset
-7 p = &H388 + 2 * (c\9): q = c MOD 9: o = (q MOD 3) + 8 * (q\3): RETURN
-
-8 'OPL_NoteOff(c): c=channel. CHANGES: q,p,o
-9 GOSUB 5: OUT p, &HB0 + q: OUT p+1, chpit(c) AND &HDF: RETURN
-
-10 'OPL_NoteOn(c,h#): c=channel,h#=hertz (0..131071). CHANGES: q,p,o,x
-11 GOSUB 5
-12 x = &H2000: WHILE h# >= 1023.5: h# = h#/2: x=x+&H400: WEND 'Calculate octave
-13 x = x + CINT(h#)
-14 OUT p, &HA0 + q: OUT p+1, x AND 255: x = x \ 256
-15 OUT p, &HB0 + q: OUT p+1, x: chpit(c) = x: RETURN
-
-16 'Technically, AdLib requires some delay between consecutive OUT commands.
-17 'However, BASIC is slow enough, that this is not an issue really.
-18 'The paradigm "OUT p,index: OUT p+1,value" works perfectly.
-
-20 'OPL_Touch(c,v): c=channel, v=volume. CHANGES: q,p,o,i,v
-21 'The formula below: SOLVE(V=127*127 * 2^( (A-63) / 8), A)
-22 IF v < 72 THEN v = 0 ELSE v = LOG(v) * 11.541561# - 48.818955#
-25 'OPL_Touch_Real(c,v): Same as OPL_Touch, except takes logarithmic volume.
-26 GOSUB 5: i = chins(c)
-27 OUT p, &H40+o: q = adl(i, 2): GOSUB 29
-28 OUT p, &H43+o: q = adl(i, 3)
-29 OUT p+1, (q OR 63) - v + ((q AND 63) * v) \ 63: RETURN
-
-30 'OPL_Patch(c): c=channel. CHANGES: q,p,o,x,i
-31 GOSUB 5: i = chins(c): q = p+1
-32 FOR x = 0 TO 1
-33  OUT p, &H20+o+x*3: OUT q, adl(i, 0+x)
-34  OUT p, &H60+o+x*3: OUT q, adl(i, 4+x)
-35  OUT p, &H80+o+x*3: OUT q, adl(i, 6+x)
-36  OUT p, &HE0+o+x*3: OUT q, adl(i, 8+x)
-37 NEXT: RETURN
-
-38 'OPL_Pan(c): c=channel. CHANGES: q,p,o
-39 GOSUB 5: OUT p, &HC0+q: OUT p+1, adl(chins(c),10)-chpan(c): RETURN
-
-40 'OPL_Reset(). CHANGES: c,q,p,o,x,y,v,i
-41 'Detect OPL3 (send pulses to timer, opl3 enable register)
-42 c=0: GOSUB 5: FOR y = 3 TO 4: OUT p, 4: OUT p+1, y*32: NEXT: ?INP(p)
-43 c=9: GOSUB 5: FOR y = 0 TO 2: OUT p, 5: OUT p+1, y AND 1: NEXT
-44 'Reset OPL3 (turn off all notes, set vital settings)
-45 c=0: GOSUB 5: OUT p, 1:  OUT p+1, 32 'Enable wave
-46 c=0: GOSUB 5: OUT p,&HBD:OUT p+1, 0  'Set melodic mode
-47 c=9: GOSUB 5: OUT p, 5:  OUT p+1, 1  'Enable OPL3
-48 c=9: GOSUB 5: OUT p, 4:  OUT p+1, 0  'Select mode 0 (also try 63 for fun!)
-50 'OPL_Silence(): Silence all OPL channels. CHANGES q,p,o,v,c,i
-51 v = 0: FOR c = 0 TO 17: GOSUB 8: GOSUB 25: NEXT: RETURN
-
-70 'ReadString(): Read N bytes from file. Input: x. Output: s$. CHANGES x
-71 s$ = "": WHILE x > 0: x = x - 1: GET #1: s$ = s$ + b$: WEND: RETURN
-
-75 'ReadVarLen(): Read variable length int from file. Output: x#. CHANGES x
-76 x# = 0
-77 GET #1: x = ASC(b$): x# = x# * 128 + (x AND 127): IF x >= 128 THEN 77
-78 RETURN
-
-80 'ConvertInteger(): Parses s$ as big-endian integer, stores to x#. CHANGES x
-81 x# = 0: FOR x=1 TO LEN(s$): x# = x# * 256 + ASC(MID$(s$, x, 1)): NEXT: RETURN
-82 'The reason why # (DOUBLE) is used to store integer values
-83 'is that GW-BASIC has only one integer type: INTEGER.
-84 'It supports values in the range -32768..+32737. Making it unsuitable
-85 'for storing values such as delta-times and track lengths, both of which
-86 'are often greater than +32767 in common MIDI files. QuickBASIC supports
-87 'the LONG datatype instead, but I was aiming for GW-BASIC compatibility
-88 'in order to utilize my cool syntax highlighter for the majority
-89 'of the duration of demonstrating this program on Youtube. :)
-
-94 'Ethical subroutine
-95 GOTO 97
-96 KILL filename$
-97 RETURN
-
-100 '*** MAIN MIDI PLAYER PROGRAM ***
-101 'Information about each track:
-102 DIM tkPtr%(100), tkDelay#(100), tkStatus(100), playwait#
-103 'The same, but for loop-beginning:
-104 DIM loPtr%(100), loDelay#(100), loStatus(100), loopwait#
-105 'The same, but cached just in case loop-beginning must be written:
-106 DIM rbPtr%(100), rbDelay#(100), rbStatus(100)
-
-109 'Persistent settings for each MIDI channel.
-110 DIM ChPatch(15), ChBend#(15), ChVolume(15), ChPanning(15), ChVibrato(15)
-
-120 'For each active note, we need the following:
-121 '    Original note number (ORIGINAL, not simulated)
-122 '       Keyoff      (Search Key)
-123 '       Aftertouch  (Search Key)
-124 '    Simulated note number
-125 '       Keyon -> OPL_NoteOn
-126 '       Bend  -> OPL_NoteOn
-127 '    Keyon/touch pressure
-128 '       Ctrl:Volume
-129 '    Adlib channel number
-130 '       All of above
-131 '    MIDI channel (multi search key)
-132 '       Bend
-133 '       Ctrl:Volume
-134 '       Ctrl:Pan
-140 DIM ActCount(15)      'number of active notes on each midi channel
-141 DIM ActTone(15,127)   'orignotenumber -> simulated notenumber
-142 DIM ActAdlChn(15,127) 'orignotenumber -> adlib channel
-143 DIM ActVol(15,127)    'orignotenumber -> pressure
-144 DIM ActRev(15,127)    'orignotenumber -> activeindex (index to ActList)
-145 DIM ActList(15,99)    'activeindex -> orignotenumber (index to ActVol etc)
-
-146 DIM chon(17),chage#(17)'adlchannel -> is_on,age (for channel allocation)
-148 DIM chm(17),cha(17)    'adlchannel -> midichn,activeindex (for collisions)
-149 DIM chx(17),chc(17)    'adlchannel -> x coordinate, color (for graphics)
-
-160 filename$ = "chmmr.mid" '<- FILENAME OF THE MIDI TO BE PLAYED
-161 GOSUB 40  ' Reset AdLib
-162 GOSUB 40  ' ...twice (just in case someone misprogrammed OPL3 previously)
-163 PLAYmode$  = "T255P64"
-164 PLAYmode%  = 255 * 64 'Event tick frequency
-165 PLAYbuflen = 2        'Number of events to keep buffered
-166 COLOR 8: CLS : txtline = 2: PRINT "Press Q to quit; Space to pause"
-169 GOSUB 200 ' Load and play MIDI file
-
-170 'Begin main program (this simply monitors the playing status)
-171 'Beware that the timer routine accesses a lot of global variables.
-172 paused = 0
-173 hlt(0) = &HCBF4' HLT; RETF.
-174   hlt = VARPTR(hlt(0))
-175   CALL hlt
-176   ' ^This subroutine saves power. It also makes DOSBox faster.
-177   ' However, QuickBASIC has a different syntax for calling ASM
-178   ' subroutines, so the line 175 will have to be changed when
-179   ' porting to QuickBASIC. Disable it, or try this (qb /Lqb.qlb):
-180   'DEF SEG = VARSEG(hlt(0)): CALL ABSOLUTE(hlt)
-
-182   y$ = INKEY$
-183   IF y$ <> " " THEN 186
-184   paused = 1 - paused
-185   IF paused THEN ? "Pause": PLAY STOP ELSE ? "Ok": PLAY ON
-186 IF y$ <> "q" AND y$ <> CHR$(27) AND y$ <> CHR$(3) THEN 174
-190 PLAY OFF: PRINT "End!": GOSUB 50: KEY ON: END
-
-200 'Subroutine: Load MIDI file
-210 OPEN filename$ FOR RANDOM AS #1 LEN = 1: FIELD #1, 1 AS b$  'Open file
-
-211 'QuickBASIC has BINARY access mode, which allows to use INPUT$() rather
-212 'than the silly fixed-size GET command, but GW-BASIC does not support
-213 'BINARY, so we use RANDOM here. The difference between BINARY and INPUT
-214 'is that INPUT chokes on EOF characters and translates CRLFs, making it
-215 'unsuitable for working with MIDI files.
-
-220 x = 4: GOSUB 70: IF s$ <> "MThd" THEN ERROR 13'Invalid type file
-230 x = 4: GOSUB 70: GOSUB 80: IF x# <> 6 THEN ERROR 13
-231 x = 2: GOSUB 70: GOSUB 80: Fmt        = x#
-232 x = 2: GOSUB 70: GOSUB 80: TrackCount = x#: IF TrackCount>100 THEN ERROR 6
-233 x = 2: GOSUB 70: GOSUB 80: DeltaTicks = x#
-234 InvDeltaTicks# = PLAYmode% / (240000000# * DeltaTicks)
-240 Tempo# = 1000000# * InvDeltaTicks#
-241 bendsense# = 2 / 8192#
-250 FOR tk = 1 TO TrackCount
-251   x = 4: GOSUB 70: IF s$ <> "MTrk" THEN ERROR 13'Invalid type file
-252   x = 4: GOSUB 70: GOSUB 80: TrackLength% = x#: y% = LOC(1)
-253   GOSUB 75: tkDelay#(tk) = x# 'Read next event time
-254   tkPtr%(tk) = LOC(1)         'Save first event file position
-255   GET #1, y% + TrackLength%   'Skip to beginning of next track header
-270 NEXT
-275 FOR a = 0 TO 15: ChVolume(a) = 127: NEXT
-281 PLAY ON: ON PLAY(PLAYbuflen) GOSUB 300 'Set up periodic event handler
-282 began = 0: loopStart = 1: playwait# = 0: PLAY "MLMB"
-
-300 'Subroutine: Timer callback. Called when the PLAY buffer is exhausted.
-301 IF began THEN playwait# = playwait# - 1#
-302 'For each track where delay=0, parse events and read new delay.
-303 WHILE playwait# < .5#: GOSUB 310: WEND
-304 'Repopulate the PLAY buffer
-305 WHILE PLAY(0) < PLAYbuflen: PLAY PLAYmode$: WEND: RETURN
-
-310 'Subroutine: Process events on any track that is due
-311 FOR tk = 1 TO TrackCount
-312   rbPtr%(tk)   = tkPtr%(tk)
-313   rbDelay#(tk) = tkDelay#(tk)
-314   rbStatus(tk) = tkStatus(tk)
-315   IF tkStatus(tk) < 0 OR tkDelay#(tk) > 0 THEN 319
-316   GOSUB 350                                  'Handle event
-317   GOSUB 75: tkDelay#(tk) = tkDelay#(tk) + x# 'Read next event time
-318   tkPtr%(tk) = LOC(1)                        'Save modified file position
-319 NEXT
-320 IF loopStart = 0 THEN 338
-321   'Save loop begin
-322   FOR tk = 1 TO TrackCount
-323     loPtr%(tk)   = rbPtr%(tk)
-324     loDelay#(tk) = rbDelay#(tk)
-325     loStatus(tk) = rbStatus(tk)
-326   NEXT
-327   loopwait# = playwait#
-328   loopStart = 0
-329   GOTO 338
-330   'Return to loop beginning
-331   FOR tk = 1 TO TrackCount
-332     tkPtr%(tk)   = loPtr%(tk)
-333     tkDelay#(tk) = loDelay#(tk)
-334     tkStatus(tk) = loStatus(tk)
-335   NEXT
-336   loopEnd   = 0
-337   playwait# = loopwait#
-338 'Find shortest delay from all tracks
-339 nd# = -1
-340 FOR tk = 1 TO TrackCount
-341   IF tkStatus(tk) < 0 THEN 343
-342   IF nd# = -1 OR tkDelay#(tk) < nd# THEN nd# = tkDelay#(tk)
-343 NEXT
-344 'Schedule the next playevent to be processed after that delay
-345 FOR tk = 1 TO TrackCount: tkDelay#(tk) = tkDelay#(tk) - nd#: NEXT
-346 t# = nd# * Tempo#: IF began THEN playwait# = playwait# + t#
-347 FOR a = 0 TO 17: chage#(a) = chage#(a) + t#: NEXT
-348 IF t# < 0 OR loopEnd THEN 330 ELSE RETURN 'Loop or done
-
-350 'Subroutine: Read an event from track, and read next delay. Input: tk
-
-351 'Note that we continuously access the disk file during playback.
-352 'This is perfectly fine when we are running on a modern OS, possibly
-353 'under the encapsulation of DOSBox, but if you're running this on
-354 'vanilla MS-DOS without e.g. SMARTDRV, you are going to find this
-355 'program very unsuitable for your MIDI playing needs, for the disk
-356 'drive would probably make more noise than the soundcard does.
-357 'We cannot cache tracks because of memory constraints in GW-BASIC.
-358 'In QBASIC, we could do better, but it would be cumbersome to implement.
-
-359 GET #1, tkPtr%(tk) + 1: b = ASC(b$)
-360 IF b < &HF0 THEN 380
-361 'Subroutine for Fx special events
-362 '? tk;":";HEX$(b);" at $";hex$(LOC(1))
-363 IF b = &HF7 OR b = &HF0 THEN 76'SysEx. Ignore Varlen.
-364 IF b = &HF3 THEN GET #1: RETURN
-365 IF b = &HF2 THEN GET #1: GET #1: RETURN
-370 'Subroutine for special event FF
-371 GET #1: evtype = ASC(b$): GOSUB 75: x = x#: GOSUB 70
-372 IF evtype = &H2F THEN tkStatus(tk) = -1
-373 IF evtype = &H51 THEN GOSUB 80: Tempo# = x# * InvDeltaTicks#
-374 IF evtype = 6 AND s$ = "loopStart" THEN loopStart = 1
-375 IF evtype = 6 AND s$ = "loopEnd"   THEN loopEnd   = 1
-376 IF evtype < 1 OR evtype > 6 THEN RETURN
-377 txtline = 3 + (txtline - 2) MOD 20
-378 LOCATE txtline, 1: COLOR 8: PRINT "Meta"; evtype; ": "; s$: RETURN
-
-380 'Subroutine for any normal event (80..EF)
-381 IF b < 128 THEN b = tkStatus(tk) OR &H80: GET #1, tkPtr%(tk)
-382 MidCh = b AND 15: tkStatus(tk) = b
-383 '? tk;":";HEX$(b);" at $";hex$(LOC(1))
-384 ON b\16 - 7 GOTO 400,420,460,470,490,492,495  'Choose event handler
-
-400 'Event: 8x Note Off
-401 GET #1: note = ASC(b$): GET #1': vol=ASC(b$)
-402 ChBend#(MidCh) = 0
-403 n = ActRev(MidCh,note): IF n = 0 THEN RETURN
-404 m = MidCh: GOTO 600 'deallocate active note, and return
-
-420 'Event: 9x Note On
-421 GET #1: note = ASC(b$): GET #1: vol = ASC(b$)
-422 IF vol = 0 THEN 402' Sometimes noteoffs are optimized as 0-vol noteons
-423 IF ActRev(MidCh,note) THEN RETURN 'Ignore repeat notes w/o keyoffs
-424 'Determine the instrument and the note value (tone)
-425 tone = note: i = ChPatch(MidCh)
-426 IF MidCh = 9 THEN i = 128+note-35: tone = adl(i,11) 'Translate percussion
-427 '(MIDI channel 9 always plays percussion and ignores the patch number)
-429 'Allocate AdLib channel (the physical sound channel for the note)
-430 bs# = -9: c = -1
-431 FOR a = 0 TO 17
-432  s# = chage#(a)
-433  IF chon(a)  = 0 THEN s# = s# + 3d3  ' Empty channel = privileged
-434  IF chins(a) = i THEN s# = s# + .2#  ' Same instrument = good
-435  IF i<128 AND chins(a)>127 THEN s# = s#*2+9'Percussion is inferior to melody
-436  IF s# > bs# THEN bs# = s#: c = a  ' Best candidate wins
-437 NEXT
-438 IF chon(c) THEN m=chm(c): n=cha(c): GOSUB 600  'Collision: Kill old note
-439 chon(c) = 1: chins(c) = i: chage#(c) = 0: began = 1
-440 'Allocate active note for MIDI channel
-441 '"Active note" helps dealing with further events affecting this note.
-442 n = ActCount(MidCh) + 1
-443 ActList(MidCh, n)     = note
-444 ActRev(MidCh,note)    = n
-445 ActCount(MidCh)       = n
-449 'Record info about this note
-450 ActTone(MidCh,note)   = tone
-451 ActAdlChn(MidCh,note) = c
-452 ActVol(MidCh,note)    = vol
-453 chm(c) = MidCh: cha(c) = n ' Save this note's origin so collision works.
-454 GOSUB 30 ' OPL_Patch
-455 GOSUB 530' OPL_Pan with ChPanning
-456 GOSUB 540' OPL_Touch with ChVolume
-457 chx(c) = 1 + (tone+63)MOD 80: chc(c) = 9+(chins(c)MOD 6)
-458 LOCATE 20-c, chx(c): COLOR chc(c): PRINT "#";
-459 GOTO 520 ' OPL_NoteOn with ChBend, and return
-
-460 'Event: Ax Note touch
-461 GET #1: note = ASC(b$): GET #1: vol = ASC(b$)
-462 IF ActRev(MidCh,note) = 0 THEN RETURN'Ignore touch if note is not active
-463 c = ActAdlChn(MidCh,note)
-464 LOCATE 20-c, chx(c): COLOR chc(c): PRINT "&";
-465 ActVol(MidCh,note) = vol
-466 GOTO 540 'update note volume, and return
-
-470 'Event: Bx Controller change
-471 GET #1: ctrlno = ASC(b$): GET #1: value = ASC(b$)
-472 IF ctrlno =   1 THEN ChVibrato(MidCh) = value 'TODO: handle
-473 IF ctrlno =   6 THEN bendsense# = value / 8192#
-474 IF ctrlno =   7 THEN ChVolume(MidCh) = value: mop = 2: GOTO 500
-475 IF ctrlno =  10 THEN 482 'Pan
-476 IF ctrlno = 121 THEN 486 'Reset controllers
-477 IF ctrlno = 123 THEN mop=5: GOTO 500 'All notes off on channel
-478 'Other ctrls worth considering:
-479 '  0 = choose bank (bank+patch identifies the instrument)
-480 ' 64 = sustain pedal (when used, noteoff does not produce an adlib keyoff)
-481 RETURN
-482 'Ctrl 10: Alter the panning of the channel:
-483 p = 0: IF value < 48 THEN p = 32 ELSE IF value > 79 THEN p = 16
-484 ChPanning(MidCh) = p
-485 mop=4: GOTO 500
-486 'Ctrl 121: Reset all controllers to their default values.
-487 ChBend#(MidCh)=0: ChVibrato(MidCh)=0: ChPan(MidCh)=0
-488 mop=1: GOSUB 500: mop=2: GOSUB 500: mop=4: GOTO 500
-
-490 'Event: Cx Patch change
-491 GET #1: ChPatch(MidCh) = ASC(b$): RETURN
-
-492 'Event: Dx Channel after-touch
-493 GET #1: vol = ASC(b$): mop=3:GOTO 500 'TODO: Verify, is this correct action?
-
-495 'Event: Ex Wheel/bend
-496 GET #1: a = ASC(b$): GET #1
-497 ChBend#(MidCh) = (a + ASC(b$) * 128 - 8192) * bendsense#
-498 mop = 1: GOTO 500 'Update pitches, and return
-
-500 'Subroutine: Update all live notes. Input: MidCh,mop
-501 'Update when mop: 1=pitches; 2=volumes; 3=pressures; 4=pans, 5=off
-502 x1 = ActCount(MidCh)
-503 FOR a = 1 TO x1
-504   note = ActList(MidCh, a)
-505   c    = ActAdlChn(MidCh,note): ON mop GOSUB 508,509,510,530,511
-506 NEXT
-507 RETURN
-508 tone = ActTone(MidCh,note): GOTO 520
-509 vol  = ActVol(MidCh, note): GOTO 540
-510 ActVol(MidCh,note) = vol: GOTO 540
-511 m = MidCh: n = a: GOTO 600
-
-520 'Subroutine: Update note pitch. Input: c,MidCh,tone. CHANGES q,p,o,x,h#
-521 ' 907*2^(n/12) * (8363) / 44100
-522 h# = 172.00093# * EXP(.057762265#*(tone+ChBend#(MidCh))): GOTO 10'OPL_NoteOn
-
-530 'Subroutine: Update note pan. Input: c,MidCh
-531 chpan(c) = ChPanning(MidCh): GOTO 38 'OPL_Pan
-
-540 'Subroutine: Update note volume. Input: c,MidCh,vol. CHANGES q,p,o,v
-541 v = vol * ChVolume(MidCh): GOTO 20 'OPL_Touch
-
-600 'Subroutine: Deallocate active note (m = MidCh, n = index). CHANGES c,x,q
-601 'Uses m instead of MidCh because called also from alloc-collision code.
-602 x = ActCount(m)    ' Find how many active notes
-603 q = ActList(m,n)   ' q=note to be deactivated
-604 ActRev(m,q) = 0    ' that note is no more
-605 ActCount(m) = x-1  ' The list is now shorter
-606 c = ActAdlChn(m,q) ' But wait, which adlib channel was it on, again?
-607 chon(c)=0: chage#(c)=0: GOSUB 8'OPL_NoteOff
-608 LOCATE 20-c, chx(c): COLOR 1: PRINT ".";
-610 IF n = x THEN RETURN' Did we delete the last note?
-611 q = ActList(m,x)    ' q = last note in list
-612 ActList(m,n) = q    ' move into the deleted slot
-613 ActRev(m,q)  = n
-614 cha(ActAdlChn(m,q)) = n
-615 RETURN
-
-760 'This FM Instrument Data comes from Miles Sound System, as used
-761 'in the following PC games: Star Control III and Asterix, under
-762 'the name AIL (Audio Interface Library). Today, AIL has been
-763 'released as "open-source freeware" under the name Miles Sound System.
-764 'AIL was used in more than fifty PC games, but so far, I have found
-765 'this particular set of General MIDI FM patches only in SC3 and Asterix.
-766 'Other games using AIL used different sets of FM patches. There is no
-767 'particular reason for preferring this patch set, and in fact, the
-768 'descendant of this program, ADLMIDI, http://iki.fi/source/adlmidi.html ,
-769 'features a large set of different FM patch sets to choose from.
-
-773 'In the Youtube video, I enter this huge blob of DATA lines very quickly
-774 'by using a preprogrammed input TSR, "inputter", which I made just for
-775 'this purpose.
-776 'It inputs the inline command "COLOR 0,4", turning text into black on red,
-777 'and then starts entering DATA lines in an arbitrary geometrical fashion.
-778 'After inputting, the text color is reset to normal with "COLOR 7,0".
-779 'Of course, the whole time, the poor syntax highlighter TSR (synhili)
-780 'does its best to make sense of whatever is being displayed on the screen,
-781 'causing the text to stay red only for a short while, whereever the cursor
-782 'was last. The resulting effect looks very cool, and most importantly,
-783 'the long sequence of DATA gets input in a non-boring manner.
-
-790 'The data bytes are:
-791 ' [0,1] AM/VIB/EG/KSR/Multiple bits for carrier and modulator respectively
-792 ' [2,3] KSL/Attenuation settings    for carrier and modulator respectively
-793 ' [4,5] Attack and decay rates      for carrier and modulator respectively
-794 ' [6,7] Sustain and release rates   for carrier and modulator respectively
-795 ' [8,9] Wave select settings        for carrier and modulator respectively
-796 ' [10]  Feedback/connection bits    for the channel (also stereo/pan bits)
-797 ' [11]  For percussive instruments (GP35..GP87), the tone to play
-
-800 DATA   1,  1,143,  6,242,242,244,247,0,0, 56,  0: REM GM1:AcouGrandPiano
-801 DATA   1,  1, 75,  0,242,242,244,247,0,0, 56,  0: REM GM2:BrightAcouGrand
-802 DATA   1,  1, 73,  0,242,242,244,246,0,0, 56,  0: REM GM3:ElecGrandPiano
-803 DATA 129, 65, 18,  0,242,242,247,247,0,0, 54,  0: REM GM4:Honky-tonkPiano
-804 DATA   1,  1, 87,  0,241,242,247,247,0,0, 48,  0: REM GM5:Rhodes Piano
-805 DATA   1,  1,147,  0,241,242,247,247,0,0, 48,  0: REM GM6:Chorused Piano
-806 DATA   1, 22,128, 14,161,242,242,245,0,0, 56,  0: REM GM7:Harpsichord
-807 DATA   1,  1,146,  0,194,194,248,248,0,0, 58,  0: REM GM8:Clavinet
-808 DATA  12,129, 92,  0,246,243,244,245,0,0, 48,  0: REM GM9:Celesta
-809 DATA   7, 17,151,128,243,242,242,241,0,0, 50,  0: REM GM10:Glockenspiel
-810 DATA  23,  1, 33,  0, 84,244,244,244,0,0, 50,  0: REM GM11:Music box
-811 DATA 152,129, 98,  0,243,242,246,246,0,0, 48,  0: REM GM12:Vibraphone
-812 DATA  24,  1, 35,  0,246,231,246,247,0,0, 48,  0: REM GM13:Marimba
-813 DATA  21,  1,145,  0,246,246,246,246,0,0, 52,  0: REM GM14:Xylophone
-814 DATA  69,129, 89,128,211,163,243,243,0,0, 60,  0: REM GM15:Tubular Bells
-815 DATA   3,129, 73,128,117,181,245,245,1,0, 52,  0: REM GM16:Dulcimer
-816 DATA 113, 49,146,  0,246,241, 20,  7,0,0, 50,  0: REM GM17:Hammond Organ
-817 DATA 114, 48, 20,  0,199,199, 88,  8,0,0, 50,  0: REM GM18:Percussive Organ
-818 DATA 112,177, 68,  0,170,138, 24,  8,0,0, 52,  0: REM GM19:Rock Organ
-819 DATA  35,177,147,  0,151, 85, 35, 20,1,0, 52,  0: REM GM20:Church Organ
-820 DATA  97,177, 19,128,151, 85,  4,  4,1,0, 48,  0: REM GM21:Reed Organ
-821 DATA  36,177, 72,  0,152, 70, 42, 26,1,0, 60,  0: REM GM22:Accordion
-822 DATA  97, 33, 19,  0,145, 97,  6,  7,1,0, 58,  0: REM GM23:Harmonica
-823 DATA  33,161, 19,137,113, 97,  6,  7,0,0, 54,  0: REM GM24:Tango Accordion
-824 DATA   2, 65,156,128,243,243,148,200,1,0, 60,  0: REM GM25:Acoustic Guitar1
-825 DATA   3, 17, 84,  0,243,241,154,231,1,0, 60,  0: REM GM26:Acoustic Guitar2
-826 DATA  35, 33, 95,  0,241,242, 58,248,0,0, 48,  0: REM GM27:Electric Guitar1
-827 DATA   3, 33,135,128,246,243, 34,248,1,0, 54,  0: REM GM28:Electric Guitar2
-828 DATA   3, 33, 71,  0,249,246, 84, 58,0,0, 48,  0: REM GM29:Electric Guitar3
-829 DATA  35, 33, 74,  5,145,132, 65, 25,1,0, 56,  0: REM GM30:Overdrive Guitar
-830 DATA  35, 33, 74,  0,149,148, 25, 25,1,0, 56,  0: REM GM31:Distorton Guitar
-831 DATA   9,132,161,128, 32,209, 79,248,0,0, 56,  0: REM GM32:Guitar Harmonics
-832 DATA  33,162, 30,  0,148,195,  6,166,0,0, 50,  0: REM GM33:Acoustic Bass
-833 DATA  49, 49, 18,  0,241,241, 40, 24,0,0, 58,  0: REM GM34:Electric Bass 1
-834 DATA  49, 49,141,  0,241,241,232,120,0,0, 58,  0: REM GM35:Electric Bass 2
-835 DATA  49, 50, 91,  0, 81,113, 40, 72,0,0, 60,  0: REM GM36:Fretless Bass
-836 DATA   1, 33,139, 64,161,242,154,223,0,0, 56,  0: REM GM37:Slap Bass 1
-837 DATA  33, 33,139,  8,162,161, 22,223,0,0, 56,  0: REM GM38:Slap Bass 2
-838 DATA  49, 49,139,  0,244,241,232,120,0,0, 58,  0: REM GM39:Synth Bass 1
-839 DATA  49, 49, 18,  0,241,241, 40, 24,0,0, 58,  0: REM GM40:Synth Bass 2
-840 DATA  49, 33, 21,  0,221, 86, 19, 38,1,0, 56,  0: REM GM41:Violin
-841 DATA  49, 33, 22,  0,221,102, 19,  6,1,0, 56,  0: REM GM42:Viola
-842 DATA 113, 49, 73,  0,209, 97, 28, 12,1,0, 56,  0: REM GM43:Cello
-843 DATA  33, 35, 77,128,113,114, 18,  6,1,0, 50,  0: REM GM44:Contrabass
-844 DATA 241,225, 64,  0,241,111, 33, 22,1,0, 50,  0: REM GM45:Tremulo Strings
-845 DATA   2,  1, 26,128,245,133,117, 53,1,0, 48,  0: REM GM46:Pizzicato String
-846 DATA   2,  1, 29,128,245,243,117,244,1,0, 48,  0: REM GM47:Orchestral Harp
-847 DATA  16, 17, 65,  0,245,242,  5,195,1,0, 50,  0: REM GM48:Timpany
-848 DATA  33,162,155,  1,177,114, 37,  8,1,0, 62,  0: REM GM49:String Ensemble1
-849 DATA 161, 33,152,  0,127, 63,  3,  7,1,1, 48,  0: REM GM50:String Ensemble2
-850 DATA 161, 97,147,  0,193, 79, 18,  5,0,0, 58,  0: REM GM51:Synth Strings 1
-851 DATA  33, 97, 24,  0,193, 79, 34,  5,0,0, 60,  0: REM GM52:SynthStrings 2
-852 DATA  49,114, 91,131,244,138, 21,  5,0,0, 48,  0: REM GM53:Choir Aahs
-853 DATA 161, 97,144,  0,116,113, 57,103,0,0, 48,  0: REM GM54:Voice Oohs
-854 DATA 113,114, 87,  0, 84,122,  5,  5,0,0, 60,  0: REM GM55:Synth Voice
-855 DATA 144, 65,  0,  0, 84,165, 99, 69,0,0, 56,  0: REM GM56:Orchestra Hit
-856 DATA  33, 33,146,  1,133,143, 23,  9,0,0, 60,  0: REM GM57:Trumpet
-857 DATA  33, 33,148,  5,117,143, 23,  9,0,0, 60,  0: REM GM58:Trombone
-858 DATA  33, 97,148,  0,118,130, 21, 55,0,0, 60,  0: REM GM59:Tuba
-859 DATA  49, 33, 67,  0,158, 98, 23, 44,1,1, 50,  0: REM GM60:Muted Trumpet
-860 DATA  33, 33,155,  0, 97,127,106, 10,0,0, 50,  0: REM GM61:French Horn
-861 DATA  97, 34,138,  6,117,116, 31, 15,0,0, 56,  0: REM GM62:Brass Section
-862 DATA 161, 33,134,131,114,113, 85, 24,1,0, 48,  0: REM GM63:Synth Brass 1
-863 DATA  33, 33, 77,  0, 84,166, 60, 28,0,0, 56,  0: REM GM64:Synth Brass 2
-864 DATA  49, 97,143,  0,147,114,  2, 11,1,0, 56,  0: REM GM65:Soprano Sax
-865 DATA  49, 97,142,  0,147,114,  3,  9,1,0, 56,  0: REM GM66:Alto Sax
-866 DATA  49, 97,145,  0,147,130,  3,  9,1,0, 58,  0: REM GM67:Tenor Sax
-867 DATA  49, 97,142,  0,147,114, 15, 15,1,0, 58,  0: REM GM68:Baritone Sax
-868 DATA  33, 33, 75,  0,170,143, 22, 10,1,0, 56,  0: REM GM69:Oboe
-869 DATA  49, 33,144,  0,126,139, 23, 12,1,1, 54,  0: REM GM70:English Horn
-870 DATA  49, 50,129,  0,117, 97, 25, 25,1,0, 48,  0: REM GM71:Bassoon
-871 DATA  50, 33,144,  0,155,114, 33, 23,0,0, 52,  0: REM GM72:Clarinet
-872 DATA 225,225, 31,  0,133,101, 95, 26,0,0, 48,  0: REM GM73:Piccolo
-873 DATA 225,225, 70,  0,136,101, 95, 26,0,0, 48,  0: REM GM74:Flute
-874 DATA 161, 33,156,  0,117,117, 31, 10,0,0, 50,  0: REM GM75:Recorder
-875 DATA  49, 33,139,  0,132,101, 88, 26,0,0, 48,  0: REM GM76:Pan Flute
-876 DATA 225,161, 76,  0,102,101, 86, 38,0,0, 48,  0: REM GM77:Bottle Blow
-877 DATA  98,161,203,  0,118, 85, 70, 54,0,0, 48,  0: REM GM78:Shakuhachi
-878 DATA  98,161,153,  0, 87, 86,  7,  7,0,0, 59,  0: REM GM79:Whistle
-879 DATA  98,161,147,  0,119,118,  7,  7,0,0, 59,  0: REM GM80:Ocarina
-880 DATA  34, 33, 89,  0,255,255,  3, 15,2,0, 48,  0: REM GM81:Lead 1 squareea
-881 DATA  33, 33, 14,  0,255,255, 15, 15,1,1, 48,  0: REM GM82:Lead 2 sawtooth
-882 DATA  34, 33, 70,128,134,100, 85, 24,0,0, 48,  0: REM GM83:Lead 3 calliope
-883 DATA  33,161, 69,  0,102,150, 18, 10,0,0, 48,  0: REM GM84:Lead 4 chiff
-884 DATA  33, 34,139,  0,146,145, 42, 42,1,0, 48,  0: REM GM85:Lead 5 charang
-885 DATA 162, 97,158, 64,223,111,  5,  7,0,0, 50,  0: REM GM86:Lead 6 voice
-886 DATA  32, 96, 26,  0,239,143,  1,  6,0,2, 48,  0: REM GM87:Lead 7 fifths
-887 DATA  33, 33,143,128,241,244, 41,  9,0,0, 58,  0: REM GM88:Lead 8 brass
-888 DATA 119,161,165,  0, 83,160,148,  5,0,0, 50,  0: REM GM89:Pad 1 new age
-889 DATA  97,177, 31,128,168, 37, 17,  3,0,0, 58,  0: REM GM90:Pad 2 warm
-890 DATA  97, 97, 23,  0,145, 85, 52, 22,0,0, 60,  0: REM GM91:Pad 3 polysynth
-891 DATA 113,114, 93,  0, 84,106,  1,  3,0,0, 48,  0: REM GM92:Pad 4 choir
-892 DATA  33,162,151,  0, 33, 66, 67, 53,0,0, 56,  0: REM GM93:Pad 5 bowedpad
-893 DATA 161, 33, 28,  0,161, 49,119, 71,1,1, 48,  0: REM GM94:Pad 6 metallic
-894 DATA  33, 97,137,  3, 17, 66, 51, 37,0,0, 58,  0: REM GM95:Pad 7 halo
-895 DATA 161, 33, 21,  0, 17,207, 71,  7,1,0, 48,  0: REM GM96:Pad 8 sweep
-896 DATA  58, 81,206,  0,248,134,246,  2,0,0, 50,  0: REM GM97:FX 1 rain
-897 DATA  33, 33, 21,  0, 33, 65, 35, 19,1,0, 48,  0: REM GM98:FX 2 soundtrack
-898 DATA   6,  1, 91,  0,116,165,149,114,0,0, 48,  0: REM GM99:FX 3 crystal
-899 DATA  34, 97,146,131,177,242,129, 38,0,0, 60,  0: REM GM100:FX 4 atmosphere
-900 DATA  65, 66, 77,  0,241,242, 81,245,1,0, 48,  0: REM GM101:FX 5 brightness
-901 DATA  97,163,148,128, 17, 17, 81, 19,1,0, 54,  0: REM GM102:FX 6 goblins
-902 DATA  97,161,140,128, 17, 29, 49,  3,0,0, 54,  0: REM GM103:FX 7 echoes
-903 DATA 164, 97, 76,  0,243,129,115, 35,1,0, 52,  0: REM GM104:FX 8 sci-fi
-904 DATA   2,  7,133,  3,210,242, 83,246,0,1, 48,  0: REM GM105:Sitar
-905 DATA  17, 19, 12,128,163,162, 17,229,1,0, 48,  0: REM GM106:Banjo
-906 DATA  17, 17,  6,  0,246,242, 65,230,1,2, 52,  0: REM GM107:Shamisen
-907 DATA 147,145,145,  0,212,235, 50, 17,0,1, 56,  0: REM GM108:Koto
-908 DATA   4,  1, 79,  0,250,194, 86,  5,0,0, 60,  0: REM GM109:Kalimba
-909 DATA  33, 34, 73,  0,124,111, 32, 12,0,1, 54,  0: REM GM110:Bagpipe
-910 DATA  49, 33,133,  0,221, 86, 51, 22,1,0, 58,  0: REM GM111:Fiddle
-911 DATA  32, 33,  4,129,218,143,  5, 11,2,0, 54,  0: REM GM112:Shanai
-912 DATA   5,  3,106,128,241,195,229,229,0,0, 54,  0: REM GM113:Tinkle Bell
-913 DATA   7,  2, 21,  0,236,248, 38, 22,0,0, 58,  0: REM GM114:Agogo Bells
-914 DATA   5,  1,157,  0,103,223, 53,  5,0,0, 56,  0: REM GM115:Steel Drums
-915 DATA  24, 18,150,  0,250,248, 40,229,0,0, 58,  0: REM GM116:Woodblock
-916 DATA  16,  0,134,  3,168,250,  7,  3,0,0, 54,  0: REM GM117:Taiko Drum
-917 DATA  17, 16, 65,  3,248,243, 71,  3,2,0, 52,  0: REM GM118:Melodic Tom
-918 DATA   1, 16,142,  0,241,243,  6,  2,2,0, 62,  0: REM GM119:Synth Drum
-919 DATA  14,192,  0,  0, 31, 31,  0,255,0,3, 62,  0: REM GM120:Reverse Cymbal
-920 DATA   6,  3,128,136,248, 86, 36,132,0,2, 62,  0: REM GM121:Guitar FretNoise
-921 DATA  14,208,  0,  5,248, 52,  0,  4,0,3, 62,  0: REM GM122:Breath Noise
-922 DATA  14,192,  0,  0,246, 31,  0,  2,0,3, 62,  0: REM GM123:Seashore
-923 DATA 213,218,149, 64, 55, 86,163, 55,0,0, 48,  0: REM GM124:Bird Tweet
-924 DATA  53, 20, 92,  8,178,244, 97, 21,2,0, 58,  0: REM GM125:Telephone
-925 DATA  14,208,  0,  0,246, 79,  0,245,0,3, 62,  0: REM GM126:Helicopter
-926 DATA  38,228,  0,  0,255, 18,  1, 22,0,1, 62,  0: REM GM127:Applause/Noise
-927 DATA   0,  0,  0,  0,243,246,240,201,0,2, 62,  0: REM GM128:Gunshot
-928 DATA  16, 17, 68,  0,248,243,119,  6,2,0, 56, 35: REM GP35:Ac Bass Drum
-929 DATA  16, 17, 68,  0,248,243,119,  6,2,0, 56, 35: REM GP36:Bass Drum 1
-930 DATA   2, 17,  7,  0,249,248,255,255,0,0, 56, 52: REM GP37:Side Stick
-931 DATA   0,  0,  0,  0,252,250,  5, 23,2,0, 62, 48: REM GP38:Acoustic Snare
-932 DATA   0,  1,  2,  0,255,255,  7,  8,0,0, 48, 58: REM GP39:Hand Clap
-933 DATA   0,  0,  0,  0,252,250,  5, 23,2,0, 62, 60: REM GP40:Electric Snare
-934 DATA   0,  0,  0,  0,246,246, 12,  6,0,0, 52, 47: REM GP41:Low Floor Tom
-935 DATA  12, 18,  0,  0,246,251,  8, 71,0,2, 58, 43: REM GP42:Closed High Hat
-936 DATA   0,  0,  0,  0,246,246, 12,  6,0,0, 52, 49: REM GP43:High Floor Tom
-937 DATA  12, 18,  0,  5,246,123,  8, 71,0,2, 58, 43: REM GP44:Pedal High Hat
-938 DATA   0,  0,  0,  0,246,246, 12,  6,0,0, 52, 51: REM GP45:Low Tom
-939 DATA  12, 18,  0,  0,246,203,  2, 67,0,2, 58, 43: REM GP46:Open High Hat
-940 DATA   0,  0,  0,  0,246,246, 12,  6,0,0, 52, 54: REM GP47:Low-Mid Tom
-941 DATA   0,  0,  0,  0,246,246, 12,  6,0,0, 52, 57: REM GP48:High-Mid Tom
-942 DATA  14,208,  0,  0,246,159,  0,  2,0,3, 62, 72: REM GP49:Crash Cymbal 1
-943 DATA   0,  0,  0,  0,246,246, 12,  6,0,0, 52, 60: REM GP50:High Tom
-944 DATA  14,  7,  8, 74,248,244, 66,228,0,3, 62, 76: REM GP51:Ride Cymbal 1
-945 DATA  14,208,  0, 10,245,159, 48,  2,0,0, 62, 84: REM GP52:Chinese Cymbal
-946 DATA  14,  7, 10, 93,228,245,228,229,3,1, 54, 36: REM GP53:Ride Bell
-947 DATA   2,  5,  3, 10,180,151,  4,247,0,0, 62, 65: REM GP54:Tambourine
-948 DATA  78,158,  0,  0,246,159,  0,  2,0,3, 62, 84: REM GP55:Splash Cymbal
-949 DATA  17, 16, 69,  8,248,243, 55,  5,2,0, 56, 83: REM GP56:Cow Bell
-950 DATA  14,208,  0,  0,246,159,  0,  2,0,3, 62, 84: REM GP57:Crash Cymbal 2
-951 DATA 128, 16,  0, 13,255,255,  3, 20,3,0, 60, 24: REM GP58:Vibraslap
-952 DATA  14,  7,  8, 74,248,244, 66,228,0,3, 62, 77: REM GP59:Ride Cymbal 2
-953 DATA   6,  2, 11,  0,245,245, 12,  8,0,0, 54, 60: REM GP60:High Bongo
-954 DATA   1,  2,  0,  0,250,200,191,151,0,0, 55, 65: REM GP61:Low Bongo
-955 DATA   1,  1, 81,  0,250,250,135,183,0,0, 54, 59: REM GP62:Mute High Conga
-956 DATA   1,  2, 84,  0,250,248,141,184,0,0, 54, 51: REM GP63:Open High Conga
-957 DATA   1,  2, 89,  0,250,248,136,182,0,0, 54, 45: REM GP64:Low Conga
-958 DATA   1,  0,  0,  0,249,250, 10,  6,3,0, 62, 71: REM GP65:High Timbale
-959 DATA   0,  0,128,  0,249,246,137,108,3,0, 62, 60: REM GP66:Low Timbale
-960 DATA   3, 12,128,  8,248,246,136,182,3,0, 63, 58: REM GP67:High Agogo
-961 DATA   3, 12,133,  0,248,246,136,182,3,0, 63, 53: REM GP68:Low Agogo
-962 DATA  14,  0, 64,  8,118,119, 79, 24,0,2, 62, 64: REM GP69:Cabasa
-963 DATA  14,  3, 64,  0,200,155, 73,105,0,2, 62, 71: REM GP70:Maracas
-964 DATA 215,199,220,  0,173,141,  5,  5,3,0, 62, 61: REM GP71:Short Whistle
-965 DATA 215,199,220,  0,168,136,  4,  4,3,0, 62, 61: REM GP72:Long Whistle
-966 DATA 128, 17,  0,  0,246,103,  6, 23,3,3, 62, 44: REM GP73:Short Guiro
-967 DATA 128, 17,  0,  9,245, 70,  5, 22,2,3, 62, 40: REM GP74:Long Guiro
-968 DATA   6, 21, 63,  0,  0,247,244,245,0,0, 49, 69: REM GP75:Claves
-969 DATA   6, 18, 63,  0,  0,247,244,245,3,0, 48, 68: REM GP76:High Wood Block
-970 DATA   6, 18, 63,  0,  0,247,244,245,0,0, 49, 63: REM GP77:Low Wood Block
-971 DATA   1,  2, 88,  0,103,117,231,  7,0,0, 48, 74: REM GP78:Mute Cuica
-972 DATA  65, 66, 69,  8,248,117, 72,  5,0,0, 48, 60: REM GP79:Open Cuica
-973 DATA  10, 30, 64, 78,224,255,240,  5,3,0, 56, 80: REM GP80:Mute Triangle
-974 DATA  10, 30,124, 82,224,255,240,  2,3,0, 56, 64: REM GP81:Open Triangle
-975 DATA  14,  0, 64,  8,122,123, 74, 27,0,2, 62, 72: REM GP82
-976 DATA  14,  7, 10, 64,228, 85,228, 57,3,1, 54, 73: REM GP83
-977 DATA   5,  4,  5, 64,249,214, 50,165,3,0, 62, 70: REM GP84
-978 DATA   2, 21, 63,  0,  0,247,243,245,3,0, 56, 68: REM GP85
-979 DATA   1,  2, 79,  0,250,248,141,181,0,0, 55, 48: REM GP86
-980 DATA   0,  0,  0,  0,246,246, 12,  6,0,0, 52, 53: REM GP87
diff --git a/_old_files/progdesc.php b/_old_files/progdesc.php
deleted file mode 100644
index 4f88998..0000000
--- a/_old_files/progdesc.php
+++ /dev/null
@@ -1,179 +0,0 @@
-<?php
-require_once '/WWW/email.php';
-
-//TITLE=OPL3 MIDI player for Linux and Windows
-
-$title = 'ADLMIDI: OPL3 MIDI player for Linux and Windows';
-$progname = 'adlmidi';
-$git = 'git://bisqwit.iki.fi/adlmidi.git';
-
-$text = array(
-   'purpose:1. Purpose' => "
-
-<div style=\"float:right;width:542px;text-align:justify;margin-left:30px\">
-<img src=\"http://bisqwit.iki.fi/jutut/kuvat/programming_examples/midiplay.gif\"
-alt=\"adlmidi screenshot\"
-title=\"adlmidi playing Tifa theme from FF7\">
-<br>
-<span style=\"font-size:90%\"
->This screenshot shows ADLMidi running on Linux, seen through
-a <a href=\"http://en.wikipedia.org/wiki/Secure_Shell\">SSH</a>
-session that runs in <a href=\"http://www.cygwin.com/\">Cygwin</a>
-<a href=\"http://en.wikipedia.org/wiki/Xterm\">XTerm</a> on Windows 7.<br></span>
-<small style=\"color:#444\">The lovely dithering pattern is generated by
-<a href=\"http://bisqwit.iki.fi/source/animmerger.html\">animmerger</a>,
-another one of my pet projects&hellip;(The image above has only 16 colors)</small></div>
-
-AdlMIDI is a commandline program that plays MIDI files
-using software OPL3 emulation (FM synthesis).
-
-", 'features:1. Key features' => "
-
-<ul>
- <li>OPL3 emulation with four-operator mode support</li>
- <li>FM patches from a number of known PC games, copied from
-   files typical to
-   AIL = Miles Sound System / DMX / HMI = Human Machine Interfaces
-   / Creative IBK.</li>
- <li>Stereo sound</li>
- <li>Reverb filter based on code from <a href=\"http://sox.sourceforge.net/\">SoX</a>,
-     based on code from <a href=\"http://freeverb3.sourceforge.net/\">Freeverb</a>.
-     A copy of either project is not needed.</li>
- <li>Number of simulated soundcards can be specified as 1-100 (maximum channels 1800!)</li>
- <li>xterm-256color support</li>
- <li>WIN32 console support (also tested with <a href=\"http://www.japheth.de/HX.html\">HXRT / MS-DOS</a>)</li>
- <li>Pan (binary panning, i.e. left/right side on/off)</li>
- <li>Pitch-bender with adjustable range</li>
- <li>Vibrato that responds to RPN/NRPN parameters</li>
- <li>Sustain enable/disable</li>
- <li>MIDI and RMI file support</li>
- <li>loopStart / loopEnd tag support (Final Fantasy VII)</li>
- <li>Use automatic arpeggio with chords to relieve channel pressure</li>
- <li>Support for multiple concurrent MIDI synthesizers (per-track device/port select FF 09 message), can be used to overcome 16 channel limit</li>
- <li>Support for ScummVM, Doom, IMF and CMF files</li>
-</ul>
-
-<hr>
-This project is <b>developed in C++</b>, but a <i>GW-BASIC version</i> is also provided
-(<a href=\"http://bisqwit.iki.fi/jutut/kuvat/programming_examples/midiplay.html\"
->MIDIPLAY.BAS</a>).
-This player was
-<a href=\"http://www.youtube.com/watch?v=ZwcFV3KrnQA\"
->first implemented in GW-BASIC for a Youtube demonstration video</a>!
-With alterations that take 15 seconds to implement,
-it can be run in QBasic and QuickBASIC too.
-Note: The GW-BASIC version does not contain all of the same features that the C++ version does.
-
-", 'usage: 1. Usage' => "
-
-<pre>Usage: adlmidi &lt;midifilename> [ &lt;options> ] [ &lt;banknumber> [ &lt;numcards> [ &lt;numfourops>] ] ]
-       adlmidi &lt;midifilename> -1   To enter instrument tester
- -p Enables adlib percussion instrument mode (use with CMF files)
- -t Enables tremolo amplification mode
- -v Enables vibrato amplification mode
- -s Enables scaling of modulator volumes
- -nl Quit without looping
- -w Write WAV file rather than playing
-    Banks: 0 = AIL (Star Control 3, Albion, Empire 2, Sensible Soccer, Settlers 2, many others)
-           1 = Bisqwit (selection of 4op and 2op)
-           2 = HMI (Descent, Asterix)
-           3 = HMI (Descent:: Int)
-           4 = HMI (Descent:: Ham)
-           5 = HMI (Descent:: Rick)
-           6 = HMI (Descent 2)
-           7 = HMI (Normality)
-           8 = HMI (Shattered Steel)
-           9 = HMI (Theme Park)
-          10 = HMI (3d Table Sports, Battle Arena Toshinden)
-          11 = HMI (Aces of the Deep)
-          12 = HMI (Earthsiege)
-          13 = HMI (Anvil of Dawn)
-          14 = DMX (Doom           :: partially pseudo 4op)
-          15 = DMX (Hexen, Heretic :: partially pseudo 4op)
-          16 = DMX (MUS Play       :: partially pseudo 4op)
-          17 = AIL (Discworld, Grandest Fleet, Pocahontas, Slob Zone 3d, Ultima 4, Zorro)
-          18 = AIL (Warcraft 2)
-          19 = AIL (Syndicate)
-          20 = AIL (Guilty, Orion Conspiracy, Terra Nova Strike Force Centauri :: 4op)
-          21 = AIL (Magic Carpet 2)
-          22 = AIL (Nemesis)
-          23 = AIL (Jagged Alliance)
-          24 = AIL (When Two Worlds War :: 4op, MISSING INSTRUMENTS)
-          25 = AIL (Bards Tale Construction :: MISSING INSTRUMENTS)
-          26 = AIL (Return to Zork)
-          27 = AIL (Theme Hospital)
-          28 = AIL (National Hockey League PA)
-          29 = AIL (Inherit The Earth)
-          30 = AIL (Inherit The Earth, file two)
-          31 = AIL (Little Big Adventure :: 4op)
-          32 = AIL (Wreckin Crew)
-          33 = AIL (Death Gate)
-          34 = AIL (FIFA International Soccer)
-          35 = AIL (Starship Invasion)
-          36 = AIL (Super Street Fighter 2 :: 4op)
-          37 = AIL (Lords of the Realm :: MISSING INSTRUMENTS)
-          38 = AIL (SimFarm, SimHealth :: 4op)
-          39 = AIL (SimFarm, Settlers, Serf City)
-          40 = AIL (Caesar 2 :: partially 4op, MISSING INSTRUMENTS)
-          41 = AIL (Syndicate Wars)
-          42 = AIL (Bubble Bobble Feat. Rainbow Islands, Z)
-          43 = AIL (Warcraft)
-          44 = AIL (Terra Nova Strike Force Centuri :: partially 4op)
-          45 = AIL (System Shock :: partially 4op)
-          46 = AIL (Advanced Civilization)
-          47 = AIL (Battle Chess 4000 :: partially 4op, melodic only)
-          48 = AIL (Ultimate Soccer Manager :: partially 4op)
-          49 = AIL (Air Bucks, Blue And The Gray, America Invades, Terminator 2029)
-          50 = AIL (Ultima Underworld 2)
-          51 = AIL (Kasparov's Gambit)
-          52 = AIL (High Seas Trader :: MISSING INSTRUMENTS)
-          53 = AIL (Master of Magic, Master of Orion 2 :: 4op, std percussion)
-          54 = AIL (Master of Magic, Master of Orion 2 :: 4op, orchestral percussion)
-          55 = SB (Action Soccer)
-          56 = SB (3d Cyberpuck :: melodic only)
-          57 = SB (Simon the Sorcerer :: melodic only)
-          58 = OP3 (The Fat Man 2op set)
-          59 = OP3 (The Fat Man 4op set)
-          60 = OP3 (JungleVision 2op set :: melodic only)
-          61 = OP3 (Wallace 2op set, Nitemare 3D :: melodic only)
-          62 = TMB (Duke Nukem 3D)
-          63 = TMB (Shadow Warrior)
-          64 = DMX (Raptor)
-          65 = TMB (Blood)
-     Use banks 2-5 to play Descent \"q\" soundtracks.
-     Look up the relevant bank number from descent.sng.
-
-     &lt;numfourops> can be used to specify the number
-     of four-op channels to use. Each four-op channel eats
-     the room of two regular channels. Use as many as required.
-     The Doom & Hexen sets require one or two, while
-     Miles four-op set requires the maximum of numcards*6.
-
-     When playing Creative Music Files (CMF), try the
-     -p and -v options if it sounds wrong otherwise.</pre>
-
-", 'copying:1. Copying and contributing' => "
-
-ADLMIDI is distributed under the terms of the
-<a href=\"http://www.gnu.org/licenses/gpl-3.0.html\">General Public License</a>
-version 3 (GPL3).
- <br/>
-The OPL3 emulator within is from DOSBox is licensed under GPL2+.
- <br/>
-The FM soundfonts (patches) used in the program are
-imported from various PC games without permission
-from their respective authors. The question of copyright, when
-it comes to sets of 11 numeric bytes, is somewhat vague, especially
-considering that most of those sets are simply descendants of the
-patch sets originally published by AdLib Inc. for everyone's free use.
- <p/>
-Patches (as in source code modifications)
-and other related material can be submitted
-to the primary author
-".GetEmail('by e-mail at:', 'Joel Yliluoma', 'bisqwi'. 't@iki.fi')."
- <p/>
-The author also wishes to hear if you use adlmidi, and for what you
-use it and what you think of it.
-
-");
-include '/WWW/progdesc.php';
author	Flamefire <git@grundis.de>	2018-12-15 18:00:47 +0100
committer	Flamefire <git@grundis.de>	2018-12-15 18:00:47 +0100
commit	b44ca1bc7b214c0ff4ef12a9cc3c6057af433b5f (patch)
tree	1f0eed20dbbc14f7c8122c7c02dcc6417935d42a
parent	5fa2ceaf2968dccaa8c0825c6d3498bd173055ef (diff)
download	libADLMIDI-b44ca1bc7b214c0ff4ef12a9cc3c6057af433b5f.tar.gz libADLMIDI-b44ca1bc7b214c0ff4ef12a9cc3c6057af433b5f.tar.bz2 libADLMIDI-b44ca1bc7b214c0ff4ef12a9cc3c6057af433b5f.zip