
 ." Z loading id: " in-cons ch-id d$.

 if-found !chname ." file " pad dup in-cons !chname -print
        cr

: probez0 ." fr das Laden mit chain " ;

: probez1 ." dies ist die "
                " probe 'Z' " -print
probez0 ;
        probez1
                     bell
 {Z emit space
                   here $. sp@ $. .s cr
        end
