home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / progpas / tspas18.arj / TSUNTH.TST < prev    next >
Text File  |  1990-02-25  |  588b  |  29 lines
  1. (* This is a test program for the TSUNTH.TPU unit
  2.    25-Feb-89 *)
  3.  
  4. uses TSUNTH;
  5.  
  6. procedure LOGO;
  7. begin
  8.   writeln;
  9.   writeln ('TSUNTH unit test by Prof. Timo Salmi, 25-Feb-90');
  10.   writeln ('University of Vaasa, Finland, ts@chyde.uwasa.fi');
  11.   writeln;
  12. end;  (* logo *)
  13.  
  14. (* Testing if graftabl is loaded *)
  15. procedure TEST1;
  16. begin
  17.   if GRTABLFN then
  18.      writeln ('GRAFTABL has been loaded')
  19.    else
  20.      writeln ('GRAFTABL has not been loaded');
  21. end;  (* test1 *)
  22.  
  23. (* Main program *)
  24. begin
  25.   LOGO;
  26.   TEST1;
  27.   write ('Press <═╝'); readln;
  28. end.  (* tsunth.tst *)
  29.