C====>Begin Module %MAIN File t208q.f C---->Makedcls Options: All variables C C Parameter variables C INTEGER maxtok PARAMETER (maxtok = 10) C C Local variables C CHARACTER*10 tokl10, toklmx C C====>End Module %MAIN File t208q.f