1 K 256 * create-buffer old-pat 256 1 K * create-buffer new-pat "" /proj/rooster/stw/rlog/rlog.pat old-pat load-buffer : old@ (s x y -- value ) 1 K * + /w* old-pat buffer + w@ ; : new! (s value x y -- ) 256 * + /w* new-pat buffer + w! ; : convert 256 0 do 1 K 0 do i j old@ j i new! loop loop ; convert "" sexium2.pat new-pat save-buffer