Text in Großbuchstaben/Kleinbuchstaben konvertieren

C     Die Routine P2H012 wandelt den Text in Großbuchstaben.

C     Die Routine P2H013 wandelt den Text in Kleinbuchstaben.

C     

C     Aufruf:

C     CALL P2H012 (TEXTVAR,IRET)

C     CALL P2H013 (TEXTVAR,IRET)

C     

C     Folgende Variable muss zuvor festgelegt werden:

C     

C     TEXTVAR : Variable mit dem zu ändernden Text. Nach Aufruf der

C               Routine enthält die Variable den korrigierten Text

C     

C     HINWEIS: Die Textvariable TEXTVAR muss im Programmkopf

C              deklariert werden!

C     CHARACTER *80 TEXTVAR

C     

C     Beispiel:

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

C     Text in Großbuchstaben konvertieren

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

      TEXTVAR = "Beispiel"

C     

      CALL P2H012 (TEXTVAR,IRET)

C     

C     Die Ausgabe mit der Anweisung:

      WRITE(6,*)TEXTVAR

C     

C     ergibt: "BEISPIEL"

C