“…colors -salmon,blue,green,cyan,red, ! black n=0 do 10 i=1,24 do 9 j=1,9 if(i.eq.nsn(j))go to 10 9 continue n=n+1 snx(n)=senx(i) sny(n)=seny(i) 10 continue call plinit() call plcol0 (15) call plschr(0.,1.0) call plenv(650.,950.,-50.,250.,1,1) call pllab('X -mm','Y -mm','compression side') call plcol0(mclr(1)) call plpoin(nn1,x1,y1,42) …”