home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 July / Chip_1998-07_cd.bin / tema / sgp / vyber / klavir / KLAVIR.SGP < prev    next >
Text File  |  1997-11-10  |  54KB  |  1,289 lines
  1. SGPC   5.00 S#340389 24.11.1996 17:08:54                                        StructNo17  17
  2. ; *************************************************************************
  3. ; *                                                                       *
  4. ; *             Vytvo²il Michal Trna 24.11.1996 - 20.1.1997,              *
  5. ; *              opraveno 17.9.1997 ( p²edm╪ty 30.8.1997 ).               *
  6. ; *                                                                       *
  7. ; *************************************************************************
  8. ;
  9. ;                      Vzor: C:\SGPBC\VZORBC.000
  10. ;
  11. ;
  12. ;----------------------------------------------------------------------
  13.  
  14. # include <sgpbalt.h>
  15.  
  16. ;-h---------------------------------------------------------------------------
  17. /***** globální prom╪nné *****/
  18.                int  a,c,d,e,f,g,h,i,j,l,m,n,o,p,q,r,s,u,v,w,y,z,
  19.                     A,C,D,E,F,G,H,I,J,K,M,N,O,P,Q,R,S,T,V,X,Y,Z,
  20.                     ¼,Klávesa,Help,Uloº,Rep;
  21.                char Znak;
  22.                char ⁿet╪zec[50];
  23.                char ⁿet╪zec1[10];
  24.                char ⁿet╪zec2[10];
  25.                char ⁿet╪zec3[10];
  26.                char ⁿet╪zec4[10];
  27.                char ⁿet╪zec5[10];
  28.                char ⁿet╪zec6[10];
  29.                char ⁿet╪zec7[10];
  30.                char ⁿet╪zec8[10];
  31.                char ⁿet╪zec9[10];
  32.  
  33. ;-h---------------------------------------------------------------------------
  34. void Béƒka( void )
  35. -s--Béƒka                                                                       ■  97  -2   6   3
  36.           ______________Béƒka____________________________________________
  37.           /a       /b       /c       /d       /e       /f       /g      /
  38.           C___     D___     E___     F___     G___     A___     H___   Nic
  39.           /A /     /B /     /C /     /D /     /E /     /F /     /G /
  40.          Ano Ne   Ano Ne   Ano Ne   Ano Ne   Ano Ne   Ano Ne   Ano Ne
  41.      :T=d*4!  :T=d*4!  :T=d*4!  :T=d*4!  :T=d*4!  :T=d*4!  :T=d*4!
  42.      :a=a-T!  :a=a-T!  :a=a-T!  :a=a-T!  :a=a-T!  :a=a-T!  :a=a-T!
  43.        :M=0!    :N=0!    :O=0!    :P=0!    :Q=0!    :R=0!    :S=0!
  44.        :X=8!    :X=9!   :X=10!   :X=11!   :X=12!   :X=13!   :X=14!
  45. -o1-Béƒka  operace
  46. -c1-Béƒka  podmínky  /=if *=while #=for          p²íklad pouºití
  47. /a  J==1
  48. /b  J==2
  49. /c  J==3
  50. /d  J==4
  51. /e  J==5
  52. /f  J==6
  53. /g  J==7
  54. /A  M==1
  55. /B  N==1
  56. /C  O==1
  57. /D  P==1
  58. /E  Q==1
  59. /F  R==1
  60. /G  S==1
  61. =SP-Béƒka
  62.  
  63. ;-h---------------------------------------------------------------------------
  64. void K²íºky( void )
  65. -s--K²íºky                                                                      ■  95  -2   1   3
  66.       _____________________K²íºky____________________________________________
  67.       /a        /b        /c        /d        /e        /f        /g        /
  68.       C___      D___      E___      F___      G___      A___      H___     Nic
  69.       /C /      /D /      /E /      /F /      /G /      /H /      /I /
  70.      Ano Ne    Ano Ne    Ano Ne    Ano Ne    Ano Ne    Ano Ne    Ano Ne
  71.  :I=d*4!   :I=d*5!   :I=d*5!   :I=d*5!   :I=d*6!   :I=d*6!   :I=d*7!
  72.  :a=I+a!   :a=I+a!   :a=I+a!   :a=I+a!   :a=I+a!   :a=I+a!   :a=I+a!
  73.    :C=0!     :D=0!     :E=0!     :F=0!     :G=0!     :A=0!     :Z=0!
  74.    :X=1!     :X=2!     :X=3!     :X=4!     :X=5!     :X=6!     :X=7!
  75. -o1-K²íºky  operace
  76. -c1-K²íºky  podmínky  /=if *=while #=for          p²íklad pouºití
  77. /a  H==1
  78. /b  H==2
  79. /c  H==3
  80. /d  H==4
  81. /e  H==5
  82. /f  H==6
  83. /g  H==7
  84. /C  C==1
  85. /D  D==1
  86. /E  E==1
  87. /F  F==1
  88. /G  G==1
  89. /H  A==1
  90. /I  Z==1
  91. =SP-K²íºky
  92.  
  93. ;-h---------------------------------------------------------------------------
  94. void KurzorZapni2( void )
  95. -s--KurzorZapni2                                                                ■  63  -2 143   3
  96.         __________KurzorZapni2___________________________________________________________________________________________________________________________________________________________________________________________________________________________
  97.         /A       /B       /C       /D       /E       /F       /G       /H       /I       /J       /K       /L       /M       /N       /O       /P       /a     /b       /c       /d       /e       /f       /g       /h       /i       /j       /k      /
  98.         26       27       28       29       30       31       32       33       34       42       43       44       45       57       58       59       1      90      136      137      138      139      140      141      142       46       60     Jin∞
  99.   C:(101)! C:(102)! C:(103)! C:(104)! C:(105)! C:(106)! C:(107)! C:(108)! C:(109)! C:(117)! C:(118)! C:(119)! C:(120)! C:(132)! C:(133)! C:(134)! C:(12)! C:(12)! C:(143)! C:(144)! C:(145)! C:(146)! C:(147)! C:(148)! C:(149)! C:(121)! C:(135)!
  100. -o1-KurzorZapni2  operace
  101. C ¼aruj
  102. -c1-KurzorZapni2  podmínky  /=if *=while #=for          p²íklad pouºití
  103. /a  P²edm╪tP²edB() Je 1
  104. /b  P²edm╪tP²edB() Je 90
  105. /c  P²edm╪tP²edB() Je 136
  106. /d  P²edm╪tP²edB() Je 137
  107. /e  P²edm╪tP²edB() Je 138
  108. /f  P²edm╪tP²edB() Je 139
  109. /g  P²edm╪tP²edB() Je 140
  110. /h  P²edm╪tP²edB() Je 141
  111. /i  P²edm╪tP²edB() Je 142
  112. /j  P²edm╪tP²edB() Je 46
  113. /k  P²edm╪tP²edB() Je 60
  114. /A  P²edm╪tP²edB() Je 26
  115. /B  P²edm╪tP²edB() Je 27
  116. /C  P²edm╪tP²edB() Je 28
  117. /D  P²edm╪tP²edB() Je 29
  118. /E  P²edm╪tP²edB() Je 30
  119. /F  P²edm╪tP²edB() Je 31
  120. /G  P²edm╪tP²edB() Je 32
  121. /H  P²edm╪tP²edB() Je 33
  122. /I  P²edm╪tP²edB() Je 34
  123. /J  P²edm╪tP²edB() Je 42
  124. /K  P²edm╪tP²edB() Je 43
  125. /L  P²edm╪tP²edB() Je 44
  126. /M  P²edm╪tP²edB() Je 45
  127. /N  P²edm╪tP²edB() Je 57
  128. /O  P²edm╪tP²edB() Je 58
  129. /P  P²edm╪tP²edB() Je 59
  130. =SP-KurzorZapni2
  131.  
  132. ;-h---------------------------------------------------------------------------
  133. void KurzorZapni( void )
  134. -s--KurzorZapni                                                                 ■   3  -2   8   3
  135.         ________________KurzorVypni______________________________________________________________________________________________________________________________________________________________________________________________
  136.         /a      /b      /c      /d      /e      /f       /g       /h       /i       /j       /k       /l       /m       /n       /o       /p                /r       /s       /t       /u       /v       /w       /x            /
  137.         19      20      21      22      23      24       25       35       36       37       38       39       40       41       47       48                50       51       52       53       54       55       56           Jin∞
  138.    C:(94)! C:(95)! C:(96)! C:(97)! C:(98)! C:(99)! C:(100)! C:(110)! C:(111)! C:(112)! C:(113)! C:(114)! C:(115)! C:(116)! C:(122)! C:(123)!          C:(125)! C:(126)! C:(127)! C:(128)! C:(129)! C:(130)! C:(131)!           D!
  139. -o1-KurzorZapni  operace
  140. C ¼aruj
  141. D KurzorZapni2()
  142. -c1-KurzorZapni  podmínky  /=if *=while #=for          p²íklad pouºití
  143. /a  P²edm╪tP²edB() Je 19
  144. /b  P²edm╪tP²edB() Je 20
  145. /c  P²edm╪tP²edB() Je 21
  146. /d  P²edm╪tP²edB() Je 22
  147. /e  P²edm╪tP²edB() Je 23
  148. /f  P²edm╪tP²edB() Je 24
  149. /g  P²edm╪tP²edB() Je 25
  150. /h  P²edm╪tP²edB() Je 35
  151. /i  P²edm╪tP²edB() Je 36
  152. /j  P²edm╪tP²edB() Je 37
  153. /k  P²edm╪tP²edB() Je 38
  154. /l  P²edm╪tP²edB() Je 39
  155. /m  P²edm╪tP²edB() Je 40
  156. /n  P²edm╪tP²edB() Je 41
  157. /o  P²edm╪tP²edB() Je 47
  158. /p  P²edm╪tP²edB() Je 48
  159. /r  P²edm╪tP²edB() Je 50
  160. /s  P²edm╪tP²edB() Je 51
  161. /t  P²edm╪tP²edB() Je 52
  162. /u  P²edm╪tP²edB() Je 53
  163. /v  P²edm╪tP²edB() Je 54
  164. /w  P²edm╪tP²edB() Je 55
  165. /x  P²edm╪tP²edB() Je 56
  166. =SP-KurzorZapni
  167.  
  168. ;-h---------------------------------------------------------------------------
  169. void KurzorVypni( void )
  170. -s--KurzorVypni                                                                 ■ 123  -2 174   3
  171.       _________________KurzorVypni___________________________________________________________________________________________________________________________________________________________________________________________________________________________
  172.       /a      /b      /c      /d      /e      /f      /g      /h      /i      /j      /k      /l      /m      /n      /A      /B              /D      /E      /F      /G      /H      /I      /J      /K      /L      /M      /N      /O      /P      /Q    /
  173.       94      95      96      97      98      99     100     110     111     112     113     114     115     116     122     123             125     126     127     128     129     130     131     101     102     103     104     105     106     107  Jin∞
  174.  C:(19)! C:(20)! C:(21)! C:(22)! C:(23)! C:(24)! C:(25)! C:(35)! C:(36)! C:(37)! C:(38)! C:(39)! C:(40)! C:(41)! C:(47)! C:(48)!         C:(50)! C:(51)! C:(52)! C:(53)! C:(54)! C:(55)! C:(56)! C:(26)! C:(27)! C:(28)! C:(29)! C:(30)! C:(31)! C:(32)!
  175. -o1-KurzorVypni  operace
  176. C ¼aruj
  177. -c1-KurzorVypni  podmínky  /=if *=while #=for          p²íklad pouºití
  178. /a  P²edm╪tP²edB() Je 94
  179. /b  P²edm╪tP²edB() Je 95
  180. /c  P²edm╪tP²edB() Je 96
  181. /d  P²edm╪tP²edB() Je 97
  182. /e  P²edm╪tP²edB() Je 98
  183. /f  P²edm╪tP²edB() Je 99
  184. /g  P²edm╪tP²edB() Je 100
  185. /h  P²edm╪tP²edB() Je 110
  186. /i  P²edm╪tP²edB() Je 111
  187. /j  P²edm╪tP²edB() Je 112
  188. /k  P²edm╪tP²edB() Je 113
  189. /l  P²edm╪tP²edB() Je 114
  190. /m  P²edm╪tP²edB() Je 115
  191. /n  P²edm╪tP²edB() Je 116
  192. /A  P²edm╪tP²edB() Je 122
  193. /B  P²edm╪tP²edB() Je 123
  194. /D  P²edm╪tP²edB() Je 125
  195. /E  P²edm╪tP²edB() Je 126
  196. /F  P²edm╪tP²edB() Je 127
  197. /G  P²edm╪tP²edB() Je 128
  198. /H  P²edm╪tP²edB() Je 129
  199. /I  P²edm╪tP²edB() Je 130
  200. /J  P²edm╪tP²edB() Je 131
  201. /K  P²edm╪tP²edB() Je 101
  202. /L  P²edm╪tP²edB() Je 102
  203. /M  P²edm╪tP²edB() Je 103
  204. /N  P²edm╪tP²edB() Je 104
  205. /O  P²edm╪tP²edB() Je 105
  206. /P  P²edm╪tP²edB() Je 106
  207. /Q  P²edm╪tP²edB() Je 107
  208. =SP-KurzorVypni
  209.  
  210. ;-h---------------------------------------------------------------------------
  211. void KurzorVypni2( void )
  212. -s--KurzorVypni2                                                                ■  79  -2  97   3
  213.           ______________KurzorVypni2_______________________________________________________________________________________________________________________________________
  214.           /a      /b      /c      /d      /e      /f      /g      /h      /i      /j       /q       /r       /s       /t       /u       /v       /w      /x      /y       /
  215.          108     109     117     118     119     120     132     133     134      12      143      144      145      146      147      148      149     121     135      Jin∞
  216.      C:(33)! C:(34)! C:(42)! C:(43)! C:(44)! C:(45)! C:(57)! C:(58)! C:(59)! C:(90)! C:(136)! C:(137)! C:(138)! C:(139)! C:(140)! C:(141)! C:(142)! C:(46)! C:(60)!       D!
  217. -o1-KurzorVypni2  operace
  218. C ¼aruj
  219. D KurzorVypni()
  220. -c1-KurzorVypni2  podmínky  /=if *=while #=for          p²íklad pouºití
  221. /a  P²edm╪tP²edB() Je 108
  222. /b  P²edm╪tP²edB() Je 109
  223. /c  P²edm╪tP²edB() Je 117
  224. /d  P²edm╪tP²edB() Je 118
  225. /e  P²edm╪tP²edB() Je 119
  226. /f  P²edm╪tP²edB() Je 120
  227. /g  P²edm╪tP²edB() Je 132
  228. /h  P²edm╪tP²edB() Je 133
  229. /i  P²edm╪tP²edB() Je 134
  230. /j  P²edm╪tP²edB() Je 12
  231. /q  P²edm╪tP²edB() Je 143
  232. /r  P²edm╪tP²edB() Je 144
  233. /s  P²edm╪tP²edB() Je 145
  234. /t  P²edm╪tP²edB() Je 146
  235. /u  P²edm╪tP²edB() Je 147
  236. /v  P²edm╪tP²edB() Je 148
  237. /w  P²edm╪tP²edB() Je 149
  238. /x  P²edm╪tP²edB() Je 121
  239. /y  P²edm╪tP²edB() Je 135
  240. =SP-KurzorVypni2
  241.  
  242. ;-h---------------------------------------------------------------------------
  243. void Kontrola( void )
  244. -s--Kontrola                                                                    ■   7  -2  23   3
  245.                         Kontrola
  246.                          /a   /
  247.                         Ano   Ne
  248.                         b!   ac!
  249. -o1-Kontrola  operace
  250. a  GrSmaºOkno();
  251.    GrNastavPozici(10,0);
  252.    GrPiτⁿet╪zec("Soubor ");
  253.    GrNastavBarvuPop²edí(ªlutá);
  254.    GrPiτⁿet╪zec(ⁿet╪zec);
  255.    GrNastavBarvuPop²edí(Bílá);
  256.    GrPiτⁿet╪zec(" neexistuje ");
  257. b  GrSmaºOkno();
  258.    GrNastavPozici(10,0);
  259.    GrPiτⁿet╪zec("P²ehrává se soubor ");
  260.    GrNastavBarvuPop²edí(ªlutá);
  261.    GrPiτⁿet╪zec(ⁿet╪zec);
  262.    GrNastavBarvuPop²edí(Bílá);
  263. c  ¼ekej(1000)
  264. -c1-Kontrola  podmínky  /=if *=while #=for          p²íklad pouºití
  265. /a P²edm╪tNaPozici(1,1) Je 49
  266. =SP-Kontrola
  267.  
  268. ;-h---------------------------------------------------------------------------
  269. void ZjistiOktávu( void )
  270. -s--ZjistiOktávu                                                                ■   7  -2   0   3
  271.            _____ZjistiOktávu____
  272.            /a       /b         /c
  273.           Nic     Zjisti  ____Urƒi_________________________________________________________
  274.                     │     /e      /f      /g      /h      /i      /j      /k      /l      /d
  275.                     │   1~okt   2~okt   3~okt   4~okt   5~okt   6~okt   7~okt   8~okt   9~okt
  276.                     │  :s=61!  :s=62!  :s=63!  :s=64!  :s=65!  :s=66!  :s=67!  :s=68!  :s=69!
  277.                     │      x!      x!      x!      x!      x!      x!      x!      x!      x!
  278.       ____________Zjisti
  279.     Pozice    ZjistiP²edm╪t____________________________________________________________________________________________________
  280.  t:(1,10)!     /A          /B          /C          /D          /E          /F          /G          /H          /I             /
  281.            ¼íslo~je~1  ¼íslo~je~2  ¼íslo~je~3  ¼íslo~je~4  ¼íslo~je~5  ¼íslo~je~6  ¼íslo~je~7  ¼íslo~je~8  ¼íslo~je~9       Jin∞
  282.               :d=1!       :d=2!       :d=4!       :d=8!      :d=16!      :d=32!      :d=64!     :d=128!     :d=256!      C:(63)!
  283.                                                                                                                            :d=4!
  284.                                                                                                                           :s=63!
  285. -o1-ZjistiOktávu  operace
  286. t NastavPoziciBaltazara
  287. x ¼arujNaPozici(s,2,10)
  288. C ¼aruj
  289. -c1-ZjistiOktávu  podmínky  /=if *=while #=for          p²íklad pouºití
  290. /a  u==0
  291. /b  u==1
  292. /c  u==2
  293. /d  d==256
  294. /e  d==1
  295. /f  d==2
  296. /g  d==4
  297. /h  d==8
  298. /i  d==16
  299. /j  d==32
  300. /k  d==64
  301. /l  d==128
  302. /A  P²edm╪tP²edB() Je 61
  303. /B  P²edm╪tP²edB() Je 62
  304. /C  P²edm╪tP²edB() Je 63
  305. /D  P²edm╪tP²edB() Je 64
  306. /E  P²edm╪tP²edB() Je 65
  307. /F  P²edm╪tP²edB() Je 66
  308. /G  P²edm╪tP²edB() Je 67
  309. /H  P²edm╪tP²edB() Je 68
  310. /I  P²edm╪tP²edB() Je 69
  311. =SP-ZjistiOktávu
  312.  
  313. ;-h---------------------------------------------------------------------------
  314. void Stisk( void )
  315. -s--Stisk                                                                       ■ 101  -2  31   3
  316.           ___________________________Stisk_______________________________________________________________
  317.           /a           /b           /c           /d           /e           /f           /g        /A    /
  318.        ___C_____    ___D_____    ___E_____    ___F_____    ___G_____    ___A_____    ___H_____   Pus£  Nic
  319.        /k  /l  /    /k  /l  /    /k  /l  /    /k  /l  /    /k  /l  /    /k  /l  /    /k  /l  /    A!
  320.       Cis Ces Nic  Dis Des Nic  Eis  Es Nic  Fis Fes Nic  Gis Ges Nic  Ais  As Nic  His Hes Nic
  321.       kx! rx! a!   lx! kx! b!   mx! lx! c!   nx! cx! d!   ox! nx! e!   px! ox! f!   qx! px! g!
  322. -o1-Stisk  operace
  323. a ¼arujNaPozici(10,8,8);
  324.   ¼arujNaPozici(2,8,9);
  325. b ¼arujNaPozici(72,9,7);
  326.   ¼arujNaPozici(71,9,8);
  327.   ¼arujNaPozici(2,9,9);
  328. c ¼arujNaPozici(70,10,7);
  329.   ¼arujNaPozici(11,10,8);
  330.   ¼arujNaPozici(2,10,9);
  331. d ¼arujNaPozici(10,11,8);
  332.   ¼arujNaPozici(2,11,9);
  333. e ¼arujNaPozici(72,12,7);
  334.   ¼arujNaPozici(71,12,8);
  335.   ¼arujNaPozici(2,12,9);
  336. f ¼arujNaPozici(72,13,7);
  337.   ¼arujNaPozici(71,13,8);
  338.   ¼arujNaPozici(2,13,9);
  339. g ¼arujNaPozici(70,14,7);
  340.   ¼arujNaPozici(11,14,8);
  341.   ¼arujNaPozici(2,14,9);
  342. k ¼arujNaPozici(17,8,8);
  343.   ¼arujNaPozici(73,9,8);
  344.   ¼arujNaPozici(91,8,7);
  345.   ¼arujNaPozici(92,9,7);
  346. l ¼arujNaPozici(74,9,8);
  347.   ¼arujNaPozici(18,10,8);
  348.   ¼arujNaPozici(93,9,7);
  349.   ¼arujNaPozici(75,10,7);
  350. m ¼arujNaPozici(10,11,8);
  351.   ¼arujNaPozici(2,11,9);
  352. n ¼arujNaPozici(17,11,8);
  353.   ¼arujNaPozici(73,12,8);
  354.   ¼arujNaPozici(91,11,7);
  355.   ¼arujNaPozici(92,12,7);
  356. o ¼arujNaPozici(74,12,8);
  357.   ¼arujNaPozici(73,13,8);
  358.   ¼arujNaPozici(93,12,7);
  359.   ¼arujNaPozici(92,13,7);
  360. p ¼arujNaPozici(74,13,8);
  361.   ¼arujNaPozici(18,14,8);
  362.   ¼arujNaPozici(93,13,7);
  363.   ¼arujNaPozici(75,14,7);
  364. q ¼arujNaPozici(10,15,8);
  365.   ¼arujNaPozici(2,15,9);
  366. r ¼arujNaPozici(70,7,7);
  367.   ¼arujNaPozici(11,7,8);
  368.   ¼arujNaPozici(2,7,9);
  369. x X=0;
  370. A ¼arujNaPozici(3,7,9);
  371.   ¼arujNaPozici(7,7,7);
  372.   ¼arujNaPozici(5,7,8);
  373.   ¼arujNaPozici(6,8,7);
  374.   ¼arujNaPozici(8,9,7);
  375.   ¼arujNaPozici(7,10,7);
  376.   ¼arujNaPozici(6,11,7);
  377.   ¼arujNaPozici(8,12,7);
  378.   ¼arujNaPozici(8,13,7);
  379.   ¼arujNaPozici(7,14,7);
  380.   ¼arujNaPozici(6,15,7);
  381.   ¼arujNaPozici(4,8,8);
  382.   ¼arujNaPozici(9,9,8);
  383.   ¼arujNaPozici(5,10,8);
  384.   ¼arujNaPozici(4,11,8);
  385.   ¼arujNaPozici(9,12,8);
  386.   ¼arujNaPozici(9,13,8);
  387.   ¼arujNaPozici(5,14,8);
  388.   ¼arujNaPozici(4,15,8);
  389.   ¼arujNaPozici(3,8,9);
  390.   ¼arujNaPozici(3,9,9);
  391.   ¼arujNaPozici(3,10,9);
  392.   ¼arujNaPozici(3,11,9);
  393.   ¼arujNaPozici(3,12,9);
  394.   ¼arujNaPozici(3,13,9);
  395.   ¼arujNaPozici(3,14,9);
  396.   ¼arujNaPozici(3,15,9);
  397. -c1-Stisk  podmínky  /=if *=while #=for          p²íklad pouºití
  398. /a  Y==1
  399. /b  Y==2
  400. /c  Y==3
  401. /d  Y==4
  402. /e  Y==5
  403. /f  Y==6
  404. /g  Y==7
  405. /k  X==Y
  406. /l  X==Y+7
  407. /A  Y==100
  408. =SP-Stisk
  409.  
  410. ;-h---------------------------------------------------------------------------
  411. void PiτNotu( void )
  412. -s--PiτNotu                                                                     ■ 284  -2 174   3
  413.                     _____PiτNotu__________________________________________________________________________________________________________________________________________________________________________________________________________
  414.                     /a                                   /b                                 /c                                  /d                                  /e                                    /f                             /g
  415.                     c                                    d                                  e                                   f                                   g                                     a                              h
  416.                 :Y=1!pAH                             :Y=2!pAH                           :Y=3!pAH                            :Y=4!pAH                            :Y=5!pAH                              :Y=6!pAH                       :Y=7!pAH
  417.        _____________c______________        ______________d_____________        _____________e______________        _____________f______________        _____________g______________         ______________a________________       _______h_________________
  418.        /w       /x       /y       /z       /w       /x       /y       /z       /w      /x        /y       /z       /w      /x        /y       /z       /w      /x        /y       /z        /w       /x         /y        /z      /w      /x      /y      /z
  419.    Osmina    ¼tvr£      Pàl     Celá   Osmina    ¼tvr£      Pàl     Celá   Osmina    ¼tvr£      Pàl     Celá   Osmina    ¼tvr£      Pàl     Celá   Osmina    ¼tvr£      Pàl     Celá    Osmina     ¼tvr£       Pàl      Celá  Osmina   ¼tvr£     Pàl    Celá
  420.        I!       I!       I!       I!       I!       I!       I!       I!       I!       I!       I!       I!       I!       I!       I!       I!       I!       I!       I!       I!        I!        I!        I!        I!      I!      I!      I!      I!
  421.   C:(26)!  C:(50)!  C:(35)!  C:(19)!  C:(27)!  C:(51)!  C:(36)!  C:(20)!  C:(28)!  C:(52)!  C:(37)!  C:(21)!  C:(29)!  C:(53)!  C:(38)!  C:(22)!  C:(30)!  C:(54)!  C:(39)!  C:(23)!   C:(31)!   C:(55)!   C:(40)!   C:(24)! C:(32)! C:(56)! C:(41)! C:(25)!
  422.  :a=d*65! :a=d*65! :a=d*65! :a=d*65! :a=d*73! :a=d*73! :a=d*73! :a=d*73! :a=d*82! :a=d*82! :a=d*82! :a=d*82! :a=d*87! :a=d*87! :a=d*87! :a=d*87! :a=d*98! :a=d*98! :a=d*98! :a=d*98! :a=d*110! :a=d*110! :a=d*110! :a=d*110!     BS!     BT!     BU!     BV!
  423.        S!       T!       U!       V!       S!       T!       U!       V!       S!       T!       U!       V!       S!       T!       U!       V!       S!       T!       U!       V!        S!        T!        U!        V!
  424. -o1-PiτNotu  operace
  425. p Popojdi(1)
  426. A Uloº=1
  427. B a=d*123
  428. C ¼aruj
  429. H KurzorZapni()
  430. I KurzorVypni2()
  431. S Stisk();
  432.   Tón(a);
  433.   ¼ekej(125);
  434.   VypniTón();
  435.   Y=100;
  436.   Stisk();
  437. T Stisk();
  438.   Tón(a);
  439.   ¼ekej(250);
  440.   VypniTón();
  441.   Y=100;
  442.   Stisk();
  443. U Stisk();
  444.   Tón(a);
  445.   ¼ekej(500);
  446.   VypniTón();
  447.   Y=100;
  448.   Stisk();
  449. V Stisk();
  450.   Tón(a);
  451.   ¼ekej(1000);
  452.   VypniTón();
  453.   Y=100;
  454.   Stisk();
  455. -c1-PiτNotu  podmínky  /=if *=while #=for          p²íklad pouºití
  456. /a  Klávesa Je 'c' Nebo Klávesa Je 'C'
  457. /b  Klávesa Je 'd' Nebo Klávesa Je 'D'
  458. /c  Klávesa Je 'e' Nebo Klávesa Je 'E'
  459. /d  Klávesa Je 'f' Nebo Klávesa Je 'F'
  460. /e  Klávesa Je 'g' Nebo Klávesa Je 'G'
  461. /f  Klávesa Je 'a' Nebo Klávesa Je 'A'
  462. /g  Klávesa Je 'h' Nebo Klávesa Je 'H'
  463. /w  j==16
  464. /x  j==15
  465. /y  j==14
  466. /z  j==13
  467. =SP-PiτNotu
  468.  
  469. ;-h---------------------------------------------------------------------------
  470. void P²ehrávání( void )
  471. -s--P²ehrávání                                                                  ■ 288  -2 174   3
  472.         _____________P²ehrávání_____________________________________________________________________________________________________________________________________________________________________________________________________________________________
  473.         /a       /b       /c        /d        /e         /f         /g        /h        /i        /j        /k        /l        /m        /n        /o        /p        /q        /r        /s        /t        /u        /v        /w        /x           /
  474.         C        D        E         F         G          A          H         C         D         E         F         G         A         H       Pauza       C         D         E         F         G         A         H       Pauza   Nepràchodn∞   Jin∞
  475.        a!       b!       c!        d!        e!         f!         g!        a!        b!        c!        d!        e!        f!        g!  W:(250)!        a!        b!        c!        d!        e!        f!        g!    W:(500)!   ____Dále_  :p=179!
  476.  :a=d*65! :a=d*73! :a=d*82!  :a=d*87!  :a=d*98!  :a=d*110!  :a=d*123!  :a=d*65!  :a=d*73!  :a=d*82!  :a=d*87!  :a=d*98! :a=d*110! :a=d*123!        p!  :a=d*65!  :a=d*73!  :a=d*82!  :a=d*87!  :a=d*98! :a=d*110! :a=d*123!          p!   /y      /  :z=179!
  477.     :H=1!    :H=2!    :H=3!     :H=4!     :H=5!      :H=6!      :H=7!     :H=1!     :H=2!     :H=3!     :H=4!     :H=5!     :H=6!     :H=7!               :H=1!     :H=2!     :H=3!     :H=4!     :H=5!     :H=6!     :H=7!               Ne     Ano
  478.     :J=1!    :J=2!    :J=3!     :J=4!     :J=5!      :J=6!      :J=7!     :J=1!     :J=2!     :J=3!     :J=4!     :J=5!     :J=6!     :J=7!               :J=1!     :J=2!     :J=3!     :J=4!     :J=5!     :J=6!     :J=7!          llpll!  :f=f+1!
  479.    DTpFB!   DTpFB!   DTpFB!    DTpFB!    DTpFB!     DTpFB!     DTpFB!    DUpFB!    DUpFB!    DUpFB!    DUpFB!    DUpFB!    DUpFB!    DUpFB!              DVpFB!    DVpFB!    DVpFB!    DVpFB!    DVpFB!    DVpFB!    DVpFB!         :p=179! t:(1,f)!
  480.                                                                                                                                                                                                                                     :z=179!       E!
  481.                                                                                                                                                                                                                                     :r=179!
  482. -o1-P²ehrávání  operace
  483. a Y=1
  484. b Y=2
  485. c Y=3
  486. d Y=4
  487. e Y=5
  488. f Y=6
  489. g Y=7
  490. l VlevoVbok()
  491. p KurzorVypni();
  492.   Popojdi(1);
  493. t NastavPoziciBaltazara
  494. B Stisk()
  495. D K²íºky();
  496.   Béƒka();
  497.   Stisk();
  498. E A=0;
  499.   C=0;
  500.   D=0;
  501.   E=0;
  502.   F=0;
  503.   G=0;
  504.   Z=0;
  505. F Y=100
  506. T Tón(a);
  507.   ¼ekej(250);
  508.   VypniTón();
  509. U Tón(a);
  510.   ¼ekej(500);
  511.   VypniTón();
  512. V Tón(a);
  513.   ¼ekej(1000);
  514.   VypniTón();
  515. W ¼ekej
  516. -c1-P²ehrávání  podmínky  /=if *=while #=for          p²íklad pouºití
  517. /a  P²edm╪tP²edB() Je 125
  518. /b  P²edm╪tP²edB() Je 126
  519. /c  P²edm╪tP²edB() Je 127
  520. /d  P²edm╪tP²edB() Je 128
  521. /e  P²edm╪tP²edB() Je 129
  522. /f  P²edm╪tP²edB() Je 130
  523. /g  P²edm╪tP²edB() Je 131
  524. /h  P²edm╪tP²edB() Je 110
  525. /i  P²edm╪tP²edB() Je 111
  526. /j  P²edm╪tP²edB() Je 112
  527. /k  P²edm╪tP²edB() Je 113
  528. /l  P²edm╪tP²edB() Je 114
  529. /m  P²edm╪tP²edB() Je 115
  530. /n  P²edm╪tP²edB() Je 116
  531. /o  P²edm╪tP²edB() Je 123
  532. /p  P²edm╪tP²edB() Je 94
  533. /q  P²edm╪tP²edB() Je 95
  534. /r  P²edm╪tP²edB() Je 96
  535. /s  P²edm╪tP²edB() Je 97
  536. /t  P²edm╪tP²edB() Je 98
  537. /u  P²edm╪tP²edB() Je 99
  538. /v  P²edm╪tP²edB() Je 100
  539. /w  P²edm╪tP²edB() Je 122
  540. /x  Neplatí PràchodnostP²edm╪tuP²edB()
  541. /y  f==6
  542. =SP-P²ehrávání
  543.  
  544.  
  545. ;-h---------------------------------------------------------------------------
  546. void P²ehrávání2( void )
  547. -s--P²ehrávání2                                                                 ■ 109  -2   4   3
  548.          _______________P²ehrávání2________________________________________________________________________________________________________________________________________________________________
  549.          /c       /d       /e       /f       /g        /h        /i      /j        /k       /l     /m     /q     /r     /s     /t     /u      /v    /w    /x    /y    /z    /D    /E    /F    /G  /
  550.          C        D        E        F        G         A         H    Repetice  Repetice  K²íºek K²íºek K²íºek K²íºek K²íºek K²íºek K²íºek  Béƒko Béƒko Béƒko Béƒko Béƒko Béƒko Béƒko Voln∞ Pauza Jin∞
  551.         a!       b!       c!       d!       e!        f!        g!    Nastavit  P²ehrát      Gis    Fis    Eis    Dis    Cis    His    Ais    Ces   Des    Es   Fes   Ges    As   Hes p! W:(125)! A!
  552.   :a=d*65! :a=d*73! :a=d*82! :a=d*87! :a=d*98! :a=d*110! :a=d*123!        │      /a /b     :G=1!  :F=1!  :E=1!  :D=1!  :C=1!  :Z=1!  :A=1!  :M=1! :N=1! :O=1! :P=1! :Q=1! :R=1! :S=1!          p!
  553.      :H=1!    :H=2!    :H=3!    :H=4!    :H=5!     :H=6!     :H=7!        │     Ano Ne        p!     p!     p!     p!     p!     p!     p!     p!    p!    p!    p!    p!    p!    p!
  554.      :J=1!    :J=2!    :J=3!    :J=4!    :J=5!     :J=6!     :J=7!  :Rep=0!   :f=w! p!
  555.     FVpHG!   FVpHG!   FVpHG!   FVpHG!   FVpHG!    FVpHG!    FVpHG!       p! :Rep=1!
  556.                                                      :v=PoziceBaltazaraX()!     pD!
  557.                                                      :w=PoziceBaltazaraY()!
  558. -o1-P²ehrávání2  operace
  559. a Y=1
  560. b Y=2
  561. c Y=3
  562. d Y=4
  563. e Y=5
  564. f Y=6
  565. g Y=7
  566. p KurzorVypni2();
  567.   Popojdi(1);
  568. A P²ehrávání()
  569. D NastavPoziciBaltazara(v,w)
  570. F K²íºky();
  571.   Béƒka();
  572.   Stisk();
  573. G Stisk()
  574. H Y=100
  575. V Tón(a);
  576.   ¼ekej(125);
  577.   VypniTón();
  578. W ¼ekej
  579. -c1-P²ehrávání2  podmínky  /=if *=while #=for          p²íklad pouºití
  580. /a  Rep==0
  581. /b  Rep==1
  582. /c  P²edm╪tP²edB() Je 101
  583. /d  P²edm╪tP²edB() Je 102
  584. /e  P²edm╪tP²edB() Je 103
  585. /f  P²edm╪tP²edB() Je 104
  586. /g  P²edm╪tP²edB() Je 105
  587. /h  P²edm╪tP²edB() Je 106
  588. /i  P²edm╪tP²edB() Je 107
  589. /j  P²edm╪tP²edB() Je 108
  590. /k  P²edm╪tP²edB() Je 109
  591. /l  P²edm╪tP²edB() Je 117
  592. /m  P²edm╪tP²edB() Je 118
  593. /q  P²edm╪tP²edB() Je 119
  594. /r  P²edm╪tP²edB() Je 120
  595. /s  P²edm╪tP²edB() Je 132
  596. /t  P²edm╪tP²edB() Je 133
  597. /u  P²edm╪tP²edB() Je 134
  598. /v  P²edm╪tP²edB() Je 146
  599. /w  P²edm╪tP²edB() Je 145
  600. /x  P²edm╪tP²edB() Je 144
  601. /y  P²edm╪tP²edB() Je 143
  602. /z  P²edm╪tP²edB() Je 149
  603. /D  P²edm╪tP²edB() Je 148
  604. /E  P²edm╪tP²edB() Je 147
  605. /F  P²edm╪tP²edB() Je 121
  606. /G  P²edm╪tP²edB() Je 135
  607. =SP-P²ehrávání2
  608.  
  609. ;-h---------------------------------------------------------------------------
  610. void P²ehrátSoubory( void )
  611. -s--P²ehrátSoubory                                                              ■  72  -2   3   3
  612.         _______________P²ehrátSoubory________________________________________________________________________________________
  613.       Poƒet      Jméno                                     P²ehrát                                                         Klíƒ
  614.          w!        #N:(r,V)                                  A!                                                           HBCW!
  615.        Dále     _Jméno_                                  __P²ehrát__________________________________                      :f=1!
  616.        /b /     /a    /                                  1      2    3    4    5    6    7    8    9
  617.        Ne Ano Uº~ne Dalτí                                /p     /q   /r   /s   /t   /u   /v   /w   /x
  618.     :q=0!             │                                  1      2    3    4    5    6    7    8    9
  619.                       │                                 j!     k!   l!   m!   n!   o!   p!   q!   r!
  620.   _________________Kolikát∞_______________________    P²ehrát  'p   'p   'p   'p   'p   'p   'p   'p
  621.   /e    /f    /g    /h    /i    /j    /k   /l    /m      "p
  622. první druh∞ t²etí ƒtvrt∞ pát∞ τest∞ sedm∞ osm∞ devát∞ DBC!
  623. av!   bv!   cv!   dv!   ev!   fv!   gv!  hv!   iv!    P²ehrát
  624.                                                          #N:(r,180)
  625.                                                     P²ehrávání
  626.                                                        zt!
  627.                                                       _Stop_
  628.                                                       /A   /
  629.                                                      Stop Dále
  630.                                                     :f=1!
  631.                                                   :r=179!
  632. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  633. a GrSmaºOkno();
  634.   GrNastavPozici(10,0);
  635.   Gr¼tiCⁿet╪zec("Jméno 1. souboru ",ⁿet╪zec1,8,1,0x7f);
  636. b GrSmaºOkno();
  637.   GrNastavPozici(10,0);
  638.   Gr¼tiCⁿet╪zec("Jméno 2. souboru ",ⁿet╪zec2,8,1,0x7f);
  639. c GrSmaºOkno();
  640.   GrNastavPozici(10,0);
  641.   Gr¼tiCⁿet╪zec("Jméno 3. souboru ",ⁿet╪zec3,8,1,0x7f);
  642. d GrSmaºOkno();
  643.   GrNastavPozici(10,0);
  644.   Gr¼tiCⁿet╪zec("Jméno 4. souboru ",ⁿet╪zec4,8,1,0x7f);
  645. e GrSmaºOkno();
  646.   GrNastavPozici(10,0);
  647.   Gr¼tiCⁿet╪zec("Jméno 5. souboru ",ⁿet╪zec5,8,1,0x7f);
  648. f GrSmaºOkno();
  649.   GrNastavPozici(10,0);
  650.   Gr¼tiCⁿet╪zec("Jméno 6. souboru ",ⁿet╪zec6,8,1,0x7f);
  651. g GrSmaºOkno();
  652.   GrNastavPozici(10,0);
  653.   Gr¼tiCⁿet╪zec("Jméno 7. souboru ",ⁿet╪zec7,8,1,0x7f);
  654. h GrSmaºOkno();
  655.   GrNastavPozici(10,0);
  656.   Gr¼tiCⁿet╪zec("Jméno 8. souboru ",ⁿet╪zec8,8,1,0x7f);
  657. i GrSmaºOkno();
  658.   GrNastavPozici(10,0);
  659.   Gr¼tiCⁿet╪zec("Jméno 9. souboru ",ⁿet╪zec9,8,1,0x7f);
  660. j strcpy(ⁿet╪zec,ⁿet╪zec1);
  661.   NaƒtiScénu("klavir.kl1");
  662.   NaƒtiScénu(ⁿet╪zec1);
  663. k strcpy(ⁿet╪zec,ⁿet╪zec2);
  664.   NaƒtiScénu("klavir.kl1");
  665.   NaƒtiScénu(ⁿet╪zec2);
  666. l strcpy(ⁿet╪zec,ⁿet╪zec3);
  667.   NaƒtiScénu("klavir.kl1");
  668.   NaƒtiScénu(ⁿet╪zec3);
  669. m strcpy(ⁿet╪zec,ⁿet╪zec4);
  670.   NaƒtiScénu("klavir.kl1");
  671.   NaƒtiScénu(ⁿet╪zec4);
  672. n strcpy(ⁿet╪zec,ⁿet╪zec5);
  673.   NaƒtiScénu("klavir.kl1");
  674.   NaƒtiScénu(ⁿet╪zec5);
  675. o strcpy(ⁿet╪zec,ⁿet╪zec6);
  676.   NaƒtiScénu("klavir.kl1");
  677.   NaƒtiScénu(ⁿet╪zec6);
  678. p strcpy(ⁿet╪zec,ⁿet╪zec7);
  679.   NaƒtiScénu("klavir.kl1");
  680.   NaƒtiScénu(ⁿet╪zec7);
  681. q strcpy(ⁿet╪zec,ⁿet╪zec8);
  682.   NaƒtiScénu("klavir.kl1");
  683.   NaƒtiScénu(ⁿet╪zec8);
  684. r strcpy(ⁿet╪zec,ⁿet╪zec9);
  685.   NaƒtiScénu("klavir.kl1");
  686.   NaƒtiScénu(ⁿet╪zec9);
  687. t Klávesa = ¼tiKlávesuZFronty()
  688. v ¼=¼+1
  689. w GrSmaºOkno();
  690.   GrNastavPozici(10,0);
  691.   Gr¼tiI¼íslo("Poƒet souborà 0-9  ",V,1,0,0x7f);
  692.   ¼=1;
  693. z KurzorZapni();
  694.   P²ehrávání2();
  695. A GrSmaºOkno();
  696.   GrNastavPozici(10,0);
  697.   GrPiτⁿet╪zec("Stiskni klávesu pro start");
  698.   ¼ekejNaKlávesu();
  699. B NastavPoziciBaltazara(1,1);
  700. C ¼arujNaPozici(49,1,1)
  701. D Kontrola();
  702.   f=1;
  703. H KurzorVypni2()
  704. W GrSmaºOkno();
  705.   GrNastavBarvuPop²edí(ªlutá);
  706.   GrNastavPozici(10,0);
  707.   GrPiτⁿet╪zec(" Klavír ");
  708.   GrNastavBarvuPop²edí(Bílá);
  709.   GrNastavPozici(10,10);
  710.   GrPiτⁿet╪zec(" Michal Trna                   n Nápov╪da ");
  711. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  712. /a  ¼>V
  713. /b  V==0
  714. /e  ¼==1
  715. /f  ¼==2
  716. /g  ¼==3
  717. /h  ¼==4
  718. /i  ¼==5
  719. /j  ¼==6
  720. /k  ¼==7
  721. /l  ¼==8
  722. /m  ¼==9
  723. /p  V>0
  724. /q  V>1
  725. /r  V>2
  726. /s  V>3
  727. /t  V>4
  728. /u  V>5
  729. /v  V>6
  730. /w  V>7
  731. /x  V>8
  732. /A  Klávesa Je 's' Nebo Klávesa Je 'S'
  733. #N  Od0
  734. =SP---------------------------------------------------------------------------
  735.  
  736. ;-h---------------------------------------------------------------------------
  737. void P²ehrátDalτí( void )
  738. -s--P²ehrátDalτí                                                                ■  18  -2   5   3
  739.           __P²ehrátDalτí__
  740.         Jméno   Naƒti   Klíƒ
  741.          xy!    mk!    HDEW!
  742.                 Naƒti  :f=1!
  743.                 #N:(K,V)
  744.                 Naƒti
  745.                  z!
  746.             :y=K+1!
  747.        _________Naƒti___________________________________________________________
  748.        /a       /b       /c       /d       /e       /f       /g       /h       /i
  749.        1        2        3        4        5        6        7        8        9
  750.      bL!      cL!      dL!      eL!      fL!      gL!      hL!      iL!      jL!
  751.    "P²ehrát  'P²ehrát 'P²ehrát 'P²ehrát 'P²ehrát 'P²ehrát 'P²ehrát 'P²ehrát 'P²ehrát
  752.     /k    /
  753.     Ano   Ne
  754.     M!   Nv!
  755.     P²ehrát
  756.     #N:(z,180)
  757.     P²ehrát
  758.      nao!
  759.      Stop
  760.      /j /
  761.    Stop Dál
  762.   :f=1!
  763. :z=179!
  764. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  765. a P²ehrávání2();
  766. b char *ⁿet╪zec2 = "1";
  767.   strcat(ⁿet╪zec1,ⁿet╪zec2);
  768. c char *ⁿet╪zec2 = "2";
  769.   strcat(ⁿet╪zec1,ⁿet╪zec2);
  770. d char *ⁿet╪zec2 = "3";
  771.   strcat(ⁿet╪zec1,ⁿet╪zec2);
  772. e char *ⁿet╪zec2 = "4";
  773.   strcat(ⁿet╪zec1,ⁿet╪zec2);
  774. f char *ⁿet╪zec2 = "5";
  775.   strcat(ⁿet╪zec1,ⁿet╪zec2);
  776. g char *ⁿet╪zec2 = "6";
  777.   strcat(ⁿet╪zec1,ⁿet╪zec2);
  778. h char *ⁿet╪zec2 = "7";
  779.   strcat(ⁿet╪zec1,ⁿet╪zec2);
  780. i char *ⁿet╪zec2 = "8";
  781.   strcat(ⁿet╪zec1,ⁿet╪zec2);
  782. j char *ⁿet╪zec2 = "9";
  783.   strcat(ⁿet╪zec1,ⁿet╪zec2);
  784. k Klávesa= ¼tiKlávesuZFrontyS¼ekáním()
  785. m GrSmaºOkno();
  786.   GrNastavPozici(10,0);
  787.   GrPiτⁿet╪zec("Stiskni klávesu pro start");
  788. n KurzorZapni()
  789. o Klávesa = ¼tiKlávesuZFronty()
  790. v ¼ekej(1000)
  791. x GrSmaºOkno();
  792.   GrNastavPozici(10,0);
  793.   Gr¼tiI¼íslo("Poƒet souborà 0-9  ",V,1,0,0x7f);
  794. y GrSmaºOkno();
  795.   GrNastavPozici(10,0);
  796.   Gr¼tiCⁿet╪zec("Jméno bez ƒísla  ",ⁿet╪zec,8,1,0x7f);
  797. z strcpy(ⁿet╪zec1,ⁿet╪zec)
  798. D ¼arujNaPozici(49,1,1)
  799. E NastavPoziciBaltazara(1,1)
  800. H KurzorVypni2()
  801. L NaƒtiScénu("klavir.kl1");
  802.   NaƒtiScénu(ⁿet╪zec1);
  803.   NastavPoziciBaltazara(1,1);
  804. M GrSmaºOkno();
  805.   GrNastavPozici(10,0);
  806.   GrPiτⁿet╪zec("P²ehrává se soubor ");
  807.   GrNastavBarvuPop²edí(ªlutá);
  808.   GrPiτⁿet╪zec(ⁿet╪zec1);
  809.   GrNastavBarvuPop²edí(Bílá);
  810.   f=1;
  811. N GrSmaºOkno();
  812.   GrNastavPozici(10,0);
  813.   GrPiτⁿet╪zec("Soubor ");
  814.   GrNastavBarvuPop²edí(ªlutá);
  815.   GrPiτⁿet╪zec(ⁿet╪zec1);
  816.   GrNastavBarvuPop²edí(Bílá);
  817.   GrPiτⁿet╪zec(" neexistuje ");
  818. W GrSmaºOkno();
  819.   GrNastavBarvuPop²edí(ªlutá);
  820.   GrNastavPozici(10,0);
  821.   GrPiτⁿet╪zec(" Klavír ");
  822.   GrNastavBarvuPop²edí(Bílá);
  823.   GrNastavPozici(10,10);
  824.   GrPiτⁿet╪zec(" Michal Trna                   n Nápov╪da ");
  825. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  826. /a  y==1
  827. /b  y==2
  828. /c  y==3
  829. /d  y==4
  830. /e  y==5
  831. /f  y==6
  832. /g  y==7
  833. /h  y==8
  834. /i  y==9
  835. /j  Klávesa Je 's' Nebo Klávesa Je 'S'
  836. /k  P²edm╪tNaPozici(1,1) Je 49
  837. #N  Od0
  838. =SP---------------------------------------------------------------------------
  839.  
  840. ;-h---------------------------------------------------------------------------
  841. void Nápov╪da( void )
  842. -s--Nápov╪da                                                                    ■  26  -2   0   3
  843.         Nápov╪da
  844.         /a     /b
  845.       Klavír Hudba_____________________
  846.         Q!    1           2           3
  847.            aAl!         Dk!         EI!
  848.          Podrobn╪jτí Podrobn╪jτí
  849.             /f /        /f /
  850.            Ano Ne      Ano Ne
  851.            L!          O!
  852. -o1-Nápov╪da  operace
  853. a GrSmaºOkno();
  854.   GrNastavPozici(10,0);
  855.   GrPiτⁿet╪zec("U názvu s * je moºn∞ podrobn╪jτí popis.");
  856.   GrNastavPozici(10,10);
  857.   GrPiτⁿet╪zec("Ten se vyvolá klávesou p. ");
  858.   ¼ekejNaKlávesu();
  859. l Klávesa= ¼tiKlávesuZFronty()
  860. k Klávesa= ¼tiKlávesuZFrontyS¼ekáním()
  861. A GrSmaºOkno();
  862.   GrNastavPozici(10,0);
  863.   GrPiτⁿet╪zec("F1    Uloºí soubor ");
  864.   GrNastavPozici(10,10);
  865.   GrPiτⁿet╪zec("F2    P²ehraje soubor ");
  866.   ¼ekejNaKlávesu();
  867.   GrSmaºOkno();
  868.   GrNastavPozici(10,0);
  869.   GrPiτⁿet╪zec("F3    Naƒte soubor ");
  870.   GrNastavPozici(10,10);
  871.   GrPiτⁿet╪zec("F4    Vytvo²í nov∞ soubor ");
  872.   ¼ekejNaKlávesu();
  873.   GrSmaºOkno();
  874.   GrNastavPozici(10,0);
  875.   GrPiτⁿet╪zec("F5 *  P²ehraje 1-9 souborà za sebou");
  876.   GrNastavPozici(10,10);
  877.   GrPiτⁿet╪zec("F6 *  P²ehraje 1-9 souborà za sebou");
  878.   ¼ekejNaKlávesu();
  879. D GrSmaºOkno();
  880.   GrNastavPozici(10,0);
  881.   GrPiτⁿet╪zec("-,+   Zv╪tτit, zmenτit délky not");
  882.   GrNastavPozici(10,10);
  883.   GrPiτⁿet╪zec("o,p   Zv╪tτit, zmenτit délky pomlk");
  884.   ¼ekejNaKlávesu();
  885.   GrSmaºOkno();
  886.   GrNastavPozici(10,0);
  887.   GrPiτⁿet╪zec("c, d, e, f, g, a, h ");
  888.   GrNastavPozici(10,10);
  889.   GrPiτⁿet╪zec("      Vypíτe notu c, d, e, f, g, a, h");
  890.   ¼ekejNaKlávesu();
  891.   GrSmaºOkno();
  892.   GrNastavPozici(10,0);
  893.   GrPiτⁿet╪zec("mezerník      Pomlka");
  894.   GrNastavPozici(10,10);
  895.   GrPiτⁿet╪zec("PgUp, PgDown  Zv∞τit, sníºit o oktávu");
  896.   ¼ekejNaKlávesu();
  897.   GrSmaºOkno();
  898.   GrNastavPozici(10,0);
  899.   GrPiτⁿet╪zec("q,w   zaƒátek, konec repetice - opakování ");
  900.   GrNastavPozici(10,10);
  901.   GrPiτⁿet╪zec("v     volná notová osnova ");
  902.   ¼ekejNaKlávesu();
  903.   GrSmaºOkno();
  904.   GrNastavPozici(10,0);
  905.   GrPiτⁿet╪zec("x,b * K²íºek, béƒko - zv∞τen∞, sníºen∞ tón");
  906.   GrNastavPozici(10,10);
  907.   GrPiτⁿet╪zec("s     Zastavení p²ehrávání souboru");
  908.   ¼ekejNaKlávesu();
  909. E GrSmaºOkno();
  910.   GrNastavPozici(10,0);
  911.   GrPiτⁿet╪zec("Del        Smaºe p²edm╪t na pozici kurzoru");
  912.   GrNastavPozici(10,10);
  913.   GrPiτⁿet╪zec("Backspace  Smaºe p²edm╪t nalevo od kurzoru");
  914.   ¼ekejNaKlávesu();
  915.   GrSmaºOkno();
  916.   GrNastavPozici(10,0);
  917.   GrPiτⁿet╪zec("Esc   Zp╪t");
  918.   ¼ekejNaKlávesu();
  919. I GrSmaºOkno();
  920.   GrNastavBarvuPop²edí(ªlutá);
  921.   GrNastavPozici(10,0);
  922.   GrPiτⁿet╪zec(" Klavír ");
  923.   GrNastavBarvuPop²edí(Bílá);
  924.   GrNastavPozici(10,10);
  925.   GrPiτⁿet╪zec(" Michal Trna                   n Nápov╪da ");
  926. L GrSmaºOkno();
  927.   GrNastavPozici(10,0);
  928.   GrPiτⁿet╪zec("F5   P²ehrává 1-9 souborà za sebou");
  929.   GrNastavPozici(10,10);
  930.   GrPiτⁿet╪zec("     Zadá se poƒet a jméno bez ƒísla.");
  931.   ¼ekejNaKlávesu();
  932.   GrSmaºOkno();
  933.   GrNastavPozici(10,0);
  934.   GrPiτⁿet╪zec("     P²íklad: poƒet - 3, jméno - ƒást ");
  935.   GrNastavPozici(10,10);
  936.   GrPiτⁿet╪zec("     P²ehraje ƒást1, ƒást2, ƒást3");
  937.   ¼ekejNaKlávesu();
  938.   GrSmaºOkno();
  939.   GrNastavPozici(10,0);
  940.   GrPiτⁿet╪zec("F6   P²ehrává 1-9 souborà za sebou");
  941.   GrNastavPozici(10,10);
  942.   GrPiτⁿet╪zec("     Zadá se poƒet a jména.");
  943.   ¼ekejNaKlávesu();
  944.   GrSmaºOkno();
  945.   GrNastavPozici(10,0);
  946.   GrPiτⁿet╪zec("    P²íklad: poƒet - 2, jména - zaƒátek, konec");
  947.   GrNastavPozici(10,10);
  948.   GrPiτⁿet╪zec("    P²ehraje zaƒátek, konec");
  949.   ¼ekejNaKlávesu();
  950. O GrSmaºOkno();
  951.   GrNastavPozici(10,0);
  952.   GrPiτⁿet╪zec("b, x K²íºky, béƒka");
  953.   GrNastavPozici(10,10);
  954.   GrPiτⁿet╪zec("     Zadá sníºen∞ a zv∞τen∞ tón");
  955.   ¼ekejNaKlávesu();
  956.   GrSmaºOkno();
  957.   GrNastavPozici(10,0);
  958.   GrPiτⁿet╪zec("     Po 'x' nebo 'b' je nutné zmáƒknout ");
  959.   GrNastavPozici(10,10);
  960.   GrPiτⁿet╪zec("     c, d, e, f, g, a, nebo h, aby se urƒilo ");
  961.   ¼ekejNaKlávesu();
  962.   GrSmaºOkno();
  963.   GrNastavPozici(10,0);
  964.   GrPiτⁿet╪zec("     kter∞ tón se zv∞τí nebo sníºí.");
  965.   GrNastavPozici(10,10);
  966.   GrPiτⁿet╪zec("     Znaménka platí pouze pro následující notu.");
  967.   ¼ekejNaKlávesu();
  968.   GrSmaºOkno();
  969.   GrNastavPozici(10,0);
  970.   GrPiτⁿet╪zec("     P²íklad 1: 'b' a 'h', p²ehraje se Hes  ");
  971.   GrNastavPozici(10,10);
  972.   GrPiτⁿet╪zec("     P²íklad 2: 'x' a 'c', p²ehraje se Cis ");
  973.   ¼ekejNaKlávesu();
  974. Q GrSmaºOkno();
  975.   GrNastavPozici(10,0);
  976.   GrPiτⁿet╪zec("F1-F8  Tón a stisk klávesy C, D, E, F, G, A, H, C ");
  977.   GrNastavPozici(10,9);
  978.   GrPiτⁿet╪zec(" +,-   Zv∞τení, sníºení délky tónà    ");
  979.   ¼ekejNaKlávesu();
  980.   GrSmaºOkno();
  981.   GrNastavPozici(10,0);
  982.   GrPiτⁿet╪zec("PgUp, PgDown    Zv∞τení, sníºení o oktávu  ");
  983.   GrNastavPozici(10,9);
  984.   GrPiτⁿet╪zec("Ins             Editor hudby  ");
  985.   ¼ekejNaKlávesu();
  986.   GrSmaºOkno();
  987.   GrNastavPozici(10,0);
  988.   GrPiτⁿet╪zec("Doleva, doprava   Pozice stisku klávesy  ");
  989.   GrNastavPozici(10,9);
  990.   GrPiτⁿet╪zec("Esc               Konec programu  ");
  991. -c1-Nápov╪da  podmínky  /=if *=while #=for          p²íklad pouºití
  992. /a  Help==1
  993. /b  Help==2
  994. /f  Klávesa Je 'p' Nebo Klávesa Je 'P'
  995. =SP-Nápov╪da
  996.  
  997. ;-h---------------------------------------------------------------------------
  998. void Hudba2( void )
  999. -s--Hudba2                                                                      ■  86  -2   0   3
  1000.      ______________Hudba2_________________________________________________________________________
  1001.      /j      /a      /i      /k      /l      /B       /C       /U            /D         /E       /
  1002.      v       b       x       o       p       q        w      Delete        Minus       Plus    Jin∞
  1003.    Voln∞   Béƒka   K²íºky  Pauza   Pauza  Repetice Repetice   Smaº         Nota-       Nota+
  1004.  C:(46)!    k!      k!     /m  /   /n  /  C:(33)!  C:(34)! C:(90)!         /q  /       /r  /
  1005.      pa!     │       │     Ne Ano  Ne Ano     pa!      pa!      a!         Ne Ano      Ne Ano
  1006.              │       │   :i=i+1! :i=i-1!                                  :c=c/2!     :c=c*2!
  1007.              │       │        a!      a!                                  :j=j+1!     :j=j-1!
  1008.              │       │                                                X:(j,1,10)! X:(j,1,10)!
  1009.              │     K²íºky___________________________________________________   a!          a!
  1010.              │       /b      /c      /d      /e      /f      /g      /h    /
  1011.              │       c       d       e       f       g       a       h   Jin∞
  1012.              │ C:(57)! C:(45)! C:(44)! C:(43)! C:(42)! C:(59)! C:(58)!
  1013.              │     px!     px!     px!     px!     px!     px!     px!
  1014.              │
  1015.              │
  1016.         ___Béƒka______________________________________________________
  1017.         /b       /c       /d       /e       /f       /g       /h     /
  1018.         c        d        e        f        g        a        h    Jin∞
  1019.  C:(139)! C:(138)! C:(137)! C:(136)! C:(142)! C:(141)! C:(140)!
  1020.       px!      px!      px!      px!      px!      px!      px!
  1021. -o1-Hudba2  operace
  1022. a Uloº=1
  1023. k Klávesa= ¼tiKlávesuZFrontyS¼ekáním()
  1024. p Popojdi(1);
  1025.   Uloº=1;
  1026. x KurzorZapni();
  1027.   u=1;
  1028. C ¼aruj
  1029. X ¼arujNaPozici
  1030. -c1-Hudba2  podmínky  /=if *=while #=for          p²íklad pouºití
  1031. /a Klávesa Je 'b' Nebo Klávesa Je 'B'
  1032. /b Klávesa Je 'c' Nebo Klávesa Je 'C'
  1033. /c Klávesa Je 'd' Nebo Klávesa Je 'D'
  1034. /d Klávesa Je 'e' Nebo Klávesa Je 'E'
  1035. /e Klávesa Je 'f' Nebo Klávesa Je 'F'
  1036. /f Klávesa Je 'g' Nebo Klávesa Je 'G'
  1037. /g Klávesa Je 'a' Nebo Klávesa Je 'A'
  1038. /h Klávesa Je 'h' Nebo Klávesa Je 'H'
  1039. /i Klávesa Je 'x' Nebo Klávesa Je 'X'
  1040. /j Klávesa Je 'v' Nebo Klávesa Je 'V'
  1041. /k Klávesa Je 'o' Nebo Klávesa Je 'O'
  1042. /l Klávesa Je 'p' Nebo Klávesa Je 'P'
  1043. /m i==3
  1044. /n i==1
  1045. /q j==16
  1046. /r j==13
  1047. /B Klávesa Je 'q' Nebo Klávesa Je 'Q'
  1048. /C Klávesa Je 'w' Nebo Klávesa Je 'W'
  1049. /D Klávesa Je '-'
  1050. /E Klávesa Je '+'
  1051. /U Klávesa Je KlDel
  1052. =SP-Hudba2
  1053.  
  1054.  
  1055. ;-h---------------------------------------------------------------------------
  1056. void Hudba( void )
  1057. -s--Hudba                                                                       ■  63  -2  16   3
  1058.       _______Hudba___
  1059.    Prom╪nné       Hudba
  1060.       :d=4!        *a
  1061.      :j=15!      _Hudba_________
  1062.       :o=1!  Pràchodn∞      Klávesa
  1063.    :Uloº=0!   /v    /        kn!
  1064.     Ostatní  Ano    Ne     __Hudba___________________________________________________________________________________________________________________________________________________________________________________________________________________________
  1065. X:(j,1,10)!   I! 6.ⁿádek   /a   /b   /c         /q            /i             /j                /k                     /S            /B                /C         /p       /O            /s             /H         /I       /T     /J       /Q       /R      /
  1066.         Wn!       /n   /  c-d  C-D  a,A      Backspace        F1             F2                F3                     F4            F5                F6        Esc       N          Mezerník        µipka~v   µipka~<  µipka~> µipka~^   PgUp     PgDw  Jiná
  1067.                  Ano   Ne Noty Noty Noty Smaº~p²ed~kurzorem  Uloº         P²ehrát            Naƒti                   Nov∞    P²ehrát~soubory   P²ehrát~soubory  Zp╪t   Nápov╪da ______Pomlka_____    _Posun   __Posun___ Posun   Posun  Oktáva~+ Oktáva~-  E!
  1068.             HllpllI! HzI!  G!   G!   G!      /l      /       HxI!             H!           Editováno              Editováno     Editováno        Editováno    Editováno Lf!     /L     /M       /N   /n  /    /l       /  HpI!   /o  /    /t /     /u /
  1069.              Pokraƒovat                   ⁿádek    Smaº  :Uloº=0!       t:(1,1)!             /A  /                  /A  /        /A    /          /A   /       /A  /       osminová  pàlová ƒtvr£ová Ne Ano ⁿádek     Jin∞       Ne Ano  Ano Ne   Ano Ne
  1070.                  *b                       /o  / Hllpll!        W!          :f=1!             Ne  Ano                Ne Ano       Ne   Ano         Ne  Ano      Ne Ano       C:(60)! C:(47)!  C:(48)!   HzI! /o  / HllpllI!           H! :d=d*2!  :d=d/2!
  1071.              Pokraƒovat                  Ano Ne C:(12)!          ___________P²ehrát          v!  *b            OPWbgq! *b       qa!   *b         qu!  *b     FZW! *b            pA!     pA!      pA!       Ano  Ne              :f=f-1! :e=e*2!  :e=e/2!
  1072.                 e!                          Hi!                Oktáva Opakovat  Kurzor Existuje  Uloºit               Uloºit        Uloºit          Uloºit       Uloºit                                        Hm!                  yI!   :u=2!    :u=2!
  1073.              Pokraƒovat____                                     :u=1! #N:(p,180) Io!   /K     /  D!                    D!             D!              D!          D!                                                                         Y!       Y!
  1074.                 /y  /z    /                                      Ybf! P²ehrát         Ano     Ne Uloº____     ________Uloº__    ______Uloº__    ______Uloº_     _Uloº_____
  1075.                Ano  Ne   Nic                                           Ich!          Wbq! VWdbq! /y /z  /     /y       /z  /    /y     /z  /    /y    /z  /     /y    /z /
  1076.                 D! qW!                                                _Stop_                    Ano Ne Jin∞  Ano       Ne Jiná Ano     Ne Jiná Ano    Ne Jiná  Ano    Ne Jiná
  1077.          ___Uloºit___                                                 /G   /                   Hxv! v! HxOPWbgq! OPWbgqw!   HxaWq! aWqPw!   HxuWq! uWqw!   HxZWqF! ZWqF!
  1078.          /y         /z                                               Stop Dál            __Existuje Existuje___
  1079.         Ano         Ne                                            :p=179!                /K       /   /K      /
  1080.  HxOPdbIqW!  HOPdbIqW!                                                                  Ano      Ne   Ano     Ne_
  1081.                                                                                        Wbq! VWdbPq! Wbdq! VWdbPq!
  1082. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  1083. a P²ehrátDalτí()
  1084. b NastavPoziciBaltazara(1,1);
  1085.   f=1;
  1086. c P²ehrávání2()
  1087. d ¼arujNaPozici(49,1,1)
  1088. e GrSmaºOkno();
  1089.   GrNastavPozici(10,0);
  1090.   Gr¼tiZnak("Konec. Pokraƒovat dalτím souborem ? Ano/Ne  ",Znak,1,0x7f);
  1091. f VyprázdniFrontuKláves()
  1092. g ¼arujNaPozici(49,1,1)
  1093. h Klávesa=¼tiKlávesuZFronty()
  1094. i f=f-1;
  1095.   NastavPoziciBaltazara(14,f);
  1096.   ¼arujNaPozici(90,15,f);
  1097. k Klávesa=¼tiKlávesuZFrontyS¼ekáním()
  1098. l VlevoVbok()
  1099. m f=f-1;
  1100.   NastavPoziciBaltazara(14,f);
  1101. n q=1
  1102. o H=0;
  1103.   A=0;
  1104.   G=0;
  1105.   F=0;
  1106.   E=0;
  1107.   D=0;
  1108.   C=0;
  1109. p Popojdi(1)
  1110. q q=0
  1111. t NastavPoziciBaltazara
  1112. u P²ehrátSoubory()
  1113. v GrSmaºOkno();
  1114.   GrNastavPozici(10,0);
  1115.   Gr¼tiCⁿet╪zec("Soubor: ",ⁿet╪zec,8,1,0x7f);
  1116.   NaƒtiScénu("klavir.kl1");
  1117.   NaƒtiScénu(ⁿet╪zec);
  1118.   u=1;
  1119.   ZjistiOktávu();
  1120. w Uloº=0
  1121. x GrSmaºOkno();
  1122.   GrNastavPozici(10,0);
  1123.   Gr¼tiCⁿet╪zec("Soubor: ",ⁿet╪zec,8,1,0x7f);
  1124.   UloºScénu(ⁿet╪zec);
  1125.   Uloº=0;
  1126. y NastavPoziciBaltazara(1,f);
  1127.   ¼arujNaPozici(49,1,f);
  1128. z f=f+1;
  1129.   NastavPoziciBaltazara(1,f);
  1130.   ¼arujNaPozici(49,1,f);
  1131. A Uloº=1
  1132. C ¼aruj
  1133. D GrSmaºOkno();
  1134.   GrNastavPozici(10,0);
  1135.   Gr¼tiZnak("Uloºit? Ano/Ne ",Znak,1,0x7f);
  1136. E Hudba2()
  1137. F o=0
  1138. G PiτNotu()
  1139. H KurzorVypni2();
  1140. I KurzorZapni();
  1141. L Help=2;
  1142.   Nápov╪da();
  1143. O NaƒtiScénu("klavir.kl1")
  1144. P j=15;
  1145.   ¼arujNaPozici(j,1,10);
  1146. V GrSmaºOkno();
  1147.   GrNastavPozici(10,0);
  1148.   GrPiτⁿet╪zec("Soubor ");
  1149.   GrNastavBarvuPop²edí(ªlutá);
  1150.   GrPiτⁿet╪zec(ⁿet╪zec);
  1151.   GrNastavBarvuPop²edí(Bílá);
  1152.   GrPiτⁿet╪zec(" neexistuje ");
  1153.   ¼ekejNaKlávesu();
  1154. W GrSmaºOkno();
  1155.   GrNastavBarvuPop²edí(ªlutá);
  1156.   GrNastavPozici(10,0);
  1157.   GrPiτⁿet╪zec(" Klavír ");
  1158.   GrNastavBarvuPop²edí(Bílá);
  1159.   GrNastavPozici(10,10);
  1160.   GrPiτⁿet╪zec(" Michal Trna                   n Nápov╪da ");
  1161. X ¼arujNaPozici
  1162. Y ZjistiOktávu()
  1163. Z NaƒtiScénu("klavir.klv");
  1164. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  1165. /a  Klávesa JeV╪tτíNeboRovno 'c' ASouƒasn╪ Klávesa JeMenτíNeboRovno 'h'
  1166. /b  Klávesa JeV╪tτíNeboRovno 'C' ASouƒasn╪ Klávesa JeMenτíNeboRovno 'H'
  1167. /c  Klávesa Je 'a' Nebo Klávesa Je 'A'
  1168. /i  Klávesa Je KlF1
  1169. /j  Klávesa Je KlF2
  1170. /k  Klávesa Je KlF3
  1171. /l  PoziceBaltazaraX() Je 1
  1172. /n  PoziceBaltazaraY() Je 6
  1173. /o  PoziceBaltazaraY() Je 1
  1174. /p  Klávesa Je KlEsc
  1175. /q  Klávesa Je 0x08
  1176. /s  Klávesa Je ' '
  1177. /t  d==512
  1178. /u  d==1
  1179. /v  PràchodnostP²edm╪tuP²edB()
  1180. /y  Znak Je 'a' Nebo Znak Je 'A'
  1181. /z  Znak Je 'n' Nebo Znak Je 'N'
  1182. /A  Uloº==0
  1183. /B  Klávesa Je KlF5
  1184. /C  Klávesa Je KlF6
  1185. /G  Klávesa Je 's' Nebo Klávesa Je 'S'
  1186. /H  Klávesa Je KlDolà
  1187. /I  Klávesa Je KlDoleva
  1188. /J  Klávesa Je KlNahoru
  1189. /K  P²edm╪tNaPozici(1,1) Je 49
  1190. /L  i==3
  1191. /M  i==1
  1192. /N  i==2
  1193. /O  Klávesa Je 'n' Nebo Klávesa Je 'N'
  1194. /Q  Klávesa Je KlPageUp
  1195. /R  Klávesa Je KlPageDown
  1196. /S  Klávesa Je KlF4
  1197. /T  Klávesa Je KlDoprava
  1198. *a  o==1
  1199. *b  q==1
  1200. #N  Od0
  1201. =SP---------------------------------------------------------------------------
  1202.  
  1203. ;-h---------------------------------------------------------------------------
  1204. void main( void )
  1205. -s--KLAVIR                                                                      ■ 288  -2  74   3
  1206.                                      ___________KLAVIR_________
  1207.                                   Zaƒátek     Prost²edek    Konec
  1208.                                   [R:(9)!         *a          !]
  1209.                                      AqZ!       Klavír
  1210.                                                   k!
  1211.           ______________________________________Klavír______________________________________________________________________________________________________________________________________________
  1212.           /a          /b          /c          /d          /e          /f          /g          /A     /h       /i        /j          /k                /m     /B      /C       /D       /E          /
  1213.           F1          F2          F3          F4          F5          F6          F7          F8   PageUp  PageDown    Plus       Minus              Ins    Esc      N     µipka~<  µipka~>  Jiná~klávesa
  1214.           C           D           E           F           G           A           H           C    Oktáva+ Oktáva- Délka~tónu+ Délka~tónu-           Hudba Konec  Nápov╪da Doleva   Doprava       Nic
  1215.    :a=d*65!    :a=d*73!    :a=d*82!    :a=d*87!    :a=d*98!   :a=d*110!   :a=d*123!   :a=d*131!     /G  /   /H  /   :c=c+50!      /y  /              :f=1! :n=0!   YjZ!     :l=0!    :l=7!
  1216.      :h=83!      :h=84!      :h=85!      :h=86!      :h=87!      :h=88!      :h=89!      :h=83!     Ne Ano  Ne Ano                Ne Ano L:("klavir.kl1")!                  :m=0!    :m=7!
  1217.       :g=1!       :g=2!       :g=3!       :g=4!       :g=5!       :g=6!       :g=7!       :g=8!    :d=d*2! :d=d/2!              :c=c-50!          t:(1,1)!
  1218.     :l=l+1!     :l=l+2!     :l=l+3!     :l=l+4!     :l=l+5!     :l=l+6!     :l=l+7!     :l=l+8!                                                X:(49,1,1)!
  1219. X:(10,l,8)! X:(72,l,7)! X:(70,l,7)! X:(10,l,8)! X:(72,l,7)! X:(72,l,7)! X:(70,l,7)! X:(10,l,8)!                                                  :Hudba()!
  1220.  X:(2,l,9)! X:(71,l,8)! X:(11,l,8)!  X:(2,l,9)! X:(71,l,8)! X:(71,l,8)! X:(11,l,8)!  X:(2,l,9)!
  1221.          T!  X:(2,l,9)!  X:(2,l,9)!          T!  X:(2,l,9)!  X:(2,l,9)!  X:(2,l,9)!          T!
  1222.  X:(4,l,8)!          T!          T!  X:(4,l,8)!          T!          T!          T!  X:(4,l,8)!
  1223.  X:(3,l,9)!  X:(8,l,7)!  X:(7,l,7)!  X:(3,l,9)!  X:(8,l,7)!  X:(8,l,7)!  X:(7,l,7)!  X:(3,l,9)!
  1224.     :l=l-1!  X:(9,l,8)!  X:(5,l,8)!     :l=l-4!  X:(9,l,8)!  X:(9,l,8)!  X:(5,l,8)!     :l=l-8!
  1225.      :h=76!  X:(3,l,9)!  X:(3,l,9)!      :h=79!  X:(3,l,9)!  X:(3,l,9)!  X:(3,l,9)!      :h=76!
  1226.          e!     :l=l-2!     :l=l-3!          e!     :l=l-5!     :l=l-6!     :l=l-7!          e!
  1227.                  :h=77!      :h=78!                  :h=80!      :h=81!      :h=82!
  1228.                      e!          e!                      e!          e!          e!
  1229. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  1230. [ Vytvo²Prostor()
  1231. ] ZruτProstor()
  1232. e ¼arujNaPozici(h,g+m,10)
  1233. j ¼ekejNaKlávesu()
  1234. k Klávesa= ¼tiKlávesuZFrontyS¼ekáním()
  1235. q a=1;
  1236.   c=300;
  1237.   d=2;
  1238.   e=1;
  1239.   f=1;
  1240.   i=1;
  1241.   l=0;
  1242.   m=0;
  1243.   n=1;
  1244.   q=0;
  1245.   r=1;
  1246. t NastavPoziciBaltazara
  1247. A EscPlus();
  1248. L NaƒtiScénu
  1249. R RychlostBaltazara
  1250. T ¼arujNaPozici(h,g+m,10);
  1251.   Tón(a);
  1252.   ¼ekej(c);
  1253.   VypniTón();
  1254. X ¼arujNaPozici
  1255. Y Help=1;
  1256.   Nápov╪da();
  1257. Z NaƒtiScénu("klavir.klv");
  1258.   GrSmaºOkno();
  1259.   GrNastavBarvuPop²edí(ªlutá);
  1260.   GrNastavPozici(10,0);
  1261.   GrPiτⁿet╪zec(" Klavír ");
  1262.   GrNastavBarvuPop²edí(Bílá);
  1263.   GrNastavPozici(10,10);
  1264.   GrPiτⁿet╪zec(" Michal Trna                   n Nápov╪da ");
  1265. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  1266. /a Klávesa Je KlF1
  1267. /b Klávesa Je KlF2
  1268. /c Klávesa Je KlF3
  1269. /d Klávesa Je KlF4
  1270. /e Klávesa Je KlF5
  1271. /f Klávesa Je KlF6
  1272. /g Klávesa Je KlF7
  1273. /h Klávesa Je KlPageUp
  1274. /i Klávesa Je KlPageDown
  1275. /j Klávesa Je '+'
  1276. /k Klávesa Je '-'
  1277. /m Klávesa Je KlIns
  1278. /y c==50
  1279. /A Klávesa Je KlF8
  1280. /B Klávesa Je KlEsc
  1281. /C Klávesa Je 'n' Nebo Klávesa Je 'N'
  1282. /D Klávesa Je KlDoleva
  1283. /E Klávesa Je KlDoprava
  1284. /G d==256
  1285. /H d==1
  1286. *a n==1
  1287. =SP---------------------------------------------------------------------------
  1288. /***** konec programu *****/
  1289.