'<PCODE "HPTEK">

<PACKAGE "HPTEK"> 

<ENTRY HPTON HPTOFF> 

<SETG HPTON  %<RSUBR!- '[ %<PCODE!- "HPTEK" 0> HPTON #DECL ("VALUE" ANY) %<RGLOC
NULL T>]>> 
<AND <ASSIGNED? GLUE> .GLUE <PUT ,HPTON PGLUE ![805306368!]>> 


<SETG HPTOFF  %<RSUBR!- '[ %<PCODE!- "HPTEK" 80> HPTOFF #DECL ("VALUE" ANY) %<
RGLOC NULL T>]>> 
<AND <ASSIGNED? GLUE> .GLUE <PUT ,HPTOFF PGLUE ![805306368!]>> 


<ENDPACKAGE>