| >!Run
|
| Copyright 1991-2006, James Miskin
| Copyright 2006-2025, Stephen Fryatt (info@stevefryatt.org.uk)
|
| This file is part of Today:
|
|   http://www.stevefryatt.org.uk/risc-os/today
|
| Licensed under the EUPL, Version 1.2 only (the "Licence");
| You may not use this work except in compliance with the
| Licence.
|
| You may obtain a copy of the Licence at:
|
|   http://joinup.ec.europa.eu/software/page/eupl
|
| Unless required by applicable law or agreed to in
| writing, software distributed under the Licence is
| distributed on an "AS IS" basis, WITHOUT WARRANTIES
| OR CONDITIONS OF ANY KIND, either express or implied.
|
| See the Licence for the specific language governing
| permissions and limitations under the Licence.

| Set the application path.

Set Today$Dir <Obey$Dir>

| Set the application sprites.

IconSprites <Today$Dir>.!Sprites

| Ensure that the 32-bit Shared C Library is present, with C99 support.

RMEnsure UtilityModule 3.10 Error This application is only suitable for use with RISC OS 3.10 or later versions
RMEnsure UtilityModule 5.00 RMEnsure CallASWI 0.03 RMLoad System:Modules.CallASWI
RMEnsure UtilityModule 5.00 RMEnsure CallASWI 0.03 Error This app requires CallASWI 0.03 or later
RMEnsure FPEmulator 4.03 RMLoad System:Modules.FPEmulator
RMEnsure FPEmulator 4.03 Error This application requires FPEmulator 4.03 or later
RMEnsure SharedCLibrary 5.17 RMLoad System:Modules.CLib
RMEnsure SharedCLibrary 5.43 Error This application requires SharedCLibrary 5.43 or later

| Ensure the Toolbox resources are present.

RMENSURE FilterManager 0.09 RMLoad System:modules.FilterMgr
RMENSURE FilterManager 0.09 Error You Need filter manager 0.09 or later

RMEnsure BorderUtils 0.02 RMEnsure WindowManager 3.17  RMLoad System:modules.BorderUtil

RMENSURE Toolbox     1.36  RMLOAD System:modules.toolbox.toolbox
RMENSURE Toolbox     1.36  ERROR You need toolbox 1.36
RMENSURE Window      1.31  RMLOAD System:modules.toolbox.window
RMENSURE Window      1.31  ERROR You need window 1.31
RMENSURE ColourDBox  0.15  RMLOAD System:modules.toolbox.ColourDBox
RMENSURE ColourDBox  0.15  ERROR You need ColourDBox
RMENSURE ColourMenu  0.17  RMLOAD System:modules.toolbox.ColourMenu
RMENSURE ColourMenu  0.17  ERROR You need ColourMenu
RMENSURE DCS         1.06  RMLOAD System:modules.toolbox.DCS_Quit
RMENSURE DCS         1.06  ERROR You need DCS_Quit
RMENSURE FileInfo    0.14  RMLOAD System:modules.toolbox.FileInfo
RMENSURE FileInfo    0.14  ERROR You need FileInfo
RMENSURE FontDbox    0.14  RMLOAD System:modules.toolbox.FontDbox
RMENSURE FontDbox    0.14  ERROR You need FontDbox
RMENSURE FontMenu    0.17  RMLOAD System:modules.toolbox.FontMenu
RMENSURE FontMenu    0.17  ERROR You need FontMenu
RMENSURE IconBar     1.12  RMLOAD System:modules.toolbox.IconBar
RMENSURE IconBar     1.12  ERROR You need IconBar
RMENSURE Menu        0.24  RMLOAD System:modules.toolbox.menu
RMENSURE Menu        0.24  ERROR You need Menu
RMENSURE PrintDBox   0.09  RMLOAD System:modules.toolbox.PrintDBox
RMENSURE PrintDBox   0.09  ERROR You need PrintDBox
RMENSURE ProgInfo    0.09  RMLOAD System:modules.toolbox.proginfo
RMENSURE Proginfo    0.09  ERROR You need proginfo
RMENSURE SaveAs      0.12  RMLOAD System:modules.toolbox.SaveAs
RMENSURE SaveAs      0.12  ERROR You need Saveas
RMENSURE Scale       0.11  RMLOAD System:modules.toolbox.Scale
RMENSURE Scale       0.11  ERROR You need Scale

| Allocate memory and run Today

WimpSlot -min 96K -max 96K

Run <Today$Dir>.!RunImage %*0