home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / desktop / d / explain / !Explain / !FindHelp (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1994-04-29  |  643 b   |  20 lines
  1.  !FindHelp - Make Help$Msgs point to Help's messages file
  2.     First look for <Help$Start> which indicates that the RISC OS 3.5 help file is present,
  3.     then check for Resources:$.Resources.Help.Messages
  4. *UnSet Help$Msgs
  5. &HelpMsg$ = "<Help$Start>.Messages"
  6. FileOk(HelpMsg$) 
  7. SetVar("Help$Msgs", HelpMsg$) : 
  8.     4HelpMsg$ = "Resources:$.Resources.Help.Messages"
  9. FileOk(HelpMsg$) 
  10. SetVar("Help$Msgs", HelpMsg$) : 
  11. FileOk(name$)
  12.  type%, p%
  13.  "XOS_File", 17, name$ 
  14.  type%; p%
  15. = (p% 
  16.  1) = 0 
  17.  type% = 1 
  18. SetVar(var$, val$)
  19.  "Set "+var$+" """+val$+""""
  20.