#!/bin/sh # MetaCard 2.4 stack # The following is not ASCII text, # so now would be a good time to q out of more exec mc $0 "$@"  wikipedia!>d WIKIPEDIA, ULucida Grande @ULucida Grande Uarial Uarial @Uarial WLucida Grande ULucida Grande WLucida Grande @WLucida Grande @WLucida Grande UArial UArial @WArial @WArial @UArial"ULucida Grande"WLucida Grande ULucida Grande @ULucida Grande ULucida Grande AULucida GrandeULucida GrandeWLucida GrandeULucida GrandeWLucida GrandeULucida GrandeWLucida Grande ULucida Grande AULucida Grande @ULucida GrandeULucida GrandeWLucida Grande@WLucida Grande U WLucida Grande@ULucida Grande U ,japanese U ,japanese U U english UOsaka,Japanese U U WLucida Grande Pon resizeStack x,y set the rect of fld "tText" to 16, 76, x -16, y -38 set the loc of fld "wikipedia" to 197,y -24 end resizeStack  cREVGeneralscriptChecksum ,q0*6t bookmarks handlerList resizeStack tempScript prevHandler resizeStackscriptSelection char 19 to 18script

on resizeStack x,y

set the rect of fld "tText" to 16, 76, x -16, y -38

set the loc of fld "wikipedia" to 197,y -24

end resizeStack

 @    tWord)p|on returnInField send mouseUp to btn "Go" end returnInField on enterInField send mouseUp to btn "Go" end enterInField ( cREVGeneralscriptChecksumx͡!_яޕ revUniqueID 1083789818888 bookmarks handlerListreturnInField enterInField tempScript prevHandler returnInFieldscriptSelectionchar 105 to 104script

on returnInField

send mouseUp to btn "Go"

end returnInField

on enterInField

send mouseUp to btn "Go"

end enterInField

 Revolution ! tResult)hJX cREVGeneral revUniqueID 1083789830264 bookmarks handlerList tempScript prevHandlerscriptSelection char 1 to 0script  `cKGoEx&on mouseUp put "" into fld "tResult" set cursor to watch put fld "tWord" into tSearch put "search="& URLEncode(tSearch) &"&go=go" into tPostWord post tPostWord to URl "http://en.wikipedia.org/wiki/w/wiki.phtml" put it into fld "tResult" set the htmlText of fld "tResult" to fld "tResult" if lineOffset("No page with this exact title exists", fld "tResult")>0 then put "No page with this exact title exists" into fld "tResult" else delete line 1 to (lineoffset(fld "tWord", fld "tResult")-1) of fld "tResult" set the textSize of line 1 to (the num of lines of fld "tResult") of fld "tResult" to 12 end if end mouseUp !*R cREVGeneralscriptChecksumD0FXq" revUniqueID 1083797953291 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelectionchar 541 to 540script

on mouseUp

put "" into fld "tResult"

set cursor to watch

put fld "tWord" into tSearch

put "search="& URLEncode(tSearch) &"&go=go" into tPostWord

post tPostWord to URl "http://en.wikipedia.org/wiki/w/wiki.phtml"

put it into fld "tResult"

set the htmlText of fld "tResult" to fld "tResult"

if lineOffset("No page with this exact title exists", fld "tResult")>0 then

put "No page with this exact title exists" into fld "tResult"

else

delete line 1 to (lineoffset(fld "tWord", fld "tResult")-1) of fld "tResult"

set the textSize of line 1 to (the num of lines of fld "tResult") of fld "tResult" to 12

end if

end mouseUp

 tabbedBtni cREVGeneral revUniqueID 1083849031077 tabbedBtn}%on menuPick

open card the menuHistory of me

end menuPick

 wikipedia >on mouseUp revGoURL "http://en.wikipedia.org/" end mouseUp pb cREVGeneralscriptChecksum] \Ns) revUniqueID 1083801482987 bookmarks handlerListmouseUp tempScript[

on mouseUp

revGoURL "http://en.wikipedia.org/"

end mouseUp

prevHandlermouseUpscriptSelection char 61 to 60script[

on mouseUp

revGoURL "http://en.wikipedia.org/"

end mouseUp

>Wikipedia, the free encyclopedia. http://en.wikipedia.org/  tWord)p|on returnInField send mouseUp to btn "Go" end returnInField on enterInField send mouseUp to btn "Go" end enterInField 6( cREVGeneralscriptChecksumx͡!_яޕ revUniqueID 1083855913455 bookmarks handlerListreturnInField enterInField tempScript prevHandler returnInFieldscriptSelectionchar 105 to 104script

on returnInField

send mouseUp to btn "Go"

end returnInField

on enterInField

send mouseUp to btn "Go"

end enterInField

 Revolution !  GoEx& on mouseUp put "" into fld "tResult" set cursor to watch put fld "tWord" into tSearch put "search="& URLEncode(tSearch) &"&go=go" into tPostWord post tPostWord to URl "http://en.wikipedia.org/wiki/w/wiki.phtml" put it into fld "tResult" end mouseUp *B cREVGeneralscriptChecksumJL(~yGF-JӒ revUniqueID 1083855913456 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelectionchar 265 to 264script

on mouseUp

put "" into fld "tResult"

set cursor to watch

put fld "tWord" into tSearch

put "search="& URLEncode(tSearch) &"&go=go" into tPostWord

post tPostWord to URl "http://en.wikipedia.org/wiki/w/wiki.phtml"

put it into fld "tResult"

end mouseUp

 tResult)hJb cREVGeneral revUniqueID 1083855913457 bookmarks handlerList tempScript prevHandlerscriptSelection char 1 to 0script  `mK tScript1`e_%con mouseUp get the script of btn "go" answer information "Go script:" &cr&cr& it end mouseUp (j0000000 cREVGeneralscriptChecksum*(eq<" bookmarks revUniqueID 1083859900343 handlerListmouseUpscriptSelection char 65 to 64 prevHandlermouseUp tempScriptscript

on mouseUp

get the script of btn "go"

answer information "Go script:" &cr&cr& it

end mouseUp

 makePlainex%Won mouseUp set the htmlText of fld "tResult" to fld "tResult" end mouseUp 000000000k cREVGeneralscriptChecksum>x}x) Bd revUniqueID 1083867383477 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelection char 74 to 73script

on mouseUp

set the htmlText of fld "tResult" to fld "tResult"

end mouseUp

 tScript1he_%ron mouseUp get the script of btn "makePlain" answer information "Plain text script:" &cr&cr& it end mouseUp j0000000 cREVGeneralscriptChecksumۚ8]V \p bookmarks revUniqueID 1083867383478 handlerListmouseUpscriptSelectionchar 114 to 113 prevHandlermouseUp tempScriptscript

on mouseUp

get the script of btn "makePlain"

answer information "Plain text script:" &cr&cr& it

end mouseUp

 cosmeticsex%on mouseUp -- set cursor to watch -- put fld "tWord" into tSearch -- put "search="& URLEncode(tSearch) &"&go=go" into tPostWord -- post tPostWord to URl "http://en.wikipedia.org/wiki/w/wiki.phtml" -- put it into fld "tResult" -- set the htmlText of fld "tResult" to fld "tResult" if lineOffset("No page with this exact title exists", fld "tResult")>0 then put "No page with this exact title exists" into fld "tResult" else delete line 1 to (lineoffset(fld "tWord", fld "tResult")-1) of fld "tResult" set the textSize of line 1 to (the num of lines of fld "tResult") of \ fld "tResult" to 12 end if end mouseUp 300000nett cREVGeneralscriptChecksumH(׉{^; revUniqueID 1083868486421 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelectionchar 537 to 536script

on mouseUp

-- set cursor to watch

-- put fld "tWord" into tSearch

-- put "search="& URLEncode(tSearch) &"&go=go" into tPostWord

-- post tPostWord to URl "http://en.wikipedia.org/wiki/w/wiki.phtml"

-- put it into fld "tResult"

-- set the htmlText of fld "tResult" to fld "tResult"

if lineOffset("No page with this exact title exists", fld "tResult")>0 then

put "No page with this exact title exists" into fld "tResult"

else

delete line 1 to (lineoffset(fld "tWord", fld "tResult")-1) of fld "tResult"

set the textSize of line 1 to (the num of lines of fld "tResult") of \

fld "tResult" to 12

end if

end mouseUp

 tScript1he_%qon mouseUp get the script of btn "cosmetics" answer information "Cosmetics script:" &cr&cr& it end mouseUp 1j0000000 cREVGeneralscriptChecksum5cSal bookmarks revUniqueID 1083868486422 handlerListmouseUpscriptSelectionchar 113 to 112 prevHandlermouseUp tempScriptscript

on mouseUp

get the script of btn "cosmetics"

answer information "Cosmetics script:" &cr&cr& it

end mouseUp

Field 1 % cREVGeneral revUniqueID 1083868852970 1) Field 2 n cREVGeneral revUniqueID 1083868893192 2) Field 3 n/ cREVGeneral revUniqueID 1083868926655 3) libUrlFormDataex'on mouseUp put "" into fld "tResult" set cursor to watch put fld "tWord" into tSearch -- name=search put "go" into tGo -- name=go get libUrlFormData("search",tSearch,"go",tGo) post it to URl "http://en.wikipedia.org/wiki/w/wiki.phtml" put it into fld "tResult" set the htmlText of fld "tResult" to fld "tResult" if lineOffset("No page with this exact title exists", fld "tResult")>0 then put "No page with this exact title exists" into fld "tResult" else delete line 1 to (lineoffset(fld "tWord", fld "tResult")-1) of fld "tResult" set the textSize of line 1 to (the num of lines of fld "tResult") of \ fld "tResult" to 12 end if end mouseUp OlibUrlFormData cREVGeneralscriptChecksum!1ԕM+l-6 revUniqueID 1083873675800 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelectionchar 567 to 566script

on mouseUp

put "" into fld "tResult"

set cursor to watch

put fld "tWord" into tSearch -- name=search

put "go" into tGo -- name=go

get libUrlFormData("search",tSearch,"go",tGo)

post it to URl "http://en.wikipedia.org/wiki/w/wiki.phtml"

put it into fld "tResult"

set the htmlText of fld "tResult" to fld "tResult"

if lineOffset("No page with this exact title exists", fld "tResult")>0 then

put "No page with this exact title exists" into fld "tResult"

else

delete line 1 to (lineoffset(fld "tWord", fld "tResult")-1) of fld "tResult"

set the textSize of line 1 to (the num of lines of fld "tResult") of \

fld "tResult" to 12

end if

end mouseUp

 tScript1he_%{on mouseUp get the script of btn "libUrlFormData" answer information "libUrlFormData script:" &cr&cr& it end mouseUp Mj0000000 cREVGeneralscriptChecksum:Ji!:m bookmarks revUniqueID 1083873675801 handlerListmouseUpscriptSelectionchar 123 to 122 prevHandlermouseUp tempScriptscript

on mouseUp

get the script of btn "libUrlFormData"

answer information "libUrlFormData script:" &cr&cr& it

end mouseUp

Field 4 !Black G|$ cREVGeneral revUniqueID 1083873675802 4) libURL V.1.0.15b8