#current-line

["Parks, Sam" <sam.parks@ORCINC.COM>]

I am trying to use the Graphic command to print a shaded box without sides
on a print line.
I have used it successfully in other sqr programs exactly as I am trying to
use it here.
The #current-line displays as 37, when I use it as a pointer, it becomes 73.
                     39 = 77, 41 = 81, and so on.
below is the actual logic.  I am using SQR Workbench, V4.1.1
The defaults are: #box_rule_width = 0, #box_shading = 1

--- logic here ----------------------------------
   add 1 to #shade_count_main_ne
   let #P1  = #current-line                  ! this is a display setup for
testing
    print ' ' (,1)                                  ! I print a blank space
to get the #current-line correct
   let #P2 = #current-line                   ! this is a display setup for
testing
   if #shade_count_main_ne = 2  and #current-line < 51
     let #shade_count_main_ne = 0
     let #box_start_line     = #current-line
     let #box_no_of_columns  = 160
     show '#P1 '  #P1           ! display for testing    displays 37
     show '#P2 '  #P2           ! display for testing    displays 37
     show  #box_start_line    ! display for testing    displays 37
     graphic (#box_start_line,#box_start_column,#box_no_of_columns)
               box #box_depth #box_rule_width   #box_shading
  end-if

Error on line 1115:
   (SQR 4602) GRAPHIC BOX out of bounds.
Row: 73, Column: 1, Width: 160, Depth: 1

Row should be 37 ( #box_start_line)

Thanks