
|If "<pcb$Dir>"<>"" Then Error !RiscPCB is already running
Set pcb$Dir <Obey$Dir>
Set File$Type_AC6 PCBdata
Set Alias$@RunType_AC6 "Run <pcb$Dir>.!Run %%*0"


RMEnsure UtilityModule 3.10 Error This application requires RISC OS 3.10 or later
RMEnsure UtilityModule 3.70 RMEnsure CallASWI 0.03 RMLoad System:Modules.CallASWI
RMEnsure UtilityModule 3.70 RMEnsure CallASWI 0.03 Error 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.34 Error This application requires SharedCLibrary 5.34 or later

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    0.00  RMLOAD System:modules.toolbox.toolbox
RMENSURE Toolbox    1.23  ERROR You need toolbox 1.23 or later to run !RiscPcb
RMENSURE Window     0.00  RMLOAD System:modules.toolbox.window
RMENSURE Window     1.15  ERROR You need window 1.15 or later to run !RiscPcb
RMENSURE Menu       0.00  RMLOAD System:modules.toolbox.menu
RMENSURE Menu       0.15  ERROR You need menu 0.15 or later to run !RiscPcb
RMENSURE Iconbar    0.00  RMLOAD System:modules.toolbox.iconbar
RMENSURE Iconbar    1.08  ERROR You need iconbar 1.08 or later to run !RiscPcb
RMENSURE ProgInfo   0.00  RMLOAD System:modules.toolbox.proginfo
RMENSURE ProgInfo   0.05  ERROR You need proginfo 0.05 or later to run !RiscPcb
RMENSURE FileInfo   0.00  RMLOAD System:modules.toolbox.fileinfo
RMENSURE FileInfo   0.05  ERROR You need fileinfo 0.05 or later to run !RiscPcb
RMENSURE SaveAs     0.00  RMLOAD System:modules.toolbox.saveas
RMENSURE SaveAs     0.03  ERROR You need saveas 0.03 or later to run !RiscPcb
RMENSURE FontDbox   0.00  RMLOAD System:modules.toolbox.fontdbox
RMENSURE FontDbox   0.03  ERROR You need fontdbox 0.03 or later to run !RiscPcb
RMENSURE FontMenu   0.00  RMLOAD System:modules.toolbox.fontmenu
RMENSURE FontMenu   0.11  ERROR You need fontmenu 0.11 or later to run !RiscPcb
RMENSURE ColourDbox 0.00  RMLOAD System:modules.toolbox.colourdbox
RMENSURE ColourDbox 0.03  ERROR You need colourdbox 0.03 or later to run !RiscPcb
RMENSURE ColourMenu 0.00  RMLOAD System:modules.toolbox.colourmenu
RMENSURE ColourMenu 0.10  ERROR You need colourmenu 0.10 or later to run !RiscPcb
RMENSURE Scale      0.00  RMLOAD System:modules.toolbox.scale
RMENSURE Scale      0.03  ERROR You need scale 0.03 or later to run !RiscPcb
RMENSURE PrintDbox  0.00  RMLOAD System:modules.toolbox.printdbox
RMENSURE PrintDbox  0.03  ERROR You need printdbox 0.10 or later to run !RiscPcb
RMENSURE DCS        0.00  RMLOAD System:modules.toolbox.dcs_quit
RMENSURE DCS        1.06  ERROR You need dcs_quit 1.06 or later to run !RiscPcb
IconSprites <pcb$Dir>.!Sprites
Wimpslot -min 1000k -max 1000k
Run "<pcb$Dir>.!runimage" %*0