/**********************************************************************/
/* $VER: dkROT13  v2.2   10.11.2001  © by Krzysztof 'DK75' Duchnowski */
/* Skrypt ARexxa uûywajâcy ROT13 na tekôcie wyciëtym do clipboardu    */
/* ClipHistory i wyôwietlajâcy go w oknie shell.                      */
/**********************************************************************/
/* Staîe BaseL, BAseU, KodeL, KodeU sîuûâ do kodowania ROT13        */
/* a wiëc proszë ich nie zmieniaê                                   */
/********************************************************************/

BaseL = 'abcdefghijklmnopqrstuvwxyz'
BaseU = UPPER(BaseL)
KodeL = 'nopqrstuvwxyzabcdefghijklm'
KodeU = UPPER(KodeL)

/********************************************************************/
/* Poniûsze linie aû do MAIN to preferencje które moûna zmieniaê.   */
/********************************************************************/
/* Staîa tempfile to nazwa pliku tymczasowego tworzonego do         */
/* przechwytywania zawartoôci clipboardu.                           */
/********************************************************************/

tempfile = 'T:dkROT13.tmp'

/********************************************************************/
/* W linii poniûej podaj tytuî, rozmiar i pozycjë okna konsoli RAW: */
/* do wyôwietlania zROTowanego tekstu.                              */
/********************************************************************/

window = 'raw:240/100/540/400/dkROT13'

/********************************************************************/
/* W linii poniûej podaj nazwë portu ARexxa programu ClipHistory w  */
/* twoim systemie (spójrz w tooltypy ClipHistory)                   */
/* ******************************************************************/

ClipHistoryPort = 'CLIPHISTORY0'

/********************************************************************/
/* MAIN                                                             */
/********************************************************************/

OPTIONS RESULTS

ADDRESS VALUE ClipHistoryPort

GetTextClip
tmp = RESULT
ROT = right(tmp,length(tmp)-2)

tmp = translate(ROT,BaseL,KodeL)
ROT = translate(tmp,BaseU,KodeU)

call open(temp,tempfile,'w')
call writech(temp,ROT)
call close(temp)

call open(Info,window,'w')
call writech(Info,ROT)
call writech(Info,'0a'x'0a'x'       < Press Any Key >')
call readch(Info)
call close(Info)

PutFile tempfile

/********************************************************************/
/* END                                                              */
/********************************************************************/