FOR SCPLOT,SCPLOT=SCPLOT/NOCK/NOSP/NOTR
FOR SHTEST=SHTEST/NOCK/NOTR
PIP SHTEST.TSK;*/DEL
PIP *.*/PU
FTB SHTEST=SHTEST,SHADE,SCPLOT,LB:[1,1]ANAL/LB
PIP *.*/PU
RUN SHTEST
RUN [200,200]ERASE