home *** CD-ROM | disk | FTP | other *** search
/ PDA Software Library / pdasoftwarelib.iso / PSION / 1997 / 866 / HELPKIT1.ZIP / HELPSHOW.OPL < prev    next >
Encoding:
Text File  |  1994-12-12  |  464 b   |  22 lines
  1. PROC Help%:
  2.     LOCAL gate%,buf%(65),fname$(130)
  3.     LOCAL page&,base&
  4.     
  5.     page&=1 :base&=1 :fname$="\opd\*.rsc"
  6.     dINIT "Help file to show"
  7.     dFILE fname$,"File:",0
  8.     dLONG base&,"Topic resource",1,255
  9.     dLONG page&,"Initial page",1,255
  10.     IF DIALOG=0
  11.         RETURN
  12.     ENDIF
  13.     
  14.     REM Convert filename to "C" string:
  15.     POKE$ ADDR(buf%(1)),"#"+fname$
  16.     
  17.     gate%=PEEKW($38)
  18.     SEND(gate%,27,buf%(2)) :REM Set help filename
  19.     SEND(gate%,26,#page&,#base&) :REM Do help
  20. ENDP
  21.  
  22.