MZPџџИ@КД Э!ИLЭ!This program must be run under Microsoft Windows. $NE ћ ƒ@Pрћћ•P q К0€з0€и„0€\0€d50€ ™З0€€P0€pasramLIBENTRYWEPИЫИЫ“Borland Standard Fileў@|ў€~ў @ ўўўўўў€mFormUIManagerUIContainerUIObjectPageFormObjButtonTextField ў€ї€ёџџџџџџАf&open+close+canArrive2arrive2setFocus+canDepart2removeFocus+depart2mouseEnter,mouseExit,mouseMove,mouseDown,mouseUp,mouseDouble,mouseRightDown,mouseRightUp,mouseRightDouble,keyPhysical-keyChar-action.menuAction/timer4pushButton+changeValue0calcField+run+newValue+proc+error3status1mouseClick,init+stringListChange+UsesTypeVarConstProcў€€џ€>џџЕ € џџCХ+]Ф*ЈЈ„*х€€€ЦЦ“”ў3?Я%Pasram - Passes & paramшtres.4Cd:\w\Corel\WordPerfect Office 2000\Paradox\PDOXHome\DEFAULT.FTB#Formdata1POST> џџџџ€џ€‡џџEФ*€ џџ€І  *02< €џџџJ€џ€eџџЌЅ Є€ъџџЩ method pushButton(var eventInfo Event) ; Michel Claveau Informatique var str string ts textstream endvar ts.open("Pasram.txt","r") ts.readchars(str,32000) ts.close() TXT=str endMethod pushButton+€ Є :02< €€џ€жџџсRоџ€ џџоџ 02< €џџџџ ChargerСо€€€џ€КTXT–‡q € џџш б ’02< €+€џџџd  Ь€џ€bџџЌI Є€чџџЦ method pushButton(var eventInfo Event) ; Michel Claveau Informatique var str string ts textstream endvar str=TXT ts.open("Pasram.txt","nw") ts.writestring(str) ts.close() endMethod pushButton+€ Є :02< €€џ€еџџсRоџ€ џџоџ 02< €џџџџ EcrireСо€€€џ€>џџ Ќн Є€УџџЂ method pushButton(var eventInfo Event) ; Michel Claveau Informatique var str string endvar str="\r\n" str.writetoclipboard() sendkeys("^v") endMethod pushButton+ € Є :02< € €џ€мџџ  ‡R’џ€ џџ’џ 02< €џџџџ Saut de ligneС’€€€џ€џџ  Ќa Є€Œџџk method pushButton(var eventInfo Event) ; Michel Claveau Informatique sendkeys("{backspace}") endMethod pushButton+ € Є  :02< € €џ€мџџ  ‡R’џ€ џџ’џ  02< €џџџџ Suppr. gaucheС’€€€џ€џџ  Ќ  Є€†џџe method pushButton(var eventInfo Event) ; Michel Claveau Informatique sendkeys("{del}") endMethod pushButton+ € Є  :02< € €џ€мџџ  ‡R’џ€ џџ’џ   02< €џџџџ Suppr. droiteС’€€€џ€ўџџ Ќх  Є€ƒџџb method pushButton(var eventInfo Event) ; Michel Claveau Informatique sendkeys("^c") endMethod pushButton+€ Є  :02< €€џ€еџџ‡R’џ€ џџ’џ  02< €џџџџ CopierС’€€€џ€ўџџЌ‰  Є€ƒџџb method pushButton(var eventInfo Event) ; Michel Claveau Informatique sendkeys("^v") endMethod pushButton+€ Є :02< €€џ€еџџ‡R’џ€ џџ’џ 02< €џџџџ CollerС’€€€џ€<џџЌ Є€Сџџ  method pushButton(var eventInfo Event) ; Michel Claveau Informatique var str string endvar str="\t" str.writetoclipboard() sendkeys("^v") endMethod pushButton+€ Є :02< €€џ€йџџ‡R’џ€ џџ’џ 02< €џџџџ TabulationС’€€€џ€!џџЌ Є€Іџџ… Type darrayString = dynarray[] string endType proc chargeparam(typ string, num string) darrayString var str string ts textstream aas,aat array[] string das darrayString i smallint endvar ts.open("Pasram.txt","r") ts.readline(aas) ts.close() for i from 1 to aas.size() aas[i].breakapart(aat,"\t") if aat.size()>2 then if aat[1]=typ and aat[2]=num then das[aat[3]]=aat[4] endif endif endfor return(das) endproc method pushButton(var eventInfo Event) ; Michel Claveau Informatique var das darrayString endvar das=chargeparam("pop","01") das.view() endMethod pushButton+€ Є :02< €€џ€гџџ‡R’џ€ џџ’џ 02< €џџџџ TestС’€€€JJM  #Button23 #Button5 #Button7  #Button9   #Button11  #Button13  #Button17  #Button15ў€ @џ-аў€tмМ"Arial NarrowXИ_ Ј ЈмМ"ArialЮ ŸP HАхЮ Ÿ = =ў€7VБ'ЮџџџџКЩdџџџџЛ<Єlф‡  Ф› v ЩСR  CONTAINERђСџџџџЯџџџџd\bACTIVE>џџџџЯџџџџКВLASTMOUSECLICKED”\џџџџЯџџџџџSUBJECTсВџџџџЯџџџџbZLASTMOUSERIGHTCLICKED<џџџџџЯџџџџR J SELF†ZџџџџЯџџџџ( #FORMDATA1ЮЄџџџџЯ?џџџџ[1#PAGE2Е фџџџџЯџџџџЮЇ #BUTTON21ёQ(џџџџЯџџџџ › “ #TEXTE228ЯЇџџџџЯџџџџQВ #BUTTON15ёэџџџџЯџџџџ д #TEXTE14§”lџџџџЯџџџџі #BUTTON17ёлВџџџџЯџџџџ #TEXTE16ТY1џџџџЯџџџџлэ #BUTTON13ё w џџџџЯџџџџ 6#TEXTE12‡і џџџџЯџџџџ w #BUTTON11ёe< џџџџЯџџџџ g #TEXTE10LуЛ џџџџЯџџџџe#BUTTON9ё) џџџџЯџџџџ ˜#TEXTE8ІџџџџЯџџџџ)#BUTTON7ёьФџџџџЯџџџџ Щ#TEXTE6гi B џџџџЯџџџџь#BUTTON5ёЏ ‡ џџџџЯџџџџ њB #TEXTE4– ,  џџџџЯџџџџЏ TXTёu J џџџџЯџџџџ  #BUTTON23ёМ “ џџџџЯџџџџ +#TEXTE18Ѓ :  џџџџЯџџџџМ џџџџQл Ў  DARRAYSTRINGЦ 8е CHARGEPARAMЦ е TYPе NUMџџџџX † nq ƒ/TYP еNUMе PUSHBUTTONа METHOD_SELFю EVENTINFOџџџџX –[ >  METHOD_SELF а EVENTINFOюџџџџ PUSHBUTTONа METHOD_SELFю EVENTINFOџџџџ~ Ћ”w METHOD_SELF а EVENTINFOюџџџџл PUSHBUTTONа METHOD_SELFю EVENTINFOџџџџЏХЈ METHOD_SELF а EVENTINFOюџџџџ  PUSHBUTTONа METHOD_SELFю EVENTINFOџџџџрій METHOD_SELF а EVENTINFOюџџџџe PUSHBUTTONа METHOD_SELFю EVENTINFOџџџџ'  METHOD_SELF а EVENTINFOюџџџџ) PUSHBUTTONа METHOD_SELFю EVENTINFOџџџџBX; METHOD_SELF а EVENTINFOюџџџџь PUSHBUTTONа METHOD_SELFю EVENTINFOџџџџsР‰l METHOD_SELF а EVENTINFOюџџџџЏ  PUSHBUTTONа METHOD_SELFю EVENTINFOџџџџЄеъК METHOD_SELF а EVENTINFOюџџџџМ  PUSHBUTTONа METHOD_SELFю EVENTINFOџџџџеўыЮ METHOD_SELF а EVENTINFOюSTRœџџџеTS|џџџ!DAAS џџџYAATDџџџY8еDASдўџџЦ IЬўџџDAStџџџЦ STRџџџеSTRџџџеSTRџџџеTSpџџџ!STRџџџеTSpџџџ!С ѕ r‚џJr‚џc ц š 7 e  r‚. . 7 r‚ћћ3 r‚щr‚ ssŸr‚ ддŸr‚ 55Ÿr‚––Ÿr‚­­щr‚И Ё "#%c щ”вAљшђџџџ œ  Рўџџ|џџџ€œ Рўџџ Рўџџ|џџџ џџџ Рўџџ Рўџџ|џџџРўџџ ЬўџџИ*Ќ€ўџџ џџџ€ўџџ@ўџџ(tЬўџџ@ўџџ"Oћ  џџџЬўџџ(DџџџР  €ўџџDџџџ€ўџџм%Рўџџ(Œ DџџџИ( %4ўџџPDџџџм( %(ўџџP%ўџџ8 дўџџDџџџф(№Dџџџь(*Ьўџџ'Шђўџџ дўџџ(М  „œџџџЬўџџўџџ(ўџџ4ўџџдўџџC џџџ?@ўџџ€ўџџDџџџ)Рўџџ|џџџшF§џџ ш œ zЌџџџ"ш tџџџџџџє&Xџџџ&<џџџхќџџ*М#ш tџџџ%ш  @џџџ1<џџџXџџџtџџџЌџџџ +шQќџџ !4 ŠЌџџџ!џџџР*!„џџџџџџ)„џџџ!„џџџ,ЗA„џџџ! $Ќџџџ„џџџџџџ +шhћџџ R IЌџџџR џџџ,ЗA џџџR  џџџЌџџџ +шЩњџџ ƒ  IЌџџџƒ  џџџHЗA џџџƒ   џџџЌџџџ +ш*њџџ Д  IЌџџџД  џџџdЗA џџџД   џџџЌџџџ +ш‹љџџ х  IЌџџџх  џџџ€ЗA џџџх   џџџЌџџџ +шьјџџ 4 ŠЌџџџџџџœ*„џџџџџџ)„џџџ„џџџ,ЗA„џџџ $„џџџЌџџџџџџ +шјџџ GИ ОЌџџџGџџџ џџџ*Gџџџpџџџ€И џџџGџџџpџџџџџџ  !  Gџџџpџџџџџџ G :џџџ џџџ(ЌџџџpџџџџџџTXT +шаіџџ xИ ТЌџџџxdџџџpџџџ€œ dџџџxdџџџpџџџџџџд dџџџxdџџџpџџџdџџџ xџџџџџџ*t x :џџџЌџџџdџџџpџџџџџџ TXT +ш™ѕџџ  ш}ѕџџ  Цд‹И„œ€zduHp,kfєaь\фUмNРGИBœ;€6} 0 Pasram.txtr pop01^v^c{del} {backspace} nw