\START92\
\COMMENT=
\NAME=greypic
\FILE=GREYPIC.89P
(pics)
Prgm
\(C)\pics:Prgm
Local  n,t
StoPic  n
getType(n)\->\t
DelVar  n
For  n,1,17
If  getType(#(pics&string(n)))\!=\t:Exit
EndFor
n-1\->\n
intDiv(75,n)\->\t
If  n=0:Return  
While  getKey()=0
CyclePic  pics,n,0,t
EndWhile
EndPrgm

\STOP92\