home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / visionix / test / tvio.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-11-14  |  755 b   |  78 lines
  1. Program TVIO;
  2.  
  3.  
  4. Uses
  5.  
  6.   VVIO;
  7.  
  8.  
  9. Procedure TestVioWrtNCell;
  10.  
  11. Var
  12.  
  13.   C : TCell;
  14.   Z : INTEGER;
  15.  
  16.  
  17. BEGIN
  18.  
  19.   For Z:=0 to 9 Do
  20.   BEGIN
  21.     C.CH   := Chr( Ord('A')+Z );
  22.     C.Attr := Z+1;
  23.     VioWrtNCel( @C, 10, Z, Z, 0 );
  24.   END;
  25.  
  26. END;
  27.  
  28.  
  29. Procedure TestVioWrtNCHar;
  30.  
  31. Var
  32.  
  33.   C : CHAR;
  34.   Z : INTEGER;
  35.  
  36.  
  37. BEGIN
  38.  
  39.   For Z:=0 to 9 Do
  40.   BEGIN
  41.     C := Chr( Ord('A')+Z );
  42.     VioWrtNChar( @C, 10, Z, Z, 0 );
  43.   END;
  44.  
  45. END;
  46.  
  47.  
  48. Procedure TestVioWrtTTY;
  49.  
  50. Var
  51.  
  52.   S : STRING;
  53.   Z : INTEGER;
  54.  
  55. BEGIN
  56.  
  57.   S := 'This is just a test my friend!'+#13+#10;
  58.  
  59.   For Z := 1 to 8 Do
  60.   BEGIN
  61.  
  62.     VioWrtTty( @S[1], Length(S), 0 );
  63.  
  64.  
  65.   END;
  66.  
  67. END;
  68.  
  69.  
  70. BEGIN
  71.  
  72.   TestVioWrtTTY;
  73.  
  74.   TestVioWrtNChar;
  75.  
  76.   TestVioWrtNCell;
  77.  
  78. END.