home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / utilities / utilsd / explain / !Explain / !FindHelp (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1995-03-17  |  898 b   |  29 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.  task% 4
  5. $task% = "TASK"
  6.  "Wimp_Initialise", 200, !task%, "Version finder" 
  7.  ver%, me%
  8.  "Wimp_CloseDown", me%, !task%
  9.  "Set Explain$WimpVer "+
  10. (ver%)
  11. &HelpMsg$ = "<Help$Start>.Messages"
  12. FileOk(HelpMsg$) 
  13. SetVar("Help$Msgs", HelpMsg$) : 
  14. 4HelpMsg$ = "Resources:$.Resources.Help.Messages"
  15. FileOk(HelpMsg$) 
  16. SetVar("Help$Msgs", HelpMsg$) : 
  17. (HelpMsg$ = "<Explain$Dir>.StockHelp"
  18. FileOk(HelpMsg$) 
  19. SetVar("Help$Msgs", HelpMsg$) : 
  20. FileOk(name$)
  21.  type%, p%
  22.  "XOS_File", 17, name$ 
  23.  type%; p%
  24. = (p% 
  25.  1) = 0 
  26.  type% = 1 
  27. SetVar(var$, val$)
  28.  "Set "+var$+" """+val$+""""
  29.