1. -- 
  2. -- Jan & Uwe R. Zimmer, Australia, July 2011 
  3. -- 
  4.  
  5. package Screenshots is 
  6.  
  7.    procedure Take_Shot; 
  8.  
  9. end Screenshots;