$! semestralka z predmetu OSY - letni semestr 2004/2005 $! Zadani c.28 $! vypracoval Michal Trs $ $! retezce pro nahradu anglickeho nazvu mesice za cesky $ stra := "JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC" $ strc := "LED UNO BRE DUB KVE CER CEC SRP ZAR RIJ LIS PRO" $ $ loop: $ time = f$time() $ $! nalezeni ceskeho nazvu $ mma = f$extract(3,3,time) $ pos = f$locate(mma,stra) $ mmc = f$extract(pos,3,strc) $ $! uprava retezce $ time = f$extract(0,3,time) + mmc + f$extract(6,17,time) $ $! vypis $ write/symbol sys$output time $ $! cekej 5s $ wait 00:00:05 $ goto loop