'<PCODE "PAGES">

<PACKAGE "PAGES"> 

<RENTRY CORE-BLOCK PAGE-FIND PAGE-GIVE> 

<SETG CORE-BLOCK  %<RSUBR!- '[ %<PCODE!- "PAGES" 0> CORE-BLOCK #DECL ("VALUE" <
OR FIX FALSE> <PRIMTYPE WORD> FIX FIX FIX FIX)]>> 
<AND <ASSIGNED? GLUE> .GLUE <PUT ,CORE-BLOCK PGLUE ![0!]>> 


<SETG PAGE-FIND %<RSUBR-ENTRY '[CORE-BLOCK PAGE-FIND #DECL ("VALUE" <OR FIX 
FALSE> "OPTIONAL" FIX)] 26>> 

<SETG PAGE-GIVE %<RSUBR-ENTRY '[CORE-BLOCK PAGE-GIVE #DECL ("VALUE" FIX FIX 
"OPTIONAL" FIX)] 50>> 

<ENDPACKAGE>