home *** CD-ROM | disk | FTP | other *** search
/ Kosovo Orphans' Appeal Charity CD / KosovoOrphansAppeal.iso / archimedesworld_cd2 / armedit / _lunch / _run < prev    next >
Text File  |  1992-08-14  |  485b  |  19 lines
  1. | !Run file for Out to Lunch
  2. | ⌐ Peter Gaunt, 1992
  3.  
  4. Set Lunch$Dir <Obey$Dir>
  5.  
  6. if "<System$Path>" = "" then Error 0 System resources cannot be found
  7. RMEnsure ColourTrans 0.00 RMLOAD System:Modules.Colours
  8. RMENSURE ColourTrans 0.52 ERROR 'Colours' module not found or out of date
  9.  
  10. Run <Lunch$Dir>.LunchSetUp
  11.  
  12. Run <Lunch$Dir>.CountTasks
  13. Run <Lunch$Dir>.CheckALT
  14. IF ALT$Down THEN RUN <Lunch$Dir>.!RunConfig
  15.  
  16. UNSET ALT$Down
  17. RMLoad <Lunch$Dir>.Lunch
  18. If Desktop$NumTasks>1 THEN Desktop_Lunch
  19.