home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / language / grs / g / student < prev   
Encoding:
Text File  |  1991-03-27  |  634 b   |  27 lines
  1. instanceof class student;
  2.  
  3. assume #person pinst in
  4. {
  5.  
  6. student := class.new("student",
  7.                      [{
  8.                         null function show()
  9.                         {
  10.                            pinst.show();
  11.                         };
  12.                       },
  13.                       {
  14.                         null function set(string namep; integer agep)
  15.                         {
  16.                            pinst.set(namep,agep);
  17.                         };
  18.                       }
  19.                      ],
  20.                      [
  21.                         {#person pinst;}
  22.                      ]
  23.                     );
  24.  
  25.  
  26. };
  27.