www.BPODigest.com i-Vortal

Hi Ram,
Can i get a desktop copy of the applet- something like an executable - so that i can run the tool as and when i need it, without connecting to the internet?

Thanks,
Satish VArma

Hi Satish,

I Didn't think about it, i will compile a desktop version and upload it soon.

Hi,

Your applet is on the right track, and I was HAPPY to find it, but it has a major flaw (in my opinion).

I would suggest that it ALWAYS scramble any word of four or more letters if it can.

As it is currently behaving, it allows the unscrambled form of the word as one of the possible outcomes. This causes text not to scramble enough .

For example, I put in the following text:

Are the new voip telephones really good enough ?
I find that the quality of sound is not great,
particularly when I use the phone to record the
greeting of another phone line, such as my cell
phone.

and your applet produces:

Are the new viop tleephoens raelly good enoguh ?
I find that the qauilty of sunod is not graet,
partiuclarly wehn I use the ponhe to record the
gretenig of another pnohe lnie, scuh as my cell
phnoe.

It would be better in my opinion if the scrambled version of this text were NOT allowed to show "find" or "that" or "record" or "another" or "cell" .

In other words, my request is that if the applet can scramble a word under the rules (which it can for most words longer than 3 letters, not all, since the word "good" can't be scrambled !) then it should scramble it.

What do you think ?

Thanks !

EricOsman@rcn.com 8-dec-2005

can i get the desktop version or can u tell me where i can download this script ?

Hey Ramdhan Yadav,

Men you are really doing a good job. I found the application quite intresting. Can you mail me the application so that I can use it as and when required.

Regards,
Ashish Malpani.

Hi Eric,

Thank you for the good comments and pointers. My objective of developing this tool is just to help people practice speed reading. Scrambling each and every word is not a necessary requirement.

Mike/Ashish,

I will try to release a desktop version asap.

Thank You,

Very interesting! I saw this first on NGC channel a few days ago, and decided to try it for myself. I wasn't aware of this applet so I wrote my own pascal program just a few hours ago to check it out, see below.

PROGRAM BEW;
VAR CH: CHAR;
TEST:BOOLEAN;
INF,OUTF: TEXT;
K,TEL: BYTE;
ARPERM: ARRAY OF BYTE;
ARCH: ARRAY[1..256] OF CHAR;
FUNCTION TESTLET(X:CHAR):BOOLEAN;
BEGIN
CASE X OF
#65..#90,#97..#122,#128..#151,#153,#154,#159..#165,#181..#183,
#198,#199,#210..#212,#214..#216,#224..#229,#233..#237: TESTLET:=TRUE
ELSE
TESTLET:=FALSE;
END;
END;
PROCEDURE PRM(N:BYTE;VAR AR:ARRAY OF BYTE);
VAR INTM,K,R:BYTE;
BEGIN
FOR K:=0 TO N-1 DO
AR[K]:=K;
FOR K:=0 TO N -2 DO
BEGIN
R:=RANDOM(N-K)+K;
IF R>K THEN
BEGIN
INTM:=AR[K];
AR[K]:=AR[R];
AR[R]:=INTM;
END;
END;
END;
BEGIN
RANDOMIZE;
ASSIGN(INF,'IN.TXT');
ASSIGN(OUTF,'OUT.TXT');
REWRITE(OUTF);
RESET(INF);
REPEAT
READ(INF,CH);
IF TESTLET(CH) AND NOT(EOF(INF))
THEN
BEGIN
TEL:=0;
REPEAT
TEL:=TEL+1;
ARCH[TEL]:=CH;
READ(INF,CH);
TEST:=TESTLET(CH);
UNTIL NOT(TEST) OR EOF(INF);
IF TEST THEN BEGIN
TEL:=TEL+1;
ARCH[TEL]:=CH;
END;
IF TEL>3 THEN BEGIN
SETLENGTH(ARPERM,TEL-2);
PRM(TEL-2,ARPERM);
WRITE(OUTF,ARCH[1]);
FOR K:=0 TO TEL-3 DO WRITE(OUTF,ARCH[ARPERM[K]+2]);
WRITE(OUTF,ARCH[TEL]);
END
ELSE FOR K:=1 TO TEL DO WRITE(OUTF,ARCH[K]);
IF NOT(TEST) THEN WRITE(OUTF,CH);
END
ELSE WRITE(OUTF,CH);
UNTIL EOF(INF);
CLOSE(INF);
CLOSE(OUTF);
END.

I find it annoying that you can not copy and past text into the applet. It is kind of redundant to have to type your own text in, before re-reading it.