mdw@git.distorted.org.uk Git - ssr/blob - StraySrc/SapphToys/!ColDemo/!Run,feb

   1 |
   2 | Colour Selector demo
   3 |
   4 | © 1998 Straylight
   5 |
   6 | This file version 1.00 (20 March 1994)
   7 |
   8
   9 Set ColDemo$Dir <Obey$Dir>
  10 | IconSprites <ColDemo$Dir>.!Sprites
  11
  12 /<ColDemo$Dir>.setSlot -appName ColDemo 28K 4K 4K
  13
  14 If "<System$Path>"="" Then Error 0 System resources could not be found.  Please double-click a !System folder and reload.
  15
  16 If "<Wimp$Scrap>"="" Then Error 0 Couldn't find Scrap folder.  Please double click a !Scrap folder (or !System if you don't have !Scrap) and reload.
  17
  18 If "<DLL$Path>"="" Then Error 0 Couldn't find Dynamic Link libraries.  Please double click a !DLLs folder and reload.
  19
  20 Set Alias$_RMEnsure RMEnsure %%0 0.00 RMLoad %%2 |m RMEnsure %%0 %%1
  21 _RMEnsure DLLManager 1.14 <DLL$Dir>.DLLManager
  22 _RMEnsure Sculptrix 2.01 <ColDemo$Dir>.Modules.Sculptrix
  23 _RMEnsure Sprinkle 1.00 <ColDemo$Dir>.Modules.Sprinkle
  24 _RMEnsure ColourTrans 0.53 System:Modules.Colours
  25 Unset Alias$_RMEnsure
  26
  27 DLLEnsure [Sapphire.Core] 0.00
  28 DLLEnsure [Sapphire.Resources] 1.00
  29
  30 /<ColDemo$Dir>.setSlot -appName ColDemo 28K 4K 4K
  31
  32 Run <ColDemo$Dir>.!RunImage %*0