home *** CD-ROM | disk | FTP | other *** search
/ PDA Software Library / pdasoftwarelib.iso / PSION / MISC / HYPOC / HPREF.OPL < prev    next >
Encoding:
Text File  |  1994-08-24  |  1.3 KB  |  79 lines
  1. app hyperpoc
  2. enda
  3.  
  4.  
  5. rem This procedure contains all procedure definitions and global
  6. rem variable definitions available to user programs.
  7. rem The purpose of this source is to support the checking process with OPLLINT.
  8.  
  9. rem For an OPLLINT check of, for instance, module "index" enter the following
  10. rem line:
  11. rem   OPLLINT index hpref -imc -rindex
  12.  
  13.  
  14. proc hpref:
  15. global ObjTxt$(128),ObjAttr$(128),ObjPar%,ObjX%,ObjY%,ObjW%,ObjH%,onAct%
  16. global curstk$(128),stkfol$(128),icnfol$(128),appfol$(128)
  17. global cuCd%,km%,sMod%,sKey$(32),aBmHnd%(4)
  18. global prVar1%,prVar2%,prVar3%,prVar4%
  19. endp
  20.  
  21. proc findCd%:(stack$,srchmod%,srch$,adHand%)
  22. print stack$,srchmod%,srch$,adHand%
  23. endp
  24.  
  25. proc findBg:(stack$,adHand%)
  26. print stack$,adHand%
  27. endp
  28.  
  29. proc CdObj%:(stack$,adHand%,ObjMsk&)
  30. print stack$,adHand%,ObjMsk&
  31. endp
  32.  
  33. proc getKey%:(control%)
  34. print control%
  35. endp
  36.  
  37. proc showCd%:(stknam$,cdnum%)
  38. print stknam$,cdnum%
  39. endp
  40.  
  41. proc extract$:(cslist$,i%)
  42. print cslist$,i%
  43. endp
  44.  
  45. proc obj$:(o%)
  46. print o%
  47. endp
  48.  
  49. proc shtName$:(path$)
  50. print path$
  51. endp
  52.  
  53. proc prTim:(sec%)
  54. print sec%
  55. endp
  56.  
  57. proc asctxt$:(rawtxt$,len%,pat$)
  58. print rawtxt$,len%,pat$
  59. endp
  60.  
  61. proc strip$:(phone$)
  62. print phone$
  63. endp
  64.  
  65. proc dial:(dial$,out%)
  66. print dial$,out%
  67. endp
  68.  
  69. proc setrs:
  70. endp
  71.  
  72. proc helpClue:(clue$)
  73. print clue$
  74. endp
  75.  
  76. proc trfont%:(f%)
  77. print f%
  78. endp
  79.