home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 June / PCWorld_1998-06_cd.bin / software / Programy / Ozogan / KEYBOARD.IPS < prev    next >
Encoding:
Text File  |  1997-07-24  |  1.4 KB  |  48 lines
  1. VAR
  2.    z : Word = 0;
  3.    s : Char = " ";
  4. ENDVAR
  5.  
  6. PROCEDURE main
  7.    ProgramHide;
  8.    ConsoleClear;
  9.    CommandHide;
  10.    ConsoleShow;
  11.    WRITELN('Program pro demonstraci Φtenφ z klßvesnice')
  12.    WRITELN('Zapisujte libovolnΘ znaky, kterΘ se po ')
  13.    WRITELN('p°eΦtenφ klßvesnice zapφÜφ do v²stupnφho')
  14.    WRITELN('textovΘho okna')
  15.    WRITELN('******************************************')
  16.    WRITELN('***     zaΦßtek cyklu Φtenφ GetKey     ***')
  17.    WRITELN('*** pro ukonΦenφ stiskn∞te klßvesu ESC ***')
  18.    WRITELN('******************************************')
  19.  
  20.    z := 0;
  21.    WHILE (z <> 27)
  22.       REPEAT UNTIL KeyPressed
  23.       z := GetKey;
  24.       IF z = 13 WRITELN() ENDIF
  25.       IF z > 31 WRITE(chr(z)) ENDIF
  26.       WRITELN(' --->',z:4); 
  27.    ENDWHILE
  28.    WRITELN()
  29.    WRITELN('*********  konec cyklu GetKey  ***********')
  30.  
  31.    WRITELN()
  32.    WRITELN('******************************************')
  33.    WRITELN('***     zaΦßtek cyklu Φtenφ GetChar    ***')
  34.    WRITELN('*** pro ukonΦenφ stiskn∞te klßvesu ESC ***')
  35.    WRITELN('******************************************')
  36.    WHILE (ord(s) <> 27)
  37.       REPEAT UNTIL KeyPressed
  38.       s:=GetChar
  39.       IF ord(s) > 31 WRITE(s)  ENDIF
  40.       IF ord(s) = 13 WRITELN() ENDIF
  41. {      WRITELN(Ord(s):3); }
  42.    ENDWHILE
  43.    WRITELN('')
  44.    WRITELN('*********  konec cyklu GetChar  **********')
  45.    WRITELN('***********   konec programu  ************')
  46.    ProgramShow;
  47.    CommandShow;
  48. ENDPROC