home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Acorn User 1
/
AU_CD1.iso
/
pubdomain
/
freeware
/
maillabel
/
!MailLabel
/
!Run
< prev
next >
Wrap
Text File
|
1994-08-24
|
2KB
|
32 lines
|
| !Run File For !MailLabel
| By Toby Smith (TctS)
|
WimpSlot -Min 100K -Max 100K
Set MailLabel$Dir <Obey$Dir>
Iconsprites <MailLabel$Dir>.!Sprites
Set Alias$@RunType_010 Run <Obey$Dir>.!Run -Load %%*0
Set File$Type_010 MailLabelDATA
Set File$Type_D0B Configuration
| Operating system specifics
| If RISC OS 3 is running -we don't need system to get ColourTrans!
| -Don't load the extra sprites (they're in OS3 ROM)
Set MailLabel$OSversion 350
RMEnsure UtilityModule 3.20 Set MailLabel$OSversion 300
RMEnsure UtilityModule 3.00 Set MailLabel$OSversion 200
RMEnsure UtilityModule 3.00 if "<System$Path>" = "" then error 0 System Resources cannot be located. MailLabel wants Colours
RMEnsure ColourTrans 0 RMLoad SYSTEM:Modules.Colours
RMEnsure UtilityModule 3.00 Iconsprites <MailLabel$Dir>.Resources.RO2
RMEnsure MessageTrans RMLoad SYSTEM:Modules.MsgTrans
RMEnsure MessageTrans Error 0 MailLabel could not find the MessageTrans module in computer or as System:Modules.MsgTrans
| Swap commenting on the following 2 lines if you want to read FontMenu from
| internal rather than System storage
|RMEnsure FontMenu 1.16 RMLoad SYSTEM:Modules.FontMenu
RMEnsure FontMenu 1.16 RMLoad <Obey$Dir>.Resources.FontMenu
RMEnsure FontMenu 1.16 Error 0 MailLabel could not find the FontMenu module in computer, as System:Modules.FontMenu, or in own directory.
|*************** NOTHING ABOVE THIS SHOULD BE ALTERED *********************
|Set this flag if Interactive Help is/is not required
|Save on time and memory if not used!
Set HelpWanted TRUE
Run <MailLabel$Dir>.!RunImage %*0