Import of ESP Player front end

Special thanks to Dr. Andy Pierson (ESP) and Alan Gibson (Liquid Silicon) for
taking the time to locate the sources, and agreeing to them being published.
This is Player 1.37a, though note an earlier dated version 1.39 also exists,
yet to be merged.

!MkClean,fd7

+|
+| Copyright (c) 2021, RISC OS Open Ltd
+| All rights reserved.
+|
+| Redistribution and use in source and binary forms, with or without
+| modification, are permitted provided that the following conditions are met:
+|     * Redistributions of source code must retain the above copyright
+|       notice, this list of conditions and the following disclaimer.
+|     * Redistributions in binary form must reproduce the above copyright
+|       notice, this list of conditions and the following disclaimer in the
+|       documentation and/or other materials provided with the distribution.
+|     * Neither the name of RISC OS Open Ltd nor the names of its contributors
+|       may be used to endorse or promote products derived from this software
+|       without specific prior written permission.
+|
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+| ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
+| LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+| CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+| SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+| INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+| CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+| ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+| POSSIBILITY OF SUCH DAMAGE.
+|
+Dir <Obey$Dir>
+amu_machine clean
+stripdepnd

!MkInstall,fd7

+|
+| Copyright (c) 2021, RISC OS Open Ltd
+| All rights reserved.
+|
+| Redistribution and use in source and binary forms, with or without
+| modification, are permitted provided that the following conditions are met:
+|     * Redistributions of source code must retain the above copyright
+|       notice, this list of conditions and the following disclaimer.
+|     * Redistributions in binary form must reproduce the above copyright
+|       notice, this list of conditions and the following disclaimer in the
+|       documentation and/or other materials provided with the distribution.
+|     * Neither the name of RISC OS Open Ltd nor the names of its contributors
+|       may be used to endorse or promote products derived from this software
+|       without specific prior written permission.
+|
+| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+| ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
+| LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+| CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+| SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+| INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+| CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+| ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+| POSSIBILITY OF SUCH DAMAGE.
+|
+Dir <Obey$Dir>
+amu_machine install INSTDIR=<install$dir>.HardDisc4.Apps

.gitattributes

+*,ffb gitlab-language=bbcbasic linguist-language=bbcbasic linguist-detectable=true
+bas/** gitlab-language=bbcbasic linguist-language=bbcbasic linguist-detectable=true

LICENSE

+Copyright (c) 1994, Expressive Software Projects
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+    * Redistributions of source code must retain the above copyright
+      notice, this list of conditions and the following disclaimer.
+    * Redistributions in binary form must reproduce the above copyright
+      notice, this list of conditions and the following disclaimer in the
+      documentation and/or other materials provided with the distribution.
+    * Neither the name of Expressive Software Projects nor the names of its
+      contributors may be used to endorse or promote products derived from
+      this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
+ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+DISCLAIMED. IN NO EVENT SHALL EXPRESSIVE SOFTWARE PROJECTS BE LIABLE FOR ANY
+DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

Makefile

+#
+# Copyright (c) 2021, RISC OS Open Ltd
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#     * Redistributions of source code must retain the above copyright
+#       notice, this list of conditions and the following disclaimer.
+#     * Redistributions in binary form must reproduce the above copyright
+#       notice, this list of conditions and the following disclaimer in the
+#       documentation and/or other materials provided with the distribution.
+#     * Neither the name of RISC OS Open Ltd nor the names of its contributors
+#       may be used to endorse or promote products derived from this software
+#       without specific prior written permission.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
+# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+# POSSIBILITY OF SUCH DAMAGE.
+#
+# Makefile for Player
+#
+
+COMPONENT  = Player
+TARGET     = !RunImage
+CUSTOMLINK = custom
+INSTTYPE   = app
+INSTAPP_FILES = !Boot !Run !RunImage !Help Templates\
+        !Sprites !Sprites22 Sprites Sprites22 CheckSound
+INSTAPP_VERSION = Messages
+INSTAPP_DEPENDS = !RunImage
+
+include CApp
+
+!RunImage: bas${SEP}PlayerSrc
+	${RUN}BasCrunch -1 bas${SEP}PlayerSrc $@
+
+# Dynamic dependencies:

Resources/!Boot,feb

+| !Player boot file
+
+If "<File$Type_BF7>" = "" Then Set File$Type_BF7 RIFF
+If "<File$Type_FB1>" = "" Then Set File$Type_FB1 WaveForm
+If "<File$Type_D3C>" = "" Then Set File$Type_D3C ArmSamp
+
+Iconsprites <Obey$Dir>.!Sprites

Resources/!Run,feb

+| !Player Run file
+Wimpslot -min 90K -max 90K
+If "<File$Type_BF7>" = "" Then Set File$Type_BF7 RIFF
+If "<File$Type_FB1>" = "" Then Set File$Type_FB1 WaveForm
+If "<File$Type_D3C>" = "" Then Set File$Type_D3C ArmSamp
+Iconsprites <Obey$Dir>.!Sprites
+|RMEnsure RealTime 0.01 RMload System:Modules.RTime
+Set Player$Dir <Obey$Dir>
+Run <Player$Dir>.CheckSound
+Wimpslot -min 90K -max 90K
+/<Player$Dir>.!RunImage %*0

Resources/UK/!Help

+!Player can play MIDI files (through MIDIPort 0, i.e. the default MIDI OUT
+port) and sound sample player (through SharedSound). Sample formats supported
+are: ArmMovie, 'Data', Armadeus, AudioWrk, WaveForm (WAV), Riff, DOS and
+Modules.
+
+For sales and support, please contact sales@liquid-silicon.com and NOT ESP.
+
+
+
+!Player history
+===============
+
+1.37	26/32-bit neutral modules. Requires RISC OS 3.50 or later.
+	Fixed MIDIPlay module, had problems with dynamic areas. Now doesn't
+	use them.
+	Removed hourglass when playing samples.
+	Stopped Menu button confusingly activating the icons.
+	Fixed Control button bring greyed out unless loading a MIDI file
+	first. Don't know if this was a bug or a feature!
+	File/song name increased from 10 to 16 characters.
+	Now resets song pointer on new sample loads.
+
+1.37a	Had left some test lines in e.g. when dragging an unknown file in.
+
+
+
+There appear to be some issues on 8-bit sound Risc PCs, where the sound can
+sometimes give crackles or white noise after pressing Stop. This hasn't been
+tracked down. Usually having !Synth loaded solves the problems.

Resources/UK/Messages

+# ESP Sample Player Messages
+#  ESP MAY 1994,Dec 1996
+# 0.2 04/12/96
+#
+# --  Icon menu contains 2 items
+iconM0:Player
+iconM1:Info
+iconM2:Quit
+#
+# --  Sample rate title
+rateM0:Sample rate
+#
+# --  Bit messages
+Bit4:4 bit
+Bit8:8 bit
+Bit12:12 bit
+Bit16:16 bit
+#
+# --  Error/Report messages
+Report0:Incorrect file type
+Report1:Don't know how to play %1 files; play %2 as raw data?
+Report2:Sample rate must be greater than or equal to 1000 Hz
+Report3:ADPCM sample rates can only be taken from those in the menu list
+Report4:Movie does not contain sound
+Report5:Sound playback not available
+Report6:MIDI playback not available
+#

VersionNum

+/* (1.37)
+ *
+ * This file is automatically maintained by srccommit, do not edit manually.
+ *
+ */
+#define Module_MajorVersion_CMHG        1.37
+#define Module_MinorVersion_CMHG
+#define Module_Date_CMHG                18 Apr 2007
+
+#define Module_MajorVersion             "1.37"
+#define Module_Version                  137
+#define Module_MinorVersion             ""
+#define Module_Date                     "18 Apr 2007"
+
+#define Module_ApplicationDate          "18-Apr-07"
+
+#define Module_ComponentName            "Player"
+
+#define Module_FullVersion              "1.37"
+#define Module_HelpVersion              "1.37 (18 Apr 2007)"
+#define Module_LibraryVersionInfo       "1:37"