home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 02 / t17.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-02-05  |  249 b   |  16 lines
  1. {$d+}
  2. program t17;
  3. type aufz=(rot,gelb,gruen,blau);
  4.  
  5. procedure makeerror(a:aufz);
  6. (* in dieser Prozedur kommt es während der Laufzeit zu einem Fehler*)
  7. begin
  8.   writeln(ord(a));
  9.   makeerror(succ(a));
  10. end;
  11.  
  12. begin
  13.   makeerror(rot)
  14. end.
  15.  
  16.