home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / DATABASE / SHELP50A.ZIP / HELPCON.PRG < prev    next >
Text File  |  1991-08-11  |  4KB  |  114 lines
  1.  
  2. FUNCTION Helpcon
  3. *==========================================================================
  4. *    Helpcon  (Conceptual Level Help System)
  5. *    Project Name: Helpdemo
  6. *    Project Description: Superhelp Library   
  7. *    Written By: Darryl Strickland   
  8. * 
  9. *    Help System Generated by Superhelp Codegen 5.0
  10. *    Generated August 11, 1991  -   8:42 PM
  11. *    Copyright (c) by DJS Applications    
  12. *
  13. *    Help Methods - Simulated Memoedit
  14. *                   Superhelp Codegen Reference File Produced (SHELP.REF   )
  15. *                   Help System Requires Superhlp.Lib at Link Time
  16. *
  17. *    Thank you for using Superhelp Code Generator 5.0  -  DJS Applications
  18. *==========================================================================
  19. PARAMETER cProc,nLine,cVar
  20. LOCAL nRowhlp,nColhlp,lBadfile,cOldArea,cOldColor
  21. LOCAL nCurState,nHelpSize
  22. LOCAL nBurnSize,cBurnDate,cBurnTime
  23. PRIVATE nHlphandle,nTopRow,nLeftCol,nBotRow,nRightCol,cHeader
  24. PRIVATE cFooter,nHeadcol,nFootcol,cWinColor,nShadClrf,nShadClrb,cFrame,cMidBar
  25. PRIVATE nWinType,cShadType,nBoxMethod,lIplode,lXplodeTxt,nHlpSpacer
  26. PRIVATE cHeadColor,cFootColor,cFramColor,cTrimHdr,nFootType
  27. PRIVATE lMicroVoic,lEditRef,nPadSize,nLookPt,cOldScr
  28. PRIVATE nTxtSize,nMWidth,nNoLines,nDspMeth,nLineSize,cTrimFoot
  29. PRIVATE nText_Cnt,nScrnSize,nStartRow,lOutLoop,nNoFrames,nBliMrkx
  30. PRIVATE nLines,nCnt,cSpeakStr,lSpeakOk,lVoiceload,cLstDir,nStartPt,aHelpline:={}
  31. PRIVATE nReadSize,lTopPage,lBotPage,nByteRead,nPrevRead
  32. SET PROCEDURE TO HELPLIB
  33. SET PROCEDURE TO HELPMGR
  34. SETBLINK(.F.)
  35. lVoiceload := .F.
  36. nBliMrkx := 13
  37. nRowhlp := ROW()
  38. nColhlp := COL()
  39. SET KEY -20 TO
  40. cOldcolor := SETCOLOR()
  41. nCurState := SETCURSOR(0)
  42. cVar := "CONCEPTUAL"
  43. IF TYPE("shelpproc") == "C"
  44.   IF !EMPTY("shelpproc")
  45.      cProc := UPPER(shelpproc)
  46.   ENDIF
  47. ENDIF
  48. IF TYPE("shelpvar") == "C"
  49.   IF !EMPTY("shelpvar")
  50.     cVar := UPPER(shelpvar)
  51.   ENDIF
  52. ENDIF
  53. cOldscr := SAVESCREEN(0,0,MaxRow(),MaxCol())
  54. lBadfile := .F.
  55. IF FILE("SHELP.REF")
  56.    nHlphandle := FOPEN("SHELP.REF",2)
  57.    nHlpsize := FSEEK(nHlphandle,0,2)
  58.    FSEEK(nHlphandle,-20,2)
  59.    nBurnSize := SPACE(7)
  60.    cBurnDate := SPACE(8)
  61.    cBurnTime := SPACE(5)
  62.    FREAD(nHlphandle,@nBurnSize,7)
  63.    FREAD(nHlphandle,@cBurnDate,8)
  64.    FREAD(nHlphandle,@cBurnTime,5)
  65.    FSEEK(nHlphandle,0)
  66.    IF nHlpsize <> VAL(nBurnSize) .OR. '08/11/91' <> cBurnDate .OR. '20:42' <> cBurnTime
  67.       lBadfile := .T.
  68.    ENDIF
  69. ELSE
  70.    lBadfile := .T.
  71. ENDIF
  72. IF lBadfile
  73.    SRIGHTBX(09,20,13,60,"╓─╖║╜─╙║ ",.F.,'B/W+','B/W+','R',.T.,7,0)
  74.    @09,22 SAY "╢ Help Error ╟"
  75.    @11,22 SAY "Please restore SHELP.REF from disk"
  76.    @13,25 SAY "╢ Superhelp Codegen 5.0 ╟"
  77.    INKEY(10)
  78.    SETCOLOR(cOldcolor)
  79.    SET KEY -20 TO Helpcon
  80.    @nRowhlp,nColhlp SAY ""
  81.    RESTSCREEN(0,0,MaxRow(),MaxCol(),cOldscr)
  82.    RETURN NIL
  83. ENDIF
  84. DO CASE
  85.  
  86.    * Window Description : Link Window Demonstration          
  87.    CASE (cProc == "MASTER" .AND. cVar == "CUSTOMER")
  88.       HELPPREP(37672)
  89.  
  90.    * Window Description : Superhelp Introduction             
  91.    CASE (cProc == "REGISTER" .AND. cVar == "CONCEPTUAL")
  92.       HELPPREP(38154)
  93.    OTHERWISE 
  94.       SRIGHTBX(09,20,13,60,"╓─╖║╜─╙║ ",.F.,'B/W+','B/W+','R',.T.,7,0)
  95.       @09,22 SAY "╢ No Help Found ╟"
  96.       @11,25 SAY "Superhelp Code Generator 5.0"
  97.       @13,26 SAY "╢ Press any key to continue ╟"
  98.       INKEY(10)
  99.       SETCOLOR(cOldcolor)
  100.       SET KEY -20 TO Helpcon
  101.       @nRowhlp,nColhlp SAY ""
  102.       RESTSCREEN(0,0,MaxRow(),MaxCol(),cOldscr)
  103.       RETURN NIL
  104. ENDCASE
  105. DSPHELP()
  106. SETCOLOR(cOldcolor)
  107. SET KEY -20 TO Helpcon
  108. FCLOSE(nHlphandle)
  109. SETCURSOR(nCurState)
  110. RELEASE aHelpLine
  111. @nRowhlp,nColhlp SAY ""
  112. RESTSCREEN(0,0,MaxRow(),MaxCol(),cOldscr)
  113. RETURN NIL
  114.