ESP source code

<SCRIPT LANGUAGE="VBScript">

<!--

Sub Layout1_OnLoad()

rem shuffles RND

while 1=1

textbox1.text= chr(65+int(26*rnd(32)))

textbox2.text= chr(65+int(26*rnd(32)))

doevents

wend

end sub

-->

</SCRIPT>

<SCRIPT LANGUAGE="VBScript">

<!--

Sub CommandButton2_Click()

rem "medium" (program user) removes last letter

c=out.text

c1=len(c)-1

c=left(c,c1)

out.text=c

end sub

-->

</SCRIPT>

<SCRIPT LANGUAGE="VBScript">

<!--

Sub CommandButton1_Click()

rem assign random letter to boxes A and B

textbox1.text= chr(65+int(26*rnd(32)))

textbox2.text= chr(65+int(26*rnd(32)))

rem assign boxes A or B to output

if rnd(32)>.5 then

out.text=out.text+textbox1.text

else

out.text=out.text+textbox2.text

end if

rem add spaces at random

if rnd(32)<.2 then

out.text=out.text+" "

end if

end sub

-->

</SCRIPT>

<SCRIPT LANGUAGE="VBScript">

<!--

Sub Image2_MouseMove(Button, Shift, X, Y)

rem shuffle boxes as mouse moves over picture

textbox1.text= chr(65+int(26*rnd(32)))

textbox2.text= chr(65+int(26*rnd(32)))

end sub

-->

</SCRIPT>

<DIV BACKGROUND="#ffffff" ID="Layout1" STYLE="LAYOUT:FIXED;WIDTH:340pt;HEIGHT:283pt;">

<OBJECT ID="out"

CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA006002F3" STYLE="TOP:126pt;LEFT:0pt;WIDTH:330pt;HEIGHT:152pt;TABINDEX:0;ZINDEX:0;">

<PARAM NAME="VariousPropertyBits" VALUE="2894088219">

<PARAM NAME="ForeColor" VALUE="0">

<PARAM NAME="Size" VALUE="11642;5362">

<PARAM NAME="FontCharSet" VALUE="0">

<PARAM NAME="FontPitchAndFamily" VALUE="2">

<PARAM NAME="FontWeight" VALUE="0">

</OBJECT>

<OBJECT ID="CommandButton1"

CLASSID="CLSID:D7053240-CE69-11CD-A777-00DD01143C57" STYLE="TOP:41pt;LEFT:0pt;WIDTH:72pt;HEIGHT:24pt;TABINDEX:1;ZINDEX:1;">

<PARAM NAME="Caption" VALUE="Next letter">

<PARAM NAME="Size" VALUE="2540;847">

<PARAM NAME="FontCharSet" VALUE="0">

<PARAM NAME="FontPitchAndFamily" VALUE="2">

<PARAM NAME="ParagraphAlign" VALUE="3">

<PARAM NAME="FontWeight" VALUE="0">

</OBJECT>

<OBJECT ID="CommandButton2"

CLASSID="CLSID:D7053240-CE69-11CD-A777-00DD01143C57" STYLE="TOP:41pt;LEFT:248pt;WIDTH:72pt;HEIGHT:24pt;TABINDEX:2;ZINDEX:2;">

<PARAM NAME="Caption" VALUE="Reject last letter">

<PARAM NAME="Size" VALUE="2540;847">

<PARAM NAME="FontCharSet" VALUE="0">

<PARAM NAME="FontPitchAndFamily" VALUE="2">

<PARAM NAME="ParagraphAlign" VALUE="3">

<PARAM NAME="FontWeight" VALUE="0">

</OBJECT>

<OBJECT ID="TextBox1"

CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA006002F3" STYLE="TOP:8pt;LEFT:0pt;WIDTH:25pt;HEIGHT:25pt;TABINDEX:3;ZINDEX:3;">

<PARAM NAME="VariousPropertyBits" VALUE="746604571">

<PARAM NAME="Size" VALUE="882;882">

<PARAM NAME="FontName" VALUE="Scruff LET">

<PARAM NAME="FontHeight" VALUE="280">

<PARAM NAME="FontCharSet" VALUE="0">

<PARAM NAME="FontPitchAndFamily" VALUE="2">

<PARAM NAME="FontWeight" VALUE="0">

</OBJECT>

<OBJECT ID="Image2"

CLASSID="CLSID:D4A97620-8E8F-11CF-93CD-00AA00C08FDF" STYLE="TOP:0pt;LEFT:83pt;WIDTH:150pt;HEIGHT:117pt;ZINDEX:4;">

<PARAM NAME="PicturePath" VALUE="images\randc.jpg">

<PARAM NAME="AutoSize" VALUE="-1">

<PARAM NAME="BorderStyle" VALUE="0">

<PARAM NAME="SizeMode" VALUE="3">

<PARAM NAME="Size" VALUE="5292;4128">

<PARAM NAME="PictureAlignment" VALUE="0">

</OBJECT>

<OBJECT ID="TextBox2"

CLASSID="CLSID:8BD21D10-EC42-11CE-9E0D-00AA006002F3" STYLE="TOP:8pt;LEFT:297pt;WIDTH:25pt;HEIGHT:25pt;TABINDEX:4;ZINDEX:5;">

<PARAM NAME="VariousPropertyBits" VALUE="746604571">

<PARAM NAME="Size" VALUE="882;882">

<PARAM NAME="FontName" VALUE="Scruff LET">

<PARAM NAME="FontHeight" VALUE="280">

<PARAM NAME="FontCharSet" VALUE="0">

<PARAM NAME="FontPitchAndFamily" VALUE="2">

<PARAM NAME="FontWeight" VALUE="0">

</OBJECT>

<OBJECT ID="Label1"

CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0" STYLE="TOP:74pt;LEFT:8pt;WIDTH:58pt;HEIGHT:41pt;ZINDEX:6;">

<PARAM NAME="BackColor" VALUE="16777215">

<PARAM NAME="Caption" VALUE="Move mouse over picture to shuffle, then click next letter.">

<PARAM NAME="Size" VALUE="2046;1446">

<PARAM NAME="FontCharSet" VALUE="0">

<PARAM NAME="FontPitchAndFamily" VALUE="2">

<PARAM NAME="FontWeight" VALUE="0">

</OBJECT>

<OBJECT ID="Label2"

CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0" STYLE="TOP:74pt;LEFT:256pt;WIDTH:66pt;HEIGHT:33pt;ZINDEX:7;">

<PARAM NAME="BackColor" VALUE="16777215">

<PARAM NAME="Caption" VALUE="You can edit the text in the box">

<PARAM NAME="Size" VALUE="2328;1164">

<PARAM NAME="FontCharSet" VALUE="0">

<PARAM NAME="FontPitchAndFamily" VALUE="2">

<PARAM NAME="FontWeight" VALUE="0">

</OBJECT>

</DIV>