OCODE(!1)   
SEND TO(!)  
BIN 
CHAIN(FIND#CGMX)
LIST
SWITCH(2)   
INCLUDE(%BEDSFILES) 
OMIT(%BLIB0,%BSTART)
*   
GET "GLOBALS"   
GLOBAL $( NAME:101; STRING:102 $)   
START: $(   LET STRING1 = VEC 5; STRING := STRING1; 
            INITIALIZEIO(); OUTPUT := CREATEOUTPUT(10)  
            !STRING := 2 << 16 LOGOR '!' <<8 LOGOR '1' ;
             INPUT := FINDFILE(STRING)  

             $( READCH(INPUT, LV CH); WRITECH( OUTPUT, CH)  
             $) REPEATUNTIL CH = '*E'; FINISH   
$)  
****

