               job  Print headers, then load an overlay                    heads
               ctl  6611
     headsw    equ  190         Don't print headers if blank
               org  333
     start     sw   1,81
     loop      bce  tape,81,"   Tape load leaves GM in 81
               r    write
     tape      rtw  1,1         Read with word marks
               ber  taperr
     write     bce  1,80,A      Next card/record a header?
               bce  1,1,,       Next card/record a load card?
               bce  loop,headsw,  Skip printing headers?
               lca  80,280      Move line to print area
               w                Print it
               cs                 and
               cs                   clear core
               w                Double space
               b    loop
     taperr    bsp  1
               nop  111
               h
               bin  tape,
               dcw  @"@
               end  start
