SREREAD
s = pushs(SREREAD, source->areap);
s = pushs(SREREAD,
while (source->type == SALIAS || source->type == SREREAD)
case SREREAD: