2011-06-15 11:46

countries: PROCEDURE EXPOSE (dict$.exposestems) 
mpout.0=0
writel(LEFT('Countries of the World',30)left('Capitol',15)right('Population',10)right('Size',10))
writel(COPIES('-',65))
DO i=1 TO countries.0
/*
   if exists('countries.CAPITOL.i')=0 then countries.CAPITOL.i='???'
   if exists('countries.POPULATION.i')=0 then countries.POPULATION.i='???'
   if exists('countries.SIZE.i')=0 then countries.SIZE.i='???'
*/
   writel(LEFT(countries.i,30)left(countries.capitol.i,15)right(countries.population.i,10)right(countries.size.i,10))
END
RETURN   

writel:
PARSE ARG line
lmax=mpout.0+1
mpout.0=lmax
mpout.lmax=line
RETURN

2011-06-15 11:46