#!/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 "$@"  password--function jpAnswer pTag, pFldName, pCdNum -- get ("get the text of fld "& pFldName &" of cd "& pCdNum ) -- do it -- get the htmlText of line (lineOffset(pTag, IT) + 1) to (lineOffset("/"& pTag, IT) -1) \ -- of fld pFldName cd pCdNum -- return replaceText(IT, "

", " ") --end jpAnswer -- --function englishTag -- return "" --end englishTag Lg Password UOsaka UOsaka,Japanese UGeneva UOsaka Ugeneva,english UOsaka,Japanese ULucida Grande UCourier UCourier WCourier UCourier U ,japanese ULucida Grande ULucida Grande U ,english U ,japanese UGenevacRevStandaloneSettings7scriptLibrariesInternet Geometry PrintingMacOSXtrue OSX,namepasswordMacOS,documentTypeUNIX,fileSelectortrueWindowsfalseWindows,LegalCopyright)2004 Kojima All rights reserved worldwideMacOS,longVersionpassword 1.0.0.0UNIX,pageSetuptrueOSX,documentTypeLinuxfalseWindows,documenticonFile8/Applications/Revolution 2.2/Sample Icons/genericdoc.icoOdtfalse inclusionssearch answerDialogtrueSPARCfalse SolIntelfalseOSX,documentExtensionWindows,FileDescriptionpassword 1.0.0.0 for WindowsOSX,longVersionpassword 1.0.0.0OSX,copyright)2004 Kojima All rights reserved worldwideUNIX,printerChoosertrueMacOS,MinimumSize15000MacOS,versionnumber11MacOS,versionnumber20MacOS,ReleaseFinalnamepasswordMacOS,versionnumber30Hp9k700falsers6000false MacOS,Region1OSX,shortVersion1.0.0.0Windows,fileversion11Windows,fileversion20Windows,productversion11Windows,productversion20Windows,fileversion30BsdfalsecursorsfalseWindows,productversion30Windows,fileversion40Windows,productversion40 OSX,infopassword Version 1.0.0.0MacOS,dynamicMemorytrueIrisfalse askDialogtrueWindows,iconFile8/Applications/Revolution 2.2/Sample Icons/genericapp.icoOSX,signature????MacOS,PreferredSize15000Windows,ProductNamepasswordUNIX,colorChoosertrue MacOSPPCtrueWindows,companynameKojima SolSparcfalseMacOS,creator???? cREVGeneralscriptChecksum E\^S^`a bookmarks handlerList tempScript prevHandler englishTagscriptSelectionchar 386 to 385script;

--function jpAnswer pTag, pFldName, pCdNum

-- get ("get the text of fld "& pFldName &" of cd "& pCdNum )

-- do it

-- get the htmlText of line (lineOffset(pTag, IT) + 1) to (lineOffset("/"& pTag, IT) -1) \

-- of fld pFldName cd pCdNum

-- return replaceText(IT, "</p>", " ")

--end jpAnswer

--

--function englishTag

-- return "<font face=Geneva size=12>"

--end englishTag

 @ cREVGeneralscriptChecksumُ B~ bookmarks handlerList tempScript prevHandler backspacekeyscriptSelection char 1 to 0script

 @ jpText)h6f cREVGeneral revUniqueID 1083103870824 bookmarks handlerList tempScript prevHandlerscriptSelection char 1 to 0script  `e7unicodeToHtmlEIon mouseUp set the text of fld 1 to the htmlText of fld 1 end mouseUp (p cREVGeneralscriptChecksum #՛A bookmarks revUniqueID 1083103870825 handlerListmouseUpscriptSelection char 72 to 71 prevHandlermouseUp tempScriptscript\

on mouseUp

set the text of fld 1 to the htmlText of fld 1

end mouseUp

htmlToUnicodeEon mouseUp set the htmlText of fld 1 to the text of fld 1 --set the htmlText of fld 1 to noWarranties() end mouseUp function noWarranties get "

カーソルをディスプレイの左上に移動させると、ムービーはストップします。

" return it end noWarranties (p cREVGeneralscriptChecksumA(Ҿj?l0 bookmarks revUniqueID 1083103870826 handlerListmouseUp noWarrantiesscriptSelectionchar 502 to 501 prevHandlermouseUp tempScriptscript

on mouseUp

set the htmlText of fld 1 to the text of fld 1

--set the htmlText of fld 1 to noWarranties()

end mouseUp

function noWarranties

get "<p><font face=Osaka lang=ja>&#12459;&#12540;&#12477;&#12523;&#12434;&#12487;&#12451;&#12473;&#12503;&#12524;&#12452;&#12398;&#24038;&#19978;&#12395;&#31227;&#21205;&#12373;&#12379;&#12427;&#12392;&#12289;&#12512;&#12540;&#12499;&#12540;&#12399;&#12473;&#12488;&#12483;&#12503;&#12375;&#12414;&#12377;&#12290;</font></p>"

return it

end noWarranties

 setSizeNfontEon mouseUp set the textsize of line 1 to (the num of lines of fld 1) of fld 1 to 12 set the textFont of fld 1 to "Osaka" end mouseUp Dp cREVGeneralscriptChecksumSjir< C revUniqueID 1083103870827 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelection char 86 to 85script

on mouseUp

set the textsize of line 1 to (the num of lines of fld 1) of fld 1 to 12

set the textFont of fld 1 to "Osaka"

end mouseUp

findTagE;on mouseUp ask "" find it in fld "jpText" end mouseUp Dp cREVGeneralscriptChecksum:5p<$ revUniqueID 1083103870828 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelection char 46 to 45scriptq

on mouseUp

ask ""

find it in fld "jpText"

end mouseUp

Field 1 @f& cREVGeneral revUniqueID 1083103870829 10S0n0000oeg,000000nR0n0_00`0Q0g0 0 10S0n00000n000000h0ovcO0B00~0[00 0 Field 1 0 cREVGeneral revUniqueID 1083386268134 7ask password [clear] question [with defaultAnswer] \       $ 1 4 $ [titled windowTitle] [as sheet]   jpFld1   ,( cREVGeneral revUniqueID 1083386422940 @000000ofSS0U00~0Y0question 0k0o ABCD 0hQe00f0D0~0Y0   % ) / jpFld2     cREVGeneral revUniqueID 1083386836712 B000000ofSS0U00~0[00question 0k0o ABCD 0hQe00f0D0~0Y0   ' + 1 jpFld3  H( cREVGeneralscriptChecksumُ B~ bookmarks revUniqueID 1083387567725 handlerListscriptSelection char 1 to 0 prevHandler backspacekey tempScriptscript

#000000k000000bS0c0f00 " +0000000kY c0W0f00j0D00F0k0Y00 *  tResult3)h  cREVGeneral bookmarks revUniqueID 1083387811356 handlerListscriptSelection char 1 to 0 prevHandler tempScriptscript   askPasswordepon mouseUP ask password "password:" with "ABCD" titled "Password Encrypted" if the result is "Cancel" then put "Cancel" into fld "tResult1" else put it into fld "tResult1" end mouseUP on mouseEnter put "" into fld "tResult1" end mouseEnter G ask password cREVGeneralscriptChecksumD%"&8~Vv bookmarks revUniqueID 1083384505082 handlerListmouseUP mouseEnterscriptSelectionchar 234 to 233 prevHandlermouseUP tempScriptscript

on mouseUP

ask password "password:" with "ABCD" titled "Password Encrypted"

if the result is "Cancel" then put "Cancel" into fld "tResult1"

else put it into fld "tResult1"

end mouseUP

on mouseEnter

put "" into fld "tResult1"

end mouseEnter

 tResult1)`I( cREVGeneral bookmarks revUniqueID 1083384602763 handlerListscriptSelection char 1 to 0 prevHandler tempScriptscript   tScript1he_ on mouseUp get line 1 to 6 of the script of btn "askPassword" answer information "ask password script:" &cr&cr& it end mouseUp LLLLLLefSS0000000000 cREVGeneralscriptChecksum``>nEո revUniqueID 1083386634097 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelectionchar 101 to 100script

on mouseUp

get line 1 to 6 of the script of btn "askPassword"

answer information "ask password script:" &cr&cr& it

end mouseUp

askPasswordClearepon mouseUP ask password clear "password:" with "ABCD" titled "Password Clear" if the result is "Cancel" then put "Cancel" into fld "tResult2" else put it into fld "tResult2" end mouseUP on mouseEnter put "" into fld "tResult2" end mouseEnter ask password clear cREVGeneralscriptChecksumV=Y۷ bookmarks revUniqueID 1082926328327 handlerListmouseUP mouseEnterscriptSelectionchar 253 to 252 prevHandlermouseUP tempScriptscript

on mouseUP

ask password clear "password:" with "ABCD" titled "Password Clear"

if the result is "Cancel" then put "Cancel" into fld "tResult2"

else put it into fld "tResult2"

end mouseUP

on mouseEnter

put "" into fld "tResult2"

end mouseEnter

 tScript1he_ on mouseUp get line 1 to 6 of the script of btn "askPasswordClear" answer information "ask password clear script:" &cr&cr& it end mouseUp LLLLLL0000000000000 cREVGeneralscriptChecksum.X+oEJA;4 revUniqueID 1083386933147 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelectionchar 112 to 111script

on mouseUp

get line 1 to 6 of the script of btn "askPasswordClear"

answer information "ask password clear script:" &cr&cr& it

end mouseUp

 tResult2)h( cREVGeneral bookmarks revUniqueID 1083386923830 handlerListscriptSelection char 1 to 0 prevHandler tempScriptscript   tScript1he_ von mouseUp get the script of fld "tPassword" answer information "Password field script:" &cr&cr& it end mouseUp LLLLLL)000000000000000 cREVGeneralscriptChecksum~IfصhKx% revUniqueID 1083406708767 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelection char 85 to 84script

on mouseUp

get the script of fld "tPassword"

answer information "Password field script:" &cr&cr& it

end mouseUp

 lockPasshe on mouseUp if hilight of me then set lockText of fld "tPassword" to true else set lockText of fld "tPassword" to false end mouseUp EtexSize12000000000 cREVGeneralscriptChecksumQ?1($#j revUniqueID 1083407841232 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelectionchar 106 to 105script

on mouseUp

if hilight of me then set lockText of fld "tPassword" to true

else set lockText of fld "tPassword" to false

end mouseUp

 tPassword)p\global gPass on keydown whichKey put whichKey after gPass set the cPassword of fld "tPassword" to gPass repeat the num of chars of gPass put "*" after tPassword end repeat put tPassword into fld "tPassword" select after fld "tPassword" end keyDown on backspacekey if fld "tPassword" is empty then set the cPassword of fld "tPassword" to "" else delete last char of fld "tPassword" delete last char of gPass set the cPassword of fld "tPassword" to gPass end if end backspacekey on returnInField -- end returnInField on enterInField -- end enterInField   cPassword cREVGeneralscriptChecksum3ӭݏlvo1 revUniqueID 1083408306690 bookmarks handlerList/keydown backspacekey returnInField enterInField tempScript prevHandler backspacekeyscriptSelectionchar 603 to 602script

global gPass

on keydown whichKey

put whichKey after gPass

set the cPassword of fld "tPassword" to gPass

repeat the num of chars of gPass

put "*" after tPassword

end repeat

put tPassword into fld "tPassword"

select after fld "tPassword"

end keyDown

on backspacekey

if fld "tPassword" is empty then

set the cPassword of fld "tPassword" to ""

else

delete last char of fld "tPassword"

delete last char of gPass

set the cPassword of fld "tPassword" to gPass

end if

end backspacekey

on returnInField

--

end returnInField

on enterInField

--

end enterInField

 jpFld1  Red]( cREVGeneral revUniqueID 1083409232763 =00000000k0Y0fB0o0Standalone Application Settings 0g   : ?Encrypt with password 0k0000Qe00j0D0h0~00f0W0~0D0~0Y0  ( tScript1he_ Son mouseUp put the cPassword of fld "tPassword" into fld "tResult3" end mouseUp LLLLLL*0000000S0 cREVGeneralscriptChecksumB%WX revUniqueID 1083413795086 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelection char 54 to 53script

on mouseUp

put the cPassword of fld "tPassword" into fld "tResult3"

end mouseUp