\start83\
\comment=Program file dated 04/21/00, 15:36
\name=ZPPLOT
prgmZPZOOM
ClrDraw
For(X,1,dim(L\1\),2)
Pt-On(L\1\(X),L\1\(X+1))
End
If E=1
Then
For(X,1,dim(L\1\)-2,2)
Line(L\1\(X),L\1\(X+1),L\1\(X+2),L\1\(X+3))
End
Line(L\1\(dim(L\1\)-1),L\1\(dim(L\1\)),L\1\(1),L\1\(2))
Input 
Return
\stop83\