Hi all,

I've been slaving so long and hard on the new editor, I had to have a 
break. I received an email that suggested a quick and easy program of 
pure silliness, so I took a couple of hours off to do it.

Remember, neither the idea nor the content are mine--just the code. 
Hope it will provide a few giggles.

  e-e
  =J= a  y
   "


'~'A
'                       Runtime : Rntm FBII.Incl
'~'B
begin enum 1
_efTitle
_efInput
_efResult
end enum

_cr$ = 13

dim  names(2,31) as str15

data Srrsvlh,Oxps|,Exwwhufxs,Pxiilq,Jlgjhw,Fuxvw|
data Wxuqls,Vqhh}|,Grsh|,Juxqj|,Juhdv|,Ioxii|,Slqn|
data Fkhhvhedoo,Fklp0Fklp,Vwlqn|,Ioxqn|,Errelh,Wrrwlh
data ]lss|,Jrrehu,Grrixv,Volp|,Orrs|,Vqrww|,Exeed
data Vtxhh}lw,Rsudk,Vnlsshu,Glqn|,]vd0]vd,Grunh|

data Dssoh,Jx}}oh,Wrlohw,Jljjoh,Exujhu,Jlugoh
data Wkxqghu,Exiidor,Volph,Vtxlvk|,Vdxvdjh,Ol}dug
data Frrwlh,Prqnh|,Srww|,Olyhu,Edqdqd,Zdiioh,Edui
data Uklqr,Exeeoh,Kdpvwhu,Wrdg,Jl}}dug,Sl}}d,Jhuelo
data Slfnoh,Fkxfnoh,Wrix,Jrulood,Vwlqnhu,Fklfnhq

data khdg,prxwk,fkxqnv,idfh,qrvh,wxvk,euhdwk
data krqnhu,exww,eudlq,wxvklh,olsv,vsulqnohv
data wzlw,judeehu,khhov,vwxiihu,vsodw,kdlu,mxlfh
data klqh|,elvfxlwv,wrhv,exqv,idqq|,vkruwv,sdqwv
data vqliihu,nlvvhu,vtxluw,kxpshuglqfn,eudlqv

end globals

clear local fn makeWnd
dim d$,r,n,c&
window 1,"Your silly new name", (0,0)-(275,200)
d = "Captain Underpants and the Perilous" + _cr$
d += "Plot of Professor Poopypants"
d += _cr$ + "by Dave Pilkey:" + _cr$
d += _cr$ + """The evil Professor forces everyone" + _cr$
d +="to assume new names...""" + _cr$
d += _cr$ + "Please enter your current" + _cr$
d += "first and last name:
edit field _efTitle,d$,(20,20)-(250,120),_statNoFramed,2
edit field _efResult,,(20,166)-(250,185),_statNoFramed,2
edit field _efInput,,(20,123)-(250,135),_framedNoCR,2
button 1,1,"Get your new name",(20,140)-(250,160)
edit field _efInput
for r = 0 to 2
for n = 0 to 31
read d$
for c = 1 to d[0]
d[c] -= 3
next
names(r,n) = d
next
next
menu 1,0,1,"File"
menu 1,1,1,"Quit/Q"
end fn

clear local fn getName
dim ef$,n$,sp,p,l,c
ef$ = edit$(_efInput)
l = ef[0]
sp = 1
while ef[sp] <> 32
c += (ef[sp] and 31)
sp ++
if sp > l then exit while
wend
n$ = names(0, c and 31) + " "

c = 0
long if sp < l
while ef[l] <> 32
c += (ef[l] and 31)
l --
if sp >= l then exit while
wend
n$ += names(1, ef[(l + ef[0]) \\ 2] and 31)
n$ += names(2, c and 31)
end if
edit$(_efResult) = n$,, 12, _boldbit%,, 0xA000, 0, 0
end fn

local fn doDlg
dim evnt&,id&
evnt& = DIALOG(0)
select evnt
case _btnclick, _efReturn
fn getName
edit field(_efInput)
setselect 0,999
case _wndClose : end
end select
end fn

local fn doEdit
edit$(_efResult) = ""
tekey$ = tekey$
end fn

local fn doMenu
end
end fn

on dialog fn doDlg
on menu fn doMenu
on edit fn doEdit

fn makeWnd

'-----------------
DO
HANDLEEVENTS
UNTIL 0
'-----------------