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

Delete leading spaces

C     This routine deletes leading spaces in the text of the variable.

C     

C call:

C     CALL P2H026 (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     Delete leading spaces

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

      TEXTVAR = " Example"

C     

      CALL P2H026 (TEXTVAR,IRET)

C     

C     The content of the TEXTVAR variable is now "Example"