home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / PASCAL / PARADIS1 / TIMTRIK.PAS < prev    next >
Pascal/Delphi Source File  |  1991-01-30  |  1KB  |  37 lines
  1. (10735) Wed 3 Jul 91 19:22
  2. By: Sten Kalenda
  3. To: Jan Feijes
  4. Re: Different video segment trick
  5. St:
  6. ---------------------------------------------------------------------------
  7. @MSGID: 2:512/29.999 28726a57
  8. Hello Jan,
  9. Sorry, ScrBase is my own variable. It should be defined as follows:
  10.   Var ScrBase : Word;
  11.  
  12. But anyway, as You have desided to use the TP WriteLn you must force TURBO
  13. to do all the screen IO using the (slow) BIOS routines.
  14.  
  15. EXAMPLE:
  16.  
  17. Program UnderDesqView;
  18. Uses Crt;
  19. var
  20.   Timer     : Longint absolute $0040:$006C;            { BIOS timer ticks     }
  21. begin
  22.   DirectVideo:=false;                                   { is true by default  }
  23.   repeat
  24.     GoToXY(1,1);
  25.     Write('Timer ticks:',Timer:15);
  26.   until KeyPressed;
  27.   if   ReadKey=#0 then if   ReadKey=#0 then;           { flush the keyboard   }
  28. end.
  29.  
  30. ByBy and gegroet,
  31.      S10.
  32.  
  33. --- XRS! 4.00
  34.  * Origin: ****  This is a QMX-user from RCC-BBS node 512/29 (RAX 2:512/29.999)
  35.  
  36. @PATH: 30027/999 512/29 39 0 1007 
  37.