home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / TSPA2540.ZIP / TSUNTA.TST < prev    next >
Encoding:
Text File  |  1989-09-24  |  1.8 KB  |  95 lines
  1. (*
  2.    This is a test and demonstration program for TSUNTA.TPU
  3.    Updated 9-Aug-89, 19-Aug-89
  4. *)
  5.  
  6. program TsuntaTest;
  7.  
  8. uses Crt,
  9.      TSUNTE,
  10.      TSUNTA;
  11.  
  12. (* First test *)
  13. procedure TEST1;
  14. var i, j : byte;
  15. begin
  16.   CURSOFF;
  17.   ClrScr;
  18.   writeln;
  19.   writeln ('Demonstration of panning by Prof. Timo Salmi');
  20.   writeln;
  21.   for i := 1 to 23 do
  22.     begin
  23.       for j := 1 to 3 do write ('This is a test  ');
  24.       if i < 23 then writeln;
  25.     end;
  26.   for j := 1 to 17 do
  27.     begin
  28.       PANMR (7, 1, 80,  1, 2);
  29.       PANMR (7, 5, 80, 23, 2);
  30.       Delay (200);
  31.     end;
  32.   for j := 1 to 17 do
  33.     begin
  34.       PANML (7, 1, 80,  1, 2);
  35.       PANML (7, 5, 80, 23, 2);
  36.       Delay (50);
  37.     end;
  38.   repeat until KeyPressed;
  39.   CURSON;
  40. end;  (* test1 *)
  41.  
  42. (* Second test *)
  43. procedure TEST2;
  44. var i, j : byte;
  45. begin
  46.   TextMode (C40);
  47.   CLB;
  48.   CURSOFF;
  49.   writeln;
  50.   writeln ('Demo of panning by Prof. Timo Salmi');
  51.   writeln ('What scrolls of the screen, is lost');
  52.   writeln;
  53.   for i := 1 to 22 do
  54.     begin
  55.       for j := 1 to 2 do write ('This is a test  ');
  56.       if i < 22 then writeln;
  57.     end;
  58.   repeat
  59.     for j := 1 to 10 do
  60.       begin
  61.         PANMR (7, 1, WIDTHFN,  1, 1);
  62.         PANMR (7, 6, WIDTHFN, 23, 1);
  63.         Delay (50);
  64.       end;
  65.     for j := 1 to 10 do
  66.       begin
  67.         PANML (7, 1, WIDTHFN,  1, 1);
  68.         PANML (7, 6, WIDTHFN, 23, 1);
  69.         Delay (10);
  70.       end;
  71.   until KeyPressed;
  72.   CURSON;
  73. end;  (* test2 *)
  74.  
  75. (* Third test *)
  76. procedure TEST3;
  77. begin
  78.   TextMode (C80);
  79.   ClrScr;
  80.   GoToXY (20,13);
  81.   write ('Look at the lower right-hand side corner');
  82.   VIDXY (80, 25, 'X', ATTRIBFN(yellow+blink, blue));
  83.   CLB;
  84.   repeat until KeyPressed;
  85. end;
  86.  
  87. (* Main program *)
  88. begin
  89.   TEST1;
  90.   TEST2;
  91.   TEST3;
  92.   CURSON;
  93.   Repeat until KeyPressed;
  94. end.  (* TSUNTA.TST *)
  95.