Pico.borg

`*-----------------------------------*`
`*          >>>Pico v.1.1<<<         *`
`*            Theo D'Hondt           *`
`*  VUB Programming Technology Lab   *`
`*              (c)1999              *`
`*-----------------------------------*`
`*                pico               *`
`*      (METACIRCULAR VERSION)       *`
`*-----------------------------------*`

{ Pico()::
   { Init_Native();
     display('start Pico');
     display(eoln);
     entry: accept("enter pico expression");
     if(entry != '',
       { display(eoln);
         DoPico(entry)
       });
     display(eoln+'end Pico') };

  DoPico(exprstr):: Print(Eval(Read(exprstr)));

  display('pico ......... installed', eoln)

}