home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1995 December / SOFM_Dec1995.bin / pc / os2 / vpascal / examples / test / testwcrt.pas < prev    next >
Pascal/Delphi Source File  |  1995-10-31  |  969b  |  32 lines
  1. {█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█}
  2. {█                                                       █}
  3. {█      Virtual Pascal Examples. Version 1.0.            █}
  4. {█      WinCrt unit test example.                        █}
  5. {█      ─────────────────────────────────────────────────█}
  6. {█      Copyright (C) 1995 B&M&T Corporation             █}
  7. {█      ─────────────────────────────────────────────────█}
  8. {█      Written by Vitaly Miryanov                       █}
  9. {█                                                       █}
  10. {▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀}
  11.  
  12. program TestWCrt;
  13.  
  14. uses WinCrt;
  15.  
  16. var
  17.   I: Integer;
  18.   S: String;
  19. begin
  20. {$IFDEF OS2}
  21.   { Select 14 x 6 System VIO font }
  22.   FontAttr.lMaxBaselineExt := 14;
  23.   FontAttr.lAveCharWidth := 6;
  24. {$ENDIF}
  25.   for I := 0 to 25 * 80-1 do Write(I mod 10);
  26.   WriteLn('Type ''q'' to exit'#7);
  27.   repeat
  28.     ReadLn(S);
  29.     WriteLn(S);
  30.   until S = 'q';
  31. end.
  32.