home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Datafile PD-CD 3
/
PDCD_3.iso
/
pocketbk
/
utilsf
/
hypoc2
/
HPREF.OPL
< prev
next >
Wrap
Text File
|
1994-08-24
|
1KB
|
79 lines
app hyperpoc
enda
rem This procedure contains all procedure definitions and global
rem variable definitions available to user programs.
rem The purpose of this source is to support the checking process with OPLLINT.
rem For an OPLLINT check of, for instance, module "index" enter the following
rem line:
rem OPLLINT index hpref -imc -rindex
proc hpref:
global ObjTxt$(128),ObjAttr$(128),ObjPar%,ObjX%,ObjY%,ObjW%,ObjH%,onAct%
global curstk$(128),stkfol$(128),icnfol$(128),appfol$(128)
global cuCd%,km%,sMod%,sKey$(32),aBmHnd%(4)
global prVar1%,prVar2%,prVar3%,prVar4%
endp
proc findCd%:(stack$,srchmod%,srch$,adHand%)
print stack$,srchmod%,srch$,adHand%
endp
proc findBg:(stack$,adHand%)
print stack$,adHand%
endp
proc CdObj%:(stack$,adHand%,ObjMsk&)
print stack$,adHand%,ObjMsk&
endp
proc getKey%:(control%)
print control%
endp
proc showCd%:(stknam$,cdnum%)
print stknam$,cdnum%
endp
proc extract$:(cslist$,i%)
print cslist$,i%
endp
proc obj$:(o%)
print o%
endp
proc shtName$:(path$)
print path$
endp
proc prTim:(sec%)
print sec%
endp
proc asctxt$:(rawtxt$,len%,pat$)
print rawtxt$,len%,pat$
endp
proc strip$:(phone$)
print phone$
endp
proc dial:(dial$,out%)
print dial$,out%
endp
proc setrs:
endp
proc helpClue:(clue$)
print clue$
endp
proc trfont%:(f%)
print f%
endp