1. PN4000 online help
2. Variant
3. System
4. Variant info
5. Routines
6. Functions for texts (convert, search, replace)
7. Merging two texts

Merging two texts

C     TEXT1 and TEXT2 are merged and saved in TEXT3.

C     Spaces at the end are deleted.

C     

C call:

C     CALL P2H028 (TEXT1,TEXT2,TEXT3,IRET)

C     

C     The following variables must be defined beforehand:

C     

C     TEXT1 : the first text

C     TEXT2 : the second text

C     TEXT3 : Return of the compiled text

C     IRET  : is not evaluated, but must be specified

C     

C     NOTE: The text variables must be declared in the program header!

C     CHARACTER *80 TEXT1, TEXT2, TEXT3

C     

C     Example:

C     ------------------------

C     Merge two texts

C     ------------------------

      TEXT1 = "Kirsch"

      TEXT2 = "kuchen"

C     

      CALL P2H028 (TEXT1,TEXT2,TEXT3,IRET)

C     

C     The output with the instruction:

      WRITE(6,*)TEXT3

C     

C     produces: "Kirschkuchen"

C