home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TTT5_2.ZIP / DEMO4.ZIP / KEYDEM3.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-01-31  |  1.5 KB  |  51 lines
  1. Program KeyTTT5_Demo_3;
  2.  
  3. Uses CRT, FASTTTT5, KeyTTT5;
  4.  
  5. var Ch : char;
  6.  
  7. begin
  8.     ClrScr;
  9.     WriteCenter(1,white,black,'Special Keys Demo - TTT 5.0');
  10.     WriteCenter(24,lightgray,black,'Press Alt, Ctrl, Shift, Caps, Num, Scroll  or ESC  to exit');
  11.     Set_Caps(True);
  12.     Set_Num(True);
  13.     Set_Scroll(true);
  14.     Repeat
  15.          If Keypressed then
  16.             Ch := GetKey;
  17.          If CapsOn then
  18.             Fastwrite(30,5,white,'CAPS')
  19.          else
  20.             Fastwrite(30,5,white,'    ');
  21.          If NumOn then
  22.             Fastwrite(30,6,white,'NUM')
  23.          else
  24.             Fastwrite(30,6,white,'   ');
  25.          If ScrollOn then
  26.             Fastwrite(30,7,white,'SCROLL')
  27.          else
  28.             Fastwrite(30,7,white,'      ');
  29.          If ALT_Pressed then
  30.             Fastwrite(30,8,white,'ALT')
  31.          else
  32.             Fastwrite(30,8,white,'   ');
  33.          If CTRL_Pressed then
  34.             Fastwrite(30,9,white,'CTRL')
  35.          else
  36.             Fastwrite(30,9,white,'    ');
  37.          If LeftShift_Pressed then
  38.             Fastwrite(30,10,white,'Left Shift')
  39.          else
  40.             Fastwrite(30,10,white,'          ');
  41.          If RightShift_Pressed then
  42.             Fastwrite(30,11,white,'Right Shift')
  43.          else
  44.             Fastwrite(30,11,white,'           ');
  45.     Until Ch = #027;
  46.     clrscr;
  47.     WriteAT(1,1,white,black,'Run DemoTTT.exe for the main demo program');
  48.     WriteAT(1,2,white,black,'TechnoJock''s Turbo Toolkit v5.0');
  49.     GotoXY(1,5);
  50. end.
  51.