home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 1 / AU_CD1.iso / internet / starterpak / !TTFN / !Run < prev    next >
Text File  |  1994-11-06  |  752b  |  35 lines
  1. |
  2. | !Run for !TTFN © R.W.Orwin 1994
  3. |
  4.  
  5. Set TTFN$Dir <Obey$Dir>
  6. Set NewsBase$ClientTTFN <TTFN$Dir>
  7.  
  8. | Right OS Version?
  9.  
  10. RMENSURE UtilityModule 3.10 Error TTFN Requires Risc OS 3.10 or later.
  11.  
  12. | !Scrap been seen?
  13.  
  14. IF "<Wimp$ScrapDir>"="" THEN Error Please open a directory viewer containing !Scrap and try again.
  15.  
  16. | Is a UserHome defined?
  17.  
  18. IF "<UserHome$Dir>"="" THEN Error UserHome$Dir not defined.
  19.  
  20. | Is TTFN already running?
  21.  
  22. Set TTFN$Running FALSE
  23. BASIC -quit <TTFN$Dir>.Resources.Check
  24. IF "<TTFN$Running>"="TRUE" THEN Error TTFN is already running.
  25.  
  26. | OK, all conditions satisfied, let TTFN load
  27.  
  28. IconSprites <Obey$Dir>.!Sprites
  29. WimpSlot -min 256k -max 256k
  30. WimpSlot -min 192k -max 192k
  31.  
  32. SET Out$Path <Wimp$ScrapDir>.
  33.  
  34. Run <TTFN$Dir>.!RunImage %*0
  35.