home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ARM Club 3
/
TheARMClub_PDCD3.iso
/
hensa
/
maths
/
multiplot_1
/
!MultiPlot
/
!Run
< prev
next >
Wrap
Text File
|
1996-05-15
|
2KB
|
47 lines
| > !MultiPlot.!Run
|
| Run file for MultiPlot
|
| by Chris Johnson
|
RMEnsure UtilityModule 3.10 Error This application is only suitable for use with RISC OS 3.10 or later versions
|
| Follow PRM (4:497) advice and prevent multiple running
|
If "<MultiPlot$Running>" = "yes" Then Error MultiPlot is already running
|
IconSprites <Obey$Dir>.!Sprites
Set Alias$@RunType_7F6 /<Obey$Dir>.!Run %%*0
Set File$Type_7F6 PlotFile
|
| Find path to file
Set MultiPlot$Dir <Obey$Dir>
|
If "<Font$Prefix>"="" Then Error You need to double click on !Fonts before running this application
|
set temp$flag 1
RMEnsure ABCLibrary 0 set temp$flag 0
RMensure ABCLibrary 4.00 if "<temp$flag>" = "1" Then Error 0 Old ABCLib installed Else RMLoad <Obey$Dir>.ABCLib
RMensure ABCLibrary 4.00 Error You need the ABClibrary ver 4.00 or later installed
|
set temp$flag 1
RMEnsure CJWimpUtil 0 set temp$flag 0
RMEnsure CJWimpUtil 0.17 if "<temp$flag>" = "1" Then Error 0 Old CJWimpUtil module installed Else RMLoad <Obey$Dir>.cjWimpUtil
RMEnsure CJWimpUtil 0.17 Error You need the CJWimpUtil module (0.15 or later) installed
|
set temp$flag 1
RMEnsure CJdrawUtil 0 set temp$flag 0
RMEnsure CJdrawUtil 0.15 if "<temp$flag>" = "1" Then Error 0 Old CJdrawUtil installed Else RMLoad <Obey$Dir>.cjdrawUtil
RMEnsure CJdrawUtil 0.15 Error You need the CJdrawUtil module installed
unset temp$flag
|
| Set up variables
set MultiPlot$Points 200
set MultiPlot$Lines 8
set MultiPlot$LinePoints 200
| Check memory allocation
WimpSlot -min 224K -max 224K
|
| Now start program
Run <MultiPlot$Dir>.!RunImage %*0