kontPREHLED us_akt mod618b4 Seznam RIIS 6.9 v1_usek nazev_usek nazev_usek Autor autor autor Aktual aktual aktual Dat. akt. tran(dat_akt,'@E') dat_akt POLEX kontPROCX =RTOP op RBOT bot CLEFT leftCRIGHT rigFREEZE FreORDER f2 DOL f3 = LEVA = .tPRAVA NADPIS f7ZAHL f8 =JMENO = .HODN ey= 'SOUC f10 TITLE nterTITLECOLORPOC0 m='Zm procx =F2 d618b4'F3 mecek =F4 nazevtF6 znamE F0PRG F1PRG EF4_JM F4PRG TISKPRG F7_JM 5F7PRG F9PRG F9KEY F9KEY1 FF10_JM F10PRG RAMECEK NAZEVT KLICO KLNAZ SPACEBAR ETR_HL1 TR_HL2 TR_HL3 TR_HL4 FTR_HL5 TR_HL6 TR_HL7 TR_HL8 DTR_HL9 DET_JM ENTER DETAIL DETPRG PS_LINE PS_RETURN PS_ZAZN KONEC KONTR V1_USEK e*USEK -----I ----MOD_PSV RIIS 6.9 set color to b/w set color to w+/bg set color to b/bg,w+/rb &barvau MOD_SYS ntANSI =OBRAZ p W_USEK t USEK leftW_NAZEV igNAZEV_USEKW_AUTOR fAUTOR f2 W_AKTUAL AKTUAL .tW_DATUM DAT_AKT f7NOVY_Z 8 =MM_AUTOR .ZMENA 'KONTR f10 HOR nterDOL ECOLORPOCET m='Zm nBARVAS x =BARVAZ b4'BARVAU k =BARVA zevtMENU PORADI KONEC SKPRG 5ZMENY PS_RETURN NEXIT Aktualizace &barvaz sek : seku: Autor : Aktual.: Datum akt.: @!XXXX W_USEK ntW_NAZEV =W_AUTOR W_AKTUAL W_DATUM @ 14,22 &vloz w_usek pict '@!XXXX' Nelze zadat stejn sek! @ 16,22 &vloz w_nazev if vloz='&vloz' and updated() NAZEV =ZAZNAM P_USEK W_USEK ftUSEK igAAA SEKTXT fHLASKA ZMENA .tW_DATUM W_AKTUAL 7MM_AUTOR do proc&y do zmen&y with 'get' do zmen&y with 'say' it pr ci beze zm n? (a/N) KONEC NAZEV igHOR .tNOVY_Z ZMENA 7W_USEK =USEK .W_NAZEV 'NAZEV_USEKW_AUTOR erAUTOR OLORW_AKTUAL dAKTUAL nW_DATUM =DAT_AKT 4'PROC1 zevtKONTR MM_AUTOR KPOCET - - ^PgDn - ^Home - ^End,Esc Pohyb znamu znamu Konec colora set color to &color ntCOLOR =OBR sek mus t vypln KONTR ntW_USEK =TXT HLASKA igPREHLED US_AKT PORADI PROC1 n/w, ZMEN1 ZMENY *****e ******X HLASKA KONTR re pr Z:\RIIS\ MOD618B4.FXP Z:\RIIS\MOD618B4.PRG