Comparing files ap7071.dbl_GoldenStrand and AP7071.DBL
***** ap7071.dbl_GoldenStrand
;==Changes==============================================================;
; 01/21/2014 lso - FINAL CUSTOM CHANGES for GOLDEN STRAND LASER FORMS!!!
; 01/14/2014 lso - adj for new laser forms, vert & horiz
***** AP7071.DBL
;==Changes==============================================================;
; 01/14/2014 lso - adj for new laser forms, vert & horiz
*****

***** ap7071.dbl_GoldenStrand
record  ,X
        prt_city                ,a20    @7
        prt_state               ,a2     @28
        prt_zip         ,a5     @31
***** AP7071.DBL
record  ,X
        prt_city        ,a20    @7
        prt_state       ,a2     @28
        prt_zip         ,a5     @31
*****

***** ap7071.dbl_GoldenStrand
record ,X
        prt_box1            ,a2 @5
      prt_box2        ,a12    @8
      prt_box5        ,a7     @45
        prt_box6            ,a2 @50
      prt_box7        ,a12    @64
        
***** AP7071.DBL
record ,X
        prt_box1        ,a2     @5
        prt_box2        ,a12    @8
        prt_box5        ,a7     @45
        prt_box6        ,a2     @50
        prt_box7        ,a12    @64
        
*****

***** ap7071.dbl_GoldenStrand
                  incr form_no
                  for ndx from 1 thru 7 call print      ; 30-34   Adj for laser
                 end
***** AP7071.DBL
                  incr form_no
                  for ndx from 1 thru 3 call print      ; 30-34
                 end
*****

***** ap7071.dbl_GoldenStrand
                  call print_form
                  lp_cnt = 98                           
                  xcall print
***** AP7071.DBL
                  call print_form
                  lp_cnt = 98
                  xcall print
*****

***** ap7071.dbl_GoldenStrand
print_form,
        for ndx from 1 thru 3 call print                ; lines 1-4    adj for laser
      prt_box5 = ap1_fbox5, mask5
        prt_box7 = ap1_fbox7, mask
***** AP7071.DBL
print_form,
        for ndx from 1 thru 3 call print                ; lines 1-4
        prt_box5 = ap1_fbox5, mask5
        prt_box7 = ap1_fbox7, mask
*****

***** ap7071.dbl_GoldenStrand
        prt_payid = ut_cmfid
        call print                                      ; line 10 -

***** AP7071.DBL
        prt_payid = ut_cmfid
        call print                                      ; line 10

*****

***** ap7071.dbl_GoldenStrand
        call print                                      ; line 29
 

***** AP7071.DBL
        call print                                      ; line 29
        call print                                      ; 01/14/14 Adj start line
        call print                                      ; by 2

*****

***** ap7071.dbl_GoldenStrand
***** AP7071.DBL

*****

