squash! st/xa: use pipe-loader to get screen