
-- cift12.occ -- CIF test 12, forking from C

#INCLUDE "cif.module"

#PRAGMA EXTERNAL "PROC CIF.my.process (CHAN BYTE out!) = 1024"

PROC cift12 (CHAN BYTE kyb?, scr!, err!)
  CIF.my.process (scr!)
:

