ࡱ> UVTܥhW Leechhhhhhh /?1:؁؁؁؁؁؁_KۖX3'h؁>?؁؁؁؁؁hh؁؁*؁؁h؁h؁_`(%|hhhh؁_]  NOMFICHIER \* MAJUSCULE \* FUSIONFORMAT NORMAL.DOT  DATE \l 96-2-28  HEURE 16:05 GMT "/=jdiMAINdigetiwordd*ipageldifindiwordd!ifounddni italicizeddni italicizeiworddnTdnifind&diendwhileddiMAINddgdgdgHldg|jISIAPLdg}l ddgdk top leftdic2jDgldkEditReplace .Find = "<", .Replace = Chr$(229), .Direction = 0, '.MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, '.ReplaceAll, .Format = 0, .Wrap = 2ddgdk top middle Chr$(224)dic2jBgldkEditReplace .Find = "T", .Replace = "x", .Direction = 0, .MatchCase = '0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, .ReplaceAll, '.Format = 0, .Wrap = 2ddgdk dashdic2jQgldic2jFgldic2jHgldic2jNgldkEditReplace .Find = "-", .Replace = Chr$(225), .Direction = 0, '.MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, '.ReplaceAll, .Format = 0, .Wrap = 2ddgdk top rightdic2jJgldkEditReplace .Find = ">", .Replace = Chr$(230), .Direction = 0, '.MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, '.ReplaceAll, .Format = 0, .Wrap = 2ddgdk vertical walldic2jRgldic2jKgldic2jLgldic2jOgldkEditReplace .Find = "|", .Replace = Chr$(220), .Direction = 0, '.MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, '.ReplaceAll, .Format = 0, .Wrap = 2ddgdk left middledic2jCgldkEditReplace .Find = "}", .Replace = Chr$(222), .Direction = 0, '.MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, '.ReplaceAll, .Format = 0, .Wrap = 2ddgdk centerdic2jAgldkEditReplace .Find = "+", .Replace = Chr$(226), .Direction = 0, '.MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, '.ReplaceAll, .Format = 0, .Wrap = 2ddgdk right middledic2jIgldkEditReplace .Find = "{", .Replace = Chr$(221), .Direction = 0, '.MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, '.ReplaceAll, .Format = 0, .Wrap = 2ddgdk bottom leftdic2jGgldkEditReplace .Find = "\", .Replace = Chr$(228), .Direction = 0, '.MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, '.ReplaceAll, .Format = 0, .Wrap = 2ddgdk bottom middledic2jEgldkEditReplace .Find = "l", .Replace = Chr$(223), .Direction = 0, '.MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, '.ReplaceAll, .Format = 0, .Wrap = 2ddgdk bottom rightdic2jMgldkEditReplace .Find = "/", .Replace = Chr$(227), .Direction = 0, '.MatchCase = 0, .WholeWord = 0, .PatternMatch = 0, .SoundsLike = 0, '.ReplaceAll, .Format = 0, .Wrap = 2ddgdddddic2ichars$iby$dk 2 charsdgdldgus ichars$s iby$s ls ls ls ls lss ls} ldd dgps ichars$s ls ls ls ls ls ls} ld!g׀dQl gichars$ggichars$ldQlgiby$dngs iby$sdQ dngiby$dQTdQgps ichars$s ls ls ls ls ls ls} ld"ddTdddiMAINdg|j Courier NewddiMAINdp? DanB 1999 This macro will replace some APL {notation} chars todp their APL equivalent.didoalldgdkdoall()dddidoalldirepl{j {leftbrace}direpl}j {rightbrace}direplj {notmatch}direplj{in_}dkrep(94, "{and}")direplj{<>}direplj{each}direplj{<-}direplj {leftshoe}direplj {rightshoe}direplj{log}direplj{iota_}direplj {deltilde}direplj{zilde}direplj{omega}direplj{take}direplj{drop}direplj{->}direplj{lev}direplj{dex}direplj{grup}direplj{grdown}direplj{/=}direpljdireplj{min}direplj{delta}direplj{times}direplj#k quaddireplj {quotequad}direplj{domino}direplj {commabar}direplj {tildetrema}direplj{NB}direplj{\-}direplj{alpha}direplj{iota}direplj{on}direplj{upon}direplj{nor}direplj{uptack}direplj {downtack}direplj {reverse}direplj {reversebar}direplj{nand}direplj{/-}direplj{del}direplj {transpose}direplj{in}direplj{upshoe}direplj{match}direplj{delta_}direplj{>=}direplj{<=}direplj{fmt}direplj{exec}direplj{divide}direplj{jot}direplj{circle}direplj{rho}direplj{or}direplj {downshoe}direplj{neg}direpl|j{mod}ddddk main replacement routine:direpisToicfrom$dgvs" js( ls# ls ls ls ls' ls] ls; ls- js+ js ls js j0s$ ls% ls) ls ls! jAPL2741dgus icfrom$s gisTos ls ls ls ls lss ls} ls" ldk7InsertionCarSpciaux .Police = "APL2741", .NumCar = sToddddgvs" js( ls# ls ls ls ls' ls] ls; ls- js+ js ls js j0s! jAPL2741s$ ls% ls) ls ldgvs" js( ls# ls ls ls ls' ls] ls; ls- js+ js ls js j0s! jAPL2741s$ ls% ls) ls ldiMAINdgs jddiMAINdk/ danb 1999 replace APL text by ASCII equivalentddibs$ gldgus j;s j[s ls ls ls ls lss ls} ls" ldgus j>s gls ls ls ls ls lss ls} ls" ldgus j(s j{or}s ls ls ls ls lss ls} ls" ldgus j:s j(s ls ls ls ls lss ls} ls" ldgus gls j:s ls ls ls ls lss ls} ls" ldgus j)s j{and}s ls ls ls ls lss ls} ls" ldgus gl"s j)s ls ls ls ls lss ls} ls" ldgus j's j]s ls ls ls ls lss ls} ls" ldgus j<s j;s ls ls ls ls lss ls} ls" ldgus j#s j<s ls ls ls ls lss ls} ls" ldgus j>s j:s ls ls ls ls lss ls} ls" ldgus j&s j>s ls ls ls ls lss ls} ls" ldgus j*s j{ne}s ls ls ls ls lss ls} ls" ldgus jPs j*s ls ls ls ls lss ls} ls" ldgus jLs j[]s ls ls ls ls lss ls} ls" ldgus jHs j{delta}s ls ls ls ls lss ls} ls" ldgus jTs j~s ls ls ls ls lss ls} ls" ldgus jOs jos ls ls ls ls lss ls} ls" ldgus jKs j's ls ls ls ls lss ls} ls" ldgus jMs j|s ls ls ls ls lss ls} ls" ldgus j=s gls ls ls ls ls lss ls} ls" ldgus j%s j=s ls ls ls ls lss ls} ls" ldgus j@gls js ls ls ls ls lss ls} ls" ldgus j+s gls ls ls ls ls lss ls} ls" ldgus j-s j+s ls ls ls ls lss ls} ls" ldgus j_s j-s ls ls ls ls lss ls} ls" ldgus j@s j_s ls ls ls ls lss ls} ls" ldgus jRs j{shape}s ls ls ls ls lss ls} ls" ldgus jIs j{iota}s ls ls ls ls lss ls} ls" ldgus jNs j{decode}s ls ls ls ls lss ls} ls" ldgus jBs j{encode}s ls ls ls ls lss ls} ls" ldgus jUs j{drop}s ls ls ls ls lss ls} ls" ldgus jYs j{take}s ls ls ls ls lss ls} ls" ldgus jQs j?s ls ls ls ls lss ls} ls" ldgus jEs j{member}s ls ls ls ls lss ls} ls" ldgus jJs gls ls ls ls ls lss ls} ls" ldgus jDs j{min}s ls ls ls ls lss ls} ls" ldgus jSs j{max}s ls ls ls ls lss ls} ls" ldgus jXs j{link}s ls ls ls ls lss ls} ls" ldgus j`s j<>s ls ls ls ls lss ls} ls" ldgus joibs$j-s j{rot1}s ls ls ls ls lss ls} ls" ldgus joibs$j|s j{rot}s ls ls ls ls lss ls} ls" lddk+ --------------- backspaces ---------------d#ii lA$lZdgus jFibs$gl iis giis ls ls ls ls lss ls} ls" ld&iidddkC ******************************************************************dk Macro : AutoExitdk Created : August 11, 1995dk# Copyright (c) 1995 Microsoft Corp.dk> Description : detects and removes Concept Virus from documentdk being closeddkB *****************************************************************d/0iquieti notopenedinotsavedi notconvertedicleanediMaciquote$ilogfile$iFound$isMe$ddiMAINdR,-*iEndFuncdRklocalization stringsdRiwarn$ jYour Normal (Global) template contained the Concept Virus. ScanProt has cleaned your Normal (Global) template. Saving it now will permanently remove the Concept Virus. Save now ?dRi msgTitle$ jConcept Virus detected!dRdnk initialize constantsdRdRiquiet ldRi notopened ldRinotsaved ldRi notconverted ldRicleaned lddRk% What platform are we on, Mac or Win?dRgglj MacintoshldoiMac ldoiquote$ jdRgglj Windows 3.ldok 16-bit WindowsdoiMac ldoiquote$ jdR doiMac ldoiquote$ gl"dRdkG**********************************************************************'dk%* INSERT YOUR CODE HERE *'dkG**********************************************************************'dRiFixItdRix g+iwarn$i msgTitle$l4doix ldogldodRdkG**********************************************************************'dk%* INSERT YOUR CODE HERE *'dkG**********************************************************************'eEndFuncdiErr ldddiFixItd,-*iEndFuncdRiFoo ldRiFoo iFooiCleanItjAAAZFSdRiFoo iFooiCleanItjAAAZAOdRiFoo iFooiCleanItjPayLoaddRiFooldok< remove possibly correct macros only if definitely evil onesdok detected (above)doiFoo iFooiCleanItj FileSaveAsdoiFooiFoo iFooiCleanItjAutoOpendRdRiFixIt iFooeEndFuncdiErr ldddiCleanIti BadMacro$d,-*iEndFuncd13gldn3j1.0j1.1j1.1aj2.0j2.0aj2.0bj2.0cj6.0j6.0aj6.0cdRg gEjMicrosoft Wordj User-Dot-Pathl j\doisMe$ ggEjMicrosoft Wordj User-Dot-Pathj normal.dotdR doisMe$ ggEjMicrosoft Wordj User-Dot-Pathj \normal.dotdRd3j7.0j7.0aj7.0bj7.0cdRk_7.0x is included only as a precaution for the future just in case there ever is such a version.dRiTD$ g jOHKEY_CURRENT_USER\Software\Microsoft\Microsoft Office\95\FileNew\LocalTemplatesjjdRg iTD$l j\doisMe$ iTD$j NORMAL.DOTdR doisMe$ iTD$j \NORMAL.DOTdRdR3 d1diTD$ jisMe$ j Normal.dotdRiCleanIt ldR!gi BadMacro$ jgi BadMacro$ jBuilt Indoimfn$ gi BadMacro$doimfn$ jGlobalimfn$ isMe$dogs s imfn$s i BadMacro$s ldoiCleanIt ldR"eEndFuncdiErr lddkC ******************************************************************dk Macro : FileOpendk Created : August 29, 1995dk# Copyright (c) 1995 Microsoft Corp.dk| Description : On FileOpen, detect documents masquerading as templates, ' warn user and optionally restore them to documentsdkB *****************************************************************ddiMAINdi ShellOpenvMAINljjjddiMAINdpE DanB 1999 This macro will replace some APL chars (in ISIAPL font) todp their {notation} equivalent.ddirepj{j {leftbrace-direpj}j {rightbrace}direpjj {notmatch}direpjj{in_}direpjj{<>}direpjj{each}direpjj{<-}direpjj {leftshoe}direpglj {rightshoe}direpjj{log}direpjj{iota_}direpjj {deltilde}direpjj{zilde}direpjj{omega}direpjj{take}direpjj{drop}direpjj{->}direpjj{lev}direpjj{dex}direpjj{grup}direpjj{grdown}direpjj{/=}direpjj{max}direpjj{min}direpjj{delta}direpjj{times}direpjj#k quaddirepjj {quotequad}direpjj{domino}direpjj {commabar}direpjj {tildetrema}direpjj{NB}direpjj{\-}direpjj{alpha}direpjj{iota}direpjj{on}direpjj{upon}direpjj{nor}direpjj{uptack}direpjj {downtack}direpjj {reverse}direpjj {reversebar}direpjj{nand}direpj j{/-}direpjj{del}direpjj {transpose}direpjj{in}direpjj{upshoe}direpjj{match}direpjj{delta_}direpjj{>=}direpjj{<=}direpjj{fmt}direpjj{exec}direpjj{divide}direpjj{jot}direpjj{circle}direpjj{rho}direpjj{or}direpjj {downshoe}direpjj{neg}direpjj{mod}direpjj{on}direpjj{upon}direpj {leftbrace-j {leftbrace}k# this to avoid replacement problemsdddpR What we should do is have a subroutine to do the replacing and call it like this:ddirepicfrom$isTo$dgus icfrom$s isTo$s ls ls ls ls lss ls} ls" lddk< ***********************************************************dk< *** DateShort - Written by KSTAM ***dk< *** - insert date at current location in ***dk< *** format: YY-MM-DD ***dk< ***********************************************************ddiMAINdgs jyy-M-ds ldgπddkB *****************************************************************dk Macro : ShellOpendk Created : August 29, 1995dk# Copyright (c) 1995 Microsoft Corp.dkz Description : On FileOpen, detect documents containing Concept Virus '(or any masquerading as templates) and remove them dkB *****************************************************************ddk localizable stringsd/0i autoopen$i openaborted$i loadedasdoc$i opentext$l ibuttons$lddiInitTextddkinitialize localizable stringsdi autoopen$ jautoopendi openaborted$ jFile Open has been aborted.di loadedasdoc$ jaThe macros in this document have been disabled. To permanently remove them, save the document as ddRk text of main dialogdi opentext$l jNUse caution! Even if you know the origin of this file, it contains macros thatdi opentext$l j/could alter Word commands or damage your files.di opentext$l jdi opentext$l jRUnless you can verify these macros will not cause any damage, Word recommends thatdi opentext$l jByou temporarily disable them and open the file without the macros.di opentext$l jdi opentext$l jSIf you wish to permanently remove the macros, simply save the document. If you wishdi opentext$l j:to preserve the macros, close the document without saving.di opentext$l jdi opentext$l  jOClick Yes to open the document without the macros, but keep all other content.di opentext$l  j6Click No to open the document, as is, with the macros.di opentext$l  jdi opentext$l  j Disable now?ddibuttons$l jYesdibuttons$l jNoddddiMAINishellCmdifile$iparam1$iparam2$ddk What version of Word is this?dgglj MacintoshldRk Macintosh Word 6dRi wordVerCode ldgglj Windows 3.ldRk 16 bit WinWord 6dRi wordVerCode ld dRk 32-bit Word on 32-bit WindowsdRggll j6dok32 bit WinWord 6doi wordVerCode ldR dok WinWord 7doi wordVerCode ldRdddkshell command codesdk10 is for Shell->Open on .DOC, .DOT, .WBK, .RTFdk:1,2 is for Shell->Print same files (2 indicates an ifexec)dk83,4 is for Shell->PrintTo on .DOC, .DOT ( 4 for ifexec) dk#5 is for Shell->New on .DOC, .DOTddi multiFileMsg$ jtYou cannot open multiple files at the same time with ScanProt installed. The first file you selected will be opened.dispTitle$ jScanProtddkturn off UI stuffdgldgddk( Prevent any autorun macros from runningd,-*i ErrHandlerdgրld,-*ldd*i StartOpende ErrHandlerdk8active document is protected so ask user to unprotect itdg dgրldiErr lde StartOpend/idlg4gPd>idlgdifile$ jdRiresp ?idlgdRiresp li wordVerCode l*iEndFuncdRi fileList$ iDlgsdR13i wordVerCodedok!check for multiple file selectiondo3lk WinWord 6 dok4multiple files always space separated in 16 bit Worddogi fileList$j ldoi separator gi fileList$j doifnameLen i separatorldoifile$ g i fileList$lifnameLendRQRnoiDlgs ifile$donog+i multiFileMsg$ispTitle$l@dodo3lk Winword NTdok6files with spaces in the name are quoted and files aredokseparated by quotesdoiquotePos gli fileList$gl"doispacePos gi fileList$j doilistLen gi fileList$doiquotePos lispacePosldok7multi-file list with no quoted names and first space isdokfile separatordoifnameLen ispacePosldoifile$ g i fileList$lifnameLendRQRnoiDlgs ifile$donog+i multiFileMsg$ispTitle$l@do doiquotePosliquotePosilistLendokfirst file is quoteddoifnameLen iquotePosdoifile$ g i fileList$lifnameLendRQoiDlgs ifile$donog+i multiFileMsg$ispTitle$l@dododok9we don't need to do anything for all other possibilities do3lk Winword 7doiResp ldok.Word 7 Dialog returns 0 on a multi-file selectdongi fileList$ldRnoifile$ i firstFile$i fileList$dRQRnoiDlgs ifile$donog+i multiFileMsg$ispTitle$l@do do*iEndFunckuser really did canceldododo3 dR1d dRidlgs ifile$ddidlgsU ldodkG**********************************************************************'dk%* INSERT YOUR CODE HERE *'dkG**********************************************************************'deOpenFiledkWord FileOpen called hered,-*i ErrHandler2dgPidlgdd,-*ld*i ScreenSwitchde ErrHandler2diErr ld*iEndFuncde ScreenSwitchdkget full filenamedifile$ g%dk6 now do the right thing depending on the shell commandd/iDlgFSA4gTd>iDlgFSAd13ishellCmddR3lk Shell->OpendoiDlgFSAs lgllQoi screenOpenifile$kit's a template with macrosdR3llk Shell->PrintdniDlgFSAs lglldok a templatedoichoice i screenOtherifile$doichoice ldok/user said to go ahead so do what the Shell doesdogXs ldogldodoishellCmd lglRk ifexec casedo doka DOCdogXs ldogldoishellCmd lgldodR3llkShell->PrintTodoiDlgFSAs lglldoichoice i screenOtherifile$doichoice ldokagain do Shell sctiondogas/ iparam1$j on iparam2$dogXs ldogldodoishellCmd lglk ifexec casedo dogas/ iparam1$RQj on iparam2$dogXs ldogldoishellCmd lgldodR3lk Shell->NewdoiDlgFSAs lglldoichoice i screenOtherifile$doichoice ldogldogրlkrestore for AutoNew to rundngOsR ifile$kdo a FileNew on itdodo doglkclose the file first dn gրlkrestore for AutoNew to run dogOsR ifile$kdo a FileNew on itdoRd1dk% Restore things to the way they were.dgld,-*i ErrHandler3dgրlddkG**********************************************************************'dk%* INSERT YOUR CODE HERE *'dkG**********************************************************************'dd*iEndFuncde ErrHandler3dg dgրldiErr ldeEndFuncddddi screenOpenifile$ddiInitTextddk/ it is a template; does it contain auto macros?di HasAutoOpen ldi MacroCount gld#ii l$i MacroCountdRiMacName$ giildRgiMacName$ i autoopen$i HasAutoOpen ld&iidk now, does user mind?dibutton i QueryUserdibutton ldRk- Remove -- open document clean but don't savedRi OpenItCleanifile$dibutton ldRk Keep -- continue as usualdRi HasAutoOpen l)iAutoOpenvMaind dRk@ Don't Load -- give up, clearing MRU list to eliminate this filedRk> close file afterwards, because TOG may not be available if wedRk close file firstdR/iDlgTOG4gdR>iDlgTOGdRinum$ giDlgTOGsYdRiDlgTOGsY ldRgiDlgTOGdRiDlgTOGsY ginum$dRgiDlgTOGdRgldTeEndFuncdddi screenOtherifile$ddiInitTextddi MacroCount gld#ii l$i MacroCountdRiMacName$ giildRgiMacName$ i autoopen$i HasAutoOpen ld&iidibutton i QueryUserdibutton ldRk.open document clean but don't do anything elsedRi OpenItCleanifile$dRi screenOther ldibutton ldRi screenOther ld dRk@ Don't Load -- give up, clearing MRU list to eliminate this filedRk> close file afterwards, because TOG may not be available if wedRk close file firstdR/iDlgTOG4gdR>iDlgTOGdRinum$ giDlgTOGsYdRiDlgTOGsY ldRgiDlgTOGdRiDlgTOGsY ginum$dRgiDlgTOGdRgldRi screenOther ldTeEndFuncndddi OpenItCleanifile$dRgldR,-*i ErrHandlerdRgOsR ifile$eDetachdn,-*i ErrHandlerdRgWsR jdR,-*ldR,-*i ErrHandler2dng$dR*iEndFunce ErrHandlerdnk2template is protected, so unprotect it and proceeddRg dngWsR jdng$dniErr le ErrHandler2dRiErr leEndFuncdi loadedasdoc$ i loadedasdoc$ifile$dg+i loadedasdoc$l@Rdddi QueryUserdRM?g)lljWarning!do#ivpos l$l dogɀlPivposl lll i opentext$ivposdo&do#ihpos li$l %ldo#ihpos l$ldog̀lihpos lllxlibuttons$ihposdo&dogȀlihpos lllxldR?ddR/iDlg4g)dRgldRi QueryUser ?iDlgdRglddddi firstFile$i FileList$dRkis this a quoted file listdRgi FileList$l gl"dokyes, extract file from quotesdoi separator gli FileList$gl"doifnameLen i separatorldoi firstFile$ g i FileList$lifnameLendR dok(no, file is not quoted so look for spacedoi separator gi FileList$j doifnameLen i separatorldoi firstFile$ g i FileList$lifnameLendRddiMAINddiMAINdgj dg.dgjLogosdg.dgj ddiMAINd#ii lW$l`%ldk A=chr$(64), a=chr$(97)dis$ giij:giidg+is$d&iid#ii lq$l%ldk A=chr$(64), a=chr$(97)dis$ giij:giidg+is$d&iiddiMAINdk: format cannot be changed (I char). We need to tack it on dk something elsedk transposedic2jPj APLtransposedic2jPj APLtransposedk <-dic2jj APLassigndk deltadic2jjAPLdeltadk decodedic2jj APLdecodedk diamonddic2jj APLdiamonddk dropdic2j)CjAPLdropdic2j1CjAPLdropdk encodedic2jj APLencodedk floordic2jjAPLmindk gotodic2jjAPLgotodk high minusdic2jj APLhminusdk iotadic2jjAPLiotadk modulodic2jj|dk takedic2jjAPLtakedk thorndic2j,IjAPLthorndk quaddic2jjAPLquaddk left [dic2jj[dk right ]dic2jj]dk rhodic2jjAPLrhodk smaller or equaldic2jj APLlessequaldk timesdic2jjxdk dividedic2jj APLdividedk anddic2j)MjAPLandddddic2ichars$iby$dk 2 charsdgdgps ichars$s ls ls ls ls ls ls} ld!g׀dQl gichars$ggichars$ldQlgiby$dngs iby$sdQ dngiby$dQTdQgps ichars$s ls ls ls ls ls ls} ld"dddiMAINdk replace quad by APL2741 chardgus j[]s js ldvFonte jAPL2741ds ls ls ls lsRs ls} ls" ldddkF**********************************************************************dkE***** Macro: ConvertA4 *****dkF***** Recored by: KSTAM *****dkF***** Description: macro to convert the pagesetup from *****dkF***** A4 to Letter (8.5x11) *****dkF**********************************************************************dkdiMAINdgs j0s j1sI j0.6gl"sJ j0.4gl"sK j1gl"sL j1gl"sM j0gl"sF j8.5gl"sG j11gl"sG ls ls ls ls lsN ls j0.4gl"s j0.3gl"s ls lsF ls ls lsP js js} j0s lddkC ******************************************************************dk Macro : AutoExitdk Created : August 11, 1995dk# Copyright (c) 1995 Microsoft Corp.dk> Description : detects and removes Concept Virus from documentdk being closeddkB *****************************************************************d/0iquieti notopenedinotsavedi notconvertedicleanediMaciquote$ilogfile$iFound$isMe$ddiMAINdR,-*iEndFuncdRklocalization stringsdRiwarn$ jYour Normal (Global) template contained the Concept Virus. ScanProt has cleaned your Normal (Global) template. Saving it now will permanently remove the Concept Virus. Save now ?dRi msgTitle$ jConcept Virus detected!dRdnk initialize constantsdRdRiquiet ldRi notopened ldRinotsaved ldRi notconverted ldRicleaned lddRk% What platform are we on, Mac or Win?dRgglj MacintoshldoiMac ldoiquote$ jdRgglj Windows 3.ldok 16-bit WindowsdoiMac ldoiquote$ jdR doiMac ldoiquote$ gl"dRdkG**********************************************************************'dk%* INSERT YOUR CODE HERE *'dkG**********************************************************************'dRiFixItdRix g+iwarn$i msgTitle$l4doix ldogldodRdkG**********************************************************************'dk%* INSERT YOUR CODE HERE *'dkG**********************************************************************'eEndFuncdiErr ldddiFixItd,-*iEndFuncdRiFoo ldRiFoo iFooiCleanItjAAAZFSdRiFoo iFooiCleanItjAAAZAOdRiFoo iFooiCleanItjPayLoaddRiFooldok< remove possibly correct macros only if definitely evil onesdok detected (above)doiFoo iFooiCleanItj FileSaveAsdoiFooiFoo iFooiCleanItjAutoOpendRdRiFixIt iFooeEndFuncdiErr ldddiCleanIti BadMacro$d,-*iEndFuncd13gldn3j1.0j1.1j1.1aj2.0j2.0aj2.0bj2.0cj6.0j6.0aj6.0cdRg gEjMicrosoft Wordj User-Dot-Pathl j\doisMe$ ggEjMicrosoft Wordj User-Dot-Pathj normal.dotdR doisMe$ ggEjMicrosoft Wordj User-Dot-Pathj \normal.dotdRd3j7.0j7.0aj7.0bj7.0cdRk_7.0x is included only as a precaution for the future just in case there ever is such a version.dRiTD$ g jOHKEY_CURRENT_USER\Software\Microsoft\Microsoft Office\95\FileNew\LocalTemplatesjjdRg iTD$l j\doisMe$ iTD$j NORMAL.DOTdR doisMe$ iTD$j \NORMAL.DOTdRdR3 d1diTD$ jisMe$ j Normal.dotdRiCleanIt ldR!gi BadMacro$ jgi BadMacro$ jBuilt Indoimfn$ gi BadMacro$doimfn$ jGlobalimfn$ isMe$dogs s imfn$s i BadMacro$s ldoiCleanIt ldR"eEndFuncdiErr lddk= ************************************************************dk= *** EMailComment - Written by KSTAM ***dk= *** - insert comment that reading e-mail ***dk= *** in the current cursor position ***dk= ************************************************************ddiMAINdgj1. AM - read morning e-maildgddkC ******************************************************************dk Macro : FileOpendk Created : August 29, 1995dk# Copyright (c) 1995 Microsoft Corp.dk| Description : On FileOpen, detect documents masquerading as templates, ' warn user and optionally restore them to documentsdkB *****************************************************************ddiMAINdi ShellOpenvMAINljjjddiMAINdp7 DanB 1999 This macro will replace some ISIAPL chars todp their {notation} equivalent.didoalldgdidoalldddidoalldirepj{j {leftbrace-direpj}j {rightbrace}dkrep("", "{notmatch}")direpjj{in_}direpj^j{and}direpjj{<>}direpjj{each}direpjj{<-}direpjj {leftshoe}direpglj {rightshoe}direpjj{log}dkrep("", "{iota_}")dkrep("", "{deltilde}")dkrep("", "{zilde}")direpjj{omega}direpjj{take}direpjj{drop}direpglj{->}direpjj{lev}direpjj{dex}direpglj{grup}dkrep("", "{grdown}")direpjj{/=}direpjj{max}direpglj{min}direpglj{delta}direpjj{times}direpjj#k quaddkrep("", "{quotequad}")direpglj{domino}direpjj {commabar}direpjj {tildetrema}direpglj{NB}direpglj{\-}direpjj{alpha}direpglj{iota}direpglj{on}direpjj{upon}dkrep("", "{nor}")direpjj{uptack}dkrep("", "{downtack}")direpjj {reverse}dkrep("", "{reversebar}")dkrep("", "{nand}")direpjj{/-}direpglj{del}direpjj {transpose}direpglj{in}dkrep("", "{upshoe}")direpglj{match}direpglj{delta_}dkrep("", "{>=}")dkrep("", "{<=}")direpjj{fmt}direpglj{exec}direpjj{divide}direpjj{jot}dkrep("", "{circle}")direpjj{rho}direpjj{or}direpjj {downshoe}direpjj{neg}dkrep("", "{mod}")direpj {leftbrace-j {leftbrace}k# this to avoid replacement problemsddddk main replacement routine:direpicfrom$isTo$ddgvs" js( ls# ls ls ls ls' ls] ls; ls- js+ js ls js j0s! jCouriers$ ls% ls) ls ldgus icfrom$s isTo$s ls ls ls ls lss ls} ls" lddiMAINdgdgvs" js( ls# ls ls ls ls' ls] ls; ls- js+ js ls js j0s! jAPL2741s$ ls% ls) ls ldgus j{grup}s j^173s ls ls ls ls lss ls} ls" ld+,679:DELMNOVW\]de{uuDbcde& K@Normala cA@Police par dfaut +@ Note de finc. @. Pied de page !V]c(@(Note de bas de pagec"@""En-tte !O1 paragrphdrV]c ORA Line number]bc(@QNumro de ligneee  ebe*58CKMU[e *Figure -Table-Equation-]DanBD:\office\Modeles\Normal.dotDanBD:\office\Modeles\Normal.dotDanBD:\office\Modeles\Normal.dotDanBD:\office\Modeles\Normal.dotDanBD:\office\Modeles\Normal.dotDanBD:\office\Modeles\Normal.dotDanBD:\office\Modeles\Normal.dotDanBD:\office\Modeles\Normal.dotDanBD:\office\Modeles\Normal.dot Dan BaronetD:\office\Modeles\Normal.dotKDLTZAO2AD EL O01(2-468?9$A4BC"DE5GHI7J.LN O/R8SU V#W9X!Y Z <*012 5 9A2C)E6FGHI&J;LM'O=P3T1W0>,+:%@O+R+++2e3e+K++S++P+Q+T+[+\+]+^+_+`+a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+q+r+s+t+u+v+w+x+y+z+{+|+}+~++++++++++++++ +U,~ U5, U.3 3U }QUM^ UYu U%&G 'U!") \2U6}+ 3U 2e :U '(3 ;U -ET \U XRT. \U ZT \U87U@ ]U7wY aU#$Z bU*&] ueUgt pU)"i qU j sU z Ui QQ q 1 I   0i !#! 7i aiq! 8YIjq  q  kSASUiaY 19 ) yAisMs0A"@a2a DateShort8Insert at current location the date in format: YY-MM-DD EMailCommentHInsert the "1. AM - read morning e-mail" comment at the current location^APL2741APL2741APL2741APL2741APL2741 ISItotext texttoAPLAPL2741Macro2FileOpenJScanProt macro to prompt you if the document being opened contains macros. ConvertA4aConvert A4 to 8.5x11AutoExitFScanProt macro to protect and disinfect your Normal (Global) template. ShellOpena O:(a O:)a O":|a O2:-(a OB:-)a OR:-|a Ob<--a Or<==a O<=>a O==>a @@ (r)--> 1st:( :) :-( :-) :-| :| <-- <== <=> ==> adnappasapcptdirdirsdon;tenddendd fogrpgrpsiinclloobj occurencerecieve seperatetehutlvpvrvrsw/wo ".BLVbh  (27?@W>O@?PQ@ATimes New Roman Symbol &ArialWingdings"h  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSX`Root Entry Ft&`(%W@WordDocumentCompObjjSummaryInformation(  FDocument Microsoft Word MSWordDocWord.Document.69qOh+'0  @ L X dpxED Ken Stamn: Normal.dot Dan Baronet86Microsoft Word for Windows 95@Ik@DocumentSummaryInformation8 ՜.+,0HP\dl t|   @'T@%՜.+,0HP\dl t|