m_Param s2_Prog s2_ProgP Tisk_Volba Zadejte identifikaci programu: Aktual aktual s1009p RIIS 1 e h l e d ku program Program s2_Prog.Prog s2_Prog.Prog s2_Prog.Nazev s2_Prog.Nazev *POM_VPROG POM_PODNIKM_PARAM FIRMA DNIKS2_PROG (iPROG 61) aS2_PROGP uPOLEX d y=PROCX RTOP ontroRBOT CLEFT pom_CRIGHT FREEZE ORDER endHOR DOL iLEVA PRAVA x =NADPIS ZAHL JMENO =99HODN SOUC PSOUC TITLE z =zTITLECOLORPOC0 F0 ***F1 sun dolF2 sobny F3 yt ****F4 caseF6 ist(i, F7 60) andF9 and y=F10 F0PRG ntroF1ON F1PRG pom_F4_JM F4PRG loopTISKPRG enF7_JM F7PRG F9PRG F9KEY x F9KEY1 F10_JM F10PRG =9RAMECEK RIIS NAZEVT KLICO z =KLNAZ SPACEBAR TR_HL1 **TR_HL2 TR_HL3 HOMTR_HL4 ny TR_HL5 ***TR_HL6 aseTR_HL7 i, TR_HL8 anTR_HL9 DET_JM le ENTER DETAIL letDETPRG PS_LINE acPS_RETURN PS_ZAZN oMOD_PSV orOBSAH s01_Proc znamem se pracuje, nelze aktualizovat. POM_OBR *S2_PROG ODNIKHLASKA S01_PROC KZMEN_TXT set color to b/w set color to bg/n set color to w+/bg set color to b/bg,w+/rb set color to w+/b set color to w+/w set color to w/n set color to w+/n A k t u a l i z a c e program sl RIIS 1 c2_ProgP c2_ProgP c2_ProgP+ c2_ProgP POM_VETA *POM_PROM BARVAS KBARVAR BARVAZ KBARVAU iBARVAN aBARVAT uBARVAH y=BARVAP BARVA ntroQ1 Q2 pom_Q3 Q4 endQ ZMENA1 iZMENA2 POM_KONTR POM_KONEC NOVY_Z1 NOVY_Z2 99HOR DOL POCET1 POCET2 =zPOMOC RAD ***SL sun dolPOC sobny S2_PROG **W_PROG sePROG t(i, W_NAZEV ndNAZEV d y=C2_PROGP S2_PROGP oAUTOR MM_AUTOR _AKTUAL DAT_AKT pHLAV1 enMENU1 PROC1 HLAV2 _PROGP PROC2 ZMENY PS_RETURN NEXIT &barvah - ^PgDn - ^Home - F10 - ^End,Esc &barvap Pohyb Parametry st par. Konec &barvau &barvas &barvaz &barvar &barvaz &barvat Program: zev : &barvau M_VETA &barvau &barvas &barvau M_VETA *W_PROG W_NAZEV &barvau if q>pocet&y q =pocet&y if novy_Z&y pocet&y =2 pocet&y =1 @ 4,12 &vloz w_Prog pict "@!X" @ 5,12 &vloz w_Nazev Zmena&y =.t. s01_Proc Duplicitn identifikace programu. *POM_VETA KW_PROG iHLASKA aS01_PROC _VETA =S2_PROG PROG &barvah - ,PgDn,PgUp - ^PgUp,^PgDn - ^Home - ^End,Esc &barvap Pohyb Konec &barvau &barvas &barvaz &barvar Parametry &barvan Param. Toler+ Toler- &barvau POM_TEXT M_VETA &barvau &barvas M_TEXT _VETA M_TEXT KC2_PROGP iPORADI_P aOZNAC_P uNAZEV_P =PARAM TOLER_P oTOLER_M MJ_P &barvau pocet&y =6 if q>pocet&y q =pocet&y @ x,5 &vloz c2_ProgP.Oznac_P pict "@!" @ x,12 &vloz c2_ProgP.Nazev_P @ x,38 &vloz c2_ProgP.Param @ x,49 &vloz c2_ProgP.Toler_P @ x,57 &vloz c2_ProgP.Toler_M @ x,65 &vloz c2_ProgP.MJ_P Zmena&y =.t. _VETA _TEXT PROGP ADI_P NAC_P ZEV_P =AKTUAL MM_AUTOR oDAT_AKT do Proc&y do Zmen&y with "get" do Zmen&y with "say" if q=pocet&y and z