16 lines
409 B
Text
16 lines
409 B
Text
CHARACTER c, txt='abc? XYZ!', cod*100
|
|
|
|
DO i = 1, LEN_TRIM(txt)
|
|
c = txt(i)
|
|
n = ICHAR(txt(i))
|
|
IF( (c >= 'a') * (c <= 'm') + (c >= 'A') * (c <= 'M') ) THEN
|
|
c = CHAR( ICHAR(c) + 13 )
|
|
ELSEIF( (c >= 'n') * (c <= 'z') + (c >= 'N') * (c <= 'Z') ) THEN
|
|
c = CHAR( ICHAR(c) - 13 )
|
|
ENDIF
|
|
|
|
cod(i) = c
|
|
ENDDO
|
|
|
|
WRITE(ClipBoard, Name) txt, cod ! txt=abc? XYZ!; cod=nop? KLM!;
|
|
END
|