          SUBROUTINE (VIEW)
** Version# 4.0001[1] - 09/26/2011 - 04:26pm - SMITJR - eclipse

          BEGIN CASE
          CASE VIEW = 1
          CASE VIEW = 2
             WINDOW.CHILD 23,0,31,11,9
             PRINT @(23,0): 'ΝΝΝCostΝΝΝΡΝΝΝΝGM$ΝΝΝΡΝΝΝGP%ΝΝΝ'
             FOR J=1 TO 10
             PRINT @(23,J): '          ³          ³          '
             NEXT J
             PRINT @(23,11):'ΝΝΝΝΝΝΝΝΝΝΟΝΝΝΝΝΝΝΝΝΝΟΝΝΝΝΝΝΝΝΝ':
          CASE VIEW = 3
             WINDOW.CHILD 23,0,31,11,9
             PRINT @(23,0): 'ΝCOGS CostΡΝΝΝΝGM$ΝΝΝΡΝΝΝGP%ΝΝΝ'
             FOR J=1 TO 10
             PRINT @(23,J): '          ³          ³          '
             NEXT J
             PRINT @(23,11):'ΝΝΝΝΝΝΝΝΝΝΟΝΝΝΝΝΝΝΝΝΝΟΝΝΝΝΝΝΝΝΝ':
          CASE VIEW = 4
             WINDOW.CHILD 23,0,31,11,9
             PRINT @(23,0): 'ΝΝCPlan$ΝΝΡΝΝCPlan%ΝΝΡΝCost GP%':
             FOR J = 1 TO 10
             PRINT @(23,J): '          ³          ³          '
             NEXT J
             PRINT @(23,11):'ΝΝΝΝΝΝΝΝΝΝΟΝΝΝΝΝΝΝΝΝΝΟΝΝΝΝΝΝΝΝΝ':
          END CASE

          RETURN

!SMITJR~09/26/11~16:26
