home *** CD-ROM | disk | FTP | other *** search
/ Chip 1995 March / CHIP3.mdf / programm / prog2 / gotodemo.ada < prev    next >
Encoding:
Text File  |  1991-07-01  |  633 b   |  37 lines
  1.                                        -- Chapter 5 - Program 5
  2. with Text_IO;
  3. use Text_IO;
  4.  
  5. procedure GoToDemo is
  6.  
  7. begin
  8.    goto Some_Place;
  9.  
  10. <<There>>
  11.    Put_Line("I am now at the There place.");
  12.    goto Stop_This_Mess;
  13.  
  14. <<Where>>
  15.    Put_Line("I am now at the Where place.");
  16.    goto There;
  17.  
  18. <<Some_Place>>
  19.    Put_Line("I am now Some_Place.");
  20.    goto Where;
  21.  
  22. <<Stop_This_Mess>>
  23.    Put_Line("I am now about to end this mess.");
  24.  
  25. end GoToDemo;
  26.  
  27.  
  28.  
  29.  
  30. -- Result of execution
  31.  
  32. -- I am now Some_Place.
  33. -- I am now at the Where place.
  34. -- I am now at the There place.
  35. -- I am now about to end this mess.
  36.  
  37.