home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 July / Chip_1998-07_cd.bin / tema / sgp / vyber / prevody / PREVODY.SGP < prev    next >
Text File  |  1997-10-31  |  20KB  |  327 lines
  1. SGPC   5.00 CZ0#51P00066 15.10.1997 19:07:27                                    StructNo 0   0
  2. # include <sgpbalt.h>
  3.  
  4. // Globální prom╪nné
  5.  
  6. // Globální makra
  7. -o1-Globals
  8. -c1-Globals
  9. ===Globals
  10. /*-hf(*/
  11. /*-hf-*/
  12. void main( void )
  13. /*-hf)*/;
  14. ;-h---------------------------------------------------------------------------
  15. void main( void )
  16. -s--P²evody                                                                     ■   2  -2  -2   3
  17.                                  P²evody
  18.                                  Jednotek
  19.    _________________________________│________________
  20. Prom╪nné   Animace    Prostor       │             Konec
  21.    │          │          │          *0             9!
  22.   0!         a!        12!    V∞b╪r~veliƒin
  23.                                     │
  24.                                   34!
  25.                                     │
  26.                                     /1
  27.                               P²evodní~ƒísla
  28.                                     │
  29.                                    5!
  30.                                     │
  31.                                     *1
  32.                                     │
  33.                               V∞b╪r~jednotek
  34.                                    6!
  35.                                     │
  36.                                     /2
  37.                                  Poƒítání
  38.                                     │
  39.                                    7!
  40. -o1----------------------SEZNAM OPERAC╓------------TENTO ⁿ╡DEK NEM╖NIT!-------
  41. 0 int a,b,c,e,n,o,p,q,x,y,z,xy,xz;
  42.   double f,g,h,i,j,k,l,aa,ab,ac,ad,ae;
  43.   char *aax[12],*bax[12],*cax[12],*dax[12],*eax[12],*fax[12],*abx[8],*bbx[8],*cbx[8],*dbx[8],*ebx[8],*fbx[8];
  44.   long ax;
  45. a {EscPlus();Vytvo²Prostor();GrNastavMód(GrMódEGA);GrNastavV∞stup(0);GrNastavBarvuPozadí(0);GrNastavBarvuPop²edí(15);GrSmaºOkno();GrNastavPozici(75,7);GrPiτⁿet╪zec("Lukáτ Potensk∞ Zµ Rychvald");GrNastavV∞stup(1);
  46.    TypAnimP²edm╪t P²edm╪t= AnimP²edm╪tVytvo²(81,2,1,1);TypAnimP²edm╪t P²edm╪t1= AnimP²edm╪tVytvo²(79,2,1,1);TypAnimP²edm╪t P²edm╪t2= AnimP²edm╪tVytvo²(83,1,1,1);TypAnimP²edm╪t P²edm╪t3= AnimP²edm╪tVytvo²(106,10,1,1);
  47.    TypAnimP²edm╪t P²edm╪t4= AnimP²edm╪tVytvo²(91,10,1,1);TypAnimP²edm╪t P²edm╪t5= AnimP²edm╪tVytvo²(86,2,1,1);TypAnimP²edm╪t P²edm╪t6= AnimP²edm╪tVytvo²(84,2,1,1);TypAnimP²edm╪t P²edm╪t7= AnimP²edm╪tVytvo²(88,1,1,1);
  48.    TypAnimP²edm╪t P²edm╪t8= AnimP²edm╪tVytvo²(121,10,1,1);TypAnimP²edm╪t P²edm╪t9= AnimP²edm╪tVytvo²(136,10,1,1);
  49.    xy=-1;xz=546;
  50.    while (xy < 246) { xy=xy+10;xz=xz-10;
  51.      AnimP²edm╪tAnimuj(P²edm╪t,xy,180,0);
  52.      AnimP²edm╪tAnimuj(P²edm╪t1,xy-39,180,0);
  53.      AnimP²edm╪tAnimuj(P²edm╪t2,xy-39,151,0);
  54.      AnimP²edm╪tAnimuj(P²edm╪t3,xy-78,151,0);
  55.      AnimP²edm╪tAnimuj(P²edm╪t4,xy-117,151,0);
  56.      AnimP²edm╪tAnimuj(P²edm╪t5,xz,180,0);
  57.      AnimP²edm╪tAnimuj(P²edm╪t6,xz+39,180,0);
  58.      AnimP²edm╪tAnimuj(P²edm╪t7,xz+39,151,0);
  59.      AnimP²edm╪tAnimuj(P²edm╪t8,xz+78,151,0);
  60.      AnimP²edm╪tAnimuj(P²edm╪t9,xz+117,151,0);
  61.       ¼ekej(15);
  62.      AnimP²edm╪tAnimuj(P²edm╪t,xy+1,180,1);
  63.      AnimP²edm╪tAnimuj(P²edm╪t1,xy-38,180,1);
  64.      AnimP²edm╪tAnimuj(P²edm╪t2,xy-38,151,0);
  65.      AnimP²edm╪tAnimuj(P²edm╪t3,xy-77,151,1);
  66.      AnimP²edm╪tAnimuj(P²edm╪t4,xy-116,151,1);
  67.      AnimP²edm╪tAnimuj(P²edm╪t5,xz-1,180,1);
  68.      AnimP²edm╪tAnimuj(P²edm╪t6,xz+38,180,1);
  69.      AnimP²edm╪tAnimuj(P²edm╪t7,xz+38,151,0);
  70.      AnimP²edm╪tAnimuj(P²edm╪t8,xz+77,151,1);
  71.      AnimP²edm╪tAnimuj(P²edm╪t9,xz+116,151,1);
  72.       ¼ekej(15);
  73.      AnimP²edm╪tAnimuj(P²edm╪t,xy+2,180,0);
  74.      AnimP²edm╪tAnimuj(P²edm╪t1,xy-37,180,0);
  75.      AnimP²edm╪tAnimuj(P²edm╪t2,xy-37,151,0);
  76.      AnimP²edm╪tAnimuj(P²edm╪t3,xy-76,151,2);
  77.      AnimP²edm╪tAnimuj(P²edm╪t4,xy-115,151,2);
  78.      AnimP²edm╪tAnimuj(P²edm╪t5,xz-2,180,0);
  79.      AnimP²edm╪tAnimuj(P²edm╪t6,xz+37,180,0);
  80.      AnimP²edm╪tAnimuj(P²edm╪t7,xz+37,151,0);
  81.      AnimP²edm╪tAnimuj(P²edm╪t8,xz+76,151,2);
  82.      AnimP²edm╪tAnimuj(P²edm╪t9,xz+115,151,2);
  83.       ¼ekej(15);
  84.      AnimP²edm╪tAnimuj(P²edm╪t,xy+3,180,1);
  85.      AnimP²edm╪tAnimuj(P²edm╪t1,xy-36,180,1);
  86.      AnimP²edm╪tAnimuj(P²edm╪t2,xy-36,151,0);
  87.      AnimP²edm╪tAnimuj(P²edm╪t3,xy-75,151,3);
  88.      AnimP²edm╪tAnimuj(P²edm╪t4,xy-114,151,3);
  89.      AnimP²edm╪tAnimuj(P²edm╪t5,xz-3,180,1);
  90.      AnimP²edm╪tAnimuj(P²edm╪t6,xz+36,180,1);
  91.      AnimP²edm╪tAnimuj(P²edm╪t7,xz+36,151,0);
  92.      AnimP²edm╪tAnimuj(P²edm╪t8,xz+75,151,3);
  93.      AnimP²edm╪tAnimuj(P²edm╪t9,xz+114,151,3);
  94.       ¼ekej(15);
  95.      AnimP²edm╪tAnimuj(P²edm╪t,xy+4,180,0);
  96.      AnimP²edm╪tAnimuj(P²edm╪t1,xy-35,180,0);
  97.      AnimP²edm╪tAnimuj(P²edm╪t2,xy-35,151,0);
  98.      AnimP²edm╪tAnimuj(P²edm╪t3,xy-74,151,4);
  99.      AnimP²edm╪tAnimuj(P²edm╪t4,xy-113,151,4);
  100.      AnimP²edm╪tAnimuj(P²edm╪t5,xz-4,180,0);
  101.      AnimP²edm╪tAnimuj(P²edm╪t6,xz+35,180,0);
  102.      AnimP²edm╪tAnimuj(P²edm╪t7,xz+35,151,0);
  103.      AnimP²edm╪tAnimuj(P²edm╪t8,xz+74,151,4);
  104.      AnimP²edm╪tAnimuj(P²edm╪t9,xz+113,151,4);
  105.       ¼ekej(15);
  106.      AnimP²edm╪tAnimuj(P²edm╪t,xy+5,180,1);
  107.      AnimP²edm╪tAnimuj(P²edm╪t1,xy-34,180,1);
  108.      AnimP²edm╪tAnimuj(P²edm╪t2,xy-34,151,0);
  109.      AnimP²edm╪tAnimuj(P²edm╪t3,xy-73,151,5);
  110.      AnimP²edm╪tAnimuj(P²edm╪t4,xy-112,151,5);
  111.      AnimP²edm╪tAnimuj(P²edm╪t5,xz-5,180,1);
  112.      AnimP²edm╪tAnimuj(P²edm╪t6,xz+34,180,1);
  113.      AnimP²edm╪tAnimuj(P²edm╪t7,xz+34,151,0);
  114.      AnimP²edm╪tAnimuj(P²edm╪t8,xz+73,151,5);
  115.      AnimP²edm╪tAnimuj(P²edm╪t9,xz+112,151,5);
  116.       ¼ekej(15);
  117.      AnimP²edm╪tAnimuj(P²edm╪t,xy+6,180,0);
  118.      AnimP²edm╪tAnimuj(P²edm╪t1,xy-33,180,0);
  119.      AnimP²edm╪tAnimuj(P²edm╪t2,xy-33,151,0);
  120.      AnimP²edm╪tAnimuj(P²edm╪t3,xy-72,151,6);
  121.      AnimP²edm╪tAnimuj(P²edm╪t4,xy-111,151,6);
  122.      AnimP²edm╪tAnimuj(P²edm╪t5,xz-6,180,0);
  123.      AnimP²edm╪tAnimuj(P²edm╪t6,xz+33,180,0);
  124.      AnimP²edm╪tAnimuj(P²edm╪t7,xz+33,151,0);
  125.      AnimP²edm╪tAnimuj(P²edm╪t8,xz+72,151,6);
  126.      AnimP²edm╪tAnimuj(P²edm╪t9,xz+111,151,6);
  127.       ¼ekej(15);
  128.      AnimP²edm╪tAnimuj(P²edm╪t,xy+7,180,1);
  129.      AnimP²edm╪tAnimuj(P²edm╪t1,xy-32,180,1);
  130.      AnimP²edm╪tAnimuj(P²edm╪t2,xy-32,151,0);
  131.      AnimP²edm╪tAnimuj(P²edm╪t3,xy-71,151,7);
  132.      AnimP²edm╪tAnimuj(P²edm╪t4,xy-110,151,7);
  133.      AnimP²edm╪tAnimuj(P²edm╪t5,xz-7,180,1);
  134.      AnimP²edm╪tAnimuj(P²edm╪t6,xz+32,180,1);
  135.      AnimP²edm╪tAnimuj(P²edm╪t7,xz+32,151,0);
  136.      AnimP²edm╪tAnimuj(P²edm╪t8,xz+71,151,7);
  137.      AnimP²edm╪tAnimuj(P²edm╪t9,xz+110,151,7);
  138.       ¼ekej(15);
  139.      AnimP²edm╪tAnimuj(P²edm╪t,xy+8,180,0);
  140.      AnimP²edm╪tAnimuj(P²edm╪t1,xy-31,180,0);
  141.      AnimP²edm╪tAnimuj(P²edm╪t2,xy-31,151,0);
  142.      AnimP²edm╪tAnimuj(P²edm╪t3,xy-70,151,8);
  143.      AnimP²edm╪tAnimuj(P²edm╪t4,xy-109,151,8);
  144.      AnimP²edm╪tAnimuj(P²edm╪t5,xz-8,180,0);
  145.      AnimP²edm╪tAnimuj(P²edm╪t6,xz+31,180,0);
  146.      AnimP²edm╪tAnimuj(P²edm╪t7,xz+31,151,0);
  147.      AnimP²edm╪tAnimuj(P²edm╪t8,xz+70,151,8);
  148.      AnimP²edm╪tAnimuj(P²edm╪t9,xz+109,151,8);
  149.       ¼ekej(15);
  150.      AnimP²edm╪tAnimuj(P²edm╪t,xy+9,180,1);
  151.      AnimP²edm╪tAnimuj(P²edm╪t1,xy-30,180,1);
  152.      AnimP²edm╪tAnimuj(P²edm╪t2,xy-30,151,0);
  153.      AnimP²edm╪tAnimuj(P²edm╪t3,xy-69,151,9);
  154.      AnimP²edm╪tAnimuj(P²edm╪t4,xy-108,151,9);
  155.      AnimP²edm╪tAnimuj(P²edm╪t5,xz-9,180,1);
  156.      AnimP²edm╪tAnimuj(P²edm╪t6,xz+30,180,1);
  157.      AnimP²edm╪tAnimuj(P²edm╪t7,xz+30,151,0);
  158.      AnimP²edm╪tAnimuj(P²edm╪t8,xz+69,151,9);
  159.      AnimP²edm╪tAnimuj(P²edm╪t9,xz+108,151,9);
  160.       ¼ekej(15);
  161.       } GrNastavV∞stup(0);GrNastavBarvuPozadí(0);GrNastavBarvuPop²edí(15);GrSmaºOkno();GrNastavPozici(45,7);GrPiτⁿet╪zec("!!! Zmáƒkni jakoukoliv klávesu !!!");¼ekejNaKlávesu();
  162.       AnimP²edm╪tZruτ(P²edm╪t);AnimP²edm╪tZruτ(P²edm╪t1);AnimP²edm╪tZruτ(P²edm╪t2);AnimP²edm╪tZruτ(P²edm╪t3);AnimP²edm╪tZruτ(P²edm╪t4);AnimP²edm╪tZruτ(P²edm╪t5);AnimP²edm╪tZruτ(P²edm╪t6);
  163.       AnimP²edm╪tZruτ(P²edm╪t7);AnimP²edm╪tZruτ(P²edm╪t8);AnimP²edm╪tZruτ(P²edm╪t9);
  164.     ZruτProstor();EscMínus();}
  165. 1 Vytvo²Prostor();MyτZaƒátekObsluhy();a=1;x=24;y=10;c=0;o=0;
  166. 2 GrNastavMód(GrMódEGA);MyτVyprázdniFrontuUdálostí();GrNastavV∞stup(1);MyτNastavRozsah(24,10,610,301);MyτNastavPozici(x,y);MyτNastavGrKurzor(76);MyτZobrazKurzor();
  167.    TypMyτUdálost MU;Myτ¼tiUdálost(MU);TypMyτStav MS;
  168. 3  MyτSchovejKurzor();GrNastavV∞stup(1);GrNastavBarvuPozadí(0);MyτNastavPozici(x,y);GrSmaºOkno();NaƒtiScénu("*\\prevody.s00");GrNastavV∞stup(0);a=1;z=0;MyτZobrazKurzor();GrNastavBarvuPop²edí(7);GrNastavBarvuPozadí(0);GrSmaºOkno();p=0;q=0;
  169. 4 o=15;
  170.   while (a == 1) {
  171.     switch(MU.Typ) {
  172.       case(MyτUdálostPohyb):
  173.         MyτStav(MS);
  174.         x=MS.X;y=MS.Y;
  175.         break;
  176.       case(MyτUdálostLevéTlDolà):
  177.         MyτStav(MS);
  178.         x=MS.X;y=MS.Y;
  179.         if ((x>=103 & y>=69) && (x<=141 & y<=97)) {a=2;b=1;c=5;} else;
  180.         if ((x>=142 & y>=69) && (x<=180 & y<=97)) {a=2;b=3;c=6;} else;
  181.         if ((x>=181 & y>=69) && (x<=219 & y<=97)) {a=2;b=5;c=6;} else;
  182.         if ((x>=220 & y>=69) && (x<=258 & y<=97)) {a=2;b=7;c=6;} else;
  183.         if ((x>=103 & y>=98) && (x<=141 & y<=126)) {a=2;b=9;c=5;} else;
  184.         if ((x>=142 & y>=98) && (x<=180 & y<=126)) {a=2;b=11;c=5;} else;
  185.         if ((x>=181 & y>=98) && (x<=219 & y<=126)) {a=2;b=13;c=3;} else;
  186.         if ((x>=103 & y>=127) && (x<=141 & y<=155)) {a=2;b=15;c=4;} else;
  187.         if ((x>=142 & y>=127) && (x<=180 & y<=155)) {a=2;b=17;c=6;} else;
  188.         if ((x>=181 & y>=127) && (x<=219 & y<=155)) {a=2;b=19;c=3;} else;
  189.       break;
  190.       case(MyτUdálostPravéTlDolà):
  191.       a=15;
  192.       break;
  193.      }
  194.       n=0;
  195.       if ((x>=103 & y>=69) && (x<=141 & y<=97)) n=1;
  196.       if ((x>=142 & y>=69) && (x<=180 & y<=97)) n=2;
  197.       if ((x>=181 & y>=69) && (x<=219 & y<=97)) n=3;
  198.       if ((x>=220 & y>=69) && (x<=258 & y<=97)) n=4;
  199.       if ((x>=103 & y>=98) && (x<=141 & y<=126)) n=5;
  200.       if ((x>=142 & y>=98) && (x<=180 & y<=126)) n=6;
  201.       if ((x>=181 & y>=98) && (x<=219 & y<=126)) n=7;
  202.       if ((x>=103 & y>=127) && (x<=141 & y<=155)) n=8;
  203.       if ((x>=142 & y>=127) && (x<=180 & y<=155)) n=9;
  204.       if ((x>=181 & y>=127) && (x<=219 & y<=155)) n=10;
  205.       if (n == o) {goto Cti1;} else{
  206.       o=n;
  207.       if (n==1) {MyτSchovejKurzor();GrSmaºOkno();GrNastavPozici(20,7);GrPiτⁿet╪zec("Délka");¼arujNaPozici(3,3,3);MyτZobrazKurzor();} else {MyτSchovejKurzor();¼arujNaPozici(2,3,3);MyτZobrazKurzor();}
  208.       if (n==2) {MyτSchovejKurzor();GrSmaºOkno();GrNastavPozici(20,7);GrPiτⁿet╪zec("Obsah");¼arujNaPozici(5,4,3);MyτZobrazKurzor();} else {MyτSchovejKurzor();¼arujNaPozici(4,4,3);MyτZobrazKurzor();}
  209.       if (n==3) {MyτSchovejKurzor();GrSmaºOkno();GrNastavPozici(20,7);GrPiτⁿet╪zec("Objem");¼arujNaPozici(7,5,3);MyτZobrazKurzor();} else {MyτSchovejKurzor();¼arujNaPozici(6,5,3);MyτZobrazKurzor();}
  210.       if (n==4) {MyτSchovejKurzor();GrSmaºOkno();GrNastavPozici(20,7);GrPiτⁿet╪zec("¼as");¼arujNaPozici(9,6,3);MyτZobrazKurzor();} else {MyτSchovejKurzor();¼arujNaPozici(8,6,3);MyτZobrazKurzor();}
  211.       if (n==5) {MyτSchovejKurzor();GrSmaºOkno();GrNastavPozici(20,7);GrPiτⁿet╪zec("Hmotnost");¼arujNaPozici(11,3,4);MyτZobrazKurzor();} else {MyτSchovejKurzor();¼arujNaPozici(10,3,4);MyτZobrazKurzor();}
  212.       if (n==6) {MyτSchovejKurzor();GrSmaºOkno();GrNastavPozici(20,7);GrPiτⁿet╪zec("Rychlost");¼arujNaPozici(13,4,4);MyτZobrazKurzor();} else {MyτSchovejKurzor();¼arujNaPozici(12,4,4);MyτZobrazKurzor();}
  213.       if (n==7) {MyτSchovejKurzor();GrSmaºOkno();GrNastavPozici(20,7);GrPiτⁿet╪zec("Teplota");¼arujNaPozici(15,5,4);MyτZobrazKurzor();} else {MyτSchovejKurzor();¼arujNaPozici(14,5,4);MyτZobrazKurzor();}
  214.       if (n==8) {MyτSchovejKurzor();GrSmaºOkno();GrNastavPozici(20,7);GrPiτⁿet╪zec("V∞kon");¼arujNaPozici(17,3,5);MyτZobrazKurzor();} else {MyτSchovejKurzor();¼arujNaPozici(16,3,5);MyτZobrazKurzor();}
  215.       if (n==9) {MyτSchovejKurzor();GrSmaºOkno();GrNastavPozici(20,7);GrPiτⁿet╪zec("Tlak");¼arujNaPozici(19,4,5);MyτZobrazKurzor();} else {MyτSchovejKurzor();¼arujNaPozici(18,4,5);MyτZobrazKurzor();}
  216.       if (n==10) {MyτSchovejKurzor();GrSmaºOkno();GrNastavPozici(20,7);GrPiτⁿet╪zec("Energie");¼arujNaPozici(21,5,5);MyτZobrazKurzor();} else {MyτSchovejKurzor();¼arujNaPozici(20,5,5);MyτZobrazKurzor();}
  217.       if (n==0) {MyτSchovejKurzor();GrSmaºOkno();GrNastavPozici(1,1);GrPiτⁿet╪zec("  Levé tl. myτi - Vyberete veliƒinu");GrNastavPozici(1,13);GrPiτⁿet╪zec("  Pravé tl. myτi - Ukonƒíte program");MyτZobrazKurzor();}}
  218.    Cti1:
  219.    Myτ¼tiUdálost(MU);
  220.   }
  221. 5  MyτSchovejKurzor();
  222.   if (b Je 1) {c=5;ax=1001;*aax="Milimetr";*bax="Metr";*cax="Kilometr";*dax="Míle";*eax="Yard";aa=1000;ab=1000000;ac=1609344;ad=914.4;ae=1;
  223.                *abx="mm  ";*bbx="m   ";*cbx="Km  ";*dbx="mi. ";*ebx="yd. ";NaƒtiScénu("*\\prevody.s01"); };
  224.   if (b Je 3) {c=6;ax=1016;*aax="Milimetr ¼tv.";*bax="Metr ¼tv.";*cax="Ar";*dax="Hektar";*eax="Kilometr ¼tv.";*fax="Míle ¼tv.";aa=1000000;ab=100000000;ac=1e10;ad=1e12;ae=258998811e4;
  225.                *abx="mm ƒtv.";*bbx="m  ƒtv.";*cbx="a   ";*dbx="ha  ";*ebx="Km ƒtv.";*fbx="mi.ƒtv.";NaƒtiScénu("*\\prevody.s02");};
  226.   if (b Je 5) {c=6;ax=1031;*aax="Mililitr";*bax="Litr";*cax="Milimetr Kr.";*dax="Centimetr Kr.";*eax="Decimetr Kr.";*fax="Metr Kr.";aa=1000;ab=0.001;ac=1;ad=1000;ae=1e6;
  227.                *abx="ml  ";*bbx="l   ";*cbx="mm kr.";*dbx="cm kr.";*ebx="dm kr.";*fbx="m  kr.";NaƒtiScénu("*\\prevody.s03");};
  228.   if (b Je 7) {c=6;ax=1046;*aax="Sekunda";*bax="Minuta";*cax="Hodina";*dax="Den";*eax="M╪síc";*fax="Rok";aa=60;ab=3600;ac=86400;ad=2629800;ae=31557600;
  229.                *abx="sek.";*bbx="min.";*cbx="hod.";*dbx="Den ";*ebx="M╪s.";*fbx="Rok ";NaƒtiScénu("*\\prevody.s04");};
  230.   if (b Je 9) {c=5;ax=1061;*aax="Miligram";*bax="Gram";*cax="Kilogram";*dax="Tuna";*eax="Libra";aa=1000;ab=1e6;ac=1e9;ad=453592.37;ae=1;
  231.                *abx="mg  ";*bbx="g   ";*cbx="Kg  ";*dbx="t   ";*ebx="lb  ";NaƒtiScénu("*\\prevody.s05");};
  232.   if (b Je 11) {c=5;ax=1076;*aax="Metr za Sekundu";*bax="Kilometr za Hodinu";*cax="Míle za Hodinu";*dax="Knot";*eax="Mach";aa=0.27777777777778;ab=0.44704;ac=0.544;ad=331.46;ae=1;
  233.                *abx="m/s ";*bbx="Km/h";*cbx="mi/h";*dbx="kn";*ebx="Ma";NaƒtiScénu("*\\prevody.s06");};
  234.   if (b Je 13) {c=3;ax=1091;*aax="Celsiàv Stupeσ";*bax="Fahrenheitàv Stupeσ";*cax="Kelvinàv Stupeσ";NaƒtiScénu("*\\prevody.s07");z=1;}
  235.   if (b Je 15) {c=4;ax=1106;*aax="Watt";*bax="Kilowatt";*cax="Megawatt";*dax="Kon╪";aa=1000;ab=1e6;ac=745.6998714;ad=1;ae=1;
  236.                *abx="W   ";*bbx="KW  ";*cbx="MW  ";*dbx="hp  ";NaƒtiScénu("*\\prevody.s08");};
  237.   if (b Je 17) {c=6;ax=1121;*aax="Pascal";*bax="Kilopascal";*cax="Milibar";*dax="Bar";*eax="Atmosféra";*fax="Libra na Palec ƒtv.";aa=1000;ab=100;ac=1e5;ad=101325;ae=6894.757293;
  238.                *abx="Pa  ";*bbx="KPa ";*cbx="mbar";*dbx="bar ";*ebx="atm ";*fbx="psi ";NaƒtiScénu("*\\prevody.s09");};
  239.   if (b Je 19) {c=3;ax=1136;*aax="Joule";*bax="Kalorie";*cax="Kilokalorie";aa=4.1868;ab=4186.8;ac=1;ad=1;ae=1;
  240.                *abx="J   ";*bbx="cal.";*cbx="kcal.";NaƒtiScénu("*\\prevody.s10");};
  241.  
  242. 6 Mys:
  243.    GrNastavV∞stup(0);GrSmaºOkno();
  244.   MyτZobrazKurzor();
  245.   q=15;
  246.   while (a == 2) {
  247.     switch(MU.Typ) {
  248.       case(MyτUdálostPohyb):
  249.         MyτStav(MS);
  250.         x=MS.X;y=MS.Y;
  251.       break;
  252.       case(MyτUdálostLevéTlDolà):
  253.         MyτStav(MS);
  254.         x=MS.X;y=MS.Y;
  255.         if ((x>=64 & y>=40) && (x<=102 & y<=68)) {a=3;e=1;} else;
  256.         if ((x>=103 & y>=40) && (x<=141 & y<=68)) {a=3;e=2;} else;
  257.         if ((x>=142 & y>=40) && (x<=180 & y<=68)) {a=3;e=3;} else;
  258.         if (c>=4) {if ((x>=181 & y>=40) && (x<=219 & y<=68)) {a=3;e=4;} else;}
  259.         if (c>=5) {if ((x>=220 & y>=40) && (x<=258 & y<=68)) {a=3;e=5;} else;}
  260.         if (c==6) {if ((x>=259 & y>=40) && (x<=297 & y<=68)) {a=3;e=6;} else;}
  261.       break;
  262.       case(MyτUdálostPravéTlDolà):
  263.         a=10;
  264.       break;
  265.      }
  266.       p=0;
  267.       if ((x>=64 & y>=40) && (x<=102 & y<=68)) p=1;
  268.       if ((x>=103 & y>=40) && (x<=141 & y<=68)) p=2;
  269.       if ((x>=142 & y>=40) && (x<=180 & y<=68)) p=3;
  270.       if (c>=4) {if ((x>=181 & y>=40) && (x<=219 & y<=68)) p=4;}
  271.       if (c>=5) {if ((x>=220 & y>=40) && (x<=258 & y<=68)) p=5;}
  272.       if (c==6) {if ((x>=259 & y>=40) && (x<=297 & y<=68)) p=6;}
  273.       if (p == q) {goto Cti2;} else {
  274.       q=p;
  275.       if (p==1) {GrSmaºOkno();GrNastavPozici(20,7);MyτSchovejKurzor();GrPiτⁿet╪zec(*aax);¼arujNaPozici(ax+1,2,2);MyτZobrazKurzor();} else {MyτSchovejKurzor();¼arujNaPozici(ax,2,2);MyτZobrazKurzor();}
  276.       if (p==2) {GrSmaºOkno();GrNastavPozici(20,7);MyτSchovejKurzor();GrPiτⁿet╪zec(*bax);¼arujNaPozici(ax+3,3,2);MyτZobrazKurzor();} else {MyτSchovejKurzor();¼arujNaPozici(ax+2,3,2);MyτZobrazKurzor();}
  277.       if (p==3) {GrSmaºOkno();GrNastavPozici(20,7);MyτSchovejKurzor();GrPiτⁿet╪zec(*cax);¼arujNaPozici(ax+5,4,2);MyτZobrazKurzor();} else {MyτSchovejKurzor();¼arujNaPozici(ax+4,4,2);MyτZobrazKurzor();}
  278.       if (c>=4) {if (p==4) {GrSmaºOkno();GrNastavPozici(20,7);MyτSchovejKurzor();GrPiτⁿet╪zec(*dax);¼arujNaPozici(ax+7,5,2);MyτZobrazKurzor();} else {MyτSchovejKurzor();¼arujNaPozici(ax+6,5,2);MyτZobrazKurzor();}}
  279.       if (c>=5) {if (p==5) {GrSmaºOkno();GrNastavPozici(20,7);MyτSchovejKurzor();GrPiτⁿet╪zec(*eax);¼arujNaPozici(ax+9,6,2);MyτZobrazKurzor();} else {MyτSchovejKurzor();¼arujNaPozici(ax+8,6,2);MyτZobrazKurzor();}}
  280.       if (c==6) {if (p==6) {GrSmaºOkno();GrNastavPozici(20,7);MyτSchovejKurzor();GrPiτⁿet╪zec(*fax);¼arujNaPozici(ax+11,7,2);MyτZobrazKurzor();} else {MyτSchovejKurzor();¼arujNaPozici(ax+10,7,2);MyτZobrazKurzor();}}
  281.       if (p==0) {GrSmaºOkno();GrNastavPozici(1,1);GrPiτⁿet╪zec("  Levé tl. myτi - Vyberete jednotku");GrNastavPozici(1,13);GrPiτⁿet╪zec("  Pravé tl. myτi - Návrat do menu veliƒin");}}
  282.    Cti2:
  283.     Myτ¼tiUdálost(MU);
  284.   }
  285.  
  286. 7  MyτSchovejKurzor();
  287.    GrNastavV∞stup(1);GrNastavBarvuPozadí(0);GrNastavBarvuPop²edí(7);
  288.    if (z == 1) goto teplota;
  289.     GrNastavPozici(321,53);Gr¼tiD¼íslo("Kolik:",f,16,0,0x0f);
  290.       if (e Je 1) {g=f;};
  291.       if (e Je 2) {g=f*aa;};
  292.       if (e Je 3) {g=f*ab;};
  293.       if (e Je 4) {g=f*ac;};
  294.       if (e Je 5) {g=f*ad;};
  295.       if (e Je 6) {g=f*ae;};
  296.       {g=g;h=g/aa;i=g/ab;j=g/ac;k=g/ad;l=g/ae;}
  297.  
  298.     {
  299.     GrNastavPozici(80,111);GrPiτⁿet╪zec("                                 ");GrNastavPozici(80,111);GrPiτD¼íslo(g,30,7);GrNastavPozici(420,111);GrPiτⁿet╪zec(*abx);
  300.     GrNastavPozici(80,140);GrPiτⁿet╪zec("                                 ");GrNastavPozici(80,140);GrPiτD¼íslo(h,30,7);GrNastavPozici(420,140);GrPiτⁿet╪zec(*bbx);
  301.     GrNastavPozici(80,169);GrPiτⁿet╪zec("                                 ");GrNastavPozici(80,169);GrPiτD¼íslo(i,30,7);GrNastavPozici(420,169);GrPiτⁿet╪zec(*cbx);
  302.     if (c >= 4) {GrNastavPozici(80,198);GrPiτⁿet╪zec("                                 ");GrNastavPozici(80,198);GrPiτD¼íslo(j,30,7);GrNastavPozici(420,198);GrPiτⁿet╪zec(*dbx);}
  303.     if (c >= 5) {GrNastavPozici(80,227);GrPiτⁿet╪zec("                                 ");GrNastavPozici(80,227);GrPiτD¼íslo(k,30,7);GrNastavPozici(420,227);GrPiτⁿet╪zec(*ebx);}
  304.     if (c == 6) {GrNastavPozici(80,256);GrPiτⁿet╪zec("                                 ");GrNastavPozici(80,256);GrPiτD¼íslo(l,30,7);GrNastavPozici(420,256);GrPiτⁿet╪zec(*fbx);} }
  305.     GrNastavV∞stup(0);a=2;goto Mys;
  306.    teplota:
  307.     GrNastavPozici(321,53);Gr¼tiD¼íslo("Kolik:",f,16,0,0x0f);
  308.     if (e Je 1) {g=f;};
  309.     if (e Je 2) {j=(f-32)*5;g=j/9;};
  310.     if (e Je 3) {g=f-273.15;};
  311.     {g=g;k=(g*9)/5;h=k+32;i=g+273.15;}
  312.     {GrNastavPozici(80,111);GrPiτⁿet╪zec("                                 ");GrNastavPozici(80,111);GrPiτD¼íslo(g,30,7);GrNastavPozici(420,111);GrPiτⁿet╪zec("°C ");
  313.     GrNastavPozici(80,140);GrPiτⁿet╪zec("                                 ");GrNastavPozici(80,140);GrPiτD¼íslo(h,30,7);GrNastavPozici(420,140);GrPiτⁿet╪zec("°F ");
  314.     GrNastavPozici(80,169);GrPiτⁿet╪zec("                                 ");GrNastavPozici(80,169);GrPiτD¼íslo(i,30,7);GrNastavPozici(420,169);GrPiτⁿet╪zec("°K ");}
  315.     GrNastavV∞stup(0);a=2;goto Mys;
  316.  
  317.  
  318. 9  ZruτProstor();MyτKonecObsluhy();
  319. -c1----------------------SEZNAM PODM╓NEK-----------TENTO ⁿ╡DEK NEM╖NIT!-------
  320. *0 a Není 15
  321. *1 a Není 10
  322. /1 a Je 2
  323. /2 a Je 3
  324. =SP---------------------------------------------------------------------------
  325.  
  326. // Konec souboru
  327.