altes rpg, in einem string was tauschen

[malzusrex]

Ehmm,
Lochkarten müsst ihr aber nicht mehr stanzen... oder ?
;-)

     E                    ARA        16  1                  
     E                    ARB        20  1                  
      *                                                     
     C                     MOVEL'ABCDEFGH'TEXT   16         
     C                     MOVE 'IJKLMNOP'TEXT              
     C                     MOVE 'XXXX'    TEXT4   4         
      *                                                     
     C                     MOVEATEXT      ARA               
     C                     MOVEAARA       HILFE   8         
     C                     MOVEAHILFE     ARB               
     C                     MOVEATEXT4     ARB,9             
     C                     MOVEAARA,9     HILFE             
     C                     MOVEAHILFE     ARB,13            
     C                     MOVEAARB       TEXT20 20         
      *                                                     
     C                     SETON                     LR 

Am Anfang steht in TEXT "ABCDEFGHIJKLMNOP".
Dieser wird bei dann bei H und I geteilt, und 4* das "X" eingefügt.
Am Ende steht in TEXT20 'ABCDEFGHXXXXIJKLMNOP'

Alt genug ??

Gruß
Ronald