home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / POSTBGI.ZIP / TEST2.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1990-08-01  |  322 b   |  22 lines
  1. program test2;
  2. uses
  3.     Graph,
  4.     Post;
  5.  
  6. var
  7.     i,j:integer;
  8.  
  9. begin
  10.     PostMode := ModeCRT OR ModeTOP OR ModeVGA;
  11.     i := PostInstall;
  12.     for j := 1 to 2 do
  13.     begin
  14.         for i := 1 to 13 do
  15.         begin
  16.             PostSetFont(i,10);
  17.             Outtextxy(100,i*20,'this is a test');
  18.         end;
  19.         if j = 1 then PostSwap;
  20.     end;
  21.     CloseGraph;
  22. end.