home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / language / grs / g / p3 < prev    next >
Encoding:
Text File  |  1991-04-09  |  338 b   |  21 lines
  1. student isa person;
  2.  
  3. create student guy, steven, chris;
  4. create person peter;
  5.  
  6. guy.set("Guy",24,"Comp Sci",4,"Causewayside",4);
  7.  
  8. steven.set("Steven",21,"Comp Sci",4,"Lorne House",1);
  9.  
  10. chris.set("Chris",22,"Psychology",5,"Aberdeen",4);
  11.  
  12. peter.pset("Peter",48);
  13.  
  14. guy.show();
  15. write("Hello");
  16. (*
  17. steven.show();
  18. chris.show();
  19. peter.pshow();
  20. *)
  21.