Quellcode-Bibliothek

^© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: ZXCHANGE.REXX Sprache: REXX

Original von: REXX^©

/* REXX EXCHANGE MACRO */
/* XCHANGE SEND_COL1 SEND_COL2 RECEIVE_COL1 RECEIVE_COL2 (F)ULL  */
/* TAUSCHT ZWEI BEREICHE. WENN F NICHT ANGEGEBEN BEREICH1 NACH 2 */
/* ACHTUNG: PARAMETER WERDEN NOCH NICHT GEPRüFT !!! */
          ADDRESS ISREDIT
          "MACRO (SCV SCB RCV RCB FU)"
          "(ZFIRST) = LINENUM .ZFIRST"
          "(ZLAST) = LINENUM .ZLAST"
          DO I = ZFIRST TO ZLAST
             "(L) = LINE " I
             S = SUBSTR(L,SCV,SCB)
             R = SUBSTR(L,RCV,RCB)
             L = OVERLAY(S,L,RCV,RCB - RCV + 1,0)
             IF FU = " " THEN
                L = OVERLAY(R,L,SCV,SCB - SCV + 1,0)
             "LINE" I "= (L)"
          END

¤ Dauer der Verarbeitung: 0.16 Sekunden (vorverarbeitet) ¤

Download des Quellennavigators
Download des sprechenden Kalenders
in der Quellcodebibliothek suchen

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.