home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / Ozogan / DOTAZ.IPS < prev    next >
Text File  |  1998-03-25  |  1KB  |  50 lines
  1. PROCEDURE adresa
  2.    IF (answer("Zadejte VaÜi addresu:")) then  
  3.       WRITELN('VaÜe adresa je:');
  4.       WRITELN(it);
  5.    ELSE
  6.       WRITELN('Adresu jste nezadal !');
  7.    ENDIF
  8. ENDPROC
  9.  
  10. PROCEDURE den
  11.    IF (choose("Vyberte den v t²dnu:", "sobota",  "pond∞lφ",  
  12.               "·ter²", "st°eda", "Φtvrtek", "pßtek",
  13.               "sobota", "ned∞le") <> -1) then
  14.       MESSAGEBOX("Vybral jste si: " + it, "Oblφben² den v t²dnu", mb_ok);
  15.       WRITELN('VßÜ oblφben² den je  : '+ it);
  16.    ELSE
  17.       WRITELN("V²b∞r dne v t²dnu byl p°eruÜen", "v²sledek", mb_ok);
  18.    ENDIF
  19. ENDPROC
  20.  
  21. PROCEDURE mesic
  22.    clearChooseBox  
  23.    addChooseItem('leden');
  24.    addChooseItem('·nor');
  25.    addChooseItem('b°ezen');
  26.    addChooseItem('duben');
  27.    addChooseItem('kv∞ten');
  28.    addChooseItem('Φerven');
  29.    addChooseItem('Φervenec');
  30.    addChooseItem('srpen');
  31.    addChooseItem('zß°φ');
  32.    addChooseItem('°φjen');
  33.    addChooseItem('listopad');
  34.    addChooseItem('prosinec');
  35.    IF (chooseOption('Vyberte jeden m∞sφc v roce:', 'leden') <> -1) then  
  36.       MESSAGEBOX("Vybral jste si: " + it, "Oblφben² m∞sφc", mb_ok);
  37.       WRITELN('VßÜ oblφben² m∞sφc je: '+ it);
  38.    ELSE
  39.       MESSAGEBOX("V²b∞r byl p°eruÜen !", "v²sledek", mb_ok);
  40.    ENDIF
  41. ENDPROC
  42.  
  43. PROCEDURE main
  44.    ConsoleClear; {vyma₧e textovΘ v²stupnφ okno}
  45.    ConsoleShow;
  46.    adresa        {zadßnφ adresy}
  47.    den           {v²b∞r dne v t²dnu}
  48.    mesic         {v²b∞r m∞sφce v roce}
  49. ENDPROC
  50.