Example 9

• Data set contains lines 0 through 120.
• Line 0 contains data.
• Source lines are 80, 90, and 100.
• Target area starts at line 0.

Before:              Enter:                       After:

0000   ZIP           top                          0050   HHHHHHHH
0010   A             move  80  100  *  incr(50)   0100   IIIIIIIII
0020   BB                                    CLP  0150   JJJJJJJJJJ
0030   CCC           The attempt to move into     0151   ZIP
0040   DDDD          line 0 gets the target data  0152   A
0050   EEEEE         to the top of the data set   0153   BB
0060   FFFFFF        but shifts the target line   0154   CCC
0070   GGGGGGG       by the increment value.      0155   DDDD
0080   HHHHHHHH                                   0156   EEEEE
0090   IIIIIIIII                                  0157   FFFFFF
0100   JJJJJJJJJJ                                 0158   GGGGGGG
0110   KKKKKKKKKKK                                0159   KKKKKKKKKKK
0120   LLLLLLLLLLLL                               0160   LLLLLLLLLLLL
                     Note: An entry of
                     move 80  100  0  incr(50)
                     produces the results
                     shown at right.  The         0000   ZIP
                     target data is inserted      0050   HHHHHHHH
                     between line 0 and the       0100   IIIIIIIII
                     remainder of the data   CLP  0150   JJJJJJJJJJ
                     set.                         0151   A
                                                  0152   BB
                                                  0153   CCC
                                                  0154   DDDD
                                                  0155   EEEEE
                                                  0156   FFFFFF
                                                  0157   GGGGGGG
                                                  0158   KKKKKKKKKKK
                                                  0159   LLLLLLLLLLLL