       identification division.
       program-id. maxsay.
       data division.
       working-storage section.
       01 Args-Work-Area.
           03 args-num                pic x(4) comp-x.
           03 args-val                pic x(40).
           03 args-all                pic x(80).
           03 args-len                pic 9(2).
           03 args-mlen               pic 9(2).
           03 args-half               pic 9(2).
           03 args-rem                pic 9(2).
       procedure division.
           accept args-num from argument-number
           if args-num = 0
                display "*--> No parameters passed to this program"
                exit program
                stop run
           end-if
           perform args-num times
               accept args-val from argument-value
               string args-all delimited by space 
                      args-val delimited by space '_' delimited by space
                      into args-all 
           end-perform

           INSPECT args-all TALLYING args-len FOR ALL " "
           SUBTRACT args-len FROM LENGTH OF args-all GIVING args-len
           add 2 to args-len giving args-mlen
           display '/' with no advancing
           perform args-mlen times
             display '-' WITH NO ADVANCING
           end-perform
           display '\' 
           inspect args-all replacing all spaces by " "
           display "| " args-all (1:args-len) " |"

           display '\' with no advancing
           divide args-len by 2 giving args-half remainder args-rem
           perform args-half times
             display '-' WITH NO ADVANCING
           end-perform
            if args-rem = 1
              display '-' with no advancing
           end-if
           display 'v' WITH NO ADVANCING
           perform args-half times
             display '-' WITH NO ADVANCING
           end-perform
           display '-' WITH NO ADVANCING
           display '/' 


           add 1 to args-half giving args-half
           add args-rem to args-half giving args-half
           perform args-half times
             display ' ' WITH NO ADVANCING
           end-perform
           display '|'
           perform args-half times
             display ' ' WITH NO ADVANCING
           end-perform
           display '\ |\.-;'
           
           perform args-len times
             display ' ' WITH NO ADVANCING
           end-perform
           display '>~<._'

           perform args-len times
             display ' ' WITH NO ADVANCING
           end-perform
           display '.\ \._:'

           exit program
           stop run.
