'<PCODE "1APPEN">

<PACKAGE "OPEN-APPEND"> 

<ENTRY OPEN-APPEND> 

<SETG RNAME1 7> 

<SETG RNAME2 8> 

<SETG RDEVICE 9> 

<SETG RDIRECTORY 10> 

<SETG CBUF "UGBUG"> 

<GDECL (CBUF) STRING> 

<MANIFEST RNAME1 RNAME2 RDEVICE RDIRECTORY> 

<SETG OPEN-APPEND  %<RSUBR!- '[ %<PCODE!- "1APPEN" 0> OPEN-APPEND #DECL ("VALUE"
<OR CHANNEL FALSE> "TUPLE" TUPLE) "READB" %<RGLOC CBUF T> "PRINTO" "PRINTB"]>> 
<AND <ASSIGNED? GLUE> .GLUE <PUT ,OPEN-APPEND PGLUE ![1069547520!]>> 


<ENDPACKAGE>