process FINAL.REPORT
   define PORT as an integer variable

   use 6 for output
   print 5 lines with NO.OF.FREIGHTERS, NO.OF.TANKERS, TIME.V thus
                         Pacific Shipping Study

                       Number of freighters is  *
                       Number of tankers is     *
                       Days of simulation:      **

   for PORT = 1 to NO.OF.PORTS 
   do
      skip 2 lines
      print 14 lines with
         PORT.NAME(PORT), NO.OF.SHIPS.SERVED(PORT), AVG.IN.PORT.TIME(PORT),
         MAX.IN.PORT.TIME(PORT),
         DOCK.UTILIZATION(PORT)/PORT.NO.OF.BERTHS(PORT) * 100,
         AVG.DOCK.QUEUE(PORT), MAX.DOCK.QUEUE(PORT), 
         TUG.UTILIZATION(PORT.TUG(PORT)) * 100, AVG.TUG.QUEUE(PORT.TUG(PORT)) 
         and MAX.TUG.QUEUE(PORT.TUG(PORT)) thus
                     ***********************  
                     ----------------------- 
   Number of ships that have been loaded             **     
   Average in-port time for a ship (in hours)         *.** 
   Maximum in-port time for a ship (in hours)         *.**         

   Dock utilization (%)                               *.**          
   Average queue for the dock (number of ships)       *.**         
   Maximum queue for the dock (number of ships)       *           

   Tug utilization (%)                                *.**       
   Average queue for the tug (number of ships)        *.**      
   Maximum queue for the tug (number of ships)        *        

   loop

   stop  ''terminate simulation
   
end   ''REPORT
