ü ‚’’$’’š÷Ā›ä„Œ{c¬4Ē]:V¶l Š½tķR¼sdfĢclģmesto2ZDIM”mesņ@karel osax¦osayjnatżB×BFÆhlava‰osy„c1c2aturbo[KEYi downturboļturb%INFDc1FORRBNEXT@znacka“pocety@volne generujpoleÜ@ generujmesto@ nactimestotradekbsimÕradndimux—sloupec*rŗl1xZl1y”poznac°pocznacjojoę@cihlaR@ zobrazmestoHsloup znackasloupecto100@ karelchodidsou@ nactenikarlakarlikkarelikkarx‡karyb@ zobrazpolešzobrazpolekarn£popoÕprikazyprikazć@krokĶUCASEendsubzobrz zobrzpolekarx26Äzvednipolozskokvalmmmkrocik DD:yRDļDD“„ŒD„ŒD½D „Œ”DDD4D{„Œ”—9 *PROGRAM FUNGUJE ASI JEN Z 20% (A TO SU JESTE RAD) *}&e et}:eb}Neč}`d)ż}rd)*}„d)2}–d)Zd ż— *Karel v1.0 beta by Z39 *s£se ē84— vygeneruje mesto8D—, nacte podobu mesta ze souboru z39mesto.krl8½— zobrzi bludiste8—/ nacte programovou sadu ulozenou v z39demo.krldd *e 2d Zm karel.t~2"dŠÉdŠ} *–dŠ} 2–dŠ} Z–dŠ¢m karel.t~1"dŠÉdŠ‡ ż¶ˆdŠ¢ jd żV’’ą * 28: jYmKROK]jYć jYm VLEVO-VBOK]š Zdw Z jYmPOLOZ"]¾YÄ jYmZVEDNI]āYŗ jdd3m#"][Ķ jdd3m;"]*[Ķ Zd]>d Z Zd]Rd Z * 28: *epd 2epd Z8{  ģ—@snimani klaves ģmq"]Źd ä ģmw"]ād ä ģe ]öN äd]6seĮmTurbo zapnuto "– äd]vseĮmTurbo vypnuto "– äd]¤ tdfPĆV’’¢ tf’’ äd]Š tde'V’’Ī tf’’ĪĶ jf’’Nžŗm karel.t~1"dŠÉdŠ} * 2t–dŠ¢m karel.t~1"dŠÉdŠ‡ ܶˆdŠ¢ Üdb]šm!Nic se neda zvednout --- KONEC!!!"–N Üdw Üm karel.t~1"dŠÉdŠ} Ü–dŠ¢m karel.t~1"dŠÉdŠ‡ * 2t¶ˆdŠ¢o,,Äm karel.t~1"dŠÉdŠ} * 2t–dŠ¢m karel.t~1"dŠÉdŠ‡ ܶˆdŠ¢ Üdb]Ņm!Nic se neda zvednout --- KONEC!!!"–N Üd Üm karel.t~1"dŠÉdŠ} Ü–dŠ¢m karel.t~1"dŠÉdŠ‡ * 2t¶ˆdŠ¢o’’ć jYmKROK Zd]Ā *epd 2epd8 2dw 2 jYmKROK Zd ]& *epd 2epd8 *d * jYmKROK Zd ]Š *epd 2epd8 2d 2 jYmKROK Zd]ī *epd 2epd8 *dw *o “’’’’’’nFkarel88v{„Œ”—Mtato procedura vykresli Karla podle zadanych souradnic osy x a y a natoceni „d) Œd „e Œd)ƒd ¼—= hlava „d Œd) „e Œeƒd ¼— = telicko „d Œe „d) Œeƒd ¼— = leva noha „e Œe „e Œeƒd ¼— = prava nohah—,natoceni 1-sever, 2-vychod, 3-jih, 4-zapad ”d]h „e  Œd) „e  Œeƒd¼ „d! Œe „e  Œd)ƒd¼ „e Œe „e  Œd)ƒd¼ ”d ]  „d) Œe „e Œeƒd¼ „e  Œd) „e Œeƒd¼ „e  Œe „e Œeƒd¼ ”d ]Ų „e  Œd) „e  Œeƒd¼ „d! Œe „e  Œeƒd¼ „e Œe „e  Œeƒd¼ ”d]ˆ „d) Œe „e Œeƒd¼ „e  Œd) „d) Œeƒd¼ „e  Œe „d) Œeƒd¼Q ’’’’’’’’ znacka0^v „Œ” „d Œd „e Œeƒd¼ ”d_] sdse2Įm%Karel polozil moc cihlicek!!! - KONEC"–N ”dc]źsdse2Įm!Karel nema co zvednout!!! - KONEC"–N ¬d ”V’’^ „d Œen ¬dpnw „e Œen ¬dpnwd ƒd¼ ¬f’’Q ’’’’’’’’ volne0Pv„Œ „d Œd „e Œeƒd¼Q ’’’’’’’’ generujmesto0Öv4d äse ¤seĮmLQ - Turbo, W - Normalni stav, Esc - konec, komentar je v souboru Z39DEMO.KRL–—<LINE (3, 3)-(268, 398), 2, BF 'vykresleni ohraniceni mesta—LINE (5, 5)-(265, 395), 0, BF ¶deV’’b—$vykresleni horizontalnich car sited ¶epde  ¶epdƒd ¼ ¶f’’ ¼dd)V’’Ų—"vykresleni vertikalnich car site ¼epdd ¼epde‹ƒd ¼ ¼f’’Q ’’’’’’’’ nactimesto0lvDm z39mesto.krldŠÉ—%nacteni mesta RdeV’’l dŠ‡ Rb¶ˆseĮmNacitam mesto...•eden Rpnd`•m%"– ydd)V’’`(—] IF mes$(sloupec, radek) = MID$(rad$(radek), sloupec + 1, 1) THEN mes$(sloupec, radek) = "-"( Rb ydd3 y Rt yf’’ Rf’’dŠ¢Q ’’’’’’’’  cihla0Rv“„Œ „d Œd „e Œeƒe¼Q ’’’’’’’’ zobrazmesto0~v½—' tato procedura zobrazi nactene mesto2 ydd%V’’ RdeV’’ y Rtm0" y Rtm "u y Rtmu]č yepd Repd8 y Rtmx" y RtmX"u]V yepd Repd8“ y Rtm1"]¬ yepd Repdd8  y Rtm2"] yepd Repdd 8  y Rtm3"]X yepd Repdd 8  y Rtm4"]® yepd Repdd8  y Rtm5"] yepd Repdd8  Rf’’ yf’’Q ’’’’’’’’ nactenikarla0Ävm z39demo.krl"dŠÉ—&$program nacte sadu prikazu pro KarlaF żd żdŠ‡ ż¶ˆdcTdŠ¢m karel.t~1"dŠÉdŠ} ż–dŠ¢Q ’’’’’’’’  zobrazpole8Ņv:yR ye].[b y Rtm-" y Rtm "u y Rtmu]ø yepd Repd8 y Rtmx" y RtmX"u]& yepd Repd8“—OIF mes$(sloupec, radek) = "0" THEN znacka sloupec * 26 + 5, radek * 26 + 5, 0 y Rtm1"]Ņ yepd Repdd8  y Rtm2"]( yepd Repdd 8  y Rtm3"]~ yepd Repdd 8  y Rtm4"]Ō yepd Repdd8  y Rtm5"]* yepd Repdd8  y Rtm6"]€ yepd Repdd8 ’’bQ Ę’’’’’’  krok0vQ ’’’’’’’’