Quelle ZXCHANGE.REXX Sprache: 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

quality80%

¤ Dauer der Verarbeitung: 0.14 Sekunden (vorverarbeitet) ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

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.