home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / language / grs / g / Book1 next >
Encoding:
Text File  |  1991-04-13  |  1.3 KB  |  45 lines
  1. instanceof class person;
  2.  
  3. person := class.new(
  4.              "person",
  5.              [
  6.                 {
  7.                    null function set( integer b,d; string n )
  8.                    {
  9.                       assume string name; integer born,died in
  10.                       {
  11.                          name := n;
  12.                          born := b;
  13.                          died := d;
  14.                       };
  15.                    };
  16.                 },
  17.                 {
  18.                    null function show()
  19.                    {
  20.                       assume string name; integer born,died in
  21.                       {
  22.                          write("\n",name," was born in ",born);
  23.                          if died >= born then
  24.                             write(" and died in ",died);
  25.                          endif;
  26.                          write("\n\n");
  27.                       };
  28.                    };
  29.                 },
  30.                 {
  31.                    null function died( integer year )
  32.                    {
  33.                       assume integer died in
  34.                          died := year;
  35.                    };
  36.                 }
  37.              ],
  38.              [
  39.                 {
  40.                    string name;
  41.                    integer born, died;
  42.                 }
  43.              ]
  44.              );
  45.