home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 July / Chip_1998-07_cd.bin / tema / sgp / vyber / tabulka / TABULKA.SGP < prev    next >
Text File  |  1997-11-17  |  82KB  |  1,783 lines
  1. SGPC   5.00 S#34N016 20.10.1996  9:16:58                                        StructNo12  12
  2. ; Vytvo²en ze vzoru: G:\NSGPBC33\VZORBC.000
  3.  
  4. # include <sgpbalt.h>
  5.  
  6. /*-hf(*/
  7. /*-hf-*/
  8. void He( void )
  9. /*-hf-*/;
  10. void H( void )
  11. /*-hf-*/;
  12. void VybTab( void )
  13. /*-hf-*/;
  14. void Prv7( void )
  15. /*-hf-*/;
  16. void Prv6( void )
  17. /*-hf-*/;
  18. void Prv5( void )
  19. /*-hf-*/;
  20. void Prv4( void )
  21. /*-hf-*/;
  22. void Prv3( void )
  23. /*-hf-*/;
  24. void Prv2( void )
  25. /*-hf-*/;
  26. void Prv1( void )
  27. /*-hf-*/;
  28. void Prvek( void )
  29. /*-hf-*/;
  30. void Pohyb( void )
  31. /*-hf-*/;
  32. /***** hlavní program *****/
  33. void main( void )
  34. /*-hf)*/;
  35. ;-h---------------------------------------------------------------------------
  36. /***** globální prom╪nné *****/
  37. double l;
  38. ;-h---------------------------------------------------------------------------
  39. void He( void )
  40. -s--He                                                                          ■  13  -2   0   3
  41.                         He
  42.                        0!
  43.                       Zapis
  44.            :GrSmaºOkno()!
  45.             G:("Helium")!
  46.    :GrNastavPozici(0,10)!
  47.           G:("m=4,0026")!
  48. -o1-He  operace
  49. 0 ;prom╪nné celoƒíselné: a,b,c,d,e,f,g,h,i,j,Klávesa;      -32768..32767
  50.                     int  a,b,c,d,e,f,g,h,i,j,Klávesa,
  51.                          I¼íslo1,I¼íslo2,I¼íslo3,PàvBarvy;
  52.  
  53.   ;prom╪nné reálné: D¼íslo1,D¼íslo2,D¼íslo3;           5.0E-324..1.7E308
  54.             double  D¼íslo1,D¼íslo2,D¼íslo3;
  55.   ;prom╪nná znak:   Znak;
  56.             char    Znak;
  57.   ;prom╪nná ²et╪zec:ⁿet╪zec[41];              ²et╪zec maximáln╪ 40 znakà
  58.                char ⁿet╪zec[41];
  59. [ Vytvo²Prostor()
  60. ] ZruτProstor()
  61. a Klávesa= ¼tiKlávesuZFronty()
  62. b P²epniNaBaltazara()
  63. c ¼aruj(¼tverec)
  64. d Gr¼tiZnak("?",Znak,1,0x07)             /*      edit ano, ƒerná/sτedá*/
  65. e BezObláƒku()
  66. f VyprázdniFrontuKláves()
  67. g Gr¼tiCⁿet╪zec("?",ⁿet╪zec,40,1,0x3f)    /*40zn, edit ano, modrá/bílá */
  68. h Gr¼tiI¼íslo("?",I¼íslo1,6,0,0x0e)      /* 6zn, edit  ne, ƒerná/ºlutá*/
  69. i Gr¼tiD¼íslo("?",D¼íslo1,20,1,0x0f)     /*20zn, edit ano, ƒerná/bílá */
  70. j GrPiτZnak(Znak)
  71. k Klávesa= ¼tiKlávesuZFrontyS¼ekáním()
  72. l VlevoVbok()
  73. m ;vypiτ ⁿet╪zec do grafického okénka
  74.    PàvBarvy=GrNastavBarvy(Modrá<<4|ªlutá); /* ºlutá na modré          */
  75.    GrPiτⁿet╪zec(ⁿet╪zec);            /* vypíτe obsah prom╪nné ⁿet╪zec */
  76.    GrNastavBarvy(PàvBarvy);          /* nastaví pàvodní barvy         */
  77. n Neviditeln∞()
  78. o SObláƒkem()
  79. p Popojdi(1)
  80. q GrPiτL¼íslo(I¼íslo1,-1)             /* -1 = nejkratτí v∞pis          */
  81. r VpravoVbok()
  82. s Klávesa= ¼tiKlávesuS¼ekáním()
  83. t P²epniNaText()
  84. u GrPiτD¼íslo(D¼íslo1,10,2)           /* 10 ƒíslic, z toho 2 desetinné */
  85. v Viditeln∞()
  86. w ;ƒekej na klávesu, smaº klávesu
  87.    ¼ekejNaKlávesu();
  88.    VyprázdniFrontuKláves();
  89. x
  90. y
  91. z ;ƒelem vzad
  92.    VlevoVbok(); VlevoVbok()
  93. B NastavBarvu¼arování   /*       B:(barva)!   0-15                    */
  94. C ¼aruj                 /*     C:(p²edm╪t)!   1-150                   */
  95. L NaƒtiScénu            /*    L:("soubor")!   "c:\\pavel\\soubor.bsc" */
  96. N Náhodn╪¼aruj          /*     N:(p²edm╪t)!   1-150                   */
  97. P Popojdi               /*  P:(poƒet_polí)!   0-14                    */
  98. R RychlostBaltazara     /*    R:(rychlost)!   0-9                     */
  99. S UloºScénu             /*    S:("soubor")!   "c:\\pavel\\soubor.bsc" */
  100. W ¼ekej                 /*  W:(milisekund)!   0-32000                 */
  101. X ¼arujNaPozici         /* X:(p²edm╪t,x,y)!   1-150, 1-15, 1-10       */
  102. G GrPiτⁿet╪zec
  103. -c1-He  podmínky  /=if *=while #=for          p²íklad pouºití
  104. /n ;kdyº p²edm╪t p²ed Baltazarem je nepràchodn∞
  105.     Neplatí PràchodnostP²edm╪tuP²edB()
  106. /p ;kdyº p²edm╪t p²ed Baltazarem je pràchodn∞
  107.     PràchodnostP²edm╪tuP²edB()
  108. /B ;kdyº barva ƒtverce p²ed Baltazarem ....     /B:Je~barva    0-15
  109.     Barva¼tverceP²edB()
  110. /P ;kdyº p²edm╪t p²ed Baltazarem ....           /P:<=p²edm╪t   1-150
  111.     P²edm╪tP²edB()
  112. /S ;kdyº sm╪r Baltazara ....                    /S:Není~4      1-4
  113.     Sm╪rBaltazara()
  114. *n ;dokud p²edm╪t p²ed Baltazarem je nepràchodn∞
  115.     Neplatí PràchodnostP²edm╪tuP²edB()
  116. *p ;dokud p²edm╪t p²ed Baltazarem je pràchodn∞
  117.     PràchodnostP²edm╪tuP²edB()
  118. *B ;dokud barva ƒtverce p²ed Baltazarem ....    *B:>barva      0-15
  119.     Barva¼tverceP²edB()
  120. *P ;dokud p²edm╪t p²ed Baltazarem ....          *P:>p²edm╪t    1-150
  121.     P²edm╪tP²edB()
  122. *S ;dokud sm╪r Baltazara ....                   *S:<=sm╪r      1-4
  123.     Sm╪rBaltazara()
  124. #A ;opakuj vzestupn╪ pro prom╪nnou od,do,krok   #A:(i,2,10,2)  i=2,4..10
  125.     OdDoKrok      
  126. #D ;opakuj sestupn╪  pro prom╪nnou od,do,krok   #D:(i,10,2,2)  i=10,8..2
  127.     OdDolàDoKrok      
  128. #M ;opakuj n-krát sestupn╪  pro prom╪nnou       #M:(i,8)  (8x) i=7,6..0
  129.     DolàDo0   
  130. #N ;opakuj n-krát vzestupn╪ pro prom╪nnou       #N:(i,8)  (8x) i=0,1..7
  131.     Od0   
  132. =SP-He
  133.  
  134. ;-h---------------------------------------------------------------------------
  135. void H( void )
  136. -s--H                                                                           ■  11  -2   0   3
  137.                         H
  138.                        0!
  139.                       Zapis
  140. G:("Vodík(Hydrogenium)")!
  141.    :GrNastavPozici(0,10)!
  142.           G:("m=1,0079")!
  143. -o1-H  operace
  144. 0 ;prom╪nné celoƒíselné: a,b,c,d,e,f,g,h,i,j,Klávesa;      -32768..32767
  145.                     int  a,b,c,d,e,f,g,h,i,j,Klávesa,
  146.                          I¼íslo1,I¼íslo2,I¼íslo3,PàvBarvy;
  147.  
  148.   ;prom╪nné reálné: D¼íslo1,D¼íslo2,D¼íslo3;           5.0E-324..1.7E308
  149.             double  D¼íslo1,D¼íslo2,D¼íslo3;
  150.   ;prom╪nná znak:   Znak;
  151.             char    Znak;
  152.   ;prom╪nná ²et╪zec:ⁿet╪zec[41];              ²et╪zec maximáln╪ 40 znakà
  153.                char ⁿet╪zec[41];
  154. [ Vytvo²Prostor()
  155. ] ZruτProstor()
  156. a Klávesa= ¼tiKlávesuZFronty()
  157. b P²epniNaBaltazara()
  158. c ¼aruj(¼tverec)
  159. d Gr¼tiZnak("?",Znak,1,0x07)             /*      edit ano, ƒerná/sτedá*/
  160. e BezObláƒku()
  161. f VyprázdniFrontuKláves()
  162. g Gr¼tiCⁿet╪zec("?",ⁿet╪zec,40,1,0x3f)    /*40zn, edit ano, modrá/bílá */
  163. h Gr¼tiI¼íslo("?",I¼íslo1,6,0,0x0e)      /* 6zn, edit  ne, ƒerná/ºlutá*/
  164. i Gr¼tiD¼íslo("?",D¼íslo1,20,1,0x0f)     /*20zn, edit ano, ƒerná/bílá */
  165. j GrPiτZnak(Znak)
  166. k Klávesa= ¼tiKlávesuZFrontyS¼ekáním()
  167. l VlevoVbok()
  168. m ;vypiτ ⁿet╪zec do grafického okénka
  169.    PàvBarvy=GrNastavBarvy(Modrá<<4|ªlutá); /* ºlutá na modré          */
  170.    GrPiτⁿet╪zec(ⁿet╪zec);            /* vypíτe obsah prom╪nné ⁿet╪zec */
  171.    GrNastavBarvy(PàvBarvy);          /* nastaví pàvodní barvy         */
  172. n Neviditeln∞()
  173. o SObláƒkem()
  174. p Popojdi(1)
  175. q GrPiτL¼íslo(I¼íslo1,-1)             /* -1 = nejkratτí v∞pis          */
  176. r VpravoVbok()
  177. s Klávesa= ¼tiKlávesuS¼ekáním()
  178. t P²epniNaText()
  179. u GrPiτD¼íslo(D¼íslo1,10,2)           /* 10 ƒíslic, z toho 2 desetinné */
  180. v Viditeln∞()
  181. w ;ƒekej na klávesu, smaº klávesu
  182.    ¼ekejNaKlávesu();
  183.    VyprázdniFrontuKláves();
  184. x
  185. y
  186. z ;ƒelem vzad
  187.    VlevoVbok(); VlevoVbok()
  188. B NastavBarvu¼arování   /*       B:(barva)!   0-15                    */
  189. C ¼aruj                 /*     C:(p²edm╪t)!   1-150                   */
  190. L NaƒtiScénu            /*    L:("soubor")!   "c:\\pavel\\soubor.bsc" */
  191. N Náhodn╪¼aruj          /*     N:(p²edm╪t)!   1-150                   */
  192. P Popojdi               /*  P:(poƒet_polí)!   0-14                    */
  193. R RychlostBaltazara     /*    R:(rychlost)!   0-9                     */
  194. S UloºScénu             /*    S:("soubor")!   "c:\\pavel\\soubor.bsc" */
  195. W ¼ekej                 /*  W:(milisekund)!   0-32000                 */
  196. X ¼arujNaPozici         /* X:(p²edm╪t,x,y)!   1-150, 1-15, 1-10       */
  197. G GrPiτⁿet╪zec          /* G:("Ahoj")                                 */
  198. -c1-H  podmínky  /=if *=while #=for          p²íklad pouºití
  199. /n ;kdyº p²edm╪t p²ed Baltazarem je nepràchodn∞
  200.     Neplatí PràchodnostP²edm╪tuP²edB()
  201. /p ;kdyº p²edm╪t p²ed Baltazarem je pràchodn∞
  202.     PràchodnostP²edm╪tuP²edB()
  203. /B ;kdyº barva ƒtverce p²ed Baltazarem ....     /B:Je~barva    0-15
  204.     Barva¼tverceP²edB()
  205. /P ;kdyº p²edm╪t p²ed Baltazarem ....           /P:<=p²edm╪t   1-150
  206.     P²edm╪tP²edB()
  207. /S ;kdyº sm╪r Baltazara ....                    /S:Není~4      1-4
  208.     Sm╪rBaltazara()
  209. *n ;dokud p²edm╪t p²ed Baltazarem je nepràchodn∞
  210.     Neplatí PràchodnostP²edm╪tuP²edB()
  211. *p ;dokud p²edm╪t p²ed Baltazarem je pràchodn∞
  212.     PràchodnostP²edm╪tuP²edB()
  213. *B ;dokud barva ƒtverce p²ed Baltazarem ....    *B:>barva      0-15
  214.     Barva¼tverceP²edB()
  215. *P ;dokud p²edm╪t p²ed Baltazarem ....          *P:>p²edm╪t    1-150
  216.     P²edm╪tP²edB()
  217. *S ;dokud sm╪r Baltazara ....                   *S:<=sm╪r      1-4
  218.     Sm╪rBaltazara()
  219. #A ;opakuj vzestupn╪ pro prom╪nnou od,do,krok   #A:(i,2,10,2)  i=2,4..10
  220.     OdDoKrok
  221. #D ;opakuj sestupn╪  pro prom╪nnou od,do,krok   #D:(i,10,2,2)  i=10,8..2
  222.     OdDolàDoKrok
  223. #M ;opakuj n-krát sestupn╪  pro prom╪nnou       #M:(i,8)  (8x) i=7,6..0
  224.     DolàDo0
  225. #N ;opakuj n-krát vzestupn╪ pro prom╪nnou       #N:(i,8)  (8x) i=0,1..7
  226.     Od0
  227. =SP-H
  228.  
  229. ;-h---------------------------------------------------------------------------
  230. void VybTab( void )
  231. -s--VybTab                                                                      ■   7  -2  -2   3
  232.                           VybTab
  233.                            0!
  234.              ___________Casti~tab____________
  235.              /:(l/2)==integer(l/2)          /:(l/2)~Není~integer(l/2)
  236.             Tab1                           Tab2
  237. L:("tabulka")!:l=l+1       L:("tabulka.s01")!:l=l+1
  238. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  239. 0 ;prom╪nné celoƒíselné: a,b,c,d,e,f,g,h,i,j,Klávesa;      -32768..32767
  240.                     int  a,b,c,d,e,f,g,h,i,j,Klávesa,
  241.                          I¼íslo1,I¼íslo2,I¼íslo3,PàvBarvy;
  242.  
  243.   ;prom╪nné reálné: D¼íslo1,D¼íslo2,D¼íslo3;           5.0E-324..1.7E308
  244.             double  D¼íslo1,D¼íslo2,D¼íslo3;
  245.   ;prom╪nná znak:   Znak;
  246.             char    Znak;
  247.   ;prom╪nná ²et╪zec:ⁿet╪zec[41];              ²et╪zec maximáln╪ 40 znakà
  248.                char ⁿet╪zec[41];
  249. [ Vytvo²Prostor()
  250. ] ZruτProstor()
  251. a Klávesa= ¼tiKlávesuZFronty()
  252. b P²epniNaBaltazara()
  253. c ¼aruj(¼tverec)
  254. d Gr¼tiZnak("?",Znak,1,0x07)             /*      edit ano, ƒerná/sτedá*/
  255. e BezObláƒku()
  256. f VyprázdniFrontuKláves()
  257. g Gr¼tiCⁿet╪zec("?",ⁿet╪zec,40,1,0x3f)    /*40zn, edit ano, modrá/bílá */
  258. h Gr¼tiI¼íslo("?",I¼íslo1,6,0,0x0e)      /* 6zn, edit  ne, ƒerná/ºlutá*/
  259. i Gr¼tiD¼íslo("?",D¼íslo1,20,1,0x0f)     /*20zn, edit ano, ƒerná/bílá */
  260. j GrPiτZnak(Znak)
  261. k Klávesa= ¼tiKlávesuZFrontyS¼ekáním()
  262. l VlevoVbok()
  263. m ;vypiτ ⁿet╪zec do grafického okénka
  264.    PàvBarvy=GrNastavBarvy(Modrá<<4|ªlutá); /* ºlutá na modré          */
  265.    GrPiτⁿet╪zec(ⁿet╪zec);            /* vypíτe obsah prom╪nné ⁿet╪zec */
  266.    GrNastavBarvy(PàvBarvy);          /* nastaví pàvodní barvy         */
  267. n Neviditeln∞()
  268. o SObláƒkem()
  269. p Popojdi(1)
  270. q GrPiτL¼íslo(I¼íslo1,-1)             /* -1 = nejkratτí v∞pis          */
  271. r VpravoVbok()
  272. s Klávesa= ¼tiKlávesuS¼ekáním()
  273. t P²epniNaText()
  274. u GrPiτD¼íslo(D¼íslo1,10,2)           /* 10 ƒíslic, z toho 2 desetinné */
  275. v Viditeln∞()
  276. w ;ƒekej na klávesu, smaº klávesu
  277.    ¼ekejNaKlávesu();
  278.    VyprázdniFrontuKláves();
  279. x
  280. y
  281. z ;ƒelem vzad
  282.    VlevoVbok(); VlevoVbok()
  283. B NastavBarvu¼arování   /*       B:(barva)!   0-15                    */
  284. C ¼aruj                 /*     C:(p²edm╪t)!   1-150                   */
  285. L NaƒtiScénu            /*    L:("soubor")!   "c:\\pavel\\soubor.bsc" */
  286. N Náhodn╪¼aruj          /*     N:(p²edm╪t)!   1-150                   */
  287. P Popojdi               /*  P:(poƒet_polí)!   0-14                    */
  288. R RychlostBaltazara     /*    R:(rychlost)!   0-9                     */
  289. S UloºScénu             /*    S:("soubor")!   "c:\\pavel\\soubor.bsc" */
  290. W ¼ekej                 /*  W:(milisekund)!   0-32000                 */
  291. X ¼arujNaPozici         /* X:(p²edm╪t,x,y)!   1-150, 1-15, 1-10       */
  292. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  293. /n ;kdyº p²edm╪t p²ed Baltazarem je nepràchodn∞
  294.     Neplatí PràchodnostP²edm╪tuP²edB()
  295. /p ;kdyº p²edm╪t p²ed Baltazarem je pràchodn∞
  296.     PràchodnostP²edm╪tuP²edB()
  297. /B ;kdyº barva ƒtverce p²ed Baltazarem ....     /B:Je~barva    0-15
  298.     Barva¼tverceP²edB()
  299. /P ;kdyº p²edm╪t p²ed Baltazarem ....           /P:<=p²edm╪t   1-150
  300.     P²edm╪tP²edB()
  301. /S ;kdyº sm╪r Baltazara ....                    /S:Není~4      1-4
  302.     Sm╪rBaltazara()
  303. *n ;dokud p²edm╪t p²ed Baltazarem je nepràchodn∞
  304.     Neplatí PràchodnostP²edm╪tuP²edB()
  305. *p ;dokud p²edm╪t p²ed Baltazarem je pràchodn∞
  306.     PràchodnostP²edm╪tuP²edB()
  307. *B ;dokud barva ƒtverce p²ed Baltazarem ....    *B:>barva      0-15
  308.     Barva¼tverceP²edB()
  309. *P ;dokud p²edm╪t p²ed Baltazarem ....          *P:>p²edm╪t    1-150
  310.     P²edm╪tP²edB()
  311. *S ;dokud sm╪r Baltazara ....                   *S:<=sm╪r      1-4
  312.     Sm╪rBaltazara()
  313. #A ;opakuj vzestupn╪ pro prom╪nnou od,do,krok   #A:(i,2,10,2)  i=2,4..10
  314.     OdDoKrok
  315. #D ;opakuj sestupn╪  pro prom╪nnou od,do,krok   #D:(i,10,2,2)  i=10,8..2
  316.     OdDolàDoKrok
  317. #M ;opakuj n-krát sestupn╪  pro prom╪nnou       #M:(i,8)  (8x) i=7,6..0
  318.     DolàDo0
  319. #N ;opakuj n-krát vzestupn╪ pro prom╪nnou       #N:(i,8)  (8x) i=0,1..7
  320.     Od0
  321. =SP---------------------------------------------------------------------------
  322.  
  323. ;-h---------------------------------------------------------------------------
  324. void Prv7( void )
  325. -s--Prv7                                                                        ■   2  -2   0   3
  326.                         Prv7
  327.                         0!
  328.                      __Vyber____________________
  329.                      /1    /2   /3   /4   /5   /6
  330.                      Fm    │    │    │    │    │
  331.  G:("Fermium~m=-252")!     │    │    │    │    │
  332.    G:("Mendelevium~m=-257")!    │    │    │    │
  333.            G:("Nobelium~m=-258")!    │    │    │
  334.               G:("Lawrencium~m=-259")!    │    │
  335.                          G:("Kurcatovium")!    │
  336.                              G:("Nielsbohrium")!
  337. -o1-Prv7  operace
  338. 0 ;prom╪nné celoƒíselné: a,b,c,d,e,f,g,h,i,j,Klávesa;      -32768..32767
  339.                     int  a,b,c,d,e,f,g,h,i,j,Klávesa,
  340.                          I¼íslo1,I¼íslo2,I¼íslo3,PàvBarvy;
  341.  
  342.   ;prom╪nné reálné: D¼íslo1,D¼íslo2,D¼íslo3;           5.0E-324..1.7E308
  343.             double  D¼íslo1,D¼íslo2,D¼íslo3;
  344.   ;prom╪nná znak:   Znak;
  345.             char    Znak;
  346.   ;prom╪nná ²et╪zec:ⁿet╪zec[41];              ²et╪zec maximáln╪ 40 znakà
  347.                char ⁿet╪zec[41];
  348. [ Vytvo²Prostor()
  349. ] ZruτProstor()
  350. a Klávesa= ¼tiKlávesuZFronty()
  351. b P²epniNaBaltazara()
  352. c ¼aruj(¼tverec)
  353. d Gr¼tiZnak("?",Znak,1,0x07)             /*      edit ano, ƒerná/sτedá*/
  354. e BezObláƒku()
  355. f VyprázdniFrontuKláves()
  356. g Gr¼tiCⁿet╪zec("?",ⁿet╪zec,40,1,0x3f)    /*40zn, edit ano, modrá/bílá */
  357. h Gr¼tiI¼íslo("?",I¼íslo1,6,0,0x0e)      /* 6zn, edit  ne, ƒerná/ºlutá*/
  358. i Gr¼tiD¼íslo("?",D¼íslo1,20,1,0x0f)     /*20zn, edit ano, ƒerná/bílá */
  359. j GrPiτZnak(Znak)
  360. k Klávesa= ¼tiKlávesuZFrontyS¼ekáním()
  361. l VlevoVbok()
  362. m ;vypiτ ⁿet╪zec do grafického okénka
  363.    PàvBarvy=GrNastavBarvy(Modrá<<4|ªlutá); /* ºlutá na modré          */
  364.    GrPiτⁿet╪zec(ⁿet╪zec);            /* vypíτe obsah prom╪nné ⁿet╪zec */
  365.    GrNastavBarvy(PàvBarvy);          /* nastaví pàvodní barvy         */
  366. n Neviditeln∞()
  367. o SObláƒkem()
  368. p Popojdi(1)
  369. q GrPiτL¼íslo(I¼íslo1,-1)             /* -1 = nejkratτí v∞pis          */
  370. r VpravoVbok()
  371. s Klávesa= ¼tiKlávesuS¼ekáním()
  372. t P²epniNaText()
  373. u GrPiτD¼íslo(D¼íslo1,10,2)           /* 10 ƒíslic, z toho 2 desetinné */
  374. v Viditeln∞()
  375. w ;ƒekej na klávesu, smaº klávesu
  376.    ¼ekejNaKlávesu();
  377.    VyprázdniFrontuKláves();
  378. x
  379. y
  380. z ;ƒelem vzad
  381.    VlevoVbok(); VlevoVbok()
  382. B NastavBarvu¼arování   /*       B:(barva)!   0-15                    */
  383. C ¼aruj                 /*     C:(p²edm╪t)!   1-150                   */
  384. L NaƒtiScénu            /*    L:("soubor")!   "c:\\pavel\\soubor.bsc" */
  385. N Náhodn╪¼aruj          /*     N:(p²edm╪t)!   1-150                   */
  386. P Popojdi               /*  P:(poƒet_polí)!   0-14                    */
  387. R RychlostBaltazara     /*    R:(rychlost)!   0-9                     */
  388. S UloºScénu             /*    S:("soubor")!   "c:\\pavel\\soubor.bsc" */
  389. W ¼ekej                 /*  W:(milisekund)!   0-32000                 */
  390. X ¼arujNaPozici         /* X:(p²edm╪t,x,y)!   1-150, 1-15, 1-10       */
  391. G GrPiτⁿet╪zec
  392. -c1-Prv7  podmínky  /=if *=while #=for          p²íklad pouºití
  393. /1 ;fm
  394.     P²edm╪tP²edB() Je 101 ASouƒasn╪ Klávesa Je KlEnter
  395. /2 ;md
  396.     P²edm╪tP²edB() Je 102 ASouƒasn╪ Klávesa Je KlEnter
  397. /3 ;no
  398.     P²edm╪tP²edB() Je 103 ASouƒasn╪ Klávesa Je KlEnter
  399. /4 ;lr
  400.     P²edm╪tP²edB() Je 104 ASouƒasn╪ Klávesa Je KlEnter
  401. /5 ;ku
  402.     P²edm╪tP²edB() Je 105 ASouƒasn╪ Klávesa Je KlEnter
  403. /6 ;ns
  404.     P²edm╪tP²edB() Je 106 ASouƒasn╪ Klávesa Je KlEnter
  405. =SP-Prv7
  406.  
  407. ;-h---------------------------------------------------------------------------
  408. void Prv6( void )
  409. -s--Prv6                                                                        ■ 107   9   0   3
  410.                              Prv6
  411.                              0!
  412.                      _______Vyber_____________________________
  413.                      /1  /2 /3 /4 /5 /6 /7 /8 /9 /a /b /c /d /e
  414.                      Rn  │  │  │  │  │  │  │  │  │  │  │  │  │
  415.           G:("Radon")!   │  │  │  │  │  │  │  │  │  │  │  │  │
  416. :GrNastavPozici(0,10)!   │  │  │  │  │  │  │  │  │  │  │  │  │
  417.          G:("m=-222")!   │  │  │  │  │  │  │  │  │  │  │  │  │
  418.            G:("Francium")!  │  │  │  │  │  │  │  │  │  │  │  │
  419.     :GrNastavPozici(0,10)!  │  │  │  │  │  │  │  │  │  │  │  │
  420.              G:("m=-223")!  │  │  │  │  │  │  │  │  │  │  │  │
  421.                 G:("Radium")!  │  │  │  │  │  │  │  │  │  │  │
  422.        :GrNastavPozici(0,10)!  │  │  │  │  │  │  │  │  │  │  │
  423.             G:("m=226,0254")!  │  │  │  │  │  │  │  │  │  │  │
  424.                  G:("Actinium")!  │  │  │  │  │  │  │  │  │  │
  425.           :GrNastavPozici(0,10)!  │  │  │  │  │  │  │  │  │  │
  426.                G:("m=227,0278")!  │  │  │  │  │  │  │  │  │  │
  427.                      G:("Thorium")!  │  │  │  │  │  │  │  │  │
  428.              :GrNastavPozici(0,10)!  │  │  │  │  │  │  │  │  │
  429.                   G:("m=232,0381")!  │  │  │  │  │  │  │  │  │
  430.                    G:("Protactinium")!  │  │  │  │  │  │  │  │
  431.                 :GrNastavPozici(0,10)!  │  │  │  │  │  │  │  │
  432.                      G:("m=231,0395")!  │  │  │  │  │  │  │  │
  433.                      G:("Uran(Uranium)")!  │  │  │  │  │  │  │
  434.                    :GrNastavPozici(0,10)!  │  │  │  │  │  │  │
  435.                         G:("m=238,0289")!  │  │  │  │  │  │  │
  436.                             G:("Neptunium")!  │  │  │  │  │  │
  437.                       :GrNastavPozici(0,10)!  │  │  │  │  │  │
  438.                            G:("m=237,0289")!  │  │  │  │  │  │
  439.                                G:("Plutonium")!  │  │  │  │  │
  440.                          :GrNastavPozici(0,10)!  │  │  │  │  │
  441.                                   G:("m=-244")!  │  │  │  │  │
  442.                                   G:("Americium")!  │  │  │  │
  443.                             :GrNastavPozici(0,10)!  │  │  │  │
  444.                                      G:("m=-243")!  │  │  │  │
  445.                                         G:("Curium")!  │  │  │
  446.                                :GrNastavPozici(0,10)!  │  │  │
  447.                                         G:("m=-247")!  │  │  │
  448.                                         G:("Barkelium")!  │  │
  449.                                   :GrNastavPozici(0,10)!  │  │
  450.                                            G:("m=-247")!  │  │
  451.                                          G:("Californium")!  │
  452.                                      :GrNastavPozici(0,10)!  │
  453.                                               G:("m=-251")!  │
  454.                                             G:("Einsteinium")!
  455.                                         :GrNastavPozici(0,10)!
  456.                                                  G:("m=-252")!
  457. -o1-Prv6  operace
  458. 0 ;prom╪nné celoƒíselné: a,b,c,d,e,f,g,h,i,j,Klávesa;      -32768..32767
  459.                     int  a,b,c,d,e,f,g,h,i,j,Klávesa,
  460.                          I¼íslo1,I¼íslo2,I¼íslo3,PàvBarvy;
  461.  
  462.   ;prom╪nné reálné: D¼íslo1,D¼íslo2,D¼íslo3;           5.0E-324..1.7E308
  463.             double  D¼íslo1,D¼íslo2,D¼íslo3;
  464.   ;prom╪nná znak:   Znak;
  465.             char    Znak;
  466.   ;prom╪nná ²et╪zec:ⁿet╪zec[41];              ²et╪zec maximáln╪ 40 znakà
  467.                char ⁿet╪zec[41];
  468. [ Vytvo²Prostor()
  469. ] ZruτProstor()
  470. a Klávesa= ¼tiKlávesuZFronty()
  471. b P²epniNaBaltazara()
  472. c ¼aruj(¼tverec)
  473. d Gr¼tiZnak("?",Znak,1,0x07)             /*      edit ano, ƒerná/sτedá*/
  474. e BezObláƒku()
  475. f VyprázdniFrontuKláves()
  476. g Gr¼tiCⁿet╪zec("?",ⁿet╪zec,40,1,0x3f)    /*40zn, edit ano, modrá/bílá */
  477. h Gr¼tiI¼íslo("?",I¼íslo1,6,0,0x0e)      /* 6zn, edit  ne, ƒerná/ºlutá*/
  478. i Gr¼tiD¼íslo("?",D¼íslo1,20,1,0x0f)     /*20zn, edit ano, ƒerná/bílá */
  479. j GrPiτZnak(Znak)
  480. k Klávesa= ¼tiKlávesuZFrontyS¼ekáním()
  481. l VlevoVbok()
  482. m ;vypiτ ⁿet╪zec do grafického okénka
  483.    PàvBarvy=GrNastavBarvy(Modrá<<4|ªlutá); /* ºlutá na modré          */
  484.    GrPiτⁿet╪zec(ⁿet╪zec);            /* vypíτe obsah prom╪nné ⁿet╪zec */
  485.    GrNastavBarvy(PàvBarvy);          /* nastaví pàvodní barvy         */
  486. n Neviditeln∞()
  487. o SObláƒkem()
  488. p Popojdi(1)
  489. q GrPiτL¼íslo(I¼íslo1,-1)             /* -1 = nejkratτí v∞pis          */
  490. r VpravoVbok()
  491. s Klávesa= ¼tiKlávesuS¼ekáním()
  492. t P²epniNaText()
  493. u GrPiτD¼íslo(D¼íslo1,10,2)           /* 10 ƒíslic, z toho 2 desetinné */
  494. v Viditeln∞()
  495. w ;ƒekej na klávesu, smaº klávesu
  496.    ¼ekejNaKlávesu();
  497.    VyprázdniFrontuKláves();
  498. x
  499. y
  500. z ;ƒelem vzad
  501.    VlevoVbok(); VlevoVbok()
  502. B NastavBarvu¼arování   /*       B:(barva)!   0-15                    */
  503. C ¼aruj                 /*     C:(p²edm╪t)!   1-150                   */
  504. L NaƒtiScénu            /*    L:("soubor")!   "c:\\pavel\\soubor.bsc" */
  505. N Náhodn╪¼aruj          /*     N:(p²edm╪t)!   1-150                   */
  506. P Popojdi               /*  P:(poƒet_polí)!   0-14                    */
  507. R RychlostBaltazara     /*    R:(rychlost)!   0-9                     */
  508. S UloºScénu             /*    S:("soubor")!   "c:\\pavel\\soubor.bsc" */
  509. W ¼ekej                 /*  W:(milisekund)!   0-32000                 */
  510. X ¼arujNaPozici         /* X:(p²edm╪t,x,y)!   1-150, 1-15, 1-10       */
  511. G GrPiτⁿet╪zec          /* G:("Ahoj")                                 */
  512.  
  513. -c1-Prv6  podmínky  /=if *=while #=for          p²íklad pouºití
  514. /n ;kdyº p²edm╪t p²ed Baltazarem je nepràchodn∞
  515.     Neplatí PràchodnostP²edm╪tuP²edB()
  516. /p ;kdyº p²edm╪t p²ed Baltazarem je pràchodn∞
  517.     PràchodnostP²edm╪tuP²edB()
  518. /B ;kdyº barva ƒtverce p²ed Baltazarem ....     /B:Je~barva    0-15
  519.     Barva¼tverceP²edB()
  520. /P ;kdyº p²edm╪t p²ed Baltazarem ....           /P:<=p²edm╪t   1-150
  521.     P²edm╪tP²edB()
  522. /S ;kdyº sm╪r Baltazara ....                    /S:Není~4      1-4
  523.     Sm╪rBaltazara()
  524. /1 ;radon
  525.     P²edm╪tP²edB() Je 87 ASouƒasn╪ Klávesa Je KlEnter
  526. /2 ;francium
  527.     P²edm╪tP²edB() Je 88 ASouƒasn╪ Klávesa Je KlEnter
  528. /3 ;radium
  529.     P²edm╪tP²edB() Je 89 ASouƒasn╪ Klávesa Je KlEnter
  530. /4 ;aktinium
  531.     P²edm╪tP²edB() Je 90 ASouƒasn╪ Klávesa Je KlEnter
  532. /5 ;thorium
  533.     P²edm╪tP²edB() Je 91 ASouƒasn╪ Klávesa Je KlEnter
  534. /6 ;protaktinium
  535.     P²edm╪tP²edB() Je 92 ASouƒasn╪ Klávesa Je KlEnter
  536. /7 ;uran
  537.     P²edm╪tP²edB() Je 93 ASouƒasn╪ Klávesa Je KlEnter
  538. /8 ;neptunium
  539.     P²edm╪tP²edB() Je 94 ASouƒasn╪ Klávesa Je KlEnter
  540. /9 ;plutonium
  541.     P²edm╪tP²edB() Je 95 ASouƒasn╪ Klávesa Je KlEnter
  542. /a ;americium
  543.     P²edm╪tP²edB() Je 96 ASouƒasn╪ Klávesa Je KlEnter
  544. /b ;curium
  545.     P²edm╪tP²edB() Je 97 ASouƒasn╪ Klávesa Je KlEnter
  546. /c ;barkelium
  547.     P²edm╪tP²edB() Je 98 ASouƒasn╪ Klávesa Je KlEnter
  548. /d ;kalifornium
  549.     P²edm╪tP²edB() Je 99 ASouƒasn╪ Klávesa Je KlEnter
  550. /e ;einsteinium
  551.     P²edm╪tP²edB() Je 100 ASouƒasn╪ Klávesa Je KlEnter
  552. *n ;dokud p²edm╪t p²ed Baltazarem je nepràchodn∞
  553.     Neplatí PràchodnostP²edm╪tuP²edB()
  554. *p ;dokud p²edm╪t p²ed Baltazarem je pràchodn∞
  555.     PràchodnostP²edm╪tuP²edB()
  556. *B ;dokud barva ƒtverce p²ed Baltazarem ....    *B:>barva      0-15
  557.     Barva¼tverceP²edB()
  558. *P ;dokud p²edm╪t p²ed Baltazarem ....          *P:>p²edm╪t    1-150
  559.     P²edm╪tP²edB()
  560. *S ;dokud sm╪r Baltazara ....                   *S:<=sm╪r      1-4
  561.     Sm╪rBaltazara()
  562. #A ;opakuj vzestupn╪ pro prom╪nnou od,do,krok   #A:(i,2,10,2)  i=2,4..10
  563.     OdDoKrok
  564. #D ;opakuj sestupn╪  pro prom╪nnou od,do,krok   #D:(i,10,2,2)  i=10,8..2
  565.     OdDolàDoKrok
  566. #M ;opakuj n-krát sestupn╪  pro prom╪nnou       #M:(i,8)  (8x) i=7,6..0
  567.     DolàDo0
  568. #N ;opakuj n-krát vzestupn╪ pro prom╪nnou       #N:(i,8)  (8x) i=0,1..7
  569.     Od0
  570. =SP-Prv6
  571.  
  572. ;-h---------------------------------------------------------------------------
  573. void Prv5( void )
  574. -s--Prv5                                                                        ■ 390  23   0   3
  575.                                  Prv5
  576.                                  0!
  577.                      ___________Vyber________________________
  578.                      /1 /2 /3 /4 /5 /6 /7 /8 /9 /a /b /c /d /e
  579.                      Hf │  │  │  │  │  │  │  │  │  │  │  │  │
  580.         G:("Hafnium")!  │  │  │  │  │  │  │  │  │  │  │  │  │
  581. :GrNastavPozici(0,10)!  │  │  │  │  │  │  │  │  │  │  │  │  │
  582.        G:("m=178,49")!  │  │  │  │  │  │  │  │  │  │  │  │  │
  583.   G:("Tantal(Tantalum)")!  │  │  │  │  │  │  │  │  │  │  │  │
  584.    :GrNastavPozici(0,10)!  │  │  │  │  │  │  │  │  │  │  │  │
  585.         G:("m=180,9479")!  │  │  │  │  │  │  │  │  │  │  │  │
  586.   G:("Wolfram(Wolframium)")!  │  │  │  │  │  │  │  │  │  │  │
  587.       :GrNastavPozici(0,10)!  │  │  │  │  │  │  │  │  │  │  │
  588.              G:("m=183,85")!  │  │  │  │  │  │  │  │  │  │  │
  589.                  G:("Rhenium")!  │  │  │  │  │  │  │  │  │  │
  590.          :GrNastavPozici(0,10)!  │  │  │  │  │  │  │  │  │  │
  591.                G:("m=186,207")!  │  │  │  │  │  │  │  │  │  │
  592.                      G:("Osmium")!  │  │  │  │  │  │  │  │  │
  593.             :GrNastavPozici(0,10)!  │  │  │  │  │  │  │  │  │
  594.                     G:("m=190,2")!  │  │  │  │  │  │  │  │  │
  595.                        G:("Iridium")!  │  │  │  │  │  │  │  │
  596.                :GrNastavPozici(0,10)!  │  │  │  │  │  │  │  │
  597.                       G:("m=192,22")!  │  │  │  │  │  │  │  │
  598.                 G:("Platina(Platinum)")!  │  │  │  │  │  │  │
  599.                   :GrNastavPozici(0,10)!  │  │  │  │  │  │  │
  600.                        G:("m=196,9665")!  │  │  │  │  │  │  │
  601.                         G:("Zlato(Aurum)")!  │  │  │  │  │  │
  602.                      :GrNastavPozici(0,10)!  │  │  │  │  │  │
  603.                             G:("m=200,59")!  │  │  │  │  │  │
  604.                       G:("Rtu£(Hydrargyrum)")!  │  │  │  │  │
  605.                         :GrNastavPozici(0,10)!  │  │  │  │  │
  606.                               G:("m=204,383")!  │  │  │  │  │
  607.                                   G:("Thallium")!  │  │  │  │
  608.                            :GrNastavPozici(0,10)!  │  │  │  │
  609.                                    G:("m=207,2")!  │  │  │  │
  610.                                G:("Olovo(Plumbum)")!  │  │  │
  611.                               :GrNastavPozici(0,10)!  │  │  │
  612.                                    G:("m=208,9804")!  │  │  │
  613.                                G:("Bismut(Bismuthum)")!  │  │
  614.                                  :GrNastavPozici(0,10)!  │  │
  615.                                           G:("m=-209")!  │  │
  616.                                            G:("Polonium")!  │
  617.                                     :GrNastavPozici(0,10)!  │
  618.                                              G:("m=-210")!  │
  619.                                        G:("Astat(Astatium)")!
  620.                                        :GrNastavPozici(0,10)!
  621.                                                 G:("m=-222")!
  622. -o1-Prv5  operace
  623. 0 ;prom╪nné celoƒíselné: a,b,c,d,e,f,g,h,i,j,Klávesa;      -32768..32767
  624.                     int  a,b,c,d,e,f,g,h,i,j,Klávesa,
  625.                          I¼íslo1,I¼íslo2,I¼íslo3,PàvBarvy;
  626.  
  627.   ;prom╪nné reálné: D¼íslo1,D¼íslo2,D¼íslo3;           5.0E-324..1.7E308
  628.             double  D¼íslo1,D¼íslo2,D¼íslo3;
  629.   ;prom╪nná znak:   Znak;
  630.             char    Znak;
  631.   ;prom╪nná ²et╪zec:ⁿet╪zec[41];              ²et╪zec maximáln╪ 40 znakà
  632.                char ⁿet╪zec[41];
  633. [ Vytvo²Prostor()
  634. ] ZruτProstor()
  635. a Klávesa= ¼tiKlávesuZFronty()
  636. b P²epniNaBaltazara()
  637. c ¼aruj(¼tverec)
  638. d Gr¼tiZnak("?",Znak,1,0x07)             /*      edit ano, ƒerná/sτedá*/
  639. e BezObláƒku()
  640. f VyprázdniFrontuKláves()
  641. g Gr¼tiCⁿet╪zec("?",ⁿet╪zec,40,1,0x3f)    /*40zn, edit ano, modrá/bílá */
  642. h Gr¼tiI¼íslo("?",I¼íslo1,6,0,0x0e)      /* 6zn, edit  ne, ƒerná/ºlutá*/
  643. i Gr¼tiD¼íslo("?",D¼íslo1,20,1,0x0f)     /*20zn, edit ano, ƒerná/bílá */
  644. j GrPiτZnak(Znak)
  645. k Klávesa= ¼tiKlávesuZFrontyS¼ekáním()
  646. l VlevoVbok()
  647. m ;vypiτ ⁿet╪zec do grafického okénka
  648.    PàvBarvy=GrNastavBarvy(Modrá<<4|ªlutá); /* ºlutá na modré          */
  649.    GrPiτⁿet╪zec(ⁿet╪zec);            /* vypíτe obsah prom╪nné ⁿet╪zec */
  650.    GrNastavBarvy(PàvBarvy);          /* nastaví pàvodní barvy         */
  651. n Neviditeln∞()
  652. o SObláƒkem()
  653. p Popojdi(1)
  654. q GrPiτL¼íslo(I¼íslo1,-1)             /* -1 = nejkratτí v∞pis          */
  655. r VpravoVbok()
  656. s Klávesa= ¼tiKlávesuS¼ekáním()
  657. t P²epniNaText()
  658. u GrPiτD¼íslo(D¼íslo1,10,2)           /* 10 ƒíslic, z toho 2 desetinné */
  659. v Viditeln∞()
  660. w ;ƒekej na klávesu, smaº klávesu
  661.    ¼ekejNaKlávesu();
  662.    VyprázdniFrontuKláves();
  663. x
  664. y
  665. z ;ƒelem vzad
  666.    VlevoVbok(); VlevoVbok()
  667. B NastavBarvu¼arování   /*       B:(barva)!   0-15                    */
  668. C ¼aruj                 /*     C:(p²edm╪t)!   1-150                   */
  669. L NaƒtiScénu            /*    L:("soubor")!   "c:\\pavel\\soubor.bsc" */
  670. N Náhodn╪¼aruj          /*     N:(p²edm╪t)!   1-150                   */
  671. P Popojdi               /*  P:(poƒet_polí)!   0-14                    */
  672. R RychlostBaltazara     /*    R:(rychlost)!   0-9                     */
  673. S UloºScénu             /*    S:("soubor")!   "c:\\pavel\\soubor.bsc" */
  674. W ¼ekej                 /*  W:(milisekund)!   0-32000                 */
  675. X ¼arujNaPozici         /* X:(p²edm╪t,x,y)!   1-150, 1-15, 1-10       */
  676. G GrPiτⁿet╪zec          /* G:("Ahoj")                                 */
  677.  
  678. -c1-Prv5  podmínky  /=if *=while #=for          p²íklad pouºití
  679. /n ;kdyº p²edm╪t p²ed Baltazarem je nepràchodn∞
  680.     Neplatí PràchodnostP²edm╪tuP²edB()
  681. /p ;kdyº p²edm╪t p²ed Baltazarem je pràchodn∞
  682.     PràchodnostP²edm╪tuP²edB()
  683. /B ;kdyº barva ƒtverce p²ed Baltazarem ....     /B:Je~barva    0-15
  684.     Barva¼tverceP²edB()
  685. /P ;kdyº p²edm╪t p²ed Baltazarem ....           /P:<=p²edm╪t   1-150
  686.     P²edm╪tP²edB()
  687. /S ;kdyº sm╪r Baltazara ....                    /S:Není~4      1-4
  688.     Sm╪rBaltazara()
  689. /1 ;hafnium
  690.     P²edm╪tP²edB() Je 73 ASouƒasn╪ Klávesa Je KlEnter
  691. /2 ;tantal
  692.     P²edm╪tP²edB() Je 74 ASouƒasn╪ Klávesa Je KlEnter
  693. /3 ;wolfram
  694.     P²edm╪tP²edB() Je 75 ASouƒasn╪ Klávesa Je KlEnter
  695. /4 ;rhenium
  696.     P²edm╪tP²edB() Je 76 ASouƒasn╪ Klávesa Je KlEnter
  697. /5 ;osmium
  698.     P²edm╪tP²edB() Je 77 ASouƒasn╪ Klávesa Je KlEnter
  699. /6 ;iridium
  700.     P²edm╪tP²edB() Je 78 ASouƒasn╪ Klávesa Je KlEnter
  701. /7 ;platinium
  702.     P²edm╪tP²edB() Je 79 ASouƒasn╪ Klávesa Je KlEnter
  703. /8 ;zlato
  704.     P²edm╪tP²edB() Je 80 ASouƒasn╪ Klávesa Je KlEnter
  705. /9 ;rtut
  706.     P²edm╪tP²edB() Je 81 ASouƒasn╪ Klávesa Je KlEnter
  707. /a ;talium
  708.     P²edm╪tP²edB() Je 82 ASouƒasn╪ Klávesa Je KlEnter
  709. /b ;olovo
  710.     P²edm╪tP²edB() Je 83 ASouƒasn╪ Klávesa Je KlEnter
  711. /c ;bismut
  712.     P²edm╪tP²edB() Je 84 ASouƒasn╪ Klávesa Je KlEnter
  713. /d ;polonium
  714.     P²edm╪tP²edB() Je 85 ASouƒasn╪ Klávesa Je KlEnter
  715. /e ;astat
  716.     P²edm╪tP²edB() Je 86 ASouƒasn╪ Klávesa Je KlEnter
  717. *n ;dokud p²edm╪t p²ed Baltazarem je nepràchodn∞
  718.     Neplatí PràchodnostP²edm╪tuP²edB()
  719. *p ;dokud p²edm╪t p²ed Baltazarem je pràchodn∞
  720.     PràchodnostP²edm╪tuP²edB()
  721. *B ;dokud barva ƒtverce p²ed Baltazarem ....    *B:>barva      0-15
  722.     Barva¼tverceP²edB()
  723. *P ;dokud p²edm╪t p²ed Baltazarem ....          *P:>p²edm╪t    1-150
  724.     P²edm╪tP²edB()
  725. *S ;dokud sm╪r Baltazara ....                   *S:<=sm╪r      1-4
  726.     Sm╪rBaltazara()
  727. #A ;opakuj vzestupn╪ pro prom╪nnou od,do,krok   #A:(i,2,10,2)  i=2,4..10
  728.     OdDoKrok
  729. #D ;opakuj sestupn╪  pro prom╪nnou od,do,krok   #D:(i,10,2,2)  i=10,8..2
  730.     OdDolàDoKrok
  731. #M ;opakuj n-krát sestupn╪  pro prom╪nnou       #M:(i,8)  (8x) i=7,6..0
  732.     DolàDo0
  733. #N ;opakuj n-krát vzestupn╪ pro prom╪nnou       #N:(i,8)  (8x) i=0,1..7
  734.     Od0
  735. =SP-Prv5
  736.  
  737. ;-h---------------------------------------------------------------------------
  738. void Prv4( void )
  739. -s--Prv4                                                                        ■ 389  23   0   3
  740.                         Prv4
  741.                         0!
  742.                       _Vyber__________________________________
  743.                       /1 /2 /3 /4 /5 /6 /7 /8 /9 /a /b /c /d /e
  744.                       Ce Pr Nd Pm Sm Eu Gd Tb Dy Ho Er Tm Yb Lu
  745.       G:("Cer(Ceriu)")!  │  │  │  │  │  │  │  │  │  │  │  │  │
  746.  :GrNastavPozici(0,10)!  │  │  │  │  │  │  │  │  │  │  │  │  │
  747.         G:("m=140,12")!  │  │  │  │  │  │  │  │  │  │  │  │  │
  748.        G:("Praseodymium")!  │  │  │  │  │  │  │  │  │  │  │  │
  749.     :GrNastavPozici(0,10)!  │  │  │  │  │  │  │  │  │  │  │  │
  750.          G:("m=140,9077")!  │  │  │  │  │  │  │  │  │  │  │  │
  751.              G:("Neodymium")!  │  │  │  │  │  │  │  │  │  │  │
  752.        :GrNastavPozici(0,10)!  │  │  │  │  │  │  │  │  │  │  │
  753.               G:("m=144,24")!  │  │  │  │  │  │  │  │  │  │  │
  754.                G:("Promethium")!  │  │  │  │  │  │  │  │  │  │
  755.           :GrNastavPozici(0,10)!  │  │  │  │  │  │  │  │  │  │
  756.                    G:("m=-145")!  │  │  │  │  │  │  │  │  │  │
  757.                     G:("Samarium")!  │  │  │  │  │  │  │  │  │
  758.              :GrNastavPozici(0,10)!  │  │  │  │  │  │  │  │  │
  759.                     G:("m=150,36")!  │  │  │  │  │  │  │  │  │
  760.                        G:("Europium")!  │  │  │  │  │  │  │  │
  761.                 :GrNastavPozici(0,10)!  │  │  │  │  │  │  │  │
  762.                        G:("m=151,25")!  │  │  │  │  │  │  │  │
  763.                         G:("Gadolinium")!  │  │  │  │  │  │  │
  764.                    :GrNastavPozici(0,10)!  │  │  │  │  │  │  │
  765.                           G:("m=157,25")!  │  │  │  │  │  │  │
  766.                               G:("Terbium")!  │  │  │  │  │  │
  767.                       :GrNastavPozici(0,10)!  │  │  │  │  │  │
  768.                            G:("m=158,9254")!  │  │  │  │  │  │
  769.                               G:("Dysprosium")!  │  │  │  │  │
  770.                          :GrNastavPozici(0,10)!  │  │  │  │  │
  771.                                  G:("m=162,5")!  │  │  │  │  │
  772.                                     G:("Holmium")!  │  │  │  │
  773.                             :GrNastavPozici(0,10)!  │  │  │  │
  774.                                  G:("m=164,9304")!  │  │  │  │
  775.                                         G:("Erbium")!  │  │  │
  776.                                :GrNastavPozici(0,10)!  │  │  │
  777.                                       G:("m=167,26")!  │  │  │
  778.                                           G:("Thulium")!  │  │
  779.                                   :GrNastavPozici(0,10)!  │  │
  780.                                        G:("m=168,9342")!  │  │
  781.                                            G:("Ytterbium")!  │
  782.                                      :GrNastavPozici(0,10)!  │
  783.                                             G:("m=173,04")!  │
  784.                                                G:("Lutetium")!
  785.                                         :GrNastavPozici(0,10)!
  786.                                               G:("m=174,967")!
  787. -o1-Prv4  operace
  788. 0 ;prom╪nné celoƒíselné: a,b,c,d,e,f,g,h,i,j,Klávesa;      -32768..32767
  789.                     int  a,b,c,d,e,f,g,h,i,j,Klávesa,
  790.                          I¼íslo1,I¼íslo2,I¼íslo3,PàvBarvy;
  791.  
  792.   ;prom╪nné reálné: D¼íslo1,D¼íslo2,D¼íslo3;           5.0E-324..1.7E308
  793.             double  D¼íslo1,D¼íslo2,D¼íslo3;
  794.   ;prom╪nná znak:   Znak;
  795.             char    Znak;
  796.   ;prom╪nná ²et╪zec:ⁿet╪zec[41];              ²et╪zec maximáln╪ 40 znakà
  797.                char ⁿet╪zec[41];
  798. [ Vytvo²Prostor()
  799. ] ZruτProstor()
  800. a Klávesa= ¼tiKlávesuZFronty()
  801. b P²epniNaBaltazara()
  802. c ¼aruj(¼tverec)
  803. d Gr¼tiZnak("?",Znak,1,0x07)             /*      edit ano, ƒerná/sτedá*/
  804. e BezObláƒku()
  805. f VyprázdniFrontuKláves()
  806. g Gr¼tiCⁿet╪zec("?",ⁿet╪zec,40,1,0x3f)    /*40zn, edit ano, modrá/bílá */
  807. h Gr¼tiI¼íslo("?",I¼íslo1,6,0,0x0e)      /* 6zn, edit  ne, ƒerná/ºlutá*/
  808. i Gr¼tiD¼íslo("?",D¼íslo1,20,1,0x0f)     /*20zn, edit ano, ƒerná/bílá */
  809. j GrPiτZnak(Znak)
  810. k Klávesa= ¼tiKlávesuZFrontyS¼ekáním()
  811. l VlevoVbok()
  812. m ;vypiτ ⁿet╪zec do grafického okénka
  813.    PàvBarvy=GrNastavBarvy(Modrá<<4|ªlutá); /* ºlutá na modré          */
  814.    GrPiτⁿet╪zec(ⁿet╪zec);            /* vypíτe obsah prom╪nné ⁿet╪zec */
  815.    GrNastavBarvy(PàvBarvy);          /* nastaví pàvodní barvy         */
  816. n Neviditeln∞()
  817. o SObláƒkem()
  818. p Popojdi(1)
  819. q GrPiτL¼íslo(I¼íslo1,-1)             /* -1 = nejkratτí v∞pis          */
  820. r VpravoVbok()
  821. s Klávesa= ¼tiKlávesuS¼ekáním()
  822. t P²epniNaText()
  823. u GrPiτD¼íslo(D¼íslo1,10,2)           /* 10 ƒíslic, z toho 2 desetinné */
  824. v Viditeln∞()
  825. w ;ƒekej na klávesu, smaº klávesu
  826.    ¼ekejNaKlávesu();
  827.    VyprázdniFrontuKláves();
  828. x
  829. y
  830. z ;ƒelem vzad
  831.    VlevoVbok(); VlevoVbok()
  832. B NastavBarvu¼arování   /*       B:(barva)!   0-15                    */
  833. C ¼aruj                 /*     C:(p²edm╪t)!   1-150                   */
  834. L NaƒtiScénu            /*    L:("soubor")!   "c:\\pavel\\soubor.bsc" */
  835. N Náhodn╪¼aruj          /*     N:(p²edm╪t)!   1-150                   */
  836. P Popojdi               /*  P:(poƒet_polí)!   0-14                    */
  837. R RychlostBaltazara     /*    R:(rychlost)!   0-9                     */
  838. S UloºScénu             /*    S:("soubor")!   "c:\\pavel\\soubor.bsc" */
  839. W ¼ekej                 /*  W:(milisekund)!   0-32000                 */
  840. X ¼arujNaPozici         /* X:(p²edm╪t,x,y)!   1-150, 1-15, 1-10       */
  841. G GrPiτⁿet╪zec          /* G:("Ahoj")                                 */
  842.  
  843. -c1-Prv4  podmínky  /=if *=while #=for          p²íklad pouºití
  844. /n ;kdyº p²edm╪t p²ed Baltazarem je nepràchodn∞
  845.     Neplatí PràchodnostP²edm╪tuP²edB()
  846. /p ;kdyº p²edm╪t p²ed Baltazarem je pràchodn∞
  847.     PràchodnostP²edm╪tuP²edB()
  848. /B ;kdyº barva ƒtverce p²ed Baltazarem ....     /B:Je~barva    0-15
  849.     Barva¼tverceP²edB()
  850. /P ;kdyº p²edm╪t p²ed Baltazarem ....           /P:<=p²edm╪t   1-150
  851.     P²edm╪tP²edB()
  852. /S ;kdyº sm╪r Baltazara ....                    /S:Není~4      1-4
  853.     Sm╪rBaltazara()
  854. /1 ;cer
  855.     P²edm╪tP²edB() Je 59 ASouƒasn╪ Klávesa Je KlEnter
  856. /2 ;praseodym
  857.     P²edm╪tP²edB() Je 60 ASouƒasn╪ Klávesa Je KlEnter
  858. /3 ;neodym
  859.     P²edm╪tP²edB() Je 61 ASouƒasn╪ Klávesa Je KlEnter
  860. /4 ;promethium
  861.     P²edm╪tP²edB() Je 62 ASouƒasn╪ Klávesa Je KlEnter
  862. /5 ;samarium
  863.     P²edm╪tP²edB() Je 63 ASouƒasn╪ Klávesa Je KlEnter
  864. /6 ;europium
  865.     P²edm╪tP²edB() Je 64 ASouƒasn╪ Klávesa Je KlEnter
  866. /7 ;gadolinium
  867.     P²edm╪tP²edB() Je 65 ASouƒasn╪ Klávesa Je KlEnter
  868. /8 ;terbium
  869.     P²edm╪tP²edB() Je 66 ASouƒasn╪ Klávesa Je KlEnter
  870. /9 ;dysprosium
  871.     P²edm╪tP²edB() Je 67 ASouƒasn╪ Klávesa Je KlEnter
  872. /a ;holmium
  873.     P²edm╪tP²edB() Je 68 ASouƒasn╪ Klávesa Je KlEnter
  874. /b ;erbium
  875.     P²edm╪tP²edB() Je 69 ASouƒasn╪ Klávesa Je KlEnter
  876. /c ;thulium
  877.     P²edm╪tP²edB() Je 70 ASouƒasn╪ Klávesa Je KlEnter
  878. /d ;ytterbium
  879.     P²edm╪tP²edB() Je 71 ASouƒasn╪ Klávesa Je KlEnter
  880. /e ;lutecium
  881.     P²edm╪tP²edB() Je 72 ASouƒasn╪ Klávesa Je KlEnter
  882. *n ;dokud p²edm╪t p²ed Baltazarem je nepràchodn∞
  883.     Neplatí PràchodnostP²edm╪tuP²edB()
  884. *p ;dokud p²edm╪t p²ed Baltazarem je pràchodn∞
  885.     PràchodnostP²edm╪tuP²edB()
  886. *B ;dokud barva ƒtverce p²ed Baltazarem ....    *B:>barva      0-15
  887.     Barva¼tverceP²edB()
  888. *P ;dokud p²edm╪t p²ed Baltazarem ....          *P:>p²edm╪t    1-150
  889.     P²edm╪tP²edB()
  890. *S ;dokud sm╪r Baltazara ....                   *S:<=sm╪r      1-4
  891.     Sm╪rBaltazara()
  892. #A ;opakuj vzestupn╪ pro prom╪nnou od,do,krok   #A:(i,2,10,2)  i=2,4..10
  893.     OdDoKrok
  894. #D ;opakuj sestupn╪  pro prom╪nnou od,do,krok   #D:(i,10,2,2)  i=10,8..2
  895.     OdDolàDoKrok
  896. #M ;opakuj n-krát sestupn╪  pro prom╪nnou       #M:(i,8)  (8x) i=7,6..0
  897.     DolàDo0
  898. #N ;opakuj n-krát vzestupn╪ pro prom╪nnou       #N:(i,8)  (8x) i=0,1..7
  899.     Od0   
  900. =SP-Prv4
  901.  
  902. ;-h---------------------------------------------------------------------------
  903. void Prv3( void )
  904. -s--Prv3                                                                        ■   4  -1   0   3
  905.                         Prv3
  906.                         0!
  907.                        Vyber______________________________________
  908.                           /1 /2 /3 /4 /5 /6 /7 /8 /9 /a /b /c /d /e
  909.                           Ru Rh Pd Ag Cd In Sn Sb Te I  Xe Cs Ba La
  910. G:("Ruthenium(Ruthenium)")!  │  │  │  │  │  │  │  │  │  │  │  │  │
  911.      :GrNastavPozici(0,10)!  │  │  │  │  │  │  │  │  │  │  │  │  │
  912.             G:("m=101,07")!  │  │  │  │  │  │  │  │  │  │  │  │  │
  913.        G:("Rhodium(Rhodium)")!  │  │  │  │  │  │  │  │  │  │  │  │
  914.         :GrNastavPozici(0,10)!  │  │  │  │  │  │  │  │  │  │  │  │
  915.               G:("m=10,9055")!  │  │  │  │  │  │  │  │  │  │  │  │
  916.       G:("Palladium(Palladium)")!  │  │  │  │  │  │  │  │  │  │  │
  917.            :GrNastavPozici(0,10)!  │  │  │  │  │  │  │  │  │  │  │
  918.                   G:("m=106,42")!  │  │  │  │  │  │  │  │  │  │  │
  919.             G:("St²íbro(Argentum)")!  │  │  │  │  │  │  │  │  │  │
  920.               :GrNastavPozici(0,10)!  │  │  │  │  │  │  │  │  │  │
  921.                    G:("m=107,8682")!  │  │  │  │  │  │  │  │  │  │
  922.                 G:("Kadmium(Cadmium)")!  │  │  │  │  │  │  │  │  │
  923.                  :GrNastavPozici(0,10)!  │  │  │  │  │  │  │  │  │
  924.                         G:("m=112,41")!  │  │  │  │  │  │  │  │  │
  925.                      G:("Indium(Indium)")!  │  │  │  │  │  │  │  │
  926.                     :GrNastavPozici(0,10)!  │  │  │  │  │  │  │  │
  927.                            G:("m=114,82")!  │  │  │  │  │  │  │  │
  928.                           G:("Cín(Stannum)")!  │  │  │  │  │  │  │
  929.                        :GrNastavPozici(0,10)!  │  │  │  │  │  │  │
  930.                               G:("m=118,69")!  │  │  │  │  │  │  │
  931.                          G:("Antimon(Stibium)")!  │  │  │  │  │  │
  932.                           :GrNastavPozici(0,10)!  │  │  │  │  │  │
  933.                                  G:("m=121,75")!  │  │  │  │  │  │
  934.                            G:("Tellur(Tellurium)")!  │  │  │  │  │
  935.                              :GrNastavPozici(0,10)!  │  │  │  │  │
  936.                                      G:("m=127,6")!  │  │  │  │  │
  937.                                     G:("Jod(Iodium)")!  │  │  │  │
  938.                                 :GrNastavPozici(0,10)!  │  │  │  │
  939.                                      G:("m=126,9045")!  │  │  │  │
  940.                                       G:("Xenon(Xenon)")!  │  │  │
  941.                                    :GrNastavPozici(0,10)!  │  │  │
  942.                                           G:("m=131,29")!  │  │  │
  943.                                       G:("Cesium(Caesium)")!  │  │
  944.                                       :GrNastavPozici(0,10)!  │  │
  945.                                            G:("m=132,9054")!  │  │
  946.                                           G:("Baryum(Baryum)")!  │
  947.                                          :GrNastavPozici(0,10)!  │
  948.                                                 G:("m=137,33")!  │
  949.                                          G:("Lanthan(Lanthanum)")!
  950.                                             :GrNastavPozici(0,10)!
  951.                                                  G:("m=138,9055")!
  952. -o1-Prv3  operace
  953. 0 ;prom╪nné celoƒíselné: a,b,c,d,e,f,g,h,i,j,Klávesa;      -32768..32767
  954.                     int  a,b,c,d,e,f,g,h,i,j,Klávesa,
  955.                          I¼íslo1,I¼íslo2,I¼íslo3,PàvBarvy;
  956.  
  957.   ;prom╪nné reálné: D¼íslo1,D¼íslo2,D¼íslo3;           5.0E-324..1.7E308
  958.             double  D¼íslo1,D¼íslo2,D¼íslo3;
  959.   ;prom╪nná znak:   Znak;
  960.             char    Znak;
  961.   ;prom╪nná ²et╪zec:ⁿet╪zec[41];              ²et╪zec maximáln╪ 40 znakà
  962.                char ⁿet╪zec[41];
  963. [ Vytvo²Prostor()
  964. ] ZruτProstor()
  965. a Klávesa= ¼tiKlávesuZFronty()
  966. b P²epniNaBaltazara()
  967. c ¼aruj(¼tverec)
  968. d Gr¼tiZnak("?",Znak,1,0x07)             /*      edit ano, ƒerná/sτedá*/
  969. e BezObláƒku()
  970. f VyprázdniFrontuKláves()
  971. g Gr¼tiCⁿet╪zec("?",ⁿet╪zec,40,1,0x3f)    /*40zn, edit ano, modrá/bílá */
  972. h Gr¼tiI¼íslo("?",I¼íslo1,6,0,0x0e)      /* 6zn, edit  ne, ƒerná/ºlutá*/
  973. i Gr¼tiD¼íslo("?",D¼íslo1,20,1,0x0f)     /*20zn, edit ano, ƒerná/bílá */
  974. j GrPiτZnak(Znak)
  975. k Klávesa= ¼tiKlávesuZFrontyS¼ekáním()
  976. l VlevoVbok()
  977. m ;vypiτ ⁿet╪zec do grafického okénka
  978.    PàvBarvy=GrNastavBarvy(Modrá<<4|ªlutá); /* ºlutá na modré          */
  979.    GrPiτⁿet╪zec(ⁿet╪zec);            /* vypíτe obsah prom╪nné ⁿet╪zec */
  980.    GrNastavBarvy(PàvBarvy);          /* nastaví pàvodní barvy         */
  981. n Neviditeln∞()
  982. o SObláƒkem()
  983. p Popojdi(1)
  984. q GrPiτL¼íslo(I¼íslo1,-1)             /* -1 = nejkratτí v∞pis          */
  985. r VpravoVbok()
  986. s Klávesa= ¼tiKlávesuS¼ekáním()
  987. t P²epniNaText()
  988. u GrPiτD¼íslo(D¼íslo1,10,2)           /* 10 ƒíslic, z toho 2 desetinné */
  989. v Viditeln∞()
  990. w ;ƒekej na klávesu, smaº klávesu
  991.    ¼ekejNaKlávesu();
  992.    VyprázdniFrontuKláves();
  993. x
  994. y
  995. z ;ƒelem vzad
  996.    VlevoVbok(); VlevoVbok()
  997. B NastavBarvu¼arování   /*       B:(barva)!   0-15                    */
  998. C ¼aruj                 /*     C:(p²edm╪t)!   1-150                   */
  999. L NaƒtiScénu            /*    L:("soubor")!   "c:\\pavel\\soubor.bsc" */
  1000. N Náhodn╪¼aruj          /*     N:(p²edm╪t)!   1-150                   */
  1001. P Popojdi               /*  P:(poƒet_polí)!   0-14                    */
  1002. R RychlostBaltazara     /*    R:(rychlost)!   0-9                     */
  1003. S UloºScénu             /*    S:("soubor")!   "c:\\pavel\\soubor.bsc" */
  1004. W ¼ekej                 /*  W:(milisekund)!   0-32000                 */
  1005. X ¼arujNaPozici         /* X:(p²edm╪t,x,y)!   1-150, 1-15, 1-10       */
  1006. G GrPiτⁿet╪zec          /* G:("Ahoj")                                 */
  1007.  
  1008. -c1-Prv3  podmínky  /=if *=while #=for          p²íklad pouºití
  1009. /n ;kdyº p²edm╪t p²ed Baltazarem je nepràchodn∞
  1010.     Neplatí PràchodnostP²edm╪tuP²edB()
  1011. /p ;kdyº p²edm╪t p²ed Baltazarem je pràchodn∞
  1012.     PràchodnostP²edm╪tuP²edB()
  1013. /B ;kdyº barva ƒtverce p²ed Baltazarem ....     /B:Je~barva    0-15
  1014.     Barva¼tverceP²edB()
  1015. /P ;kdyº p²edm╪t p²ed Baltazarem ....           /P:<=p²edm╪t   1-150
  1016.     P²edm╪tP²edB()
  1017. /S ;kdyº sm╪r Baltazara ....                    /S:Není~4      1-4
  1018.     Sm╪rBaltazara()
  1019. /1 ;Ruthenium
  1020.     P²edm╪tP²edB() Je 45 ASouƒasn╪ Klávesa Je KlEnter
  1021. /2 ;Rhodium
  1022.     P²edm╪tP²edB() Je 46 ASouƒasn╪ Klávesa Je KlEnter
  1023. /3 ;Palladium
  1024.     P²edm╪tP²edB() Je 47 ASouƒasn╪ Klávesa Je KlEnter
  1025. /4 ;St²íbro
  1026.     P²edm╪tP²edB() Je 48 ASouƒasn╪ Klávesa Je KlEnter
  1027. /5 ;Kadmium
  1028.     P²edm╪tP²edB() Je 49 ASouƒasn╪ Klávesa Je KlEnter
  1029. /6 ;Indium
  1030.     P²edm╪tP²edB() Je 50 ASouƒasn╪ Klávesa Je KlEnter
  1031. /7 ;Cín
  1032.     P²edm╪tP²edB() Je 51 ASouƒasn╪ Klávesa Je KlEnter
  1033. /8 ;Antimon
  1034.     P²edm╪tP²edB() Je 52 ASouƒasn╪ Klávesa Je KlEnter
  1035. /9 ;Tellur
  1036.     P²edm╪tP²edB() Je 53 ASouƒasn╪ Klávesa Je KlEnter
  1037. /a ;Jod
  1038.     P²edm╪tP²edB() Je 54 ASouƒasn╪ Klávesa Je KlEnter
  1039. /b ;Xenon
  1040.     P²edm╪tP²edB() Je 55 ASouƒasn╪ Klávesa Je KlEnter
  1041. /c ;Cesium
  1042.     P²edm╪tP²edB() Je 56 ASouƒasn╪ Klávesa Je KlEnter
  1043. /d ;Baryum
  1044.     P²edm╪tP²edB() Je 57 ASouƒasn╪ Klávesa Je KlEnter
  1045. /e ;Lanthan
  1046.     P²edm╪tP²edB() Je 58 ASouƒasn╪ Klávesa Je KlEnter
  1047.  
  1048. *n ;dokud p²edm╪t p²ed Baltazarem je nepràchodn∞
  1049.     Neplatí PràchodnostP²edm╪tuP²edB()
  1050. *p ;dokud p²edm╪t p²ed Baltazarem je pràchodn∞
  1051.     PràchodnostP²edm╪tuP²edB()
  1052. *B ;dokud barva ƒtverce p²ed Baltazarem ....    *B:>barva      0-15
  1053.     Barva¼tverceP²edB()
  1054. *P ;dokud p²edm╪t p²ed Baltazarem ....          *P:>p²edm╪t    1-150
  1055.     P²edm╪tP²edB()
  1056. *S ;dokud sm╪r Baltazara ....                   *S:<=sm╪r      1-4
  1057.     Sm╪rBaltazara()
  1058. #A ;opakuj vzestupn╪ pro prom╪nnou od,do,krok   #A:(i,2,10,2)  i=2,4..10
  1059.     OdDoKrok      
  1060. #D ;opakuj sestupn╪  pro prom╪nnou od,do,krok   #D:(i,10,2,2)  i=10,8..2
  1061.     OdDolàDoKrok      
  1062. #M ;opakuj n-krát sestupn╪  pro prom╪nnou       #M:(i,8)  (8x) i=7,6..0
  1063.     DolàDo0   
  1064. #N ;opakuj n-krát vzestupn╪ pro prom╪nnou       #N:(i,8)  (8x) i=0,1..7
  1065.     Od0   
  1066. =SP-Prv3
  1067.  
  1068.  
  1069. ;-h---------------------------------------------------------------------------
  1070. void Prv2( void )
  1071. -s--Prv2                                                                        ■   5  -1   0   3
  1072.                         Prv2
  1073.                         0!
  1074.                      __Vyber_________________________________
  1075.                      /1 /2 /3 /4 /5 /6 /7 /8 /9 /a /b /c /d /e
  1076.                      Zn Ga Ge AS Se Br Kr Rb Sr Y  Zr Nb Mo Tc
  1077.   G:("Zinek(Zincum)")!  │  │  │  │  │  │  │  │  │  │  │  │  │
  1078. :GrNastavPozici(0,10)!  │  │  │  │  │  │  │  │  │  │  │  │  │
  1079.         G:("m=65,38")!  │  │  │  │  │  │  │  │  │  │  │  │  │
  1080.   G:("Gallium(Gallium)")!  │  │  │  │  │  │  │  │  │  │  │  │
  1081.    :GrNastavPozici(0,10)!  │  │  │  │  │  │  │  │  │  │  │  │
  1082.            G:("m=69,72")!  │  │  │  │  │  │  │  │  │  │  │  │
  1083.  G:("Germanium(Germanium)")!  │  │  │  │  │  │  │  │  │  │  │
  1084.       :GrNastavPozici(0,10)!  │  │  │  │  │  │  │  │  │  │  │
  1085.               G:("m=72,59")!  │  │  │  │  │  │  │  │  │  │  │
  1086.         G:("Arsen(Arsenicum)")!  │  │  │  │  │  │  │  │  │  │
  1087.          :GrNastavPozici(0,10)!  │  │  │  │  │  │  │  │  │  │
  1088.                G:("m=74,9216")!  │  │  │  │  │  │  │  │  │  │
  1089.             G:("Selen(Selenium)")!  │  │  │  │  │  │  │  │  │
  1090.             :GrNastavPozici(0,10)!  │  │  │  │  │  │  │  │  │
  1091.                     G:("m=78,96")!  │  │  │  │  │  │  │  │  │
  1092.                   G:("Brom(Bromum)")!  │  │  │  │  │  │  │  │
  1093.                :GrNastavPozici(0,10)!  │  │  │  │  │  │  │  │
  1094.                       G:("m=79,904")!  │  │  │  │  │  │  │  │
  1095.                  G:("Krypton(Krypton)")!  │  │  │  │  │  │  │
  1096.                   :GrNastavPozici(0,10)!  │  │  │  │  │  │  │
  1097.                            G:("m=83,8")!  │  │  │  │  │  │  │
  1098.                   G:("Rubidium(Rubidium)")!  │  │  │  │  │  │
  1099.                      :GrNastavPozici(0,10)!  │  │  │  │  │  │
  1100.                            G:("m=85,4678")!  │  │  │  │  │  │
  1101.                   G:("Stronicium(Strontium)")!  │  │  │  │  │
  1102.                         :GrNastavPozici(0,10)!  │  │  │  │  │
  1103.                                 G:("m=87,62")!  │  │  │  │  │
  1104.                           G:("Yttrium(Yttrium)")!  │  │  │  │
  1105.                            :GrNastavPozici(0,10)!  │  │  │  │
  1106.                                  G:("m=88,9059")!  │  │  │  │
  1107.                          G:("Zirconium(Zirconium)")!  │  │  │
  1108.                               :GrNastavPozici(0,10)!  │  │  │
  1109.                                       G:("m=91,22")!  │  │  │
  1110.                                    G:("Niob(Niobium)")!  │  │
  1111.                                  :GrNastavPozici(0,10)!  │  │
  1112.                                        G:("m=92,9064")!  │  │
  1113.                               G:("Molybden(Molybdaneum)")!  │
  1114.                                     :GrNastavPozici(0,10)!  │
  1115.                                             G:("m=95,94")!  │
  1116.                                 G:("Technecium(Technetium)")!
  1117.                                        :GrNastavPozici(0,10)!
  1118.                                                  G:("m=-98")!
  1119. -o1-Prv2  operace
  1120. 0 ;prom╪nné celoƒíselné: a,b,c,d,e,f,g,h,i,j,Klávesa;      -32768..32767
  1121.                     int  a,b,c,d,e,f,g,h,i,j,Klávesa,
  1122.                          I¼íslo1,I¼íslo2,I¼íslo3,PàvBarvy;
  1123.  
  1124.   ;prom╪nné reálné: D¼íslo1,D¼íslo2,D¼íslo3;           5.0E-324..1.7E308
  1125.             double  D¼íslo1,D¼íslo2,D¼íslo3;
  1126.   ;prom╪nná znak:   Znak;
  1127.             char    Znak;
  1128.   ;prom╪nná ²et╪zec:ⁿet╪zec[41];              ²et╪zec maximáln╪ 40 znakà
  1129.                char ⁿet╪zec[41];
  1130. [ Vytvo²Prostor()
  1131. ] ZruτProstor()
  1132. a Klávesa= ¼tiKlávesuZFronty()
  1133. b P²epniNaBaltazara()
  1134. c ¼aruj(¼tverec)
  1135. d Gr¼tiZnak("?",Znak,1,0x07)             /*      edit ano, ƒerná/sτedá*/
  1136. e BezObláƒku()
  1137. f VyprázdniFrontuKláves()
  1138. g Gr¼tiCⁿet╪zec("?",ⁿet╪zec,40,1,0x3f)    /*40zn, edit ano, modrá/bílá */
  1139. h Gr¼tiI¼íslo("?",I¼íslo1,6,0,0x0e)      /* 6zn, edit  ne, ƒerná/ºlutá*/
  1140. i Gr¼tiD¼íslo("?",D¼íslo1,20,1,0x0f)     /*20zn, edit ano, ƒerná/bílá */
  1141. j GrPiτZnak(Znak)
  1142. k Klávesa= ¼tiKlávesuZFrontyS¼ekáním()
  1143. l VlevoVbok()
  1144. m ;vypiτ ⁿet╪zec do grafického okénka
  1145.    PàvBarvy=GrNastavBarvy(Modrá<<4|ªlutá); /* ºlutá na modré          */
  1146.    GrPiτⁿet╪zec(ⁿet╪zec);            /* vypíτe obsah prom╪nné ⁿet╪zec */
  1147.    GrNastavBarvy(PàvBarvy);          /* nastaví pàvodní barvy         */
  1148. n Neviditeln∞()
  1149. o SObláƒkem()
  1150. p Popojdi(1)
  1151. q GrPiτL¼íslo(I¼íslo1,-1)             /* -1 = nejkratτí v∞pis          */
  1152. r VpravoVbok()
  1153. s Klávesa= ¼tiKlávesuS¼ekáním()
  1154. t P²epniNaText()
  1155. u GrPiτD¼íslo(D¼íslo1,10,2)           /* 10 ƒíslic, z toho 2 desetinné */
  1156. v Viditeln∞()
  1157. w ;ƒekej na klávesu, smaº klávesu
  1158.    ¼ekejNaKlávesu();
  1159.    VyprázdniFrontuKláves();
  1160. x
  1161. y
  1162. z ;ƒelem vzad
  1163.    VlevoVbok(); VlevoVbok()
  1164. B NastavBarvu¼arování   /*       B:(barva)!   0-15                    */
  1165. C ¼aruj                 /*     C:(p²edm╪t)!   1-150                   */
  1166. L NaƒtiScénu            /*    L:("soubor")!   "c:\\pavel\\soubor.bsc" */
  1167. N Náhodn╪¼aruj          /*     N:(p²edm╪t)!   1-150                   */
  1168. P Popojdi               /*  P:(poƒet_polí)!   0-14                    */
  1169. R RychlostBaltazara     /*    R:(rychlost)!   0-9                     */
  1170. S UloºScénu             /*    S:("soubor")!   "c:\\pavel\\soubor.bsc" */
  1171. W ¼ekej                 /*  W:(milisekund)!   0-32000                 */
  1172. X ¼arujNaPozici         /* X:(p²edm╪t,x,y)!   1-150, 1-15, 1-10       */
  1173. G GrPiτⁿet╪zec          /* G:("Ahoj!)                                 */
  1174.  
  1175. -c1-Prv2  podmínky  /=if *=while #=for          p²íklad pouºití
  1176. /n ;kdyº p²edm╪t p²ed Baltazarem je nepràchodn∞
  1177.     Neplatí PràchodnostP²edm╪tuP²edB()
  1178. /p ;kdyº p²edm╪t p²ed Baltazarem je pràchodn∞
  1179.     PràchodnostP²edm╪tuP²edB()
  1180. /B ;kdyº barva ƒtverce p²ed Baltazarem ....     /B:Je~barva    0-15
  1181.     Barva¼tverceP²edB()
  1182. /P ;kdyº p²edm╪t p²ed Baltazarem ....           /P:<=p²edm╪t   1-150
  1183.     P²edm╪tP²edB()
  1184. /S ;kdyº sm╪r Baltazara ....                    /S:Není~4      1-4
  1185.     Sm╪rBaltazara()
  1186. /1 ;zinek
  1187.     P²edm╪tP²edB() Je 31 ASouƒasn╪ Klávesa Je KlEnter
  1188. /2 ;callium
  1189.     P²edm╪tP²edB() Je 32 ASouƒasn╪ Klávesa Je KlEnter
  1190. /3 ;gormanium
  1191.     P²edm╪tP²edB() Je 33 ASouƒasn╪ Klávesa Je KlEnter
  1192. /4 ;arsen
  1193.     P²edm╪tP²edB() Je 34 ASouƒasn╪ Klávesa Je KlEnter
  1194. /5 ;selen
  1195.     P²edm╪tP²edB() Je 35 ASouƒasn╪ Klávesa Je KlEnter
  1196. /6 ;brom
  1197.     P²edm╪tP²edB() Je 36 ASouƒasn╪ Klávesa Je KlEnter
  1198. /7 ;krypton
  1199.     P²edm╪tP²edB() Je 37 ASouƒasn╪ Klávesa Je KlEnter
  1200. /8 ;rubidium
  1201.     P²edm╪tP²edB() Je 38 ASouƒasn╪ Klávesa Je KlEnter
  1202. /9 ;stroncium
  1203.     P²edm╪tP²edB() Je 39 ASouƒasn╪ Klávesa Je KlEnter
  1204. /a ;yttrium
  1205.     P²edm╪tP²edB() Je 40 ASouƒasn╪ Klávesa Je KlEnter
  1206. /b ;zirkonium
  1207.     P²edm╪tP²edB() Je 41 ASouƒasn╪ Klávesa Je KlEnter
  1208. /c ;niob
  1209.     P²edm╪tP²edB() Je 42 ASouƒasn╪ Klávesa Je KlEnter
  1210. /d ;molybden
  1211.     P²edm╪tP²edB() Je 43 ASouƒasn╪ Klávesa Je KlEnter
  1212. /e ;technecium
  1213.     P²edm╪tP²edB() Je 44 ASouƒasn╪ Klávesa Je KlEnter
  1214.  
  1215. *n ;dokud p²edm╪t p²ed Baltazarem je nepràchodn∞
  1216.     Neplatí PràchodnostP²edm╪tuP²edB()
  1217. *p ;dokud p²edm╪t p²ed Baltazarem je pràchodn∞
  1218.     PràchodnostP²edm╪tuP²edB()
  1219. *B ;dokud barva ƒtverce p²ed Baltazarem ....    *B:>barva      0-15
  1220.     Barva¼tverceP²edB()
  1221. *P ;dokud p²edm╪t p²ed Baltazarem ....          *P:>p²edm╪t    1-150
  1222.    P²edm╪tP²edB()
  1223. *S ;dokud sm╪r Baltazara ....                   *S:<=sm╪r      1-4
  1224.     Sm╪rBaltazara()
  1225. #A ;opakuj vzestupn╪ pro prom╪nnou od,do,krok   #A:(i,2,10,2)  i=2,4..10
  1226.     OdDoKrok
  1227. #D ;opakuj sestupn╪  pro prom╪nnou od,do,krok   #D:(i,10,2,2)  i=10,8..2
  1228.     OdDolàDoKrok
  1229. #M ;opakuj n-krát sestupn╪  pro prom╪nnou       #M:(i,8)  (8x) i=7,6..0
  1230.     DolàDo0
  1231. #N ;opakuj n-krát vzestupn╪ pro prom╪nnou       #N:(i,8)  (8x) i=0,1..7
  1232.     Od0
  1233. =SP-Prv2
  1234.  
  1235. ;-h---------------------------------------------------------------------------
  1236. void Prv1( void )
  1237. -s--Prv1                                                                        ■   5  -1   0   3
  1238.                                  Prv1
  1239.                                  0!
  1240.                      ___________Vyber________________________
  1241.                      /1 /2 /3 /4 /5 /6 /7 /8 /9 /a /b /c /d /e
  1242.                      S  Cl Ar K  Ca Sc Ti V  Cr Mn Fe Co Ni Cu
  1243.    G:("Síra(Sulfur)")!  │  │  │  │  │  │  │  │  │  │  │  │  │
  1244. :GrNastavPozici(0,10)!  │  │  │  │  │  │  │  │  │  │  │  │  │
  1245.         G:("m=32,06")!  │  │  │  │  │  │  │  │  │  │  │  │  │
  1246.      G:("Chlor(Clorum)")!  │  │  │  │  │  │  │  │  │  │  │  │
  1247.    :GrNastavPozici(0,10)!  │  │  │  │  │  │  │  │  │  │  │  │
  1248.           G:("m=35,453")!  │  │  │  │  │  │  │  │  │  │  │  │
  1249.                 G:("Argon")!  │  │  │  │  │  │  │  │  │  │  │
  1250.       :GrNastavPozici(0,10)!  │  │  │  │  │  │  │  │  │  │  │
  1251.              G:("m=39,948")!  │  │  │  │  │  │  │  │  │  │  │
  1252.          G:("Draslík(Kalium)")!  │  │  │  │  │  │  │  │  │  │
  1253.          :GrNastavPozici(0,10)!  │  │  │  │  │  │  │  │  │  │
  1254.                G:("m=39,0983")!  │  │  │  │  │  │  │  │  │  │
  1255.             G:("Vápník(Calcium)")!  │  │  │  │  │  │  │  │  │
  1256.             :GrNastavPozici(0,10)!  │  │  │  │  │  │  │  │  │
  1257.                    G:("m=40,778")!  │  │  │  │  │  │  │  │  │
  1258.                       G:("Scandium")!  │  │  │  │  │  │  │  │
  1259.                :GrNastavPozici(0,10)!  │  │  │  │  │  │  │  │
  1260.                      G:("m=44,9559")!  │  │  │  │  │  │  │  │
  1261.                   G:("Titan(Titanium)")!  │  │  │  │  │  │  │
  1262.                   :GrNastavPozici(0,10)!  │  │  │  │  │  │  │
  1263.                           G:("m=47,88")!  │  │  │  │  │  │  │
  1264.                      G:("Vanad(Vanadium)")!  │  │  │  │  │  │
  1265.                      :GrNastavPozici(0,10)!  │  │  │  │  │  │
  1266.                            G:("m=50,9414")!  │  │  │  │  │  │
  1267.                         G:("Chrom(Chromium)")!  │  │  │  │  │
  1268.                         :GrNastavPozici(0,10)!  │  │  │  │  │
  1269.                                G:("m=51,996")!  │  │  │  │  │
  1270.                           G:("Mangan(Manganum)")!  │  │  │  │
  1271.                            :GrNastavPozici(0,10)!  │  │  │  │
  1272.                                   G:("m=54,938")!  │  │  │  │
  1273.                                 G:("ªelezo(Ferum)")!  │  │  │
  1274.                               :GrNastavPozici(0,10)!  │  │  │
  1275.                                      G:("m=55,847")!  │  │  │
  1276.                                 G:("Kobalt(Cobaltum)")!  │  │
  1277.                                  :GrNastavPozici(0,10)!  │  │
  1278.                                        G:("m=58,9332")!  │  │
  1279.                                      G:("Nikl(Niccolum)")!  │
  1280.                                     :GrNastavPozici(0,10)!  │
  1281.                                             G:("m=58,69")!  │
  1282.                                            G:("M╪╘(Cuprum)")!
  1283.                                        :GrNastavPozici(0,10)!
  1284.                                               G:("m=63,546")!
  1285. -o1-Prv1  operace
  1286. 0 ;prom╪nné celoƒíselné: a,b,c,d,e,f,g,h,i,j,Klávesa;      -32768..32767
  1287.                     int  a,b,c,d,e,f,g,h,i,j,Klávesa,
  1288.                          I¼íslo1,I¼íslo2,I¼íslo3,PàvBarvy;
  1289.  
  1290.   ;prom╪nné reálné: D¼íslo1,D¼íslo2,D¼íslo3;           5.0E-324..1.7E308
  1291.             double  D¼íslo1,D¼íslo2,D¼íslo3;
  1292.   ;prom╪nná znak:   Znak;
  1293.             char    Znak;
  1294.   ;prom╪nná ²et╪zec:ⁿet╪zec[41];              ²et╪zec maximáln╪ 40 znakà
  1295.                char ⁿet╪zec[41];
  1296. [ Vytvo²Prostor()
  1297. ] ZruτProstor()
  1298. a Klávesa= ¼tiKlávesuZFronty()
  1299. b P²epniNaBaltazara()
  1300. c ¼aruj(¼tverec)
  1301. d Gr¼tiZnak("?",Znak,1,0x07)             /*      edit ano, ƒerná/sτedá*/
  1302. e BezObláƒku()
  1303. f VyprázdniFrontuKláves()
  1304. g Gr¼tiCⁿet╪zec("?",ⁿet╪zec,40,1,0x3f)    /*40zn, edit ano, modrá/bílá */
  1305. h Gr¼tiI¼íslo("?",I¼íslo1,6,0,0x0e)      /* 6zn, edit  ne, ƒerná/ºlutá*/
  1306. i Gr¼tiD¼íslo("?",D¼íslo1,20,1,0x0f)     /*20zn, edit ano, ƒerná/bílá */
  1307. j GrPiτZnak(Znak)
  1308. k Klávesa= ¼tiKlávesuZFrontyS¼ekáním()
  1309. l VlevoVbok()
  1310. m ;vypiτ ⁿet╪zec do grafického okénka
  1311.    PàvBarvy=GrNastavBarvy(Modrá<<4|ªlutá); /* ºlutá na modré          */
  1312.    GrPiτⁿet╪zec(ⁿet╪zec);            /* vypíτe obsah prom╪nné ⁿet╪zec */
  1313.    GrNastavBarvy(PàvBarvy);          /* nastaví pàvodní barvy         */
  1314. n Neviditeln∞()
  1315. o SObláƒkem()
  1316. p Popojdi(1)
  1317. q GrPiτL¼íslo(I¼íslo1,-1)             /* -1 = nejkratτí v∞pis          */
  1318. r VpravoVbok()
  1319. s Klávesa= ¼tiKlávesuS¼ekáním()
  1320. t P²epniNaText()
  1321. u GrPiτD¼íslo(D¼íslo1,10,2)           /* 10 ƒíslic, z toho 2 desetinné */
  1322. v Viditeln∞()
  1323. w ;ƒekej na klávesu, smaº klávesu
  1324.    ¼ekejNaKlávesu();
  1325.    VyprázdniFrontuKláves();
  1326. x
  1327. y
  1328. z ;ƒelem vzad
  1329.    VlevoVbok(); VlevoVbok()
  1330. B NastavBarvu¼arování   /*       B:(barva)!   0-15                    */
  1331. C ¼aruj                 /*     C:(p²edm╪t)!   1-150                   */
  1332. L NaƒtiScénu            /*    L:("soubor")!   "c:\\pavel\\soubor.bsc" */
  1333. N Náhodn╪¼aruj          /*     N:(p²edm╪t)!   1-150                   */
  1334. P Popojdi               /*  P:(poƒet_polí)!   0-14                    */
  1335. R RychlostBaltazara     /*    R:(rychlost)!   0-9                     */
  1336. S UloºScénu             /*    S:("soubor")!   "c:\\pavel\\soubor.bsc" */
  1337. W ¼ekej                 /*  W:(milisekund)!   0-32000                 */
  1338. X ¼arujNaPozici         /* X:(p²edm╪t,x,y)!   1-150, 1-15, 1-10       */
  1339. G GrPiτⁿet╪zec          /* G:("Ahoj")                                 */
  1340. -c1-Prv1  podmínky  /=if *=while #=for          p²íklad pouºití
  1341. /n ;kdyº p²edm╪t p²ed Baltazarem je nepràchodn∞
  1342.     Neplatí PràchodnostP²edm╪tuP²edB()
  1343. /p ;kdyº p²edm╪t p²ed Baltazarem je pràchodn∞
  1344.     PràchodnostP²edm╪tuP²edB()
  1345. /B ;kdyº barva ƒtverce p²ed Baltazarem ....     /B:Je~barva    0-15
  1346.     Barva¼tverceP²edB()
  1347. /P ;kdyº p²edm╪t p²ed Baltazarem ....           /P:<=p²edm╪t   1-150
  1348.     P²edm╪tP²edB()
  1349. /S ;kdyº sm╪r Baltazara ....                    /S:Není~4      1-4
  1350.     Sm╪rBaltazara()
  1351. /1 ;sira
  1352.     P²edm╪tP²edB() Je 17 ASouƒasn╪ Klávesa Je KlEnter
  1353. /2 ;chlor
  1354.     P²edm╪tP²edB() Je 18 ASouƒasn╪ Klávesa Je KlEnter
  1355. /3 ;argon
  1356.     P²edm╪tP²edB() Je 19 ASouƒasn╪ Klávesa Je KlEnter
  1357. /4 ;draslik
  1358.     P²edm╪tP²edB() Je 20 ASouƒasn╪ Klávesa Je KlEnter
  1359. /5 ;vapnik
  1360.     P²edm╪tP²edB() Je 21 ASouƒasn╪ Klávesa Je KlEnter
  1361. /6 ;scandium
  1362.     P²edm╪tP²edB() Je 22 ASouƒasn╪ Klávesa Je KlEnter
  1363. /7 ;titan
  1364.     P²edm╪tP²edB() Je 23 ASouƒasn╪ Klávesa Je KlEnter
  1365. /8 ;vanad
  1366.     P²edm╪tP²edB() Je 24 ASouƒasn╪ Klávesa Je KlEnter
  1367. /9 ;chrom
  1368.     P²edm╪tP²edB() Je 25 ASouƒasn╪ Klávesa Je KlEnter
  1369. /a ;mangan
  1370.     P²edm╪tP²edB() Je 26 ASouƒasn╪ Klávesa Je KlEnter
  1371. /b ;zelezo
  1372.     P²edm╪tP²edB() Je 27 ASouƒasn╪ Klávesa Je KlEnter
  1373. /c ;kobalt
  1374.     P²edm╪tP²edB() Je 28 ASouƒasn╪ Klávesa Je KlEnter
  1375. /d ;nikl
  1376.     P²edm╪tP²edB() Je 29 ASouƒasn╪ Klávesa Je KlEnter
  1377. /e ;med
  1378.     P²edm╪tP²edB() Je 30 ASouƒasn╪ Klávesa Je KlEnter
  1379.  
  1380. *n ;dokud p²edm╪t p²ed Baltazarem je nepràchodn∞
  1381.     Neplatí PràchodnostP²edm╪tuP²edB()
  1382. *p ;dokud p²edm╪t p²ed Baltazarem je pràchodn∞
  1383.     PràchodnostP²edm╪tuP²edB()
  1384. *B ;dokud barva ƒtverce p²ed Baltazarem ....    *B:>barva      0-15
  1385.     Barva¼tverceP²edB()
  1386. *P ;dokud p²edm╪t p²ed Baltazarem ....          *P:>p²edm╪t    1-150
  1387.     P²edm╪tP²edB()
  1388. *S ;dokud sm╪r Baltazara ....                   *S:<=sm╪r      1-4
  1389.     Sm╪rBaltazara()
  1390. #A ;opakuj vzestupn╪ pro prom╪nnou od,do,krok   #A:(i,2,10,2)  i=2,4..10
  1391.     OdDoKrok
  1392. #D ;opakuj sestupn╪  pro prom╪nnou od,do,krok   #D:(i,10,2,2)  i=10,8..2
  1393.     OdDolàDoKrok
  1394. #M ;opakuj n-krát sestupn╪  pro prom╪nnou       #M:(i,8)  (8x) i=7,6..0
  1395.     DolàDo0
  1396. #N ;opakuj n-krát vzestupn╪ pro prom╪nnou       #N:(i,8)  (8x) i=0,1..7
  1397.     Od0
  1398. =SP-Prv1
  1399.  
  1400. ;-h---------------------------------------------------------------------------
  1401. void Prvek( void )
  1402. -s--Prvek                                                                       ■   5  -2   9   3
  1403.                                     Prvek
  1404.                                      0!
  1405.                                      k!
  1406.          ___________________________Vyber____________________________
  1407.          /0      /1     /2 /3 /4 /5 /6 /7 /8 /9 /a  /b  /c  /d  /e  /f
  1408.    ¼ásti~tabulky H      He Li Be B  C  N  O  F  N   Na  Mg  Al  Si  P
  1409. :VybTab()!   :H()! :He()!  │  │  │  │  │  │  │  │   │   │   │   │   │
  1410.               G:("Lithium")!  │  │  │  │  │  │  │   │   │   │   │   │
  1411.       :GrNastavPozici(0,10)!  │  │  │  │  │  │  │   │   │   │   │   │
  1412.               G:("m=6,941")!  │  │  │  │  │  │  │   │   │   │   │   │
  1413.                G:("Berillium")!  │  │  │  │  │  │   │   │   │   │   │
  1414.          :GrNastavPozici(0,10)!  │  │  │  │  │  │   │   │   │   │   │
  1415.                  G:("m=6,941")!  │  │  │  │  │  │   │   │   │   │   │
  1416.                  G:("Bor(Borum)")!  │  │  │  │  │   │   │   │   │   │
  1417.             :GrNastavPozici(0,10)!  │  │  │  │  │   │   │   │   │   │
  1418.                     G:("m=10,81")!  │  │  │  │  │   │   │   │   │   │
  1419.               G:("Uhlík(Carboneum)")!  │  │  │  │   │   │   │   │   │
  1420.                :GrNastavPozici(0,10)!  │  │  │  │   │   │   │   │   │
  1421.                      G:("m=12,0115")!  │  │  │  │   │   │   │   │   │
  1422.                G:("Dusík(Nitrogenium)")!  │  │  │   │   │   │   │   │
  1423.                   :GrNastavPozici(0,10)!  │  │  │   │   │   │   │   │
  1424.                         G:("m=14,0067")!  │  │  │   │   │   │   │   │
  1425.                       G:("Kyslík(Oxygen)")!  │  │   │   │   │   │   │
  1426.                      :GrNastavPozici(0,10)!  │  │   │   │   │   │   │
  1427.                            G:("m=15,9994")!  │  │   │   │   │   │   │
  1428.                          G:("Fluor(Fluorum)")!  │   │   │   │   │   │
  1429.                         :GrNastavPozici(0,10)!  │   │   │   │   │   │
  1430.                             G:("m=18,998403")!  │   │   │   │   │   │
  1431.                                       G:("Neon")!   │   │   │   │   │
  1432.                            :GrNastavPozici(0,10)!   │   │   │   │   │
  1433.                                   G:("m=20,175")!   │   │   │   │   │
  1434.                                 G:("Sodík(Natrium)")!   │   │   │   │
  1435.                                :GrNastavPozici(0,10)!   │   │   │   │
  1436.                                     G:("m=22,98977")!   │   │   │   │
  1437.                                  G:("Ho²ƒík(Magnesium)")!   │   │   │
  1438.                                    :GrNastavPozici(0,10)!   │   │   │
  1439.                                           G:("m=24,305")!   │   │   │
  1440.                                      G:("Hliník(Aluminium)")!   │   │
  1441.                                        :GrNastavPozici(0,10)!   │   │
  1442.                                             G:("m=26,98154")!   │   │
  1443.                                           G:("K²emík(Silicium)")!   │
  1444.                                            :GrNastavPozici(0,10)!   │
  1445.                                                  G:("m=28,0855")!   │
  1446.                                             G:("Fosfor(Phosphorus)")!
  1447.                                                :GrNastavPozici(0,10)!
  1448.                                                     G:("m=30,97376")!
  1449. -o1-Prvek  operace
  1450. 0 ;prom╪nné celoƒíselné: a,b,c,d,e,f,g,h,i,j,Klávesa;      -32768..32767
  1451.                     int  a,b,c,d,e,f,g,h,i,j,Klávesa,
  1452.                          I¼íslo1,I¼íslo2,I¼íslo3,PàvBarvy;
  1453.  
  1454.   ;prom╪nné reálné: D¼íslo1,D¼íslo2,D¼íslo3;           5.0E-324..1.7E308
  1455.             double  D¼íslo1,D¼íslo2,D¼íslo3;
  1456.   ;prom╪nná znak:   Znak;
  1457.             char    Znak;
  1458.   ;prom╪nná ²et╪zec:ⁿet╪zec[41];              ²et╪zec maximáln╪ 40 znakà
  1459.                char ⁿet╪zec[41];
  1460. [ Vytvo²Prostor()
  1461. ] ZruτProstor()
  1462. a Klávesa= ¼tiKlávesuZFronty()
  1463. b P²epniNaBaltazara()
  1464. c ¼aruj(¼tverec)
  1465. d Gr¼tiZnak("?",Znak,1,0x07)             /*      edit ano, ƒerná/sτedá*/
  1466. e BezObláƒku()
  1467. f VyprázdniFrontuKláves()
  1468. g Gr¼tiCⁿet╪zec("?",ⁿet╪zec,40,1,0x3f)    /*40zn, edit ano, modrá/bílá */
  1469. h Gr¼tiI¼íslo("?",I¼íslo1,6,0,0x0e)      /* 6zn, edit  ne, ƒerná/ºlutá*/
  1470. i Gr¼tiD¼íslo("?",D¼íslo1,20,1,0x0f)     /*20zn, edit ano, ƒerná/bílá */
  1471. j GrPiτZnak(Znak)
  1472. k Klávesa= ¼tiKlávesuZFrontyS¼ekáním()
  1473. l VlevoVbok()
  1474. m ;vypiτ ⁿet╪zec do grafického okénka
  1475.    PàvBarvy=GrNastavBarvy(Modrá<<4|ªlutá); /* ºlutá na modré          */
  1476.    GrPiτⁿet╪zec(ⁿet╪zec);            /* vypíτe obsah prom╪nné ⁿet╪zec */
  1477.    GrNastavBarvy(PàvBarvy);          /* nastaví pàvodní barvy         */
  1478. n Neviditeln∞()
  1479. o SObláƒkem()
  1480. p Popojdi(1)
  1481. q GrPiτL¼íslo(I¼íslo1,-1)             /* -1 = nejkratτí v∞pis          */
  1482. r VpravoVbok()
  1483. s Klávesa= ¼tiKlávesuS¼ekáním()
  1484. t P²epniNaText()
  1485. u GrPiτD¼íslo(D¼íslo1,10,2)           /* 10 ƒíslic, z toho 2 desetinné */
  1486. v Viditeln∞()
  1487. w ;ƒekej na klávesu, smaº klávesu
  1488.    ¼ekejNaKlávesu();
  1489.    VyprázdniFrontuKláves();
  1490. x
  1491. y
  1492. z ;ƒelem vzad
  1493.    VlevoVbok(); VlevoVbok()
  1494. B NastavBarvu¼arování   /*       B:(barva)!   0-15                    */
  1495. C ¼aruj                 /*     C:(p²edm╪t)!   1-150                   */
  1496. L NaƒtiScénu            /*    L:("soubor")!   "c:\\pavel\\soubor.bsc" */
  1497. N Náhodn╪¼aruj          /*     N:(p²edm╪t)!   1-150                   */
  1498. P Popojdi               /*  P:(poƒet_polí)!   0-14                    */
  1499. R RychlostBaltazara     /*    R:(rychlost)!   0-9                     */
  1500. S UloºScénu             /*    S:("soubor")!   "c:\\pavel\\soubor.bsc" */
  1501. W ¼ekej                 /*  W:(milisekund)!   0-32000                 */
  1502. X ¼arujNaPozici         /* X:(p²edm╪t,x,y)!   1-150, 1-15, 1-10       */
  1503. G GrPiτⁿet╪zec          /* G:("Ahoj")                                 */
  1504. -c1-Prvek  podmínky  /=if *=while #=for          p²íklad pouºití
  1505. /n ;kdyº p²edm╪t p²ed Baltazarem je nepràchodn∞
  1506.     Neplatí PràchodnostP²edm╪tuP²edB()
  1507. /p ;kdyº p²edm╪t p²ed Baltazarem je pràchodn∞
  1508.     PràchodnostP²edm╪tuP²edB()
  1509. /B ;kdyº barva ƒtverce p²ed Baltazarem ....     /B:Je~barva    0-15
  1510.     Barva¼tverceP²edB()
  1511. /P ;kdyº p²edm╪t p²ed Baltazarem ....           /P:<=p²edm╪t   1-150
  1512.     P²edm╪tP²edB()
  1513. /S ;kdyº sm╪r Baltazara ....                    /S:Není~4      1-4
  1514.     Sm╪rBaltazara()
  1515. /0 ;kdyº τipka a Enter
  1516.     P²edm╪tP²edB() Je 117 ASouƒasn╪ Klávesa Je KlEnter
  1517. /1 ;kdyº vodík a Enter
  1518.     P²edm╪tP²edB() Je 2 ASouƒasn╪ Klávesa Je KlEnter
  1519. /2 ;helium
  1520.     P²edm╪tP²edB() Je 3 ASouƒasn╪ Klávesa Je KlEnter
  1521. /3 ;lithium
  1522.     P²edm╪tP²edB() Je 4 ASouƒasn╪ Klávesa Je KlEnter
  1523. /4 ;berillium
  1524.     P²edm╪tP²edB() Je 5 ASouƒasn╪ Klávesa Je KlEnter
  1525. /5 ;bor
  1526.     P²edm╪tP²edB() Je 6 ASouƒasn╪ Klávesa Je KlEnter
  1527. /6 ;uhlik
  1528.     P²edm╪tP²edB() Je 7 ASouƒasn╪ Klávesa Je KlEnter
  1529. /7 ;dusik
  1530.     P²edm╪tP²edB() Je 8 ASouƒasn╪ Klávesa Je KlEnter
  1531. /8 ;kyslik
  1532.     P²edm╪tP²edB() Je 9 ASouƒasn╪ Klávesa Je KlEnter
  1533. /9 ;fluor
  1534.     P²edm╪tP²edB() Je 10 ASouƒasn╪ Klávesa Je KlEnter
  1535. /a ;neon
  1536.     P²edm╪tP²edB() Je 11 ASouƒasn╪ Klávesa Je KlEnter
  1537. /b ;sodik
  1538.     P²edm╪tP²edB() Je 12 ASouƒasn╪ Klávesa Je KlEnter
  1539. /c ;horcik
  1540.     P²edm╪tP²edB() Je 13 ASouƒasn╪ Klávesa Je KlEnter
  1541. /d ;hlinik
  1542.     P²edm╪tP²edB() Je 14 ASouƒasn╪ Klávesa Je KlEnter
  1543. /e ;k²emík
  1544.     P²edm╪tP²edB() Je 15 ASouƒasn╪ Klávesa Je KlEnter
  1545. /f ;fosfor
  1546.     P²edm╪tP²edB() Je 16 ASouƒasn╪ Klávesa Je KlEnter
  1547. *n ;dokud p²edm╪t p²ed Baltazarem je nepràchodn∞
  1548.     Neplatí PràchodnostP²edm╪tuP²edB()
  1549. *p ;dokud p²edm╪t p²ed Baltazarem je pràchodn∞
  1550.     PràchodnostP²edm╪tuP²edB()
  1551. *B ;dokud barva ƒtverce p²ed Baltazarem ....    *B:>barva      0-15
  1552.     Barva¼tverceP²edB()
  1553. *P ;dokud p²edm╪t p²ed Baltazarem ....          *P:>p²edm╪t    1-150
  1554.     P²edm╪tP²edB()
  1555. *S ;dokud sm╪r Baltazara ....                   *S:<=sm╪r      1-4
  1556.     Sm╪rBaltazara()
  1557. #A ;opakuj vzestupn╪ pro prom╪nnou od,do,krok   #A:(i,2,10,2)  i=2,4..10
  1558.     OdDoKrok
  1559. #D ;opakuj sestupn╪  pro prom╪nnou od,do,krok   #D:(i,10,2,2)  i=10,8..2
  1560.     OdDolàDoKrok
  1561. #M ;opakuj n-krát sestupn╪  pro prom╪nnou       #M:(i,8)  (8x) i=7,6..0
  1562.     DolàDo0
  1563. #N ;opakuj n-krát vzestupn╪ pro prom╪nnou       #N:(i,8)  (8x) i=0,1..7
  1564.     Od0
  1565. =SP-Prvek
  1566.  
  1567. ;-h---------------------------------------------------------------------------
  1568. void Pohyb( void )
  1569. -s--Pohyb                                                                       ■  33  -2   0   3
  1570.                                    Pohyb
  1571.                                     0!:GrSmaºOkno()
  1572.                                     k!
  1573.                                      *E
  1574.                 ___________________Chuze________________________________
  1575.                 /l           /r              /v                        /
  1576.               Vlevo        Vpravo          Vpred                     Chyba
  1577.                l!k          r!k             p!k                        │
  1578.                                                                        │
  1579.                                                                        │
  1580.                                                           :GrSmaºOkno()!k
  1581.                                             G:("P²ed~prvek~a~2xENTER.")!
  1582.                                           G:("Pro~pohyb~slouºí~τipky.")!
  1583.                                                   :GrNastavPozici(0,10)!
  1584.                                          G:("Atomová~hmotnost~se~znaƒ")!
  1585.                                                              G:("í~m.")!
  1586. -o1-Pohyb  operace
  1587. 0 ;prom╪nné celoƒíselné: a,b,c,d,e,f,g,h,i,j,Klávesa;      -32768..32767
  1588.                     int  a,b,c,d,e,f,g,h,i,j,Klávesa,
  1589.                          I¼íslo1,I¼íslo2,I¼íslo3,PàvBarvy;
  1590.  
  1591.   ;prom╪nné reálné: D¼íslo1,D¼íslo2,D¼íslo3;           5.0E-324..1.7E308
  1592.             double  D¼íslo1,D¼íslo2,D¼íslo3;
  1593.   ;prom╪nná znak:   Znak;
  1594.             char    Znak;
  1595.   ;prom╪nná ²et╪zec:ⁿet╪zec[41];              ²et╪zec maximáln╪ 40 znakà
  1596.                char ⁿet╪zec[41];
  1597. [ Vytvo²Prostor()
  1598. ] ZruτProstor()
  1599. a Klávesa= ¼tiKlávesuZFronty()
  1600. b P²epniNaBaltazara()
  1601. c ¼aruj(¼tverec)
  1602. d Gr¼tiZnak("?",Znak,1,0x07)             /*      edit ano, ƒerná/sτedá*/
  1603. e BezObláƒku()
  1604. f VyprázdniFrontuKláves()
  1605. g Gr¼tiCⁿet╪zec("?",ⁿet╪zec,40,1,0x3f)    /*40zn, edit ano, modrá/bílá */
  1606. h Gr¼tiI¼íslo("?",I¼íslo1,6,0,0x0e)      /* 6zn, edit  ne, ƒerná/ºlutá*/
  1607. i Gr¼tiD¼íslo("?",D¼íslo1,20,1,0x0f)     /*20zn, edit ano, ƒerná/bílá */
  1608. j GrPiτZnak(Znak)
  1609. k Klávesa= ¼tiKlávesuZFrontyS¼ekáním()
  1610. l VlevoVbok()
  1611. m ;vypiτ ⁿet╪zec do grafického okénka
  1612.    PàvBarvy=GrNastavBarvy(Modrá<<4|ªlutá); /* ºlutá na modré          */
  1613.    GrPiτⁿet╪zec(ⁿet╪zec);            /* vypíτe obsah prom╪nné ⁿet╪zec */
  1614.    GrNastavBarvy(PàvBarvy);          /* nastaví pàvodní barvy         */
  1615. n Neviditeln∞()
  1616. o SObláƒkem()
  1617. p Popojdi(1)
  1618. q GrPiτL¼íslo(I¼íslo1,-1)             /* -1 = nejkratτí v∞pis          */
  1619. r VpravoVbok()
  1620. s Klávesa= ¼tiKlávesuS¼ekáním()
  1621. t P²epniNaText()
  1622. u GrPiτD¼íslo(D¼íslo1,10,2)           /* 10 ƒíslic, z toho 2 desetinné */
  1623. v Viditeln∞()
  1624. w ;ƒekej na klávesu, smaº klávesu
  1625.    ¼ekejNaKlávesu();
  1626.    VyprázdniFrontuKláves();
  1627. x
  1628. y
  1629. z ;ƒelem vzad
  1630.    VlevoVbok(); VlevoVbok()
  1631. B NastavBarvu¼arování   /*       B:(barva)!   0-15                    */
  1632. C ¼aruj                 /*     C:(p²edm╪t)!   1-150                   */
  1633. L NaƒtiScénu            /*    L:("soubor")!   "c:\\pavel\\soubor.bsc" */
  1634. N Náhodn╪¼aruj          /*     N:(p²edm╪t)!   1-150                   */
  1635. P Popojdi               /*  P:(poƒet_polí)!   0-14                    */
  1636. R RychlostBaltazara     /*    R:(rychlost)!   0-9                     */
  1637. S UloºScénu             /*    S:("soubor")!   "c:\\pavel\\soubor.bsc" */
  1638. W ¼ekej                 /*  W:(milisekund)!   0-32000                 */
  1639. X ¼arujNaPozici         /* X:(p²edm╪t,x,y)!   1-150, 1-15, 1-10       */
  1640. G GrPiτⁿet╪zec         /* G:("Ahoj")                                 */
  1641. -c1-Pohyb  podmínky  /=if *=while #=for          p²íklad pouºití
  1642. /n ;kdyº p²edm╪t p²ed Baltazarem je nepràchodn∞
  1643.     Neplatí PràchodnostP²edm╪tuP²edB()
  1644. /p ;kdyº p²edm╪t p²ed Baltazarem je pràchodn∞
  1645.     PràchodnostP²edm╪tuP²edB()
  1646. /B ;kdyº barva ƒtverce p²ed Baltazarem ....     /B:Je~barva    0-15
  1647.     Barva¼tverceP²edB()
  1648. /P ;kdyº p²edm╪t p²ed Baltazarem ....           /P:<=p²edm╪t   1-150
  1649.     P²edm╪tP²edB()
  1650. /S ;kdyº sm╪r Baltazara ....                    /S:Není~4      1-4
  1651.     Sm╪rBaltazara()
  1652. /l ;kdyº klávesa je τipka vlevo
  1653.     Klávesa Je KlDoleva
  1654. /r ;kdyº klávesa je τipka vpravo
  1655.     Klávesa Je KlDoprava
  1656. /v ;kdyº klávesa je τipka nahoru
  1657.     Klávesa Je KlNahoru
  1658. *n ;dokud p²edm╪t p²ed Baltazarem je nepràchodn∞
  1659.     Neplatí PràchodnostP²edm╪tuP²edB()
  1660. *p ;dokud p²edm╪t p²ed Baltazarem je pràchodn∞
  1661.     PràchodnostP²edm╪tuP²edB()
  1662. *B ;dokud barva ƒtverce p²ed Baltazarem ....    *B:>barva      0-15
  1663.     Barva¼tverceP²edB()
  1664. *P ;dokud p²edm╪t p²ed Baltazarem ....          *P:>p²edm╪t    1-150
  1665.     P²edm╪tP²edB()
  1666. *S ;dokud sm╪r Baltazara ....                   *S:<=sm╪r      1-4
  1667.     Sm╪rBaltazara()
  1668. #A ;opakuj vzestupn╪ pro prom╪nnou od,do,krok   #A:(i,2,10,2)  i=2,4..10
  1669.     OdDoKrok
  1670. #D ;opakuj sestupn╪  pro prom╪nnou od,do,krok   #D:(i,10,2,2)  i=10,8..2
  1671.     OdDolàDoKrok
  1672. #M ;opakuj n-krát sestupn╪  pro prom╪nnou       #M:(i,8)  (8x) i=7,6..0
  1673.     DolàDo0
  1674. #N ;opakuj n-krát vzestupn╪ pro prom╪nnou       #N:(i,8)  (8x) i=0,1..7
  1675.     Od0
  1676. *E ;dokud klávesa není Enter
  1677.     Klávesa Není KlEnter
  1678. =SP-Pohyb
  1679.  
  1680. ;-h---------------------------------------------------------------------------
  1681. /***** hlavní program *****/
  1682. void main( void )
  1683. -s--TABULKA                                                                     ■  11  -2  -2   3
  1684.         _________________________TABULKA_____________________________
  1685.      Zaƒátek          __________Prost²edek                        Konec
  1686. 0[vR:(5)!         Parametry        Ukol                             !w]
  1687.                   :l=1!             │
  1688.       L:("*\\tabulka")!k            │
  1689.                                     *K
  1690.                               Vyber~ch.prvku
  1691.                             :Pohyb()!
  1692.                             :Prvek()!:Prv7()
  1693.                              :Prv1()!:Prv6()
  1694.                              :Prv2()!:Prv5()
  1695.                              :Prv3()!:Prv4()
  1696. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  1697. 0 ;prom╪nné celoƒíselné: a,b,c,d,e,f,g,h,i,j,Klávesa;      -32768..32767
  1698.                     int  a,b,c,d,e,f,g,h,i,j,Klávesa,
  1699.                          I¼íslo1,I¼íslo2,I¼íslo3,PàvBarvy;
  1700.  
  1701.   ;prom╪nné reálné: D¼íslo1,D¼íslo2,D¼íslo3;           5.0E-324..1.7E308
  1702.             double  D¼íslo1,D¼íslo2,D¼íslo3;
  1703.   ;prom╪nná znak:   Znak;
  1704.             char    Znak;
  1705.   ;prom╪nná ²et╪zec:ⁿet╪zec[41];              ²et╪zec maximáln╪ 40 znakà
  1706.                char ⁿet╪zec[41];
  1707. [ Vytvo²Prostor()
  1708. ] ZruτProstor()
  1709. a Klávesa= ¼tiKlávesuZFronty()
  1710. b P²epniNaBaltazara()
  1711. c ¼aruj(¼tverec)
  1712. d Gr¼tiZnak("?",Znak,1,0x07)             /*      edit ano, ƒerná/sτedá*/
  1713. e BezObláƒku()
  1714. f VyprázdniFrontuKláves()
  1715. g Gr¼tiCⁿet╪zec("?",ⁿet╪zec,40,1,0x3f)    /*40zn, edit ano, modrá/bílá */
  1716. h Gr¼tiI¼íslo("?",I¼íslo1,6,0,0x0e)      /* 6zn, edit  ne, ƒerná/ºlutá*/
  1717. i Gr¼tiD¼íslo("?",D¼íslo1,20,1,0x0f)     /*20zn, edit ano, ƒerná/bílá */
  1718. j GrPiτZnak(Znak)
  1719. k Klávesa= ¼tiKlávesuZFrontyS¼ekáním()
  1720. l VlevoVbok()
  1721. m ;vypiτ ⁿet╪zec do grafického okénka
  1722.    PàvBarvy=GrNastavBarvy(Modrá<<4|ªlutá); /* ºlutá na modré          */
  1723.    GrPiτⁿet╪zec(ⁿet╪zec);            /* vypíτe obsah prom╪nné ⁿet╪zec */
  1724.    GrNastavBarvy(PàvBarvy);          /* nastaví pàvodní barvy         */
  1725. n Neviditeln∞()
  1726. o SObláƒkem()
  1727. p Popojdi(1)
  1728. q GrPiτL¼íslo(I¼íslo1,-1)             /* -1 = nejkratτí v∞pis          */
  1729. r VpravoVbok()
  1730. s Klávesa= ¼tiKlávesuS¼ekáním()
  1731. t P²epniNaText()
  1732. u GrPiτD¼íslo(D¼íslo1,10,2)           /* 10 ƒíslic, z toho 2 desetinné */
  1733. v Viditeln∞()
  1734. w ;ƒekej na klávesu, smaº klávesu
  1735.    ¼ekejNaKlávesu();
  1736.    VyprázdniFrontuKláves();
  1737. x
  1738. y
  1739. z ;ƒelem vzad
  1740.    VlevoVbok(); VlevoVbok()
  1741. B NastavBarvu¼arování   /*       B:(barva)!   0-15                    */
  1742. C ¼aruj                 /*     C:(p²edm╪t)!   1-150                   */
  1743. L NaƒtiScénu            /*    L:("soubor")!   "c:\\pavel\\soubor.bsc" */
  1744. N Náhodn╪¼aruj          /*     N:(p²edm╪t)!   1-150                   */
  1745. P Popojdi               /*  P:(poƒet_polí)!   0-14                    */
  1746. R RychlostBaltazara     /*    R:(rychlost)!   0-9                     */
  1747. S UloºScénu             /*    S:("soubor")!   "c:\\pavel\\soubor.bsc" */
  1748. W ¼ekej                 /*  W:(milisekund)!   0-32000                 */
  1749. X ¼arujNaPozici         /* X:(p²edm╪t,x,y)!   1-150, 1-15, 1-10       */
  1750. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  1751. /n ;kdyº p²edm╪t p²ed Baltazarem je nepràchodn∞
  1752.     Neplatí PràchodnostP²edm╪tuP²edB()
  1753. /p ;kdyº p²edm╪t p²ed Baltazarem je pràchodn∞
  1754.     PràchodnostP²edm╪tuP²edB()
  1755. /B ;kdyº barva ƒtverce p²ed Baltazarem ....     /B:Je~barva    0-15
  1756.     Barva¼tverceP²edB()
  1757. /P ;kdyº p²edm╪t p²ed Baltazarem ....           /P:<=p²edm╪t   1-150
  1758.     P²edm╪tP²edB()
  1759. /S ;kdyº sm╪r Baltazara ....                    /S:Není~4      1-4
  1760.     Sm╪rBaltazara()
  1761. *n ;dokud p²edm╪t p²ed Baltazarem je nepràchodn∞
  1762.     Neplatí PràchodnostP²edm╪tuP²edB()
  1763. *p ;dokud p²edm╪t p²ed Baltazarem je pràchodn∞
  1764.     PràchodnostP²edm╪tuP²edB()
  1765. *B ;dokud barva ƒtverce p²ed Baltazarem ....    *B:>barva      0-15
  1766.     Barva¼tverceP²edB()
  1767. *P ;dokud p²edm╪t p²ed Baltazarem ....          *P:>p²edm╪t    1-150
  1768.     P²edm╪tP²edB()
  1769. *S ;dokud sm╪r Baltazara ....                   *S:<=sm╪r      1-4
  1770.     Sm╪rBaltazara()
  1771. #A ;opakuj vzestupn╪ pro prom╪nnou od,do,krok   #A:(i,2,10,2)  i=2,4..10
  1772.     OdDoKrok
  1773. #D ;opakuj sestupn╪  pro prom╪nnou od,do,krok   #D:(i,10,2,2)  i=10,8..2
  1774.     OdDolàDoKrok
  1775. #M ;opakuj n-krát sestupn╪  pro prom╪nnou       #M:(i,8)  (8x) i=7,6..0
  1776.     DolàDo0
  1777. #N ;opakuj n-krát vzestupn╪ pro prom╪nnou       #N:(i,8)  (8x) i=0,1..7
  1778.     Od0
  1779. *K ;dokud klávesa není End
  1780.     Klávesa Není KlEnd
  1781. =SP---------------------------------------------------------------------------
  1782. /***** konec programu *****/
  1783.