#pragma linkage(BPXT4KFR,OS)
void BPXT4KFR (long len,long key,char *stor);