1. PN4000 online help
2. Variant
3. System
4. Variant info
5. Routines
6. Functions for texts (convert, search, replace)
7. Convert text to upper case / lower case

Convert text to upper case / lower case

C     The routine P2H012 converts the text to upper case.

C     The routine P2H013 converts the text to lower case.

C     

C call:

C     CALL P2H012 (TEXTVAR,IRET)

C     CALL P2H013 (TEXTVAR,IRET)

C     

C     The following variable must be defined beforehand:

C     

C     TEXTVAR : Variable with the text to be changed. After calling up the

C               routine, the variable contains the corrected text

C     

C     NOTE: The text variable TEXTVAR must be declared in the program header

C              !

C     CHARACTER *80 TEXTVAR

C     

C     Example:

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

C     Convert text to upper case

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

      TEXTVAR = "Example"

C     

      CALL P2H012 (TEXTVAR,IRET)

C     

C     The output with the instruction:

      WRITE(6,*)TEXTVAR

C     

C     produces: "EXAMPLE"

C