DEF D_SPHS MI,MA,SH VAR LI FOR LI=MI TO MA IF LI!=SH THEN SPHIDE LI NEXT SPSHOW SH END